Discussion :

[alban14]

Bonjour,

J'ai actuellement un formulaire qui me permet d'ajouter ou de modifier un local dans un bâtiment. Le bâtiment sera sélectionné via des boutons "flèches" pour passer d'un bâtiment à un autre. Puis dessous cette zone de texte qui affiche le bâtiment dans lequel on se situ, j'ai mon sous-formulaire qui m'indique tous les locaux du bâtiments à la ligne. Avec la surface du local, s'il est tertiaire ou industriel, le nombre de personnes dans ce local etc etc.
Ci besoin, je peux modifier ces données dans le sous-formulaire, ou alors à la fin de ce formulaire ajouter un nouveau local.
Néanmoins, je ne dois pas pouvoir ajouter un local déjà existant dans le même bâtiment, avec le même nom de local. C'est pour ça que je souhaiterai pouvoir afficher un message d'erreur lorsqu'on rentre un nom de local déjà existant dans ce bâtiment, ou sinon si ce n'est pas le cas, qu'il me demande la confirmation de l'ajout de ce local.

J'ai cherché sur le net, et la fonction qui est souvent retomber est la suivante : DlookUp

Je me doute que le code à mettre sera sur le champ du local dans le sous formulaire, dans l'onglet Evénnement. Mais je ne vois pas quoi mettre, j'ai essayé quelques codes mais sans réussite.

Je vous remercie de votre attention.
Cordialement

[marot_r]

Bonjour.

La première étape à faire c'est de mettre un index unique sur le nom du bâtiment dans la table pour garantir que jamais tu n'auras 2 bâtiments avec le même nom.
Après si tu essayes la BD te le dit et refuse l'ajout.

Pour la partie préventive, la recherche préliminaire.

Tu peux mettre dans l'événement AvantMAJ du champ NomBatiment un truc du genre :

Code :

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

1
2
3
4
5
6
7
8
if not isnull(dfirst("NomBatiment", "TaTable", "[NomBatiment]=""" & me.NomBatiment & """")) then
    msgbox "Il y a déjà un bâtiment"
    cancel=True 'Annule la modification
 else
    if vbNo=msgbox("Voullez-vous ajouter le bâtiment", vbYesNo+VBQuestion+VbDefaultButton2) then
        cancel=True
    end if
end if

A+

[alban14]

Je vous remercie ! Cela fonctionne très bien, comme je l'attendais !

Cordialement
Alban

[marot_r]

Bonjour.

N'oublie pas la création de l'index il n'est pas bon de se reposer sur du code pour ce genre de sécurité.

A+

[alban14]

Re bonjour,

Je reviens vers vous, car j'ai remarqué que mon code ne permet finalement pas de résoudre ce que je voulais au début. Je m'explique :



Sur le formulaire ci-dessus, comme expliqué précédemment, je passe d'un bâtiment à l'autre avec les boutons flèches en bas. Ce que je souhaite donc faire ici, c'est une modification des locaux dans un bâtiment.
Avec le code qui a été envoyé plus haut, cela me permet d'afficher un message d'erreur lorsque le local existe déjà afin de ne pas avoir deux fois le même local. Néanmoins, cela m'affiche une erreur uniquement lorsque le local est existant sur la table utilisée pour ce formulaire, en l'occurrence tous les locaux de tous les bâtiments.
Tendis que je souhaite qu'il m'affiche une erreur que lorsque je modifie un numéro de local déjà existant dans le bâtiment sélectionné via les flèches en bas et d'où le nom est affiché en haut.
Voici donc le code que j'utilise :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub Gisement_batiment_BeforeUpdate(Cancel As Integer)
If Not IsNull(DFirst("Gisement_batiment", "T_Detail_batiment", "[Gisement_batiment]=""" & Me.Gisement_batiment & """")) Then
    MsgBox "Il y a déjà ce gisement dans le bâtiment"
    Cancel = True 'Annule la modification
 Else
    If MsgBox("Voulez-vous confirmer la modification", vbQuestion + vbYesNo, "CONFIRMATION") = vbNo Then
        Me.Undo
        Cancel = True
    End If
End If
End Sub

Ici "Gisement_batiment" correspond à la variable du local du bâtiment, "T_Detail_batiment" est la table où est recensé tous les locaux de tous les bâtiments.
Je ne vois donc pas quoi modifier pour qu'il ne recherche pas tous les locaux de la base pour savoir s'il y a un doublon, mais uniquement chercher les locaux du bâtiment sélectionné.

Je vous remercie de votre attention.
Cordialement

[User]

Bonsoir,

Dans votre fonction test il me semble qu'il manque la condition sur le bâtiment comme la proposé Marot :

donc il faudrait identifier le nom de la zone de texte affichant le nom du bâtiment dans votre formulaire principal, puis tenter quelque chose comme :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub Gisement_batiment_BeforeUpdate(Cancel As Integer)
If Not IsNull(DFirst("Gisement_batiment", "T_Detail_batiment", "[Gisement_batiment]=""" & Me.Gisement_batiment & """ and [NomBatiment]=""" & Forms!F_Principal!NomBatiment & """")) Then
    MsgBox "Il y a déjà ce gisement dans le bâtiment"
    Cancel = True 'Annule la modification
 Else
    If MsgBox("Voulez-vous confirmer la modification", vbQuestion + vbYesNo, "CONFIRMATION") = vbNo Then
        Me.Undo
        Cancel = True
    End If
End If
End Sub

Je suppose que votre formulaire principal se nomme F_Principal et que la zone de texte affichant le nom du bâtiment NomBatiment.

Mais ceci implique que le champ NomBatiment soit dans la table T_Detail_batiment, ce qui serait étonnant, donc, vous devrez probablement utiliser une requête à la place de la table dans la fonction DFirst.

Cdlt,

[alban14]

Bonjour,

Cette fois ci, tout fonctionne comme il le faut. Je vous remercie !

Cordialement