Ｐａｇｅ 226 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼ＥＯＦについて Fuku 03/3/12(水) 9:45 ┗Re:ＥＯＦについて イケガミ 03/3/12(水) 9:50 ┗Re:ＥＯＦについて Fuku 03/3/13(木) 12:58 ┗Re:ＥＯＦについて apollo 03/3/14(金) 13:37 ─────────────────────────────────────── ■題名 ： ＥＯＦについて ■名前 ： Fuku ■日付 ： 03/3/12(水) 9:45 -------------------------------------------------------------------------
| txtデータを読込むのにDoループをを使って読込んでいるのですが プロシージャの呼び出し、または引数が不正です。というエラーが でます。ＶＢの方ではエラーが出なかったのですが・・・ なぜでしょうか？ |
| >txtデータを読込むのにDoループをを使って読込んでいるのですが >プロシージャの呼び出し、または引数が不正です。というエラーが >でます。ＶＢの方ではエラーが出なかったのですが・・・ コードの提示もなくて、どのように回答すればよろしいのでしょうか？ |
| ▼イケガミ さん： >コードの提示もなくて、どのように回答すればよろしいのでしょうか？ 申し訳ありません。。このようにしているのですが、 Private Sub road_Click() On Error GoTo err_road_click Dim ret As Integer Dim kno As String Dim s As Integer Dim e As Integer Dim cn As ADODB.Connection Dim rs As ADODB.Recordset Dim knonew As String Dim filename As String Dim t As String Dim t1 As String Dim t2 As String Dim temp As String Dim filenum As Integer Dim kei As String Dim i As Integer Dim kou As String Dim suu As Integer 'テーブル名のチェック If IsNull(Me!opentxt) Then Beep ret = MsgBox("テーブル名を入力してください", vbOKOnly + vbinfomation, "ファイルを開く") Exit Sub End If Me!dlg.InitDir = CurrentProject.Path Me!dlg.Filter = "テキスト(*.txt)|*.txt;|" Me!dlg.showopen 'ファイル読込み処理 If Me!frame.Value = 1 Then Module1.tbname = Me!opentxt Call maketable Set cn = CurrentProject.Connection Set rs = New ADODB.Recordset rs.Open Module1.tbname, cn, adOpenKeyset, adLockOptimistic 'レコードセット取得 filenum = FreeFile Open Me!dlg.filename For Input As #filenum Line Input #filenum, temp t = InStr(temp, "系") If t > 0 Then t1 = Mid(temp, t + 1, 1) If t1 = "統" Then t1 = Mid(temp, t + 2, 1) If t1 = "名" Then t2 = InStr(t, temp, "）") t1 = Mid(temp, t + 4, t2 - t - 4) End If End If End If Line Input #filenum, temp Line Input #filenum, temp Line Input #filenum, temp Line Input #filenum, temp Line Input #filenum, temp Line Input #filenum, temp Do Until eof(filenum) ・ 中省略 ・ Loop Close #filenum rs.close: Set rs = Nothing cn.close: Set cn = Nothing End If exit_road_click: Beep ret = MsgBox("読込み終了しました。", vbOKOnly + vbinfomation, "ファイルを開く") DoCmd.close Exit Sub err_road_click: Select Case Err.Number Case 32755 ' Case Else Beep MsgBox (Err.Description) ret = MsgBox("ファイル読込みに失敗しました。", vbOKOnly + vbCritical, "ファイルを開く") End Select End Sub EOFとならずeofと小文字になってしまいます。LOFなどでは大文字で認識してくれるのですが。VB初心者ですので、簡単なミスでしたらご勘弁ください。 |
| これは何が『EOF』なのか指定していないのが問題なのでは？ （例） eof → rs.EOF |