Discussion :

[Guizbizet]

Bonjour,

Je tente de notifier aux utilisateurs qu'un nom de client (champ texte) qu'ils viennent de saisir existe déjà.

Pour cela j'ai repris un code trouvé sur le forum mais il m'indique une erreur que je ne sais pas corriger

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Nom_AfterUpdate()
Dim mbd As Database, DRech As Recordset
 
Set mbd = CurrentDb()
Set DRech = mbd.OpenRecordset("Select NomClient From Table_CL Where (NomClient= " & Me.Nom & ")")
 
    If Not DRech.EOF Then
        MsgBox "Ce client existe déjà, merci de vérifier. Saisie annulée."
        Me.Nom = 0
        Me.Nom.SetFocus
    End If
End Sub

et l'erreur est la suivante :
Erreur d'exécution 3061
Trop peu de paramètres. 1 attendu

dans le débogage la ligne concernée est

Code :

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

Set DRech = mbd.OpenRecordset("Select NomClient From Table_CL Where (NomClient= " & Me.Nom & ")")

Qu'est-ce qui est oublié ?

Merci

[tonio-lille]

Bonjour,

essaye de remplacer ça

Code :

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

Set DRech = mbd.OpenRecordset("Select NomClient From Table_CL Where (NomClient= " & Me.Nom & ")")

par

Code :

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

Set DRech = mbd.OpenRecordset("Select NomClient From Table_CL Where (NomClient= '" & Me.Nom & "')")

[Tofalu]

Pour éviter les doublons, index les champs de la table sans doublon tout simplement.

Et se baser uniquement sur le nom c'est moyen. Si tu as pris Paul Dupont, tu vas refuser toutes les commandes des autres Dupont de France ?

[Guizbizet]

tu es mon sauveur de ces derniers jours tonio-lille

merci

[Tofalu]

tu es mon sauveur de ces derniers jours tonio-lille

merci

Mouais, tu risque surtout de faire faillite ! Et puis même le couple nom / prénom n'est pas discriminant.

[tonio-lille]

Citation:
Guizbizet a écrit :
tu es mon sauveur de ces derniers jours tonio-lille

merci


Mouais, tu risque surtout de faire faillite ! Et puis même le couple nom / prénom n'est pas discriminant.

Attention je n'ai fait que corriger une erreur de code, il manquait les quotes étant donné que le nom est alphanumérique. je n'ai pas chercher plus loin à savoir si le nom était la clé d'une table et je ne sais pas ce que tu veux faire de ta requete, mais si ton nom est bien la clé de ta table, je te conseille de suivre le conseil de tofalu.

[Guizbizet]

Non la clé de ma table est un Id_Client en NuméroAuto.

Peut on donc modifier le code en ne mettant que un message de notification mais en laissant le choix à l'utilisateur de continuer la saisie ou non ...

je remets le code intégral

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Nom_AfterUpdate()
Dim mbd As Database, DRech As Recordset
 
Set mbd = CurrentDb()
Set DRech = mbd.OpenRecordset("Select NomClient From Table_CL Where (NomClient= '" & Me.Nom & "')")
 
    If Not DRech.EOF Then
        MsgBox "Ce client existe déjà, merci de vérifier. Saisie annulée."
        Me.Nom = Null
        Me.Nom.SetFocus
    End If
End Sub

Est-ce que ça conviendrais

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Nom_AfterUpdate()
Dim mbd As Database, DRech As Recordset
 
Set mbd = CurrentDb()
Set DRech = mbd.OpenRecordset("Select NomClient From Table_CL Where (NomClient= '" & Me.Nom & "')")
 
    If Not DRech.EOF Then
        MsgBox "Ce client existe déjà, merci de vérifier"
    End If
End Sub

J'attends votre avis ...

[tonio-lille]

Je suppose que tu es dans ton formulaire de saisie d'un client.

Dans ce cas tu peux préciser dans ta msgbox, toute les informations relative a client. puis mettre 'Voulez vous effectivement ajouter ce client'

Si vbyes on continue
Si vbno tu arrete

U n truc dans ce style

[Guizbizet]

ok je suis partant pour ça par contre je ne sais pas faire du tout ... alors je veux bien de l'aide

[Tofalu]

Regarde dans l'aide ce que retourne la fonction Msgbox

[Guizbizet]

Bonjour,

Bon j'ai trouvé 2 / 3 trucs mais c'est pas encore ça

Voilà ou j'en suis :

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
Private Sub Nom_AfterUpdate()
Dim mbd As Database, DRech As Recordset
 
Set mbd = CurrentDb()
Set DRech = mbd.OpenRecordset("Select NomClient From Table_CL Where (NomClient= '" & Me.Nom & "')")
 
    If Not DRech.EOF Then
        MsgBox "Ce client existe déjà, merci de vérifier via la recherche ci-dessus." & vbCrLf & vbCrLf & _
        "Voulez-vous continuer la saisie de ce client ?", vbOKCancel
 
        If vbCancel Then DoCmd.CancelEvent
        End If
 
    End If
End Sub

1er problème quand je teste il me dit :

End If sans bloc If

sur le tout dernier End If

Ce que je souhaite :
Si oui on continue
Si cancel on supprime la saisie et on ne sauve pas l'enregistrement
Et là je sèche complètement

merci de voter aide

[tonio-lille]

Bonjour

1er problème quand je teste il me dit :
Citation:

End If sans bloc If

sur le tout dernier End If

Pour ça je ne uis pas sur mais mets ton docmd à la ligne et il n'y a pas de raison que ça marche pas (ou enlève le premier end if)

Si oui on continue

, donc on ne fait rien on continue

Si cancel on supprime la saisie et on ne sauve pas l'enregistrement

Code :

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

DoCmd.Close , , acSaveNo

qui remplace ton docmd_cancelevent

[Guizbizet]

Code :

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

DoCmd.Close , , acSaveNo

qui remplace ton docmd_cancelevent

OK ça marche bien mais si je ne veux pas fermer le formulaire, quel commande dois-je placer ?

[random]

je sais bien que cela n'a rien à voir avec le problème posé mais dans mon fichier clients j'ai plus de 70 occurences où le nombre de doublons sur
nom/prénom est supérieur à 20

et encore je travaille en France, je n'ose imaginer le nombre de doublons sur de tels critères dans les pays comme la Chine où le nombre de patronymes est très réduit

[tonio-lille]

Code :

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

Me.undo

ça devrait faire l'affaire, il y un passage dans la FAQ là dessus

[Guizbizet]

Ok pour Me.undo mais j'ai quand même un souci

Voici le code complet de la fonction :

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
Private Sub Nom_AfterUpdate()
Dim mbd As Database, DRech As Recordset
 
Set mbd = CurrentDb()
Set DRech = mbd.OpenRecordset("Select NomClient From Table_CL Where (NomClient= '" & Me.Nom & "')")
 
    If Not DRech.EOF Then
        MsgBox "Ce client existe déjà, merci de vérifier via la recherche ci-dessus." & vbCrLf & vbCrLf & _
        "Voulez-vous continuer la saisie de ce client ?", vbYesNo
 
        If vbNo Then
        Me.Undo
        End If
 
    End If
End Sub

Le résultat est quoi que je clique : Oui ou Non l'action Me.Undo s'exécute !!!

[Guizbizet]

bon je viens de trouver la solution

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 Nom_AfterUpdate()
Dim mbd As Database, DRech As Recordset
 
Set mbd = CurrentDb()
Set DRech = mbd.OpenRecordset("Select NomClient From Table_CL Where (NomClient= '" & Me.Nom & "')")
 
    If Not DRech.EOF Then
    Dim intReponse As Integer
        intReponse = MsgBox("Ce client existe déjà, merci de vérifier via la recherche ci-dessus." & vbCrLf & vbCrLf & _
        "Voulez-vous continuer la saisie de ce client ?", vbYesNo)
 
        If intReponse = vbNo Then
        Me.Undo
        End If
 
    End If
End Sub

Merci de votre aide tous