![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
以下のようなコードを書いて実行しているのですが、
下から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
とすれば、エラーはでないかもしれません。
![](http://oshiete.xgoo.jp/images/v2/common/profile/M/noimageicon_setting_01.png?5a7ff87)
No.3
- 回答日時:
エラーに直接関係ないと思いますが、
rs1.Find "ヘッダ管理番号 = " & Val(txtF_新規契約登録_ヘッダ管理番号)
はSQLに含まれているので、不要だと思います。
![](http://oshiete.xgoo.jp/images/v2/common/profile/M/noimageicon_setting_01.png?5a7ff87)
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
ACCESSで値を代入できないとは?
Visual Basic(VBA)
-
5
Accessで、フォームからフォームへ値を引き継ぐやり方
Access(アクセス)
-
6
エラー(型が一致しません。)の対処方法
Visual Basic(VBA)
-
7
access テキストボックスの値取得
Access(アクセス)
-
8
ACCESSのサブフォームからメインフォームへの移動
Access(アクセス)
-
9
Access2010、値を入力したら自動保存の方法
Access(アクセス)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
リストコントロールの列幅を固...
-
[C#]ListView一覧表示時の幅設...
-
AccessVBAで「このフィールドに...
-
EXCEL:ヘッダー日付を年号で?...
-
SSL環境でオートコンプリートを
-
SSLで送られたhttpのヘッダ...
-
perlでHTTP Request Headersの...
-
VB2005 DataGridView CurrentC...
-
VBAでExcelのヘッダーに文字列+...
-
C# クッキーを使ってウェブブ...
-
LWPでHTTPSサイトからコンテン...
-
ヘッダのinclude順
-
LWPでのCookie取得
-
ヘッダーファイルのインクルー...
-
あれれ、クッキーが機能しませ...
-
MTUについて(Ethernetヘッダ)
-
自作ヘッダファイルについて (C...
-
DBを10件毎に表示ページング...
-
6月の第2 第4火曜日は何日...
-
月の第一週とは
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBAでExcelのヘッダーに文字列+...
-
[C#]ListView一覧表示時の幅設...
-
perlでHTTP Request Headersの...
-
AccessVBAで「このフィールドに...
-
ヘッダのinclude順
-
TCPヘッダのチェックサム算出方法
-
関数ヘッダ?
-
Content-type: text/htmlが表示...
-
レスポンスヘッダの出力方法
-
file_get_contents でリダイレ...
-
LinuxでRTPヘッダを作りたいの...
-
リストコントロールの列幅を固...
-
EXCEL:ヘッダー日付を年号で?...
-
SpreadDesignerの列ヘッダ
-
LWPでHTTPSサイトからコンテン...
-
HTTP 200 OKの後のリダイレクト?
-
C# クッキーを使ってウェブブ...
-
ftpでのネットワークバイトオー...
-
HTTPヘッダの取得方法
-
自作ヘッダファイルについて (C...
おすすめ情報