Mrzi me da prepravljam primer :), al' otprilike ovako:
Prvo napraviš Bound formu da bi imao potrebna polja, pa je onda razvežeš, tj. unda ukloniš RecourdSource, i onda na After update TextBox polja staviti nešto kao:
Code:
frmForma1.Form.RecordSource = "SELECT * FROM qryKveri WHERE [SIFRA] Like '" & Me.[txtBox1] & "*'"
Za report, na pr:
Code:
DoCmd.OpenReport "rptReport1", acViewPreview, WhereCondition:="[SIFRA] Like '" & Me.[txtBox1] & "*'"
Ovaj primer je za tekstualne vrednosti txtBox1 polja, za numeričke, ne trebaju navodi '