Discussion :

[BCBFIS]

Bonjour à toutes et tous.
Dans une BDD j'ai un formulaire F_Pays permettant d'introduire le nom et le code ISO d'un pays. Afin de ne pas introduire 2x l'une ou l'autre de ces données, je les teste et, si une des 2 figure déjà dans la T_Pays, un formulaire modal s'ouvre avec un message. Toutefois, je ne parviens pas à faire en sorte que le titre du message soit différent selon qu'il s'agit d'un doublon au niveau du nom du pays ou du code ISO. Je souhaiterais dans le premier cas que le message dise: "ATTENTION! - Le nom de ce pays a déjà été enregistré." et dans le second que ce soit: "ATTENTION! - Ce code ISO a déjà été enregistré.". Il faudrait je pense enregistrer une donnée ou code dans le F_Pays avant l'appel du formulaire modal FM_DoublonsPays et transférer cette donnée de F_Pays à FM_DoublonsPays, mais je n'y parviens pas malgré que j'aie parcouru et lu des informations dans ce forum.
Je joins une image des 2 formulaires et la BDD.
Merci d'avance.

[hyperion13]

Salut
Essayez ceci. A améliorer bien entendu.

Code :

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

1
2
3
Private Sub Form_Current()
  Titre = "ATTENTION! - Le pays " & Forms.F_Pays.Pays_Nom.Value & " ou son code ISO " & Forms.F_Pays.Pays_ISO.Value & " figure a déjà été enregistré."
End Sub

[BCBFIS]

Merci Hyperion13 pour votre réponse rapide.
Néanmoins, je pense m'être mal exprimé. Dans le formulaire F_Pays je teste le pays après l'avoir introduit et, en suite, le code ISO. A chaque test, le formulaire modal constituant un message est susceptible de s'ouvrir et j'essayais, suivant que c'est le 1er test ou le 2ème qui enclenche l'erreur, de différencier le message. Pour cela je pense qu'il faut dans chaque test du F_Pays créer une variable et que celle-ci puisse, dans le sous-formulaire afficher l'un ou l'autre message. par exemple: "ATTENTION ! - Ce pays existe déjà." après le test sur le pays et ""ATTENTION ! - Ce code ISO a déjà été attribué." après le test sur le code ISO. Ce que je ne parviens pas à réaliser c'est créer une variable dans le F_Pays qui soit reconnue dans le FM_DoublonsPays et permette d'afficher le message adéquat.
Bonne journée.

[hyperion13]

Essayez ceci. Je n'ai pas testé.

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 Form_Current()
 
If Len(Forms.F_Pays.Pays_Nom.Value & vbNullString) <> 0 And Len(Forms.F_Pays.Pays_ISO.Value & vbNullString) = 0 Then
    Titre = "ATTENTION ! - Le Pays_Nom " & Forms.F_Pays.Pays_Nom.Value & " a déjà été enregistré."
End If
 
If Len(Forms.F_Pays.Pays_Nom.Value & vbNullString) = 0 And Len(Forms.F_Pays.Pays_ISO.Value & vbNullString) <> 0 Then
    Titre = "ATTENTION ! - Le Pays_ISO " & Forms.F_Pays.Pays_ISO.Value & " a déjà été enregistré."
End If
 
If Len(Forms.F_Pays1.Pays_Nom.Value & vbNullString) <> 0 And Len(Forms.F_Pays1.Pays_ISO.Value & vbNullString) <> 0 Then
    Titre = "ATTENTION! - Le pays " & Forms.F_Pays.Pays_Nom.Value & " et son code ISO " & Forms.F_Pays.Pays_ISO.Value & " a déjà été enregistré."
End If
 
End Sub

[BCBFIS]

Merci Hyperion13 pour votre réponse.
Je vais essayer cela. Je suppose que ces lignes doivent se trouver dans le formulaire modal FM_DoublonsPays.
Je vous tiendrez au courant car je dois actuellement m'absenter.

[BCBFIS]

Merci à Hyperion13 pour ton éclairage.
Après consultation de plusieurs articles et de votre réponse, voici ce que j'ai réalisé:

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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
 
Test de doublons dans le formulaire principal F_Pays
'Test de doublon sur code ISO'
Private Sub Pays_ISO_BeforeUpdate(Cancel As Integer)
   If DCount("*", "T_Pays", "Pays_ISO=""" & Me.Pays_ISO & """") <> 0 Then
    Beep
    CléPays = "2"
    DoCmd.OpenForm "FM_DoublonsPays"
  End If
End Sub
 
'Test de doublon sur Pays'
Private Sub Pays_Nom_BeforeUpdate(Cancel As Integer)
  If DCount("*", "T_Pays", "Pays_Nom=""" & Me.Pays_Nom & """") <> 0 Then
    Beep
    CléPays = "1"
    DoCmd.OpenForm "FM_DoublonsPays"
  Else
  End If
End Sub
 
 
Messages du Formulaire modal FM_DoublonsPays
Private Sub Form_Current()
  Titre1 = " ATTENTION ! "
 
 If Forms.F_Pays.CléPays = "1" Then
   Titre2 = "Ce pays existe déjà."
 End If
 
 If Forms.F_Pays.CléPays = "2" Then
    Titre2 = "Ce code ISO a déjà été attribué"
 End If
 
  Titre3 = "Voulez-vous:"
  Titre4 = " - CORRIGER les données introduites ?"
  Titre5 = " - QUITTER sans sauvergarder ?"
Forms.F_Pays.CléPays = ""
End Sub

Cela fonctionne parfaitement.
Bonne journée à toutes et tous. Encore merci.