Discussion :

[judejuda]

bonjour,
je dois crée un programme de gestion d absences d eleve.
j ai ma base de donnée élève avec num_e, debut_abs et fin_abs.
j ai une liste déroulante ou l utilisateur choisi le num_e qu il veux consulter puis un bouton valider.

voici le code du bouton valider et je ne vois pas ou est l erreur.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

'(Modifiable90 est le nom de la liste deroulante )

merci de m aider
cordialement judas

[The_Big_Lebowski]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub btAbs_Click()
Dim maConnexion As New ADODB.Connection
Set maConnexion = CurrentProject.Connection
 
Dim monRs As ADODB.Recordset
Set monRs = New ADODB.Recordset
 
Dim maRequete As String
vvar = InputBox("entrer le num_e")
maRequete = "SELECT * FROM Absences where " & Modifiable90.text & "='" & vvar & "';"
monRs.Open maRequete, maConnexion
 
Do While Not Rs.EOF
Debug.Print monRs(0)
loop
 
maConnexion.Close
 
End Sub

A titre informatif: Il vaut mieux assigner une valeur à 'maRequete' avant de l'utiliser