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.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 のコーディングについては、書籍やインターネット上の情報などを参考にすると良いでしょう。
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.3
- 回答日時:
「パラメータが少なすぎます。
4を指定してください。」は
「知らないフィールド名が4つあるよ。正しいフィールド名に直してね。」
と読み替えてください。
4つということで
strSQL = _
"SELECT fid_No, fid_機種品番カテゴリー, fid_機種品番 " & _
"FROM MT_機種品番 " & _
"WHERE fid_機種品番コード = '" & Me.txt_機種品番コード.Value & "';"
の
fid_No, fid_機種品番カテゴリー, fid_機種品番, fid_機種品番コード
が間違っていると思われます。
例えば
fid → fld
とか。
お探しの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(アクセス)
-
Excel2010で、今の、Excel2021 365のように、関数増やす機能ないですかね?追加で。
Excel(エクセル)
-
Sub 要具ライフ() ActiveSheet.Cells.Find(what:=TOPゴム")."
Visual Basic(VBA)
-
-
4
Excel-VBAのmsgBox()の不思議
Visual Basic(VBA)
-
5
自動入力で今月はMONTH(TODAY())で良いのですが、翌月はどのようにすれば良いでしょうか。
Excel(エクセル)
-
6
access2021 メッセージボックスを大きくしたい
Access(アクセス)
-
7
Vba 実数および実数タイプの変数について教えてください
Visual Basic(VBA)
-
8
Excel 日付を比較したら、同じでもNGになる
その他(Microsoft Office)
-
9
「パラメータが少なすぎます。3を指定してください。」って???
Access(アクセス)
-
10
パラメータが少なすぎます。1を指定して下さい。""
Excel(エクセル)
-
11
Excelにてある膨大なデータを管理しています。 そこで、特定の市町村にのみ色を付けたいです。 Ex
Excel(エクセル)
-
12
Pythonって何を意識した言語なんですか?コマンドライン?
その他(プログラミング・Web制作)
-
13
楽しくて最高のプログラミング言語を作りたいのですが、そもそもプログラミング言語を作る意味なんてないと
その他(プログラミング・Web制作)
-
14
VBAで各列の+"と"o"の合計数を数え3行目と4行目に入力したい"
Visual Basic(VBA)
-
15
VBA SaveChanges 上書きされない
Visual Basic(VBA)
-
16
Excelにて数式を使用して 工数計算をしたいのですが、 計算方法が分からないので教えて下さい。 1
Excel(エクセル)
-
17
VBA 複数条件の分岐処理の上手な方法
Visual Basic(VBA)
-
18
アクセスクエリで教えて下さい! Q_1 に 商品番号 商品名 S-1256 えんぴつ S-5236
Access(アクセス)
-
19
VBA初心者 Ctrl+での操作、ボタンに登録での操作
Visual Basic(VBA)
-
20
数学 Tan(θ)-1/Cos(θ)について教えてください
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
固定電話で着信拒否をしてもか...
-
後継機の反対語
-
スマホかえとくプログラムでま...
-
music beeでiphoneの同期ができ...
-
Access Error3061 パラメータが...
-
ローマ数字の入力について
-
iPhoneとiPadでWi-Fiの受信速度...
-
着信は鳴ってないのに留守電が...
-
iPhone XでSMSが受信できません
-
麗流隷書を使いたいのですが?
-
BD -S 520のHDD 2TB に換装出来...
-
GalaxYA51から、OPPO9Aに機種変...
-
冷蔵庫の扉を付け替えるには
-
ブラザーインクジェットプリンター
-
CANON LBP3000からの乗り換え*...
-
mini pcお勧め
-
iPhoneからAndroidに機種変更し...
-
取説のダウンロード
-
iPhoneからAndroidに変えました...
-
ノートパソコンのヒンジ部分が...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
後継機の反対語
-
Access Error3061 パラメータが...
-
ロボット掃除機を検討してます...
-
PalmPhoneはVoLTE非対応?
-
楽天モバイルでテザリングした...
-
music beeでiphoneの同期ができ...
-
スマートウォッチ使うならApple...
-
着信は鳴ってないのに留守電が...
-
機種変更を考えてます。機種変...
-
optiplexとvostroの違いを教え...
-
ahamo 申し込み
-
取説のダウンロード
-
@半角のアットマークが打てません
-
iPhoneとiPadでWi-Fiの受信速度...
-
麗流隷書を使いたいのですが?
-
iPhoneからAndroidに機種変更し...
-
CANON LBP3000からの乗り換え*...
-
ブラウザがネット接続不可なの...
-
ローマ数字の入力について
-
ヤフオクの本人確認したいけど ...
おすすめ情報