Private Sub Form_Load()
SetDbName ' データベース名を取得(標準モジュール)
datMovie.DatabaseName = strDbPath
datMovie.RecordSource = TABLE_NAME
' テキストボックスにフィールドを設定(標準モジュール)
SetDbFields Me
' 部分的にフィールドをロック(標準モジュール)
FieldLock Me, True
FieldLock Me, True
datMovie.Refresh
datMovie.Recordset.MoveFirst
End Sub
|
本文へ戻る
|