[marios1984]

Προσπαθω να κανω κατι τετοιο αλλα δεν μου βγαινει:

Private Sub Εντολή4_Click()
Dim strWhere As String
If Not IsNull(combo1) Then
strWhere = "([ΜΗΝΑΣ] = """ & Me.combo1 & """) AND "
"[ΚΩΔΙΚΟΣ_ΛΟΓΑΡΙΑΣΜΟΥ]= '" & combo2 & "'"
End If
DoCmd.OpenReport "MINES", acViewReport, , strWhere
Me.Filter = strWhere
Me.FilterOn = True
End Sub