マクロを新規作成し、"アクション"は"コマンドの実行"を選択、"引数"は"最大化(アプリケーション)"を選択し、"autoexec"という名前でマクロを保存する。
"autoexec&quo...

>> 続きを読む

Private Sub Form_Load()'ReturnValueにAccessのバージョンを表示させ制御
'Access2003は11.0、Access2002は10.0、Access2000は9.0、
'Access97は8.0、Access95は7.0を返します。Me.ReturnValu...

>> 続きを読む

Private Sub backup_Click()Dim msg As Integermsg = MsgBox("DBのバックアップを開始します", vbYesNo, "警告")
If msg = vbYes Then
GoTo 1
Else
GoTo 2
...

>> 続きを読む

Private Sub import_Click()Dim msg As Integermsg = MsgBox("インポートを開始しますか?", vbYesNo, "警告")
If msg = vbYes Then
GoTo 1
Else
GoTo 2
1:...

>> 続きを読む

1、電話番号を表示できるテキストボックス(非連結でよい)を、新規登録画面に作成。
2、作成したテキストボックスのコントロールソースに「=[Forms]![new_registration]![店舗コード].[Column](3)」を入力
新規登録画面の店舗コードコンボボックスの集合ソースを「SELE...

>> 続きを読む