Discussion :

[huître]

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:

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

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.

j'aimerai bien savoir si c'est un probleme venant d'access.
merci d'avance

[marot_r]

Probablement c'est parceque champsMQ(Me) est faux.

Tu peux mettre un point d'arret (cliquer dans la marge à gauche de la ligne 2) et exécuter tes instructions pas à pas (Touche [F8]) cela devrait te permettre de comprendre pourquoi tu n'as pas de résultat.

A+