Discussion :

[xdoreau]

Bonsoir,

Je cherche à ouvrir un formulaire à partir d'un sous formulaire : Lorsque qu'un utilisateur saisie un code article (champ texte), si le code n'existe pas dans la base je voudrais ouvrir un formulaire semblable à un msgbox. Hélas j'ai je ne trouve pas la solution.

j'utilise la fonction Dlookup pour vérifier l'existence de code dans la table

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Private Sub CodeArticle_BeforeUpdate(Cancel As Integer)
 
If IsNull(DLookup("[CodeArticle]", "Article", "[CodeArticle]=""" & Me.CodeArticle & """")) Then
 
    DoCmd.OpenForm "Erreur_saisie", acNormal, "", "", , acDialog
 
End If
 
End Sub

Malgré de nombreuses tentatives je ne trouve pas de solution.

Merci de votre aide

[Muhad'hib]

Et tu as une erreur ? sur quelle ligne?

[xdoreau]

non justement je n'ai aucune erreur, et le formulaire ne s'ouvre pas non plus.

[Muhad'hib]

Si tu n'as pas d'erreur et que le formulaire ne s'ouvre pas, j'imagine donc que ta condition n'est pas respecté.

J'executerai donc le code en pas à pas avec un code article que je sais inexistant et j'évaluerai dans la fenètre de débugage l'expression

Code :

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

DLookup("[CodeArticle]", "Article", "[CodeArticle]=""" & Me.CodeArticle & """")

[xdoreau]

Bonsoir,

et merci pour ta réponse. j'ai finalement trouvé mon erreur, qui est en fait un faute dans le nom du champ Code Article de ma table article je n'avais pas mis l'espace ente code et article. Encore une erreur stupide.