Dim session As Workspace Dim base As Database Dim enreg As Recordset Private Sub Cmdrecherche_Click() Dim rech As String rech "SELECT * FROM table WHERE code " & cint(txtcode.Text) & ";" Text2.Text = enreg![nom] Text3.Text = enreg![prenom] End Sub Private Sub Form_Load() Set session = DBEngine.Workspaces(0) Set base = session.OpenDatabase(App.Path & "\saisie.mdb") Set enreg = base.OpenRecordset("table") End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question