フィールドを変更するボタン

Question

私はMicrosoftのフォームにアクセスしています。 Renewというボタンがあります。 ボタンをクリックすると、サブフォームの1つのフィールドが今日の日付に変更されます。

Private Sub cmd_renew_Click() 
Dim strSQL As String 
strSQL = "UPDATE tbl_Borrowing SET DateBorrowed = Date()" 
DoCmd.SetWarnings (False) 
DoCmd.RunSQL strSQL 
DoCmd.SetWarnings (True) 
End Sub 

それが動作しないと私は考えが正しい私のロジックではありませんかいない：Apply filterを選んだ、とFrom operationsに> - - >Property Sheet - - >Event>Microsoft Visual Basic は、私は、フォームやボタンを作成しました。 DateBorrowedが認識されません。 私はサブフォームではなく私のフォームでそれをやった。このコードの代わりに

Answer 1

用途：

Private Sub cmd_renew_Click() 
    Me!SubFormControlName.Form!DateBorrowed = Date() 
end Sub 

はフォームでサブフォームコントロールの実際の名前でSubFormControlNameを交換してください。
メインフォーム上のテキストボックスを配置する場合は、サブフォームのセクションのVROMコード削除：

Me!DateBorrowed = Date()