MSDE FunClub 現在までのアクセスカウント数 最終更新日 : 2000/11/23
Microsoft Data Engine FunClub
Since 2000.11.23
SQLServer7.0/MSDE 完全トレーニングテキスト（下巻）
【第２３章４７８ｐ 〜 ４７９ｐ掲載】

【例題３番】
ＳＱＬ文による動的連結処理

［例題３番：医師フォーム］
医師IDに値を入力し、ボタンを押します
該当する医師の名前を検索し表示します

［例題３番：医師フォーム］

[検索連結／非連結]ボタンのVBAプログラム

'
'**********************************************
'              検索連結／非連結
'  レコード検索を行うSQL文をレコードソースとする
'**********************************************
'
Private Sub Search_Click()
    Dim no$, rs$
    
    '非連結状態ですか？
    If Me.Recordset Is Nothing Then
       
       '検索条件
       If IsNull(Me![医師ID]) Then
          '全レコードを対象にする
          rs$ = "SELECT 医師ID , 医師名 , 医師TEL FROM 医師"
       Else
          '検索条件を入れる
          rs$ = "SELECT 医師ID , 医師名 , 医師TEL FROM 医師 " & _
                "WHERE( 医師ID = " & Me![医師ID] & ")"
       End If
       MsgBox rs$
       Me.RecordSource = rs$
    
       'テキストボックスの連結先フィールド名の設定
       'テキストボックスの名前が列名に一致している
       Me![医師ID].ControlSource = "医師ID"
       Me![医師名].ControlSource = "医師名"
       Me![医師TEL].ControlSource = "医師TEL"
    
       'クエリーの実行
       Me.Requery
   Else
   '連結を解除する
       Me![医師ID].ControlSource = ""
       Me![医師名].ControlSource = ""
       Me![医師TEL].ControlSource = ""
       Me.RecordSource = ""
   End If
End Sub
技術評論社の書籍ガイドへ
下巻：ISBN4-7741-0966-5

ウィンドウを閉じる

（株）日本技術ソフト開発　責任編集：堀川　明
 MSDE FunClubに関するご意見・ご要望等ございましたら、 msdefun@horikawa.ne.jp　までご連絡下さい。
HOME: http://www.horikawa.ne.jp/msde/

MSDE FunClubの運営は、マイクロソフト社とは一切の関係はありません