![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
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で質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
初めて自分の家と他人の家が違う、と意識した時
子供の頃、友達の家に行くと「なんか自分の家と匂いが違うな?」って思いませんでしたか?
-
SQL文で パラメータが少なすぎます エラー
Access(アクセス)
-
パラメータが少なすぎます。1を指定して下さい。""
Excel(エクセル)
-
「パラメータが少なすぎます。3を指定してください。」って???
Access(アクセス)
-
-
4
アクセスVBAで既に開いているエクセルを閉じたい
Yahoo!ショッピング
-
5
【Access2003】クエリで動作するSQLがVBAで動作せず困っています。
その他(Microsoft Office)
-
6
ACCESS VBAの実行時エラーなんですが
PowerPoint(パワーポイント)
-
7
レコードを保存するコード アクセスvba
その他(Microsoft Office)
-
8
ACCSESS2013VBA フォームのレコードソースを変更する
その他(データベース)
-
9
Access VBAでクエリーのレコード件数を取得したいのですが
その他(データベース)
-
10
Access 2010で実行時エラー3061
その他(Microsoft Office)
-
11
access2003 クエリSQL文について
その他(プログラミング・Web制作)
-
12
実行時エラー3131 FROM 句の構文エラーです について
Access(アクセス)
-
13
ACCESS 「パラメータの入力」を消したい!!
Access(アクセス)
-
14
【ACCESS】フォーム名/コントロール名を文字列型変数で指定するには
Access(アクセス)
-
15
Access サブフォームでの選択行の取得
その他(データベース)
-
16
Access2000 実行時エラー '3061':
Visual Basic(VBA)
-
17
Access2010 「演算子がありません」エラー
その他(データベース)
-
18
アクセス VBAについて FROM句の構文エラー
Access(アクセス)
-
19
Accessレポートのチェックボックスを大きくする方法
Access(アクセス)
-
20
Excel-VBAのmsgBox()の不思議
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
後継機の反対語
-
着信は鳴ってないのに留守電が...
-
【ACCESS】入力規則(L...
-
Access Error3061 パラメータが...
-
ローマ数字の入力について
-
警察が、IPアドレスを調べるの...
-
ひげそり機は高価であるほど、
-
ブラウザがネット接続不可なの...
-
LANカードがいるんでしょうか?
-
ブルーレイディスクレコーダー...
-
iPhoneとiPadでWi-Fiの受信速度...
-
■USB外付けHDDを購入した...
-
iPhone8からiPhoneSE3に機種変...
-
パイオニア電話機の説明書掲載...
-
冷蔵庫の扉を付け替えるには
-
取説のダウンロード
-
AndroidタブレットのWideVineに...
-
個人用線量計について
-
容量に関して
-
ワイモバ用dignoケータイ2(70...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
後継機の反対語
-
着信は鳴ってないのに留守電が...
-
Access Error3061 パラメータが...
-
現在、Galaxy S21+5Gを使用中で...
-
【ACCESS】入力規則(L...
-
iPhoneとiPadでWi-Fiの受信速度...
-
music beeでiphoneの同期ができ...
-
appleのiPhone機種ごとの性能が...
-
ロボット掃除機を検討してます...
-
新築マンションに入居するに合...
-
エクスプローラーについて 以前...
-
麗流隷書を使いたいのですが?
-
警察が、IPアドレスを調べるの...
-
ブラウザがネット接続不可なの...
-
ローマ数字の入力について
-
iPhone8からiPhoneSE3に機種変...
-
取説のダウンロード
-
ノートパソコンのヒンジ部分が...
-
PalmPhoneはVoLTE非対応?
-
なぜか「メモ帳」の上のバーが...
おすすめ情報