When I open the form 'Customer Overview' for the first time after closing and then re-opening the database it brings up the search parameter boxes for each of the criteria required from the queries. If I then go to design view and click on the ... (elipsis) button against the 'Form' On Open to view the code. Save and then close the VBA screen the form then opens normally for the remaining time spent in the database.
Below is all the code attached to this form . . . any ideas?
Code:
Option Compare Database
'Go to Customer Search'
Private Sub CmdFindCustomer_Click()
DoCmd.Close acForm, "Customer Overview", acSaveYes
DoCmd.OpenForm "F_Booking Customer Search"
End Sub
'Go to Enter new Riding Club details'
Private Sub CmdRCEnterReceiptDetails_Click()
DoCmd.OpenForm "F_EnterRCUsage"
End Sub
'Show Riding Club Card image when Customer is a Riding Club Member'
Private Sub Form_Current()
If Me.Riding_Club_Card_Number = True Then
Me.RCMemberImage.Visible = True
Else
Me.RCMemberImage.Visible = False
End If
End Sub
'On open, close Customer Search Form'
Private Sub Form_Open(Cancel As Integer)
DoCmd.Close acForm, "F_Booking Customer Search", acSaveYes
Me.Recalc
End Sub
'Go to Enter Riding Club Data'
Private Sub RCMemberImage_Click()
DoCmd.OpenForm "F_EnterRCUsage"
End Sub
. . . and the forms Control Source is-
Code:
SELECT Customers.*, [Riding Club Members].[Riding Club Card Number], [Riding Club Members].[Stable Cards Redeemed (5)], [Riding Club Members].[Authorised By], [Riding Club Members].[Join Date] FROM Customers LEFT JOIN [Riding Club Members] ON Customers.[Customer Number]=[Riding Club Members].[Customer Number];
Thanks