bonsoir
j'ai écris un code qui applique un traitement dès lors que je click sur un bouton dans un formulaire
bouton que j'appelle enregistrer
donc le code est le suivant:
dès que je clique sur le bouton rien ne se passe je n'ai mm pas de message d'erreur c'est comme s'il n'y avait aucun code dans le bouton et je ne comprend absolument pas. pourtant j'ai d'autres bouton qui ont quasiment le mm code et qui fonctionne parfaitement.
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
22
23 Private Sub enregistrer_Click() Dim db As Database Dim rs As Recordset Set db = CurrentDb Set rs = db.OpenRecordset("tuteur") If champsMQ(Me) = True Then If MsgBox(" les champs ne sont pas renseignés voulez vous continuer ?", vbYesNo) = vbNo Then Exit Sub Else MsgBox "Tous les champs ont été saisies, merci...", vbInformation rs.AddNew rs!nom = Me!nom rs!prenom = Me!prenom rs!num_entreprise = Me!num_entreprise rs!telephone = Me!telephone rs!adresse_mail = Me!mail rs.Update rs.Close Call reinitialisation(Me) End If End If Me.Refresh End Sub
j'aimerai bien savoir si c'est un probleme venant d'access.
merci d'avance
Partager