カテゴリー
SugiBlog Webエンジニアのためのお役立ちTips

VBA 数値変換

・10進数を16進数に変換

Hex(number)

・10進数を8進数に変換

Oct(number)

・16進数を10進数に変換

Val("&h" & number)

・8進数を10進数に変換

Val("&o" & number)
1,682 views

ラベルとテキストボックスなどを連結させる

分割されてしまったラベルとテキストボックスを再度連結させるには
ラベルを切り取り、テキストボックスを選択し、貼り付ける

4,093 views

「未定義関数…」などのエラー

Office2000をSR-1 Premiumにアップデートしていないのが原因で
発生するエラー。
Officeをアップデートすると解消される。

1,882 views

DAOでレコード検索

Dim dbs As Database
Dim rst As Recordset
Dim strCriteria As String

Set dbs = CurrentDb
Set rst = dbs.OpenRecordset("住所テーブル", _
dbOpenDynaset)

With rst
    strCriteria = "住所 Like '東京*'"
    .FindFirst strCriteria
    Do Until .NoMatch
        Debug.Print !ID, !氏名, !住所, !郵便番号
        .FindNext strCriteria
    Loop
    .Close
End With
2,334 views

レポートで連番を表示

レポートで独自の連番を作成するには?

1.「詳細」エリアにテキストボックスを配置
2.コントロールソースに「=1」と入力
3.プロパティ「集計実行」を全体にする
これにより、「詳細」セクションが呼び出される毎に、1が加算されていきます。

1,774 views