以下のようなコードを書いて実行しているのですが、
下から5行目のところで
「このフィールドに入力した値が正しくありません」というエラーが出てしまいます。
いろいろと調べたのですが、原因が全く分かりません。
どこを直せばいいのか、
又は、どんなところを調べるべきか、知識のある方、教えていただけないでしょうか。
Private Sub cboF_新規契約登録_ヘッダ管理番号選択_Change()
Dim cn As ADODB.Connection
Dim rs1 As ADODB.Recordset
Dim rs2 As ADODB.Recordset
Dim MySQL As String
'接続
Set cn = CurrentProject.Connection
'定期取引ヘッダ レコードセット取得
Set rs1 = New ADODB.Recordset
'
'画面上にデータをフィル
'SQL作成
MySQL = "select * from Q_F_新規契約登録_定期取引ヘッダ内容抽出"
MySQL = MySQL & " where 会社コード = '" & [Forms]![F_TOP]![会社選択] & "'"
MySQL = MySQL & " and ヘッダ管理番号 = " & Me!txtF_新規契約登録_ヘッダ管理番号
MySQL = MySQL & " and LOCAL_補助科目マスタ.科目コード = '3311'"
'Open
rs1.Open MySQL, cn, adOpenStatic, adLockReadOnly
rs1.Find "ヘッダ管理番号 = " & Val(txtF_新規契約登録_ヘッダ管理番号)
'フィル
Me!txtF_新規契約登録_引落額 = rs1!引落額'<=ここでエラー
rs1.Close: Set rs1 = Nothing
'コネクションクローズ
cn.Close: Set cn = Nothing
End Sub
No.1ベストアンサー
- 回答日時:
エラーが発生した時「rs1!引落額」の値がNullになっていませんか?
エラーで一時停止したときに、イミディトウィンドウで「? rs1!引落額」したときの値を確認してください。
= IIf(IsNull(rs1!引落額),"",rs1!引落額)
s
とすれば、エラーはでないかもしれません。
No.3
- 回答日時:
エラーに直接関係ないと思いますが、
rs1.Find "ヘッダ管理番号 = " & Val(txtF_新規契約登録_ヘッダ管理番号)
はSQLに含まれているので、不要だと思います。
No.2
- 回答日時:
end of file をチェックしましょう
if not rs1.eof
Me!txtF_新規契約登録_引落額 = rs1!引落額
else
msgbox "検索データがありません"
end if
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) access count数を変数に格納 2 2022/03/30 19:21
- Visual Basic(VBA) ExcelからAccessのテーブルに書き込む時に時間がかかる 1 2022/10/14 20:38
- Access(アクセス) 実行時エラー3131 FROM 句の構文エラーです について 7 2022/06/13 15:45
- Access(アクセス) DoCmd.SearchForRecord が動かない時の解決方法 3 2022/07/22 15:31
- Access(アクセス) チェックボックスにチェックが入った後の挙動 1 2022/08/21 12:39
- Visual Basic(VBA) 【前回の続き続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/24 20:49
- Visual Basic(VBA) 別シートから年齢別の件数をカウントしたいの続き 5 2023/01/24 00:16
- その他(Microsoft Office) マクロVBAについて 1 2022/09/06 18:12
- Excel(エクセル) フォルダ内のワードファイルをPDFに一括変換するVBA 3 2023/06/09 16:51
- Visual Basic(VBA) ユーザーフォーム「frm_基本❶」を立ち上げると新規で入力する行数を右下のNoとして表示しています。 1 2023/03/16 19:02
このQ&Aを見た人はこんなQ&Aも見ています
-
「どうして捨てられないの?」前妻の物を捨てられない男性の心理って?
前妻の物を捨てられない理由に加え、捨てるための手段はあるのかを専門家に聞いてみた!
-
アクセスでエラー このフィールドに入力した値が正しくありません
その他(データベース)
-
accessのフィールドに10桁の数字は入らない??
Access(アクセス)
-
日付型のテキストボックスに数値を入れて日付にしたい
Access(アクセス)
-
-
4
選択したチェックボックスのみチェックを入れたいのですが
その他(データベース)
-
5
ACCESSで値を代入できないとは?
Visual Basic(VBA)
-
6
エラー(型が一致しません。)の対処方法
Visual Basic(VBA)
-
7
access テキストボックスの値取得
Access(アクセス)
-
8
AccessVBAで作成したExcelファイルを削除する方法は?
Visual Basic(VBA)
-
9
ACCESSのサブフォームからメインフォームへの移動
Access(アクセス)
-
10
レコードを保存するコード アクセスvba
その他(Microsoft Office)
-
11
Access2010、値を入力したら自動保存の方法
Access(アクセス)
-
12
ACCESS VBA メインフォーム及びサブフォームのフィルタのクリア
Access(アクセス)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBAでExcelのヘッダーに文字列+...
-
HTTPヘッダの大きさ
-
HTTP 200 OKの後のリダイレクト?
-
perlでHTTP Request Headersの...
-
MTUについて(Ethernetヘッダ)
-
ヘッダのinclude順
-
ルータでのMTU、MSS設定値の検...
-
自作ヘッダファイルについて (C...
-
リストコントロールの列幅を固...
-
LinuxでRTPヘッダを作りたいの...
-
エクセルで 自動的に◯や数字を...
-
ファイルをディレクトリ分配の...
-
月の第一週とは
-
DBを10件毎に表示ページング...
-
apacheでPerl CGIが作動せず、5...
-
曜日を求めるプログラムはどう...
-
C言語でわからないところがが...
-
JAVASCRIPT禁止でのボタン&リン...
-
クライアントのIPとマシン名を...
-
週2回のペースって だいたい何...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBAでExcelのヘッダーに文字列+...
-
[C#]ListView一覧表示時の幅設...
-
リストコントロールの列幅を固...
-
ヘッダのinclude順
-
AccessVBAで「このフィールドに...
-
HTTPヘッダの大きさ
-
LinuxでRTPヘッダを作りたいの...
-
バイナリファイルのアップロー...
-
Content-type: text/htmlが表示...
-
SpreadDesignerの列ヘッダ
-
file_get_contents でリダイレ...
-
TCPヘッダのチェックサム算出方法
-
あれれ、クッキーが機能しませ...
-
関数ヘッダ?
-
SSL環境でオートコンプリートを
-
perlでHTTP Request Headersの...
-
ログイン後・・・
-
メールをPDF化する際に、ヘッダ...
-
Thunderbirdのフィルタについて
-
レスポンスヘッダとエンティテ...
おすすめ情報