Champ automatique avec access
Marc
-
Jean_Jacques Messages postés 1040 Date d'inscription Statut Membre Dernière intervention -
Jean_Jacques Messages postés 1040 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
J’ai une base "Produits" avec les champs suivants , code , référence , designation
J’ai une autre base "commande" qui reprend ces champs dans un formulaire,
ce que je voudrais c’est quand saisissant dans le champ code les champs référence
et désignation se remplissent automatiquement
Merci pour votre aide
Marc
J’ai une base "Produits" avec les champs suivants , code , référence , designation
J’ai une autre base "commande" qui reprend ces champs dans un formulaire,
ce que je voudrais c’est quand saisissant dans le champ code les champs référence
et désignation se remplissent automatiquement
Merci pour votre aide
Marc
A voir également:
- Champ automatique avec access
- Réponse automatique thunderbird - Guide
- Recherche automatique des chaînes ne fonctionne pas - Guide
- Logiciel de sauvegarde automatique gratuit - Guide
- Réponse automatique gmail - Guide
- Sommaire automatique word - Guide
4 réponses
il te suffit de creer une requete basé sur ta table et dans les critere de ta table tu met: [quel n° voulez vous voir?]
voila
voila
Bonjour Marc,
Voici un évènement (sur clic, par exemple) qui produit l'effet recherché.
Il fonctionne dans une de mes bases ACCESS. A tester donc ....
With CodeContextObject
DoCmd.GoToControl "[<Code>]"
DoCmd.FindRecord <Code>, , True, , True
If <Code> <> <Code> Then
MsgBox "Ce code est inconnu : " & Me!<Code>
Me!<Code> = ""
End If
End With
Cordialement
Voici un évènement (sur clic, par exemple) qui produit l'effet recherché.
Il fonctionne dans une de mes bases ACCESS. A tester donc ....
With CodeContextObject
DoCmd.GoToControl "[<Code>]"
DoCmd.FindRecord <Code>, , True, , True
If <Code> <> <Code> Then
MsgBox "Ce code est inconnu : " & Me!<Code>
Me!<Code> = ""
End If
End With
Cordialement
Bonjour Marc,
Toutes mes excuses.
En me relisant, je constate que j'ai mal transcrit l'événément. Voici un copier/coller de celui qui fonctionne chez moi.
Private Sub Saisie_de_la_Recherche_AfterUpdate()
With CodeContextObject
DoCmd.GoToControl "[Référence]"
DoCmd.FindRecord Saisie_de_la_Recherche, , True, , True '
If Référence <> Saisie_de_la_Recherche Then
MsgBox "Ce code est inconnu : " & Me!Saisie_de_la_Recherche
Me!Saisie_de_la_Recherche = ""
End If
End With
End Sub
Bonne journée
Toutes mes excuses.
En me relisant, je constate que j'ai mal transcrit l'événément. Voici un copier/coller de celui qui fonctionne chez moi.
Private Sub Saisie_de_la_Recherche_AfterUpdate()
With CodeContextObject
DoCmd.GoToControl "[Référence]"
DoCmd.FindRecord Saisie_de_la_Recherche, , True, , True '
If Référence <> Saisie_de_la_Recherche Then
MsgBox "Ce code est inconnu : " & Me!Saisie_de_la_Recherche
Me!Saisie_de_la_Recherche = ""
End If
End With
End Sub
Bonne journée
Bonjour Marc,
Je propose ce qui suit :
Dans le fichier ci-joint, regardez dans le formulaire : F_Recherche_sur_Référence
cette solution me semble nettement plus simple ...
http://www.cijoint.fr/cjlink.php?file=cj200908/cijO8cdXuv.zip
Sinon, si vous souhaitez tout de même me faire suivre votre travail, il suffit de le compacter, le déposer sur le site Ci-joint.com et de me communiquer ici l'adresse qui vous sera fournie au moment de votre dépôt sur ce site.
Bonne journée
Je propose ce qui suit :
Dans le fichier ci-joint, regardez dans le formulaire : F_Recherche_sur_Référence
cette solution me semble nettement plus simple ...
http://www.cijoint.fr/cjlink.php?file=cj200908/cijO8cdXuv.zip
Sinon, si vous souhaitez tout de même me faire suivre votre travail, il suffit de le compacter, le déposer sur le site Ci-joint.com et de me communiquer ici l'adresse qui vous sera fournie au moment de votre dépôt sur ce site.
Bonne journée
Marci de m'avoir répondu , mais le lien ne fonctionne pas
fichier inaccessible
Merci Marc
fichier inaccessible
Merci Marc
Marc,
En effet, je confirme l'incident : fichier inaccessible
Merci de renouveler en ajoutant le dernier caractère de la chaîne d'adresse (p) qui manque ....
Je constate que, pour une raison qui m'échappe, le "p" du mot zip échappe au clic sur lien ....
Je viens de vérifier. Ainsi modifié, le lien est efficace
- NB : Dans mon bricolo les codes bidons sont : ZORROA; ZORROB; etc
Cordialement
En effet, je confirme l'incident : fichier inaccessible
Merci de renouveler en ajoutant le dernier caractère de la chaîne d'adresse (p) qui manque ....
Je constate que, pour une raison qui m'échappe, le "p" du mot zip échappe au clic sur lien ....
Je viens de vérifier. Ainsi modifié, le lien est efficace
- NB : Dans mon bricolo les codes bidons sont : ZORROA; ZORROB; etc
Cordialement
Bonsoir Marc,
En activant le formulaire F_commandes et en vous positionnant (ce n'est qu'un exemple) sur l'enregistrement N° 8, vous actionnez le bouton "Ouvrir" et les enregistrements enregistrements 1; 7; 8. C'est à dire les 3 occurrences qui
ont "Client 1" pour argument sont listés.
http://www.cijoint.fr/cjlink.php?file=cj200908/cijSkH3fFz.zip
Bonne continuation
A+
En activant le formulaire F_commandes et en vous positionnant (ce n'est qu'un exemple) sur l'enregistrement N° 8, vous actionnez le bouton "Ouvrir" et les enregistrements enregistrements 1; 7; 8. C'est à dire les 3 occurrences qui
ont "Client 1" pour argument sont listés.
http://www.cijoint.fr/cjlink.php?file=cj200908/cijSkH3fFz.zip
Bonne continuation
A+