---------------------------------------------
Private Sub 店舗名_GotFocus()Application.SetOption "move after enter", 0End Sub
-----------------...

>> 続きを読む

設定箇所はだた1つ、フォームの"TABキー移動プロパティ"を「カレントレコード」に変更するだけ。

-------------------------------------------------------
状況:フォームの「プロパティシート」の「データ」タブにて、「データ入...

>> 続きを読む

①
access97ではreplace関数が存在しないことを確認。
そのためExcelデータインポート時、改行コードの切替ができない。
access97にて代用モジュールを作成すればよいのらしいが、よくわからない。
インポート作業は、access2000以上限定にするべきか。
access97起動時...

>> 続きを読む

Private Sub コマンド12_Click()Me.Requery'----オブジェクト変数の宣言
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
'----メッセージ用の変数？？？
Dim AAA
'----オブジェクト変数へ代入
S...

>> 続きを読む

Private Sub コマンド6_Click()If IsNull(店舗コード) Then
msg = MsgBox("店舗情報が抽出されていないため、データ削除できません。", vbOKOnly, "削除確認")
Else
DoCmd.OpenQuery ...

>> 続きを読む