Hi SmallTime
First thanks for answering the question.
Ok what i have done so far,
The form is set up via the wizard linking it to the table with the following data
Premises number, Premises Flat, Premises Street, Post Code and Index No.
I then have two drop down menus linked to table for Time and Type.
The last thing is the search boxes which again were done though the wizard
giving the following Event Prodedures.
Search 1 (Wizard set)
Private Sub Command35_Click()
Dim buildingNum
buildingNum = InputBox("Enter the House Number", "Search for building")
DoCmd.OpenForm "House Number and Address"
[Form_House Number and Address].Filter = "[Premises No] = '" & buildingNum & "'"
[Form_House Number and Address].FilterOn = True
[Form_House Number and Address].OrderByOn = True
End Sub
Search 2 (My attempt)
Private Sub Search_2_Click()
Dim buildingNum
buildingNum = InputBox("Enter the House Number", "Search for building")
DoCmd.OpenForm "HNA1"
[Form_HNA1].Filter = "[Premises No] = '" & buildingNum & "'"
[Form_HNA1].FilterOn = True
[Form_HNA1].OrderByOn = True
End Sub
In the second search I was going for the detail to be pulled from a different table to
see if this would give different details in the feilds listed about (Did not work)
I hope this is waht you were looking for. If not please let me know.
Your
Duncan