je réalise une gestion d'absence vb access mais le boton ajouter qui ajoute dans la table absence me donne le msg suivant:
erreur d'execution '424':
un objet est requit
voici le code:
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
20
21
chj1 = Trim(liste5.text)
reqaj = "insert into absencea (ref_option) values(" & chj1 & ")"
chj2 = Trim(liste6.text)
reqaj2 = "insert into absencea (semestre) values(" & chj2 & ")"
chj3 = Trim(liste4.text)
reqaj3 = "insert into absencea (nom_element) values(" & chj3 & ")"
chj4 = Trim(liste5.text)
reqaj4 = "insert into absencea (ref_option) values(" & chj4 & ")"
 
While Not (rs.EOF)
  List5.text = rs!ref_option
  list6.text = rs!semestre
 List3.text = rs!cne
 List4.text = rs!nom_element
List2.text = rs!séance
Option1.Caption = rs![absence_justifier]
Option2.Caption = rs![absence_justifier]
text.Value = rs![date_absence]
Combo1.text = rs![observation]
Wend
rs.Close
aider moi