Access2010 「型が一致しません。」エラー

質問

お世話になっております。
テキストファイルからデータを取り込んで、テーブルにあるデータと同じデータのみを表示させるプログラムがあります。

コードが「001」のように整数の場合は問題ないのですが、「A001」のように英数のデータの場合は、このエラーが出てしまいます。

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

デバッグをクリックすると、下記の部分が黄色に反転します。

「If DFirst("コード", "テーブル", "コード = '" & avarFldData(0) & "'") Then」

テキストファイルのデータがテーブルにない場合はエラーが出ませんので、一致したデータがある場合のみエラーが出ます。

VBAはあまり詳しくありませんので、エラーが出なくなる方法を教えていただければ助かります。
よろしくお願いいたします。

Private Sub Form_Load()

Dim dbs As Database
Dim rst As Recordset
Dim strImportDir As String
Dim strFile As String
Dim lngFileNum As Long
Dim strData As String
Dim avarFldData As Variant
Dim iintLoop As Integer

DoCmd.Hourglass True
strImportDir = Application.CurrentProject.Path & "\"
strFile = strImportDir & "File.TXT"
Set dbs = CurrentDb
GoSub ReadFile
Me.Requery
DoCmd.Hourglass False
Exit Sub

ReadFile:

Set rst = dbs.OpenRecordset("履歴", dbOpenDynaset, dbAppendOnly)
lngFileNum = FreeFile()
Open strFile For Input As #lngFileNum

Do Until EOF(lngFileNum)
Line Input #lngFileNum, strData
avarFldData = Split(strData, ",", , vbTextCompare)
For iintLoop = 0 To UBound(avarFldData)
avarFldData(iintLoop) = Trim$(avarFldData(iintLoop))
Next iintLoop
If DFirst("コード", "テーブル", "コード = '" & avarFldData(0) & "'") Then
With rst
.AddNew
!コード = avarFldData(0)
.Update
End With
End If
' End If
Loop
Close #lngFileNum
rst.Close
Kill strFile
Return

End Sub

回答No.1

zeichef · ベストアンサー

If DFirst(True, "テーブル", "コード = (以下略)
にしてみてはいかがでしょう。

お礼

おかげさまで、エラーが出なくなり、正常に表示することができました。
とても助かりました。ありがとうございました。