![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
お世話になっております。
テキストファイルからデータを取り込んで、テーブルにあるデータと同じデータのみを表示させるプログラムがあります。
コードが「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
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) Excelにて、フォルダ内のTextファイルをマクロで統合すると文字化けしてしまう時の解消コード 4 2023/01/01 07:32
- Visual Basic(VBA) ExcelVBAに関する質問 3 2023/02/17 10:47
- Excel(エクセル) マクロでテキストファイルを読み込んだ際の最終セルにデータと改行が含まれる問題の改善方法 2 2022/03/25 16:50
- その他(Microsoft Office) マクロVBAについて 1 2022/09/06 18:12
- Visual Basic(VBA) Excel vbaについての質問 3 2023/04/18 16:14
- Visual Basic(VBA) 別シートのデータを参照して値を入れたい。 まとめデータシートのC列D列の値を商品一覧シートのコードが 7 2022/08/17 13:20
- Visual Basic(VBA) 【VBA】写真の貼り付けコードがうまく機能しません。 5 2022/09/01 18:43
- Visual Basic(VBA) 別シートから年齢別の件数をカウントしたいの続き 5 2023/01/24 00:16
- Excel(エクセル) VBAについて 3 2022/06/19 18:19
- Visual Basic(VBA) 稀に1円合いません? Sheet1から金額と個数を貼り付ける下記コードで、金額を切り上げるコードを何 3 2022/09/05 15:11
関連するカテゴリからQ&Aを探す
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
「マスタ」と「テーブル」の違...
-
2つのテーブルから条件に一致...
-
重複するキーから一番古い年月...
-
Inner join と Left joinの明...
-
行方向のデータを横に並べる
-
ACCESSのコンパイルエラーについて
-
連番のMin, Maxを取得したい
-
請求と入金のテーブルの作成の...
-
動的SQL (その2)
-
PLSQLの識別子エラー
-
社内コードをソースコードに直...
-
アクセスのリレーションシップ
-
履歴を管理するテーブル構造に...
-
場合によって条件を変えるSQL
-
SELECT時にカウントアップ
-
項目内の改行がレコードの終わ...
-
oracle日本語カラム名
-
Accessリレーションシップ
-
Accessユニオンクエリーで2つ...
-
ACCESS 一つのフィールドに複...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
「マスタ」と「テーブル」の違...
-
2つのテーブルから条件に一致...
-
重複するキーから一番古い年月...
-
ACCESS 一つのフィールドに複...
-
商品コード番号を入力すると商...
-
行方向のデータを横に並べる
-
PLSQLの識別子エラー
-
Inner join と Left joinの明...
-
片方だけ抽出する方法(SQL)
-
SQL 2つのテーブルとSUBSTRING...
-
Accessユニオンクエリーで2つ...
-
主キーの変更
-
Accessでフィールドを比較した...
-
SQL文について(片方のテーブル...
-
続.ORACLEのSELECTのソートに...
-
場合によって条件を変えるSQL
-
請求と入金のテーブルの作成の...
-
sqlのupdate文で質問です。 テ...
-
[Oracle] UPDATE分の副問い合わ...
-
accessで移動平均する方法
おすすめ情報