Discussion :

[BCBFIS]

Bonjour à tous.
Dans une BDD j'ai un formulaire F_Pays qui permet d'enregistrer de nouveaux pays et un formulaire F_Contr_Pays qui devrait afficher un message permettant de choisir une action ou l'autre lorsque soit le pays ou le code ISO du pays figure déjà dans la table T_Pays.
J'utilise DCount pour essayer de parvenir à l'ouverture du formulaire F_Contr_Pays qui est un message personnalisé avec 2 boutons que je dois encore régler, mais mon instruction DCount ne réagit pas. Je ne vois pas l'erreur que j'ai commise dans ce DCount.
Je joins la BDD.
Merci d'avance pour votre éclaireage.

[hyperion13]

Salut
Il manque un DCount() dans le test logique après Or !

Code :

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

1
2
3
4
5
6
7
'Doublon sur le pays'
Private Sub Pays_EEE_Click()
 
If DCount("*", "T_Pays", "Pays_Nom = """ & Me.Pays_Nom & """") <> 0 Or DCount("*", "T_Pays", "Pays_ISO = """ & Me.Pays_ISO & """") <> 0 Then
    DoCmd.OpenForm "F_Contr_Pays", , , , , acDialog
End If
End Sub

De vous à moi, je ne comprends pas trop l'idée de cliquer sur Pays_EEE,pour vérifier que la valeur que vous venez de saisir dans Pays_Nom,ou dans Pays_ISO,soit membre de l'EEE.
Je placerai plus tôt l'évènement sur le BeforeUpdate() des 2 textboxes Pays_Nom,et Pays_ISO,

Code :

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

1
2
3
4
5
Private Sub Pays_Nom_BeforeUpdate(Cancel As Integer)
If DCount("*", "T_Pays", "Pays_Nom = """ & Me.Pays_Nom & """") <> 0 Then
    DoCmd.OpenForm "F_Contr_Pays", , , , , acDialog
End If
End Sub

Code :

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

1
2
3
4
5
Private Sub Pays_ISO_BeforeUpdate(Cancel As Integer)
If DCount("*", "T_Pays", "Pays_ISO = """ & Me.Pays_ISO & """") <> 0 Then
    DoCmd.OpenForm "F_Contr_Pays", , , , , acDialog
End If
End Sub

Et le F_Pays,ne serait pas rattaché à T_Pays.

[BCBFIS]

Merci Hyperion13.
J'ignorais qu'il fallait répéter le DCount et je ne l'avais pas remarqué ni dans ma ligne de code, ni dans les infos que j'avais glanées sur "Developpez.net" ou autres.
Bonne journée à vous.