Private Sub Cmdrecherche_Click() Dim lRec As Recordset Dim rech As String rech "SELECT * FROM table WHERE code " & cint(txtcode.Text) & ";" set lRec=base.OpenRecordset(rech) Text2.Text = lRec![nom] Text3.Text = lRec![prenom] lRec.Close End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question