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

VBA 数値変換

・10進数を16進数に変換

Hex(number)

・10進数を8進数に変換

Oct(number)

・16進数を10進数に変換

Val("&h" & number)

・8進数を10進数に変換

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

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

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

4,253 views

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

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

1,953 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,421 views

レポートで連番を表示

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

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

1,837 views