ник: LilijaSt
Да, проблема была именно тут.
Только для работы, закрытый вами кусок кода всёже нужен, и стоять они должни в следующем порядке:
If IsNull(Me.Text0.Value) Then
strRegNo = "Like '*'"
Else
strRegNo = "='" & Me.Text0.Value & "'"
End If
If IsNull(Me.Text2.Value) Then
strADSB = "Like '*'"
Else
strADSB = "='" & Me.Text2.Value & "'"
End If
strFilter = "[REG NO] " & strRegNo & " AND [AD/MSB NO] " & strADSB
DoCmd.OpenReport "ADSB REG", acViewPreview, , strFilter
With Reports![ADSB REG]
.Filter = strFilter
.FilterOn = True
End With
|
или на открытие репорта...как вариант - тоже работает.