webfaktor
Technical User
- May 22, 2001
- 22
Hi,
The code below allows me to Query By Form, i.e., I can make an information selection via a combo box in my QBF form, press a command button that activates code seen below and the results appear in the QBF's parent form.
Can this type of data retrieval be established for Reports?
Thanks in advance - Michael
Function glrQBF_DoHide(frm As Form)
Dim varSQL As Variant
Dim strParentForm As String
'Get the name of the Parent form
strParentForm = Left(CStr(frm.Name), Len(CStr(frm.Name)) - 4)
'Create the approprite Where clause based on the fields with data in them
varSQL = glrDoQBF(CStr(frm.Name), False)
'Open the Parent form filtered with the Where clause genereated above
DoCmd.OpenForm strParentForm, acNormal, , varSQL
'Make this *_QBF form invisible
frm.Visible = False
End Function
The code below allows me to Query By Form, i.e., I can make an information selection via a combo box in my QBF form, press a command button that activates code seen below and the results appear in the QBF's parent form.
Can this type of data retrieval be established for Reports?
Thanks in advance - Michael
Function glrQBF_DoHide(frm As Form)
Dim varSQL As Variant
Dim strParentForm As String
'Get the name of the Parent form
strParentForm = Left(CStr(frm.Name), Len(CStr(frm.Name)) - 4)
'Create the approprite Where clause based on the fields with data in them
varSQL = glrDoQBF(CStr(frm.Name), False)
'Open the Parent form filtered with the Where clause genereated above
DoCmd.OpenForm strParentForm, acNormal, , varSQL
'Make this *_QBF form invisible
frm.Visible = False
End Function