分割されてしまったラベルとテキストボックスを再度連結させるには
ラベルを切り取り、テキストボックスを選択し、貼り付ける
Office2000をSR-1 Premiumにアップデートしていないのが原因で
発生するエラー。
Officeをアップデートすると解消される。
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
レポートで独自の連番を作成するには?
1.「詳細」エリアにテキストボックスを配置
2.コントロールソースに「=1」と入力
3.プロパティ「集計実行」を全体にする
これにより、「詳細」セクションが呼び出される毎に、1が加算されていきます。