---

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

---

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

'
'*************
' 連結／非連結
'*************
'
Private Sub Connect_Click()
    
    '非連結状態ですか？
    If Me.Recordset Is Nothing Then
       'フォームのレコードソースを定義する
       Me.RecordSource = "医師"
    
       'テキストボックスの連結先フィールド名の設定
       'テキストボックスの名前が列名に一致している
       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の運営は、マイクロソフト社とは一切の関係はありません