|
なおのＥｘｃｅｌ教室 さんの「exvol108」データベースの更新・参照（６） 【保存しておいた（５）を開いて記述する】 〔Visual Basic Editor〕を開いて〔UserForm1〕を表示します 画面が表示されたらプロシージャ一覧表示の〔UserForm1を〕選択状態で〔右〕クリック メニューから〔コードの表示〕を選択します 表示欄上の部分の左オブジェクトを〔UsrForm〕に右のプロシージャ表示から〔Active〕を選択します 〔private Sub UserForm_Activate（）〕というプロシージャが作成されます そこに Dim errmsg As String txtNo.SetFocus errmsg = db_open()
If errmsg <> "ok" Then
MsgBox "データベースに接続できませんでした。" & vdCr & errmsg
ElseUnload Me
dspset1
同じようにコードの表示欄の上の部分左側のオブジェクトを〔UserForm〕に右側のプロシージャ欄より〔Terminate〕を選択しますEnd If と記述します 〔Private Sub UserForm_Terminate（）〕というプロシージャが作成されます そこに Dim errmsg As String errmsg = db_close（） と記述します 保存します。 |
- >
- コンピュータとインターネット
- >
- コンピュータ
- >
- パソコン
フォームがアクティブになるときにデータベースへの接続と画面の初期設定をしてフォームが終了するときにデータベースを終了するところだよね(^^
2006/2/7(火) 午後 5:37 [ なお ]
なるほど！やっとここまで来ました。。これからも続けます。(o^∇^o)ﾉ
2006/2/8(水) 午前 9:34
ここまでくるとデータベースの内容を表示するのももうすぐだよね(^^
2006/2/8(水) 午前 10:02 [ なお ]
?ヾ(ﾟｰﾟヾ)^?｡｡｡ﾝ? がんばります〜〜(^^♪
2006/2/8(水) 午前 10:36