*Bonjour,*
Ma question est :
Dans un champs déroulant qui contient les données d'une table ( 4 champs maxi )
Copier un enregistrement vers une autre table
puis se déplacer vers l'enregistrement suivant (dans champs déroulant)
*Merci d'avance*
*Bonjour,*
Ma question est :
Dans un champs déroulant qui contient les données d'une table ( 4 champs maxi )
Copier un enregistrement vers une autre table
puis se déplacer vers l'enregistrement suivant (dans champs déroulant)
*Merci d'avance*
J'avoue que là
Tu parles d'un formulaire contenant une liste déroulante.
Tu sélectionnes une valeur dans la liste et alors que se passe-t-il ?
Tu veux atteindre l'enregistrement suivant, c'est à dire .... ?
Sans plus de détails nous ne pourrons pas t'aider
Tu parles d'un formulaire contenant une liste déroulante.
La valeur de cette liste est copié dans la table qui reçoit l'information.Envoyé par Jeannot45
Après avoir copié l'enregistrement dans la table qui reçoit l'info on se déplace a la ligne suivante du menu déroulantEnvoyé par Jeannot45
je vous remercie d'avance
Tu peux déclencher une requête Ajout dans la table qui doit recevoir l'info sélectionnée.Envoyé par christian ler
J'ai placé cette procédure sur un bouton :Envoyé par christian ler
A adapter
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11 Private Sub btnRecupSelection_Click() ' Déclare la variable Dim intData As Integer ' Récupére la nouvelle valeur à sélectionner intData = Me.lstGenre.ListIndex + 1 ' Déselctionne la valeur en cours Me.lstGenre.Selected(intData - 1) = False ' Sélectionne la nouvelle valeur Me.lstGenre.Selected(intData) = True End Sub
Bonne continuation
Bonjour
j'ai inscrit cette procédure sur un bouton mais un message d'erreur apparait
erreur de compilation lors de l'excution de cette ligne :
Code : Sélectionner tout - Visualiser dans une fenêtre à part Me.T165NumLieuStock.Selected(intData - 1) = False
La valeur T165NumLieuStock : nom de la liste modifiable
La valeur T140Codification : nom du champs à copier coller
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14 ' Déclare la variable Dim intData As Integer VNumLieuStockage = Me!T165NumLieuStock DoCmd.GoToRecord , , acNewRec Me!T165NumLieuStock = VNumLieuStockage ' Récupére la nouvelle valeur à sélectionner intData = Me.T165NumLieuStock.ListIndex + 1 ' Déselctionne la valeur en cours Me.T165NumLieuStock.Selected(intData - 1) = False ' Sélectionne la nouvelle valeur Me.T140Codification.Selected(intData) = True
merci d'avance
Bonjour
ajout des balises de codes ???
merci
Cela n'a rien à voir avec ton problème. Il s'agit de la bonne utilisation du site. Lorsque tu insères des lignes de codes dans ton mesage, il faut que tu les sélectionnes et que tu cliques sur l'outil # qui se trouve dans la barre d'outils.ajout des balises de codes ???
Attention, ce code concerne une Zone de Liste et non une liste déroulante
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager