自社情報入力用ユーザーフォームが開いた時に、自社情報テーブルを開きテキストボックスに登録済みデータを表示する。
登録されていなければ無視します。
■UserForm_Initializeイベントに入力します。
Private Sub UserForm_Initialize()
Dim rs As Recordset
'自社情報テーブルを開き、テキストボックスに表示する
Set rs = tDbHanbai.OpenRecordset("T_自社情報", dbOpenDynaset)
If Not rs.EOF Then
TextBox1.Value = rs("自社名")
TextBox2.Value = rs("郵便番号")
TextBox3.Value = rs("住所1")
TextBox4.Value = rs("住所2")
TextBox5.Value = rs("TEL")
TextBox6.Value = rs("FAX")
TextBox7.Value = rs("振込先")
End If
Set rs = Nothing
End Sub