いつもお世話になっております。
昨日質問先を間違えており再度、投稿させていただきます。
うまく説明する事ができないのですが、テストで作成したデータベースを
テーブル部分とその他部分に分けて、テーブルリンクを設定しフォームで
の実行をしたところ、"実行時エラー3251"が発生してしまいました。
対処方法が全然分らず大変困っております。
どなたか対処方法を教えていただけませんでしょうか。
処理内容と画像を添付させていただきます。
Private Sub コード_AfterUpdate()
Dim seekkey As String
'「コード」が未入力かの判定
If IsNull(Me!コード) = True Then
MsgBox "コードを入力してください", _
vbOKOnly, vbExclamation, "コード"
コード.SetFocus
Exit Sub
End If
'レコードセットが既に開いているかどうかを判定する処理
If rst.State = adStateOpen Then
'レコードセットが開いているときはいったん閉じる処理
rst.Close
End If
Set cnc = CurrentProject.Connection
'「T04_ツアーコード」を開く処理
rst.Open "T04_ツアーコース", cnc, adOpenKeyset, adLockBatchOptimistic, adCmdTableDirect
If rst.EOF Then
MsgBox "レコードが1件もありません", _
vbOKOnly + vbExclamation, "結果"
コード.SetFocus
Exit Sub
End If
rst.Index = "Primarykey"
seekkey = Me!コード '「コード番号」を検索キーに設定する処理
rst.Seek seekkey, adSeekAfterEQ
If rst.EOF Then
MsgBox "コードが存在しません。"
Me!コード = Null
Me!コース名 = Null
Me!宿泊施設 = Null
Me!担当者CD = Null
Me!担当者名 = Null
Else
Me!コード = rst!コード
Me!コース名 = rst!コース名
Me!宿泊施設 = rst!宿泊施設
Me!担当者CD = rst!担当者CD
Me!担当者名 = rst!担当者名
End If
Me!登録.Enabled = False '登録ボタンを使用不可とする
Me!クリア.Visible = True
Me!変更.Visible = True
Me!コード.SetFocus
End Sub
すいません。長くなってしまいましたが、よろしくお願いいたします。
アクセス2013を使用しています。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Access(アクセス) チェックボックスにチェックが入った後の挙動 1 2022/08/21 12:39
- Visual Basic(VBA) 【追加】ファイルを閉じてダイアログで保存した時だけ処理の実行をする 3 2022/03/23 15:43
- Visual Basic(VBA) Accessフォームで全レコードを指定のExcelのセルへ転送し印刷する方法について 2 2022/09/08 18:23
- Access(アクセス) Accessのテキストボックスの入力文字制限 1 2023/01/18 20:43
- Visual Basic(VBA) ユーザーフォーム「frm_基本❶」を立ち上げると新規で入力する行数を右下のNoとして表示しています。 1 2023/03/16 19:02
- Visual Basic(VBA) 【Excel VBA】自動メール送信の機能追加 5 2022/09/29 12:53
- Access(アクセス) DoCmd.SearchForRecord が動かない時の解決方法 3 2022/07/22 15:31
- Visual Basic(VBA) いつもお世話になっております、VBAで教えて頂きたいのですが 2 2022/05/05 22:20
- Visual Basic(VBA) VBA Userformで一部別シートに転記がしたいのですが 2 2023/05/24 13:08
- Visual Basic(VBA) エクセルのマクロについて教えてください。 7 2023/07/04 09:18
このQ&Aを見た人はこんなQ&Aも見ています
-
「環境が人を育てる」って本当?環境によって人格や生き方は本当に変わるのか
環境が人生に与える影響は実際どれほどのものなのか、専門家の田宮由美さんに伺った。
-
実行時エラー 3020の対策
Access(アクセス)
-
ACCESS VBAの実行時エラーなんですが
PowerPoint(パワーポイント)
-
ACCSESS2013VBA フォームのレコードソースを変更する
その他(データベース)
-
-
4
ACCESSでコントロールソースの変更
Access(アクセス)
-
5
ACCESSのテーブルのデータで、先頭に「000」を付与するほう右方
Access(アクセス)
-
6
Access2003 クエリで、空の列は作れますか?
Access(アクセス)
-
7
ADOでSeekメッソッドが使えません。
SQL Server
-
8
Microsoft Access エラー 3051
Visual Basic(VBA)
-
9
ExcelからAccess2013DBを更新する時
その他(データベース)
-
10
教えてください! アクセスのaccdeファイルを 編集できるように戻すにはどうしたらよいですか?
Access(アクセス)
-
11
日付型のフィールドに空白を入れる方法を教えてください
その他(データベース)
-
12
Access200のFilterとFindの違い
その他(データベース)
-
13
カレントレコードが無い事を判定させる方法
Visual Basic(VBA)
-
14
FindFirst を複数条件で検索
Visual Basic(VBA)
-
15
ACCESSVBAのseekで複数INDEX検索方法について
Access(アクセス)
-
16
テーブルのリンク(ACCESS)
その他(プログラミング・Web制作)
-
17
Accessでのレコード存在チェック
その他(データベース)
-
18
DAOのrs.Filter =の使い方
PowerPoint(パワーポイント)
-
19
レコードセットにnullの場合
Visual Basic(VBA)
-
20
アクセスVBAのMe!と[ ]
Access(アクセス)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBA ダブルクリックするたびに...
-
ギターのTAB譜の記号 N.C....
-
Em7onA 。GonB。 GonAのおさ...
-
マイクロソフト 一時使用コード...
-
ドライアーのコードから煙が出...
-
◎PPMのコードをお教えいただ...
-
JAN コードとITFコードの違い...
-
エクセル マクロのエラーを解...
-
ギターで2弦2フレットと3弦2フ...
-
『車の中でかくれてキスをしよ...
-
【EXCEL-VBA】PDFファイルを開...
-
VBAのフォーム上にTextBoxたく...
-
マイナーの裏コードは存在する?
-
エクセルで文末に同じ文字を一...
-
コードを白く塗りたい
-
ヘアドライヤー内部の断線修理...
-
【マクロ】PasteSpecialメソッ...
-
ステップルの使い方について。
-
ギターコードを教えてください。
-
JANコード、ITFコードの作成
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
V7/Iというコードはありますか...
-
ギターのTAB譜の記号 N.C....
-
VBA ダブルクリックするたびに...
-
JANコード、ITFコードの作成
-
JAN コードとITFコードの違い...
-
マイナーの裏コードは存在する?
-
【EXCEL-VBA】PDFファイルを開...
-
◎PPMのコードをお教えいただ...
-
ドライアーのコードから煙が出...
-
マイクロソフト 一時使用コード...
-
Dadd11というコードについて
-
onって何ですか?
-
実行時エラー3251対応処理方法
-
ギターで2弦2フレットと3弦2フ...
-
電気製品のコードが溶けました
-
【マクロ】PasteSpecialメソッ...
-
【HULFT】 utllist とutladmin
-
Excel VBA Tabコードの出力
-
D7alt
-
『車の中でかくれてキスをしよ...
おすすめ情報