Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

5276 / 9994

←次へ　｜　前へ→


	【7944】オーバーフローしました？

流星 - 06/6/8(木) 0:33 -


	引用なし

	パスワード

こんばんは。Ａｃ２０００を使ってます。
ＣＳＶファイルのインポートをＶＢＡにて行おうと思ってます。下記の様にする
と、エラーとなります。実行時エラー　’６’オーバーフローしました、となりま
す。エラーにならない、方法を教えてください。

Function yomikomi()
　Dim DB As DATABASE
　　Dim RT As Recordset
　　Dim Fname As String
　　Dim Fnum As Integer
　　' フィールド用変数の宣言
　　Dim FL1 As Integer
　　Dim FL2 As String
　　　・
　　　・
　　Dim FL78 As String

Set DB = CurrentDb
　　Set RT = DB.OpenRecordset("カルテ", dbOpenTable)
　　Fname = "C:\A\カルテ.csv"
　　Fnum = FreeFile
　　Open Fname For Input As Fnum
　　
　　Do Until EOF(Fnum)
　　　　Input #Fnum, FL1, FL2, FL3, ・・・, FL77, FL78
　　　　
　　'----( データのある行の判断 )----------------------------------
　　　　If FL1 <> 6 Then　　　　　　　　　　　　'Null行
　　　　　　'何もしない
　　　　Else
　　　　　　If FL1 = 6 Then 'ヘッダー行？
　　　　　　　　
　　　　
　　　　RT.AddNew
　　　　　 RT![区分] = FL1
　　　　　 RT![GNo] = FL2
　　　　　 RT![社員ｺｰﾄﾞ] = FL3
　　　　　 RT![氏名] = FL4
　　　　　 RT![popup数] = FL5
　　　　RT.Update
　　　　　 End If
　　　　End If
　　Loop
　　
　　Close #Fnum

922 hits

▼

【7944】オーバーフローしました？ 流星 06/6/8(木) 0:33

≪