VB6.0用掲示板の過去のログ(No.1)−VBレスキュー(花ちゃん)
[記事リスト] [新規投稿] [新着記事] [ワード検索] [過去ログ] [管理用]

投稿日： 2004/06/18(Fri) 16:03
投稿者： kamurin
Ｅメール： kamurin@hotmail.com
ＵＲＬ：
タイトル： exeだとエラー

exeを実行した場合下記の☆印の処理でエラーが出ます。(実行時エラー カレントレコードがありません。)
vbpからの実行では問題なく通っているのですが、
何か分かりませんか？

Set rs_T_カルテ情報 = db.OpenRecordset("select * from T_カルテ情報", dbOpenDynaset)
rs_T_カルテ情報.FindFirst "電話番号 = '" & imMask1.Value & "'"
If rs_T_カルテ情報.NoMatch = False Then '一致するカルテがある場合
      LongMsg = "該当するカルテがありました。" & vbCrLf
      LongMsg = LongMsg & "「表示」しますか？"
      If MsgBox(LongMsg, vbYesNo, "表示確認") = vbYes Then                
          imText1(3).Text = rs_T_カルテ情報!氏名 '☆
                
          Set rs_T_カルテ情報 = db.OpenRecordset("select  * from T_カルテ情報 where カルテID = " & rs_T_カルテ情報!紹介者, dbOpenDynaset)
                
          If rs_T_カルテ情報.BOF = False Then
          Else
          End If
     End If
End If

- 関連一覧ツリー （★ をクリックするとツリー全体を一括表示します）
- 返信フォーム （この記事に返信する場合は下記フォームから投稿して下さい）

- Web Forum -