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

【例題４番】
ビュー表に対する動的連結処理

医師VIEW ビュー表の定義

CREATE VIEW 医師VIEW
  AS
       SELECT  *  FROM  医師

レコードソースの選択で［医師VIEW］を選択する

［医師VIEWの選択］

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

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

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

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