Discussion :

[lucas-18]

Bonjour,

J'ai un sous-formulaire lié à mon formulaire principale par le champ "Customernumber" qui contient une liste déroulante avec plusieurs valeurs.
J'aimerais qu'une de ces valeurs ne puissent être seléctionnées qu'une seule fois dans le jeu d'enregistrement par "Customernumber".

Comment m'y prendre ?

[mout1234]

Bonjour,

Peut être un index unique sur la table fille pourrait convenir, non?


Sinon, il te faudra sans doute traiter ce contrôle sur Avant MAJ de l'enregistrement dans le sous formulaire. Il te faudra alors rechercher si la valeur existe déjà pour le CustomerNumber en cours et dans ce cas afficher un message et refuser cette modification (cancel = true).

[lucas-18]

Bonjour,

Peut être un index unique sur la table fille pourrait convenir, non?


Sinon, il te faudra sans doute traiter ce contrôle sur Avant MAJ de l'enregistrement dans le sous formulaire. Il te faudra alors rechercher si la valeur existe déjà pour le CustomerNumber en cours et dans ce cas afficher un message et refuser cette modification (cancel = true).

Merci pour ta réponse, mais justement je n'arrive pas à écrire le code ...

[mout1234]

Merci pour ta réponse, mais justement je n'arrive pas à écrire le code ...

Montre ton code pour voir ce qui ne va pas

[lucas-18]

Montre ce que ton code pour voir ce qui ne va pas

Je t'ai dit que je n'y étais pas arrivé , j'ai pourtant cherché mais rien trouvé à ce sujet

[mout1234]

Comme je l'évoquais précédement:

Sinon, il te faudra sans doute traiter ce contrôle sur Avant MAJ de l'enregistrement dans le sous formulaire. Il te faudra alors rechercher si la valeur existe déjà pour le CustomerNumber en cours et dans ce cas afficher un message et refuser cette modification (cancel = true).

EN clair, qq chose du genre (plusieurs syntaxes possibles)

Code :

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

1
2
3
4
IF Dcount("*","MaTable","CustomerNumber=" Me!CustomerNumber & " AND MonChamp = " & Me!MalisteDéroulante ) > 0 then
  Msgbox "existe déjà ..."
  cancel = true
end if

Il restera un souci: celui d'exclure du DCount l'enregistrement en cours, dans le cas où l'utilisateur a modifié autre chose que la valeur de la liste déroulante...

[lucas-18]

J'ai un message d'erreur de compilation :

Code :

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

1
2
3
4
5
6
Private Sub Form_BeforeUpdate(Cancel As Integer)
IF Dcount("*","tbl_inforcementcancellation","CustomerNumber=" Me!CustomerNumber & " AND Take = " & Me!Take) > 0 then
  MsgBox "existe déjà ..."
  Cancel = True
End If
End Sub

[mout1234]

Manque un &

Code :

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

IF Dcount("*","tbl_inforcementcancellation","CustomerNumber=" & Me!CustomerNumber & " AND Take = " & Me!Take) > 0 then

[lucas-18]

Manque un &

Code :

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

IF Dcount("*","tbl_inforcementcancellation","CustomerNumber=" & Me!CustomerNumber & " AND Take = " & Me!Take) > 0 then

Ca ne marche pas

[mout1234]

Désolé, je ne suis pas doué en dévinettes ...

Ca ne marche pas

C'est un peu vague!
Y-a-t-il un message d'erreur?

[lucas-18]

Désolé, je ne suis pas doué en dévinettes ...



C'est un peu vague!
Y-a-t-il un message d'erreur?

Le message est le suivant :

Run-Time error '2001':

You canceled the previous operation

End Debug

[lucas-18]

J'ai mis une partie de ma base en annexe ; quelqu'un pourrait y jeter un coup d'oeil

PS : il s'agit du sous-formulaire "frm_ inforcementcancellation" et du champ "Cause"
De plus j'ai supprimé le code qui ne marchait pas sur l'évènement BeforeUpdate de mon champ "Cause"

http://www.flyupload.com/?fid=2575819

OU

http://www.flyupload.com/?fid=2575819

Merci de votre aide svp

[mout1234]

Je n'ai pas accès à ta base pour le moment (accès web restreint) mais vu ton message, je suppose que tu avais un autre bout de code (genre sur Aprés MAJ...) qui rentrait en conflit avec ton avant MAJ de ta liste déroulante...

Essaies de faire ce traitement - comme je l'avais proposé je crois - sur Avant MAJ du sous formulaire.

[lucas-18]

Je n'ai pas accès à ta base pour le moment (accès web restreint) mais vu ton message, je suppose que tu avais un autre bout de code (genre sur Aprés MAJ...) qui rentrait en conflit avec ton avant MAJ de ta liste déroulante...

Essaies de faire ce traitement - comme je l'avais proposé je crois - sur Avant MAJ du sous formulaire.

Je n'ai pas d'évènement beforeupdate sur ma listbox mais ongetfocus ...

Tu peux essayer via ces liens si tu arrives à dwl la base :

http://www.sendspace.com/file/eijho6
OU
http://www.sendspace.com/file/5fz6b9

[DomD.]

Bonjour,

Peut être un index unique sur la table fille pourrait convenir, non?

Bjr,

J'ai un peu le même problème. J'ai un sous formulaire (en mode Formulaire unique) dans un formulaire, et je souhaite que l'on ne puisse pas faire 2 enregistrements (fiches) différents dans le sous formulaire, pour le même formulaire.
La propriété "sans doublon" pour le champs fils est une solution, mais l'on a alors une erreur en fin de saisie dans le sous formulaire, et en plus il n'est pas évident pour l'utilisateur de se sortir de cette erreur (car seulement via échap).
Voyez vous une solution ?
Merci.

DD