Access VBA 実行時エラー13　型が一致しません。

Question

Anonymous

いつもお世話になっております。

フォーム入力の際に「勘定項目」が既に登録してある場合には

「この勘定項目は既に登録されています」とメッセージを表示したいのですが、

実行時エラー13　型が一致しません。のエラーが出てしまいます。

調べてみると、変数の型にデータ型が違うものを入れると

実行時エラー13　型が一致しません。のエラーが出るとの事ですが

特に変数は宣言していないのに、なぜエラーになってしますのでしょうか。

フォームの更新前に下記を記述しております。

どなたかご教示頂けますでしょうか。

Option Compare Database

Option Explicit

Private Sub Form_BeforeUpdate(Cancel As Integer)

'データの重複入力をチェック

If DCount("勘定科目", "T06_勘定項目", "勘定科目='" & Me!勘定科目 & "'") > 0 Then

Beep

MsgBox "この勘定項目は既に登録されています" & vbOKOnly + vbExclamation, "重複エラー"

Cancel = True

End If

End Sub

ロックされた質問。この質問は、Microsoft サポートコミュニティから移行されました。役に立つかどうかに投票することはできますが、コメントの追加、質問への返信やフォローはできません。

0 件のコメント

1 件の回答

Answer 1

すみません。投稿後

色々試して、下記に修正したらうまく動作しました。