anyone help please, I have looked into this quite a bit but am at a stand still now.
Option Compare DatabasePrivate Sub List0_AfterUpdate()Dim varItem As VariantDim txtTemp As StringDim txtCriteria As StringtxtCriteria = "[CriteriaFieldName] = "For Each varItem In Me.List0.ItemsSelectedtxtTemp = txtTemp & txtCriteria & "'" & Me.List0.ItemData(varItem) & "'" & " Or "NextIf Len(txtTemp) > 0 ThentxtTemp = Left(txtTemp, Len(txtTemp) - 4)End IfMe.Text3 = txtTempEnd Sub
I have added that to my listbox..
not sure what this is referring too though?
txtCriteria = "[CriteriaFieldName] = "
also not sure what this bit means....
Then pass the textbox itself to the form or report you wish to open by placing the following in the OnClick event of the button that opens the form or report:...Dim stDocName As StringDim stLinkCriteria As StringstDocName = "FormName"stLinkCriteria = Me![HiddenTextBoxName]DoCmd.OpenForm stDocName, , , stLinkCriteria...