A
Alex
I have a main form frmCustomers and a continuous subform Sub_frmCustomers
linked to a table. To save a space on the continuous form for notes entries
I'm using the button covered the txtNotes field on the continuous form to
open the frmNotes for the entries.
frmNotes:
Private Sub Form_Load()
Me.txtNotes.EnterKeyBehavior = True
Me.txtNotes.Requery
Me.txtNotes = Forms![frmCustomers]!Sub_frmCustomers!Notes
Me.cmdClose.Requery
Me.cmdClose.SetFocus
End Sub
Private Sub cmdClose_Click()
On Error GoTo Err_cmdClose_Click
Forms![frmCustomers]!Sub_frmCustomers!Notes = Me.txtNotes
DoCmd.Close acForm, "frmNotes"
Exit_cmdClose_Click:
Exit Sub
Err_cmdClose_Click:
MsgBox Err.Description
Resume Exit_cmdClose_Click
End Sub
Please, look at the code whether it's Ok as I sent the DB via e-mail and the
user's saying that he cannot save the notes.
linked to a table. To save a space on the continuous form for notes entries
I'm using the button covered the txtNotes field on the continuous form to
open the frmNotes for the entries.
frmNotes:
Private Sub Form_Load()
Me.txtNotes.EnterKeyBehavior = True
Me.txtNotes.Requery
Me.txtNotes = Forms![frmCustomers]!Sub_frmCustomers!Notes
Me.cmdClose.Requery
Me.cmdClose.SetFocus
End Sub
Private Sub cmdClose_Click()
On Error GoTo Err_cmdClose_Click
Forms![frmCustomers]!Sub_frmCustomers!Notes = Me.txtNotes
DoCmd.Close acForm, "frmNotes"
Exit_cmdClose_Click:
Exit Sub
Err_cmdClose_Click:
MsgBox Err.Description
Resume Exit_cmdClose_Click
End Sub
Please, look at the code whether it's Ok as I sent the DB via e-mail and the
user's saying that he cannot save the notes.