1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24
| Private Sub Commande16_Click()
Dim police As String
police = InputBox("Entrer le N°Police SVP!", "Vérification N°Police")
If police = "" Then
While police = ""
police = InputBox("Entrer le N°Police SVP!", "Vérification N°Police")
If police = "" Then
MsgBox "Aucun N°Police a été saisi"
Else
DoCmd.ApplyFilter , "[NUM GAR_POL]=" & police
DoCmd.OpenQuery "RECHERCHE REGLEMENT"
End If
Wend
Else
If Not IsNull(police) Then
DoCmd.ApplyFilter , "[NUM GAR_POL]=" & police
DoCmd.OpenQuery "RECHERCHE REGLEMENT"
End If
End If
If police <> 0 Then
DoCmd.ApplyFilter , "[NUM GAR_POL]=" & police
DoCmd.OpenQuery "RECHERCHE REGLEMENT"
End If
End Sub |
Partager