Enregistrement d'une table et écriture dans une autre

*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*

:salut:

J'avoue que là :koi:

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.

Citation:

---

Envoyé par Jeannot45

Tu sélectionnes une valeur dans la liste et alors que se passe-t-il ?

---

La valeur de cette liste est copié dans la table qui reçoit l'information.

Citation:

---

Envoyé par Jeannot45

Tu veux atteindre l'enregistrement suivant, c'est à dire .... ?

---

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éroulant


je vous remercie d'avance

:salut:

Citation:

---

Envoyé par christian ler

La valeur de cette liste est copié dans la table qui reçoit l'information.

---

Tu peux déclencher une requête Ajout dans la table qui doit recevoir l'info sélectionnée.

Citation:

---

Envoyé par christian ler

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éroulant

---

J'ai placé cette procédure sur un bouton :

Code:

---

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

---

A adapter

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:

---

Me.T165NumLieuStock.Selected(intData - 1) = False

---

La valeur T165NumLieuStock : nom de la liste modifiable
La valeur T140Codification : nom du champs à copier coller

Code:

---

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

:salut:

Citation:

---

ajout des balises de codes ???

---

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.

Attention, ce code concerne une Zone de Liste et non une liste déroulante