R
Rpettis31
I have a notes subform that lists all the notes that are associated with the
main form. I have a text box (txtAddNotes) that I would like to use to add
notes into the subform.
There is a date field and a notes fields in the sub form and I would like to
set the command button to add the current date and the notes from the text
box.
Private Sub cmdAdNotes_Click()
On Error GoTo Err_cmdAdNotes_Click
Me.subfrmStatusNotes.SetFocus
DoCmd.GoToRecord , , acNewRec
!txtNotes = Me.txtAddNote
!DateCode = Date
Exit_cmdAdNotes_Click:
Exit Sub
Err_cmdAdNotes_Click:
MsgBox Err.Description
Resume Exit_cmdAdNotes_Click
End Sub
I get an unqualified error on the controls on the subform.
main form. I have a text box (txtAddNotes) that I would like to use to add
notes into the subform.
There is a date field and a notes fields in the sub form and I would like to
set the command button to add the current date and the notes from the text
box.
Private Sub cmdAdNotes_Click()
On Error GoTo Err_cmdAdNotes_Click
Me.subfrmStatusNotes.SetFocus
DoCmd.GoToRecord , , acNewRec
!txtNotes = Me.txtAddNote
!DateCode = Date
Exit_cmdAdNotes_Click:
Exit Sub
Err_cmdAdNotes_Click:
MsgBox Err.Description
Resume Exit_cmdAdNotes_Click
End Sub
I get an unqualified error on the controls on the subform.