[AC-2007] MsgBox Saisie Doublons dans formulaire [Résolu]

[borisp]

Bonjour,

J'ai une table avec un numéro affecté à chaque véhicule alimenté par un formulaire qui ajoute les nouveaux véhicules.

Pour éviter les doublons et rendre la saisie le plus simple possible, je souhaite faire apparaitre un message box (type : Numéro déjà utilisé) dès la saisie dans le champ [numéro] de mon formulaire, ou sur mon bouton "Enregistrer".

Le champ de ma table est bien indéxé : "Oui - Sans doublons" mais le message d'erreur de saisie n'apparait que si je quitte mon formulaire (Si j'enregiste, ca fait comme si c'était enregistré sauf que ca n'écrit pas dans la table donc l'utilisateur n'est pas averti).

Merci Beaucoup pour votre aide.

[marot_r]

Je pense qu'en mettant ceci dans le code associé à l'événement Après MAJ (ou avant MAJ, fait un test) de ton champ :

Code :

1
2
3
4
 
if dcount("[Numero]","[Numero]=" & me.numero) <>0 then
   msgbox "Doublon !"
end if

A+

[borisp]

Envoyé par marot_r

Code :

Merci pour la réponse.

Le code ne marche pas chez moi, ne faut-il pas mettre le nom de ma table quelque part? J'ai essayé comme ca ne marche pas non plus :

Code :

1
2
3
4
 
if dcount("[NomDeMaTable]","[Numero]=" & me.numero) <>0 then
   msgbox "Doublon !"
end if

A priori ce serait bien sur AfterUpdate.

Merci pour l'aide!

[Dolphy35]

Bonjour,

Oui il faut bien spécifier la table.

Code :

DCount("NomChamp", "NomTable", "Critère=")

si le critères est une chaîne de caractères l’encapsuler avec des quotes ( ' )

Dolphy

[borisp]

Cela marche bien mais maintenant il me sort des doublons dès que je rentre un numéro, même absent de ma table ...

J'ai utilisé ce code :

Code :

1
2
3
4
5
6
Private Sub NUMERO_PARC_AfterUpdate()
If DCount("[NUMERO_PARC]", "PARC_MATERIEL", [NUMERO_PARC] = Me.form_numero_parc) <> 0 Then
   MsgBox "Ce Numéro de Parc est déjà utilisé!"
   Me.form_numero_parc = Null
End If
End Sub

[PARC MATERIEL] = Table
[NUMERO PARC] = Champ de ma table
form_numero_parc = Champ de formulaire


Merci de vos réponses, désolé ca fait un peu plus de deux semaines que je suis sur access en ayant appris sur le tas...

[Dolphy35]

re,

Code :

1
2
3
4
5
6
Private Sub NUMERO_PARC_AfterUpdate()
If DCount("[NUMERO_PARC]", "PARC_MATERIEL", "[NUMERO_PARC]=" & Me.form_numero_parc) <> 0 Then
   MsgBox "Ce Numéro de Parc est déjà utilisé!"
   Me.form_numero_parc = Null
End If
End Sub

Dans mon exemple le filtre est également entre guillemets.

Dolphy

[borisp]

Oups!

Mais Maintenant j'ai l'erreur 3464 : " Type de données incompatible dans l'expression du critère "

[Dolphy35]

La valeur est de quelle type ?
Numérique - chaîne de caractères ??

Dolphy

[borisp]

Le type de donnés dans la table c'est du Texte mais il peut y avoir des chiffres, des chiffres et des lettres. Ex: 150 et AB-200

[Dolphy35]

Donc je reprends ma citation du premier post

Envoyé par Dolphy35

si le critères est une chaîne de caractères l’encapsuler avec des quotes ( ' )

Code :

1
2
3
4
5
6
Private Sub NUMERO_PARC_AfterUpdate()
If DCount("[NUMERO_PARC]", "PARC_MATERIEL", "[NUMERO_PARC]='" & Me.form_numero_parc & "'") <> 0 Then
   MsgBox "Ce Numéro de Parc est déjà utilisé!"
   Me.form_numero_parc = Null
End If
End Sub

Dolphy

[borisp]

Merci mille fois Dolphy!

[Dolphy35]

Envoyé par borisp

Merci mille fois Dolphy!

Il faut prendre par habitude lorsque c'est une chaine de caractères il faut encapsuler de quotes ( ' ), si c'est du numérique de pas en mettre. Quand savoir si en mettre ou non : en fonction du type de champ dans la table.

Sinon l'aide Access depuis la version 2007 propose une aide VBA très fournie, j'y vais régulièrement

Dolphy

[borisp]

Ok, merci du conseil!

Et est-ce possible de complexifier en mettant un deuxième critère qui par exemple autoriserait les doublons si saisie sur deux années différentes?

du type :

Code :

1
2
3
4
5
6
Private Sub NUMERO_PARC_AfterUpdate()
If DCount("[NUMERO_PARC]", "PARC_MATERIEL", "[NUMERO_PARC]='" & Me.form_numero_parc & "'", "[ANNEE]=" & Me.form_annee) <> 0 Then
   MsgBox "Ce Numéro de Parc est déjà utilisé pour cette année!"
   Me.form_numero_parc = Null
End If
End Sub

[Dolphy35]

Oui, c'est possible. Par contre tu ne peux avoir qu'une chaîne de critère, il faut penser comme en SQL, tu ajoute un AND dans ta chaîne.

Code :

1
2
3
4
5
6
Private Sub NUMERO_PARC_AfterUpdate()
If DCount("[NUMERO_PARC]", "PARC_MATERIEL", "[NUMERO_PARC]='" & Me.form_numero_parc & "' AND [ANNEE]=" & Me.form_annee) <> 0 Then
   MsgBox "Ce Numéro de Parc est déjà utilisé pour cette année!"
   Me.form_numero_parc = Null
End If
End Sub

Dolphy

[borisp]

Alors là je dis bravo! Et Merci!

[Dolphy35]

Envoyé par borisp

Alors là je dis bravo! Et Merci!

[borisp]

Je reviens sur ce sujet car j'essaye de mettre une date en critère et j'obtiens sans cesse une erreur de syntaxe. J'ai cherché et je crois qu'il faut des # mais je n'arrive pas à bien les placer...

Mon code à l'heure actuelle :

Code :

If DCount("[Stagiaire]", "COUTS_REELS", "[Stagiaire]='" & Me.Stagiaire & "' AND [NUMERO_DOSSIER]=" & Me.lst_numero_dossier AND [DATE_ENVOI_DOSSIER] = # ' " Me.DATE_ENVOI_DOSSIER " ' #)

Merci pour votre aide

[marot_r]

Code :

If DCount("[Stagiaire]", "COUTS_REELS", "[Stagiaire]='" & Me.Stagiaire & "' AND [NUMERO_DOSSIER]=" & Me.lst_numero_dossier AND [DATE_ENVOI_DOSSIER] = #" & format(Me.DATE_ENVOI_DOSSIER,"yyyy-mm-dd") & "#")

A+

[borisp]

Merci mais avec ce code j'ai l'erreur de compilation : Attendu : Expression...

[marot_r]

Code :

If DCount("[Stagiaire]", "COUTS_REELS", "[Stagiaire]='" & Me.Stagiaire & "' AND [NUMERO_DOSSIER]=" & Me.lst_numero_dossier & " AND [DATE_ENVOI_DOSSIER] = #" & format(Me.DATE_ENVOI_DOSSIER,"yyyy-mm-dd") & "#")

Désolé j'avais manqué un & et un ".

A+