Discussion :

[maxdwarf]

bonjour,
je souhaite après avoir entré des données sur un formulaire, vérifier si elles n'existent pas déjà...

je dispose d'une table "Société", avec un champs "SOCIETES", et mon formulaire dispose d'une zone de saisie "Me.SOCIETE" et après sortie de ce contrôle, je veux tester les doublons, si il y en a j'affiche un message:

Code :

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

1
2
3
4
Private Sub SOCIETES_Exit(Cancel As Integer)
    If Me.Societe = Société!SOCIETES Then
        MsgBox "Il existe déjà une société enregistrée sous " & Me.SOCIETES & " !", vbOKOnly + vbExclamation + nvbSystemModal, "Risque de doublons !"
    End If

mon exécution plante dés que je sort du contrôle avec le code erreur :

erreur d'exécution '424' objet requis

le code c'est pas mon fort, me serais-je planté dessus?

[stéphane_ais2]

Bonjour,

Pour tester l'existence de données avant saisie, je te conseille de regarder du côté de la Fonction DLookup...

SE

[maxdwarf]

stéphane_ais2 a dit :

je te conseille de regarder du côté de la Fonction DLookup...

je ne comprend pas bien comment elle s'utilise dans ce cas là..pourrais-tu appronfondir?

[jujusoso]

essaie un point plutot que le !

If Me.Societe = Société.SOCIETES Then

enfin c pas certain

[maxdwarf]

ce n'est pas mieux...
jujusoso, sais-tu comment fonctionne DLookup

[stéphane_ais2]

Code :

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

DLookup("NomChamp", "NomTable", "NomChamp = '" & Me.NomContrôle & "'")

Ce code extrait la valeur d'un champ dans une table avec l'argument selon lequel la valeur du champ est égale à la valeur d'un contrôle...

SE

[maxdwarf]

j'utilise ce code et ça marche quasi-nickel :
----> au bout de trois ou quatre recherche il me renvoi au debug...

mais à part ce petit détail, je te remercie ainsi que toute l'équipe de ce forum.

Code :

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

1
2
3
If Me.soc = DLookup("SOCIETES", "Société", "[SOCIETES] = '" & Me.soc & "'") Then
        MsgBox "Il existe déjà une société enregistrée sous " & Me.soc & " !", vbOKOnly + vbExclamation + nvbSystemModal, "Risque de doublons !"
    End If