Débutante - Code VBA pour MsgBox avec actions multiples

Version imprimable

Bonjour,

voici les données de mon problème :
Table "Coordonnéesclients" et formulaire "Clients" avec onglets et
sous-formulaires
Champs et contrôles "Patronyme", "Prénom" , "Numérodevoie"

Je souhaite éviter les doublons involontaires dans la base mais permettre la
création d'homonymes volontaires. J'utilise donc une message box vb
YesNoCancel AVANT mise à jour par
un code évènement sur le contrôle "Prénom" avec 3 actions en fonction du
choix de l'utilisateur :
vbYes : créer homonyme en conservant [Patronyme] et [Prénom] saisis et se placer sur le contrôle suivant "Numérodevoie"
vbNo : ouvrir le formulaire en cours sur l'enregistrement déjà existant pour
ces [Patronyme] et [Prénom]
vbCancel : annuler et effacer les [Patronyme] et [prénom] saisis et se replacer sur le contrôle "Patronyme" dans le formulaire actif

La traduction erronée de tout cela donne le code ci-dessous. Quelqu'un
pourrait-il me proposer une version corrigée de ce code?

Merci beaucoup
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 Private Sub Prénom_BeforeUpdate(Cancel As Integer) 'variable stockant la réponse donnée dans la boite de dialogue Dim intReponse As Integer If Not IsNull(DLookup("Nom", "Coordonnéesduclient", "[Nom] ='" & Me!Nom & "' AND [Prénom]='" & Me.Prénom & "'")) Then intResponse = MsgBox("Ce bénéficiaire semble déjà enregistré. Voulez-vous saisir un HOMONYME ?", vbYesNoCancel + vbCritical + vbDefaultButton3, "Attention !") Select Case intReponse Case vbYes Forms!Coordonnéesduclient!Adresse.SetFocus Case vbNo DoCmd.OpenForm "Coordonnéesduclient", acNormal, , "[Nom] ='" & Me!Nom & "' AND [Prénom]='" & Me.Prénom & "'" Case vbCancel Form.Undo Forms!Coordonnéesduclient!Nom.SetFocus End Select End Sub

22/08/2006, 15h20
Muhad'hib

Salut et bienvenue sur le forum,

Peux tu dire plus précisément quelle erreure génére ton code ?
Sur quelle ligne ?

A+
22/08/2006, 15h59
kisscool35

Erreurs

Bonjour Muhad'hib,
la message box s'affiche comme il faut.
En revanche,
quand on choisit oui, erreur 438 "propriété ou méthode non gérée par cet objet"
quand on choisit non, erreur 2501 "l'action Openform a été annulée"
quand on choisit annuler, erreur 2108 "vous devez enregistrer le champ avant d'éxecuter l'action SetFocus"
Merci pour ton aide
22/08/2006, 16h01
LE VIEUX

est-ce qu'il ne manquerait pas des "undo" quelque part ?

Re,

Avant de changer le focus ou de charger un autre enregistrement on doit terminer la saisie du controle en cours (nous sommes avant MAJ). J'utiliserai plutot l'événement aprés MAJ :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
 
Private Sub Prénom_AfterUpdate()
Dim nom As String
Dim prenom As String
Dim intReponse As Integer
 
If Not IsNull(DLookup("Nom", "Coordonnéesduclient", "[Nom] ='" & Me.nom & "' AND [Prénom]='" & Me.Prénom & "'")) Then
    intReponse = MsgBox("Ce bénéficiaire semble déjà enregistré. Voulez-vous saisir un HOMONYME ?", vbYesNoCancel + vbCritical + vbDefaultButton3, "Attention !")
 
    Select Case intReponse
        Case vbYes
            Me.Numérodevoie.SetFocus
        Case vbNo
            nom = Me.nom
            prenom = Me.prénom
            Me.Undo
            DoCmd.GoToRecord , , acFirst
            Do Until Me.nom = nom And Me.prénom = prenom
                DoCmd.GoToRecord , , acNext
            Loop
 
        Case vbCancel
            Me.Undo
            Me.Prénom = ""
            Me.Patronyme = ""
            Me.nom.SetFocus
    End Select
    intReponse = 0
End If
End Sub

Pas testé puisque je n'ai pas ta base mais bon ...

A+

22/08/2006, 17h43
kisscool35

Merci

Cela fonctionne très bien.
Merci beaucoup et bonne fin de journée