投稿日	： 2004/06/18(Fri) 17:40
投稿者	： 旅人A
Ｅメール	：
ＵＲＬ	：
タイトル	： Re: exeだとエラー

根本的な解決にはなってないですが、こうしたらどうかという案を。

kamurinさんのやろうとしてることを纏めると
１．全てのレコードをレコードセット
２．一致するカルテの取得
３．一致するカルテの判定
３−A．（カルテがある場合）
　　メッセージボックスで表示確認
３−B．任意のカルテ情報をもつレコードをレコードセット

こんな感じかと思います。

（気になるところ）
１．テキストボックスに表示するのは最初に見つかったレコードの氏名でいいのか？
２．一回目のレコードセット閉じてないのに同じ変数で新しいレコードセットをしてる
３．(多分AccessをDAOで接続してると思うけど・・)SQLの最後にセミコロン（；）がない
４．カルテIDは紹介者なのに、「'」はいらない？

（Source）
Dim SQLStr As String
Dim Flg As Boolean
Dim Syoukaisya As String
Dim Simei As String

  Flg = 0'初期化
  SQLStr = ""
  Syoukaisya = ""
  Simei = ""
----------------------------中略-------------------------------(DBのSetなど)
  SQLStr = "SELECT * FROM T_カルテ情報 WHERE 電話番号 = '" & imMask1.Value & "';"
  Set rs_T_カルテ情報 = db.OpenRecordset(SQLSTR, dbOpenDynaset)

  'レコード数を取得して、データがあるかないかをチェック
  If rs_T_カルテ情報.Recordcount > 0 Then
    Flg = True
    'ヒットしたカルテ情報の最初の紹介者を取得
    rs_T_カルテ情報.MoveFirst
'    Simei = rs_T_カルテ情報!氏名
'    Syoukaisya = rs_T_カルテ情報!紹介者
    Simei = rs_T_カルテ情報("氏名").Value
    Syoukaisya = rs_T_カルテ情報("紹介者").Value
  Else
    Flg = False
  End If
  'レコードセットクローズ！！
  rs_T_カルテ情報.Close

  If Flg = True Then
    LongMsg = "該当するカルテがありました。" & vbCrLf
    LongMsg = LongMsg & "「表示」しますか？"

    If MsgBox(LongMsg, vbYesNo, "表示確認") = vbYes Then
      imText1(3).Text = Simei

      SQLStr = ""
      SQLStr = "SELECT * FROM T_カルテ情報 WHERE カルテID = '" & Syoukaisya & "';"
      Set rs_T_カルテ情報 = db.OpenRecordset(SQLStr, dbOpenDynaset)
                
      If rs_T_カルテ情報.BOF = False Then
      Else
      End If

      rs_T_カルテ情報.Close
    End If
  End If

  ※見た目だけで実際には動かしてないので漏れなどあるかもしれません。

★ - exeだとエラー - kamurin 06/18-16:03No.9356
• Re: exeだとエラー - るしぇ 06/18-17:10 No.9358
• Re: exeだとエラー - 旅人A 06/18-17:40 No.9359
  • Re^2: exeだとエラー - kamurin 06/22-16:26 No.9386