Access VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1264 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【7944】オーバーフローしました？ 流星 06/6/8(木) 0:33 質問[未読]
【7947】Re:オーバーフローしました？ Gin_II 06/6/8(木) 1:19 回答[未読]
【7961】Re:オーバーフローしました？ 流星 06/6/9(金) 3:13 質問[未読]
【7963】Re:オーバーフローしました？ よろずや 06/6/9(金) 8:06 回答[未読]
【7968】ありがとうございました。 流星 06/6/9(金) 23:22 お礼[未読]
【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
【7947】Re:オーバーフローしました？
回答  Gin_II  - 06/6/8(木) 1:19 -
引用なし
パスワード
   >実行時エラー　’６’オーバーフローしました、となります。

エラーになる場所は？
と、各フィールドのデータ型・実際に代入しているデータの情報も
ほしいですね。
【7961】Re:オーバーフローしました？
質問  流星  - 06/6/9(金) 3:13 -
引用なし
パスワード
   すみません。質問の内容を変更します。
ＣＳＶ形式のデータが下記のようになっています。
インポートすると、フィールド４までしか、読み込まれません。
たぶん、このデータの配列が原因のように思われますが、何とかならないでしょうか？

a,b,c,d
e,f,g,h
　　・
　　・

i,j,k,l,m,n
o,p,q,r,s,t
　　・
　　・
aa,bb,cc,dd,ee,ff
　　　　　　　　 というようになってます。
【7963】Re:オーバーフローしました？
回答  よろずや  - 06/6/9(金) 8:06 -
引用なし
パスワード
   Line Input と Split を使いましょう。
【7968】ありがとうございました。
お礼  流星  - 06/6/9(金) 23:22 -
引用なし
パスワード
   ありがとうございました。出来ました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1264 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
1081120
(SS)C-BOARD v3.8 is Free