
VBA初心者です。
下記VBEを実行すると
【Error3061 パラメータが少なすぎます。4を指定してください。】
が表示されます。
「4を指定してください。」の解決方法は余り出ていないですので
よろしくお願いします。
'読み込み時に初期化のプロシージャ呼び出す
Private Sub Form_Load() 'フォーム詠み込み時
Call initializeForm '初期化
End Sub
Private Sub btn_新規_Click() 'btn_新規クリック時
Call initializeForm '初期化
End Sub
'新規ボタンからに初期化のプロシージャ呼び出す
Private Sub initializeForm() '初期化
Me.txt_No.Value = Null 'txt_Noを空に
Me.txt_機種品番カテゴリー.Value = Null 'txt_機種品番カテゴリーを空に
Me.txt_機種品番.Value = Null 'txt_機種品番を空に
Me.txt_機種品番コード.Value = Null 'txt_機種品番コードを空に
Me.btn_追加.Enabled = True 'btn_追加ボタンを使用可能に
Me.btn_更新.Enabled = False 'btn_更新ボタンを使用不可に
Me.btn_削除.Enabled = False 'btn_削除ボタンを使用不可に
Me.txt_機種品番コード.Enabled = True 'txt_機種品番コードを使用可能に
End Sub
'読み込みを行なう
Private Sub btn_読込_Click() 'btn_読込ボタンクリックしたとき
Call LoadForm '読込呼出し
End Sub
Private Sub LoadForm() '読込処理
If IsNull(Me.txt_機種品番コード.Value) Then Exit Sub '機種品番コードが空なら終了
Me.txt_No.Value = Null 'txt_Noをクリア (前のデータが残らないように)
Me.txt_機種品番カテゴリー.Value = Null 'txt_機種品番カテゴリーをクリア
Me.txt_機種品番.Value = Null 'txt_機種品番をクリア
On Error GoTo ErrorHandler
Dim strSQL As String
strSQL = _
"SELECT fid_No, fid_機種品番カテゴリー, fid_機種品番 " & _
"FROM MT_機種品番 " & _
"WHERE fid_機種品番コード = '" & Me.txt_機種品番コード.Value & "';" 'SQLを作成
Dim daoDb As DAO.Database
Set daoDb = CurrentDb
Dim daoRs As DAO.Recordset
Set daoRs = daoDb.OpenRecordset(strSQL)
If daoRs.BOF = True And daoRs.EOF = True Then
MsgBox "対象レコードがありません。", vbInformation, "確認"
GoTo Finally 'レコードがなければ終了
End If
Me.txt_No.Value = daoRs!fid_No '抽出したレコードをテキストボックスへ
Me.txt_機種品番カテゴリー.Value = daoRs!fid_機種品番カテゴリー
Me.txt_機種品番.Value = daoRs!fid_機種品番
Me.btn_追加.Enabled = False 'btn_追加ボタンを使用不可に
Me.btn_更新.Enabled = True 'btn_更新ボタンを使用可能
Me.btn_削除.Enabled = True 'btn_削除ボタンを使用可能
Me.txt_機種品番コード.Enabled = False 'txt_機種品番コードを使用不可
GoTo Finally
ErrorHandler: 'エラートラップ
MsgBox "Error #: " & Err.Number & vbNewLine & vbNewLine & _
Err.Description, vbCritical, "エラー"
Finally:
If Not daoRs Is Nothing Then
daoRs.Close
Set daoRs = Nothing
End If
If Not daoDb Is Nothing Then
daoDb.Close
Set daoDb = Nothing
End If
End Sub
A 回答 (3件)
- 最新から表示
- 回答順に表示
No.3
- 回答日時:
「パラメータが少なすぎます。
4を指定してください。」は
「知らないフィールド名が4つあるよ。正しいフィールド名に直してね。」
と読み替えてください。
4つということで
strSQL = _
"SELECT fid_No, fid_機種品番カテゴリー, fid_機種品番 " & _
"FROM MT_機種品番 " & _
"WHERE fid_機種品番コード = '" & Me.txt_機種品番コード.Value & "';"
の
fid_No, fid_機種品番カテゴリー, fid_機種品番, fid_機種品番コード
が間違っていると思われます。
例えば
fid → fld
とか。
No.2
- 回答日時:
No.1回答>Set daoRs = daoDb.OpenRecordset(strSQL, dbOpenSnapshot) '4番目の引数にdbOpenSnapshotを追加
2番目のパラメータのような。 https://learn.microsoft.com/ja-jp/office/client- …
どこでエラーになってるか解析しにくいので、
》On Error GoTo ErrorHandler
をコメントにして、エラー時デバッガ起動させてみては。
No.1
- 回答日時:
## VBA エラー 3061 「パラメータが少なすぎます。
4を指定してください。」 の解決策ご提供いただいた VBA コードで、エラー 3061 「パラメータが少なすぎます。4を指定してください。」 が発生しているとのことですね。原因と解決策を以下に詳しく説明します。
**エラーの原因**
このエラーは、`OpenRecordset` メソッドを実行する際に、必要な引数が不足していることを示しています。具体的には、**4番目の引数**が指定されていないことが原因です。
**4番目の引数**は、レコードセットの種類を指定するもので、以下のいずれかを指定する必要があります。
* `dbOpenDynaset`:ダイナミック レコードセットを作成します。
* `dbOpenSnapshot`:スナップショット レコードセットを作成します。
* `dbOpenTable`:テーブル レコードセットを作成します。
* `dbOpenForm`:フォーム レコードセットを作成します。
* `dbOpenTempTable`:一時テーブル レコードセットを作成します。
**解決策**
エラーを解決するには、`OpenRecordset` メソッドの4番目の引数に適切な値を指定する必要があります。
ご提供いただいたコードの場合、`dbOpenSnapshot` を指定するのが適切です。修正後のコードは以下のようになります。
```vba
Private Sub LoadForm() '読込処理
If IsNull(Me.txt_機種品番コード.Value) Then Exit Sub '機種品番コードが空なら終了
Me.txt_No.Value = Null 'txt_Noをクリア (前のデータが残らないように)
Me.txt_機種品番カテゴリー.Value = Null 'txt_機種品番カテゴリーをクリア
Me.txt_機種品番.Value = Null 'txt_機種品番をクリア
On Error GoTo ErrorHandler
Dim strSQL As String
strSQL = _
"SELECT fid_No, fid_機種品番カテゴリー, fid_機種品番 " & _
"FROM MT_機種品番 " & _
"WHERE fid_機種品番コード = '" & Me.txt_機種品番コード.Value & "';" 'SQLを作成
Dim daoDb As DAO.Database
Set daoDb = CurrentDb
Dim daoRs As DAO.Recordset
Set daoRs = daoDb.OpenRecordset(strSQL, dbOpenSnapshot) '4番目の引数にdbOpenSnapshotを追加
If daoRs.BOF = True And daoRs.EOF = True Then
MsgBox "対象レコードがありません。", vbInformation, "確認"
GoTo Finally 'レコードがなければ終了
End If
Me.txt_No.Value = daoRs!fid_No '抽出したレコードをテキストボックスへ
Me.txt_機種品番カテゴリー.Value = daoRs!fid_機種品番カテゴリー
Me.txt_機種品番.Value = daoRs!fid_機種品番
Me.btn_追加.Enabled = False 'btn_追加ボタンを使用不可に
Me.btn_更新.Enabled = True 'btn_更新ボタンを使用可能
Me.btn_削除.Enabled = True 'btn_削除ボタンを使用可能
Me.txt_機種品番コード.Enabled = False 'txt_機種品番コードを使用不可
GoTo Finally
ErrorHandler: 'エラートラップ
MsgBox "Error #: " & Err.Number & vbNewLine & vbNewLine & _
Err.Description, vbCritical, "エラー"
Finally:
If Not daoRs Is Nothing Then
daoRs.Close
Set daoRs = Nothing
End If
If Not daoDb Is Nothing Then
daoDb.Close
Set daoDb = Nothing
End If
End Sub
```
**補足**
* 上記のコード以外にも、エラー 3061 を発生させる可能性はあります。他の可能性としては、SQL 文の記述ミスや、データベース接続に問題があるなどが考えられます。
* エラーが発生した場合は、`Err.Number` と `Err.Description` を確認することで、詳細な情報を得ることができます。
* VBA のコーディングについては、書籍やインターネット上の情報などを参考にすると良いでしょう。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) Accessフォームで全レコードを指定のExcelのセルへ転送し印刷する方法について 2 2022/09/08 18:23
- Visual Basic(VBA) VBA Userformで一部別シートに転記がしたいのですが 2 2023/05/24 13:08
- Visual Basic(VBA) Windows 11 Pro での、VBAのCode書き換えで、1点お教え願います。 2 2023/10/11 01:12
- Excel(エクセル) 製品番号での整列と、検索に関して 3 2023/06/28 19:20
- Visual Basic(VBA) vba userFormのSubを標準モジュールから呼び出す方法を教えてください 2 2023/10/17 15:06
- Visual Basic(VBA) wordのマクロで思うように行きません(ファイル削除ができない) 3 2023/09/12 08:34
- Visual Basic(VBA) VBAでの共有パスにつきまして 1 2023/03/04 17:24
- Visual Basic(VBA) ユーザーフォーム「frm_基本❶」を立ち上げると新規で入力する行数を右下のNoとして表示しています。 1 2023/03/16 19:02
- Access(アクセス) チェックボックスにチェックが入った後の挙動 1 2022/08/21 12:39
- Visual Basic(VBA) [Excel VBA] このコードでは行の挿入や行の消去をすると13のエラーが出てしまう。 3 2022/12/09 00:29
このQ&Aを見た人はこんなQ&Aも見ています
-
SQL文で パラメータが少なすぎます エラー
Access(アクセス)
-
パラメータが少なすぎます。1を指定して下さい。""
Excel(エクセル)
-
「パラメータが少なすぎます。3を指定してください。」って???
Access(アクセス)
-
-
4
Access2010 「演算子がありません」エラー
その他(データベース)
-
5
【Access2003】クエリで動作するSQLがVBAで動作せず困っています。
その他(Microsoft Office)
-
6
Access 2010で実行時エラー3061
その他(Microsoft Office)
-
7
実行時エラー3131 FROM 句の構文エラーです について
Access(アクセス)
-
8
Access サブフォームでの選択行の取得
その他(データベース)
-
9
アクセスVBAのMe!と[ ]
Access(アクセス)
-
10
アクセスで数値型のフィールドにNullをいれたい
その他(データベース)
-
11
実行時エラー '3464': 抽出条件でデータ型が
Access(アクセス)
-
12
アクセスのエラー「クエリには出力フィールドが1つ以上必要です。」
その他(Microsoft Office)
-
13
AccessのWHERE句において、変数は使用できますか?
Access(アクセス)
-
14
Access パラメータークエリ VBAの書き方について よろしくお願いします。 ①クエリでデータを
Access(アクセス)
-
15
【ACCESS】フォーム名/コントロール名を文字列型変数で指定するには
Access(アクセス)
-
16
レコードを保存するコード アクセスvba
その他(Microsoft Office)
-
17
Access パラメータクエリをcsvでエクスポートしたい
Access(アクセス)
-
18
パラメーターが少なすぎます 1を指定してください
その他(Microsoft Office)
-
19
日付型のフィールドに空白を入れる方法を教えてください
その他(データベース)
-
20
Accessでテーブルの値をテキストボックスに代入するには?
Access(アクセス)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
後継機の反対語
-
スピンキャストリールについて...
-
iPhone13使用してますがiPhone...
-
スマートフォン買い替え機種選...
-
着信は鳴ってないのに留守電が...
-
Lets note. CF-MX5と言う機種を...
-
Access Error3061 パラメータが...
-
炊事場の上の小さい蛍光灯を取...
-
スマホのWi-Fiが繋いでる、けど...
-
iPhoneからAndroidに機種変更し...
-
optiplexとvostroの違いを教え...
-
今ってiPhoneって買うのに前は1...
-
music beeでiphoneの同期ができ...
-
ホームゲートウェイに性能差は...
-
ASUS EeeBook X205TAに差し込む...
-
Ymobileで販売してるAndroidで...
-
N504i P504i P211i 迷ってます...
-
iQOSの本体ってどれ買えばいい...
-
取説のダウンロード
-
あつまれどうぶつの森のサンリ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
後継機の反対語
-
着信は鳴ってないのに留守電が...
-
Access Error3061 パラメータが...
-
ブラウザがネット接続不可なの...
-
music beeでiphoneの同期ができ...
-
【ACCESS】入力規則(L...
-
友人から譲り受けたノートパソ...
-
警察が、IPアドレスを調べるの...
-
DELL Optiplex の番号の意味は?
-
なぜか「メモ帳」の上のバーが...
-
iPhoneとiPadでWi-Fiの受信速度...
-
取説のダウンロード
-
コロナ ファンヒーターのタイ...
-
麗流隷書を使いたいのですが?
-
optiplexとvostroの違いを教え...
-
電動工具のカーボンブラシ交換...
-
iPhoneからAndroidに変えました...
-
iPhone8からiPhoneSE3に機種変...
-
メッシュWi-FI設置について教え...
-
galaxya21の機種を使っている方...
おすすめ情報