1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
| Private Sub btAbs_Click()
Dim vValide As String
Dim maConnexion As ADODB.Connection 'Déclaration de la connex
Set maConnexion = CurrentProject.Connection 'intenciation de la connex
Dim monRs As ADODB.Recordset 'declaration du record set
Set monRs = New ADODB.Recordset 'instenciation du record set
Dim maRequete As String
monRs.Open maRequete, maConnexion
vvar = InputBox("entrer le num_e")
maRequete = "SELECT * FROM Absences where Modifiable90.text=vvar;"
Debug.Print monRs!maRequete
maConnexion.Close
End Sub |
Partager