{Access} renseigner nom table et champ en VBA Résolu/Fermé

Question

Bonjour à tous,

Voici ma question :
Pouvez-vous me donner la synthaxe pour renseigner le nom d'un d'une table dans du code VBA.
Je m'explique :
J'ai besoin de vérifier si la valeur rentrée dans une textbox n'existe pas déjà dans une cham d'une table.

Ce serait un truc du genre : 

Private Sub copie_seq_Click()

If Textbox.Value = [Nom_Table]![Nom_Champ] then
      DoCmd.CancelEvent
End If

Je ne connais pas la synthaxe de ce que j'ai mis en gras.

Quelqu'un peut-il m'aider ??

Merci à vous

SliverPopop

blux · Answer

Salut,

ca ne marchera pas, tu ne vas pas tester la valeur du champ avec le contenu de la table, mais tu vas tester si la valeur du champ possède le même nom qu'un champ...

Ce qu'il te faut dans ce cas, c'est utiliser la fonction dlookup. Regarde l'aide à ce sujet et reviens nous voir si tu n'as pas tout compris...

sliverpopop · Answer

Merci de ta réponse, Je regardes ça et je reviens vous voir si ya quelque chose qui coince.

A+

sliverpopop · Answer

J'ai l'impression que cette fonction ne répond pas totalement à mes besoins.
Je souhaiterai que lorsque je clic sur le bouton, il vérifie si la valeur de la textbox n'existe pas dans une de mes tables, et si c'est le cas, il stop l'action engagée par le clic sur le bouton.

Merci de votre aide

blux · Answer

Dans une seule table et un seul champ de cette table ?

sliverpopop · Answer

Oui en effet.

blux · Answer

Un truc comme ça devrait faire l'affaire :

If Not IsNull(DLookup("champ", "table", "champ = '" & textbox.Value & "'")) Then
    MsgBox "trouvé"
End If

sliverpopop · Answer

Salut,

Merci, ça marche parfaitement, maintenant jer souhaiterai annuler l'action commencée par le clic du bouton.
Ce n'est pas DoCmd.CancelEvent, qu'est ce donc alors ??? ^^

SliverPopop

sliverpopop · Answer

La macro 'annuler événement ' ne fonctionne pas non plus...

blux · Answer

C'est quoi qui a déjà été fait ?

sliverpopop · Answer

Voici le code du bouton (pas très long) :

Private Sub copie_seq_Click()

If Not IsNull(DLookup("Part_Number", "Machine", "Part_Number = '" & New_PN.Value & "'")) Then
MsgBox "trouvé"
End If

DoCmd.OpenQuery "Ajout_PN"
DoCmd.OpenQuery "Ajout_PN_mach"
DoCmd.OpenQuery "afficher_seq"
DoCmd.OpenQuery "afficher_seq_mach"
Me.Recalc


End Sub

Je souhaite annuler les 'DoCmd.OpenQuery' si New_PN.value est dans le champ Part_Number de la table Machine.
Aurais-tu une idée ?

blux · Answer

Rien n'a été fait, donc rien n'est à annuler, il faut juste quitter la procédure.
If Not IsNull(DLookup("Part_Number", "Machine", "Part_Number = '" & New_PN.Value & "'")) Then
    Exit sub
End If 
Tout simplement...

sliverpopop · Answer

Oh pinaize bien sur, merci. Problème réglé.

Merci encore.
Je mets ce post en résolu.

A+
SliverPopop

{Access} renseigner nom table et champ en VBA

12 réponses

Discussions similaires