I have this query that works when my field was not placed withing a tab.
However as the form progressed it became necessary to use tabs to split the form into a manageable format.
(I am using access 97)
The query (when it worked)
The tab is named InspectionDetails.
What the query did was to filter a list of values based on the users input into a field once they pressed the filter button, and return that filtered list to the field as a drop down.
This was done using the form:
Any ideas?
However as the form progressed it became necessary to use tabs to split the form into a manageable format.
(I am using access 97)
The query (when it worked)
Code:
SELECT DISTINCTROW tbl_AllSLMastr.UNITID, [Forms]![frm_1in6InspectInput]![UNITID].[value] AS exp
FROM tbl_AllSLMastr
WHERE (((tbl_AllSLMastr.UNITID) Like ([Forms]![frm_1in6InspectInput]![UNITID] & "*") And (tbl_AllSLMastr.UNITID) Not Like "x*"))
ORDER BY tbl_AllSLMastr.UNITID;
The tab is named InspectionDetails.
What the query did was to filter a list of values based on the users input into a field once they pressed the filter button, and return that filtered list to the field as a drop down.
This was done using the form:
Code:
Option Compare Database
Option Explicit
Private Sub UNITID_AfterUpdate()
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
End Sub
Private Sub UNITID_LostFocus()
UnitID.RowSource = "Qry_UnitID_Combo4"
UnitID.Requery
End Sub
Private Sub Command380_Click()
On Error GoTo Err_Command380_Click
Dim stDocName As String
stDocName = "Qry_UnitID_Combo4"
DoCmd.OpenQuery stDocName, acNormal, acEdit
DoCmd.Close
Exit_Command380_Click:
Exit Sub
Err_Command380_Click:
MsgBox Err.Description
Resume Exit_Command380_Click
End Sub
Any ideas?