H
HeislerKurt
I'm trying to automatically close a popup form (frmSearch), when the
user clicks on a control in a continuous subform (frmSearchResults).
My DoCmd.close statement appears to be doing nothing as the popup form
stays open. Any ideas? Thank you.
###
Private Sub Pt_LName_Click()
Dim rs As Object
Set rs = Forms!frmPatients.Recordset.Clone
Forms!frmPatients.SetFocus
rs.FindFirst "[PatientID] = " & Me.PatientID
If Not rs.EOF Then Forms!frmPatients.Bookmark = rs.Bookmark
' Problem persists even if I delete this line or
' swap the order of this line with the DoCmd line
Forms!frmPatients!txtFocusControl.SetFocus
DoCmd.Close acForm, "frmSearchAdanced"
End Sub
###
user clicks on a control in a continuous subform (frmSearchResults).
My DoCmd.close statement appears to be doing nothing as the popup form
stays open. Any ideas? Thank you.
###
Private Sub Pt_LName_Click()
Dim rs As Object
Set rs = Forms!frmPatients.Recordset.Clone
Forms!frmPatients.SetFocus
rs.FindFirst "[PatientID] = " & Me.PatientID
If Not rs.EOF Then Forms!frmPatients.Bookmark = rs.Bookmark
' Problem persists even if I delete this line or
' swap the order of this line with the DoCmd line
Forms!frmPatients!txtFocusControl.SetFocus
DoCmd.Close acForm, "frmSearchAdanced"
End Sub
###