1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43
| Sub chercheCPVille(Chaine As String, Genre As String)
Dim rst As DAO.Recordset, Sel As String, strCritère As String
Dim intNbF As Integer
If Not IsNull(Chaine) Then
Select Case Genre
Case "CP"
strCritère = " WHERE [CodePostal]= " & Chr(34) & Chaine & Chr(34) & " ;"
Case "Localité"
Chaine = Chaine & "*"
strCritère = " WHERE [Ville] like " & Chr(34) & Chaine & Chr(34) & " ;"
End Select
Sel = "SELECT * FROM [TriCodePostaux] " & strCritère
End If
Set rst = CurrentDb.OpenRecordset(Sel)
Combien y a t il de CP ou Ville
intNbF = rst.RecordCount
En fonction des résultats soit on rempli directement les champs du formulaire « frmSaisie »
soit on rempli la liste de choix « ListedechoixCPVILLE ».
Select Case intNbF
Case Is = 0
Sel = "Select * from [TriCodePostaux] "
MSGBOX Attention il ny a aucune donnée correspondant à votre saisie
Case Is = 1
'Forms!FrmSaisie![N°Dept] = rst![N°Dept]
Forms!frmsaisie![CodePostal] = rst![CodePostal]
Forms!frmsaisie![Ville] = rst![Ville]
Forms!frmsaisie![Département] = rst![Département]
Forms!frmsaisie![Région] = rst![Région]
Forms!frmsaisie![Pays] = rst![Pays]
Case Is > 1
Forms!frmsaisie!ListedechoixCPVILLE.RowSource = Sel
Forms!frmsaisie!ListedechoixCPVILLE.Requery
Forms!frmsaisie!ListedechoixCPVILLE.SetFocus
Forms!frmsaisie!ListedechoixCPVILLE.Dropdown
End Select
rst.Close
End Sub |
Partager