1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
| Private Sub btnImprim_Click()
Dim SQL As String
Dim rs As Recordset
Dim titre1 As Double
SQL = "SELECT An_mes, Etat, Catégorie, Description, IDNumber FROM Biens Where Biens!Société <>0 "
If Me.chkClients Then
SQL = SQL & "And Biens!Société like '*" & Me.cmbClients & "*' "
End If
If Me.chkDate Then
SQL = SQL & "And Biens!An_mes like '*" & Me.cmbDate & "*' "
End If
If Me.chkEtat Then
SQL = SQL & "And Biens!Etat like '*" & Me.cmbEtat & "*' "
End If
SQL = SQL & ";"
DoCmd.OpenReport "EditParam", acViewPreview, "",???? , acDialog
End Sub |
Partager