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 44 45 46 47 48 49 50 51 52 53 54 55 56 57
|
Private Sub Commande44_Click()
On Error GoTo Err_Commande44_Click
On Error Resume Next
Dim P As DAO.Recordset
Dim db As DAO.Database
Dim EnrActuel As Variant
Set db = CurrentDb
EnrActuel = Me.Texte16.Value
Set P = db.OpenRecordset("Select * From CLIENT Where Code_Commerciaux = " & Chr(34) & Modifiable3 & Chr(34) & "order by 1")
While EnrActuel <> P("Num_Clt")
P.MoveNext
If CBool(Err.Number) Then
Err.Clear
Exit Sub
End If
Wend
P.MoveNext
If CBool(Err.Number) Then
Err.Clear
Exit Sub
End If
With Me
Me.Texte16 = P.Fields("Num_Clt")
Me.Texte18 = P.Fields("Nom_Clt")
Me.Texte26 = P.Fields("Adr_Rue_Clt")
Me.Texte29 = P.Fields("Adr_Ville_Clt")
Me.Texte32 = P.Fields("Adr_CP_Clt")
Me.Texte36 = P.Fields("Tel_Clt")
Me.Texte40 = P.Fields("Présentation_Clt")
End With
P.Close
db.Close
Set P = Nothing:
Set db = Nothing:
Exit_Commande44_Click:
Exit Sub
Err_Commande44_Click:
MsgBox Err.Description
Resume Exit_Commande44_Click
End Sub |