アクセスにてテーブル内の重複チェックについて

質問

下記の様なテーブル構成になっています。

大分類マスタ
大分類　長整数型
分類見出し　文字列

このテーブルにフォームから入力をさせているのですが重複チェックの時にvercheckのデータ形式が違いますと出てエラーが出ます。色々とデータ形式を変えたのですがうまくいきません。

どの様にすれば宜しいのでしょうか？ご教授頂きます様お願い致します。

尚、テーブルの数値を文字形式にすれば動作するのは分かっているのですが数値形式の場合の
やり方を教えてください。

Dim str大分類 As String
Dim str分類見出し As String
Dim vercheck As Variant

If IsNull(大分類) = False Then
str大分類 = 大分類
vercheck = DLookup("大分類", "T大分類マスタ", "大分類='" & str大分類 & "'")
If Not IsNull(vercheck) Then
MsgBox ("同じ大分類番号があります")
Exit Sub
Cancel = True
Else
End If
Else
Exit Sub
End If

If IsNull(分類見出し) = False Then
str分類見出し = 分類見出し
vercheck = DLookup("分類見出し", "T大分類マスタ", "分類見出し='" & str分類見出し & "'")
If Not IsNull(vercheck) Then
MsgBox ("同じ分類見出しがあります")
Exit Sub
Cancel = True
Else
End If
Else
Exit Sub
End If
-------ここからフォームから直にテーブルに書いています。---------

Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Set cn = Application.CurrentProject.Connection
Set rs = New ADODB.Recordset
rs.Open "T大分類マスタ", cn, adOpenKeyset, adLockOptimistic
rs.AddNew
rs![大分類] = Forms!F大分類マスタ登録画面!大分類
rs![分類見出し] = Forms!F大分類マスタ登録画面!分類見出し
rs.Update
End Sub

回答No.1

Siegrune

vercheck = DLookup("大分類", "T大分類マスタ", "大分類=" & str大分類 & "")

・・・数値を比較したければ、''でくくらない。　ってことを聞きたいのかなとおもいました。