Access2000でレコードの重複チェックをするとエラーに

質問

ボタンをクリックすると、「品名」「色番」「ロット」「枝番」「巾」の重複が無いかチェックして、重複があればエラーテキストを表示させたいのです。

下記のコードで動かすと、
「エラー'91'：オブジェクト変数またはWithブロック変数が設定されていません」と出ます。

どこが問題でしょうか？
教えて頂けると幸いです。

Private Sub 重複チェックボタン_Click()
Dim Rs As ADODB.Recordset
Dim strSQL As String

strSQL = ""
strSQL = strSQL & " Select * From 変更ロットテーブル "
strSQL = strSQL & " Where 品名 = '" & Forms!変更ロット入力チェックフォーム!品名 & "'"
strSQL = strSQL & " And 色番 = '" & Forms!変更ロット入力チェックフォーム!色番 & "'"
strSQL = strSQL & " And ロット = '" & Forms!変更ロット入力チェックフォーム!ロット & "'"
strSQL = strSQL & " And 枝番 = '" & Forms!変更ロット入力チェックフォーム!枝番 & "'"
strSQL = strSQL & " And 巾 = '" & Forms!変更ロット入力チェックフォーム!巾 & "'"

Rs.Open strSQL, CurrentProject.Connection

If Rs.EOF = False Then
If MsgBox("重複ロットが存在します！", vbOKCancel) = vbOK Then
Cancel = True
End If
End If
End Sub

回答No.1

med2dic · ベストアンサー

open前にrecordsetオブジェクトの生成が必要です

Rs.Open strSQL, CurrentProject.Connection

の前に

Set Rs = New ADODB.Recordset

を追加してください。または、

Dim Rs As New ADODB.Recordset

としてください

お礼

お返事遅くなりまして申し訳ございませんでした。

見事に解決しました！ありがとうございました。