insertion dynamique en vba

Bonjour tt le monde ,

je voulais savoir comment faire pour faire une insertion dynamique à partir d'un identifant sans le saisir prealablement du style

Code:

---

INSERT INTO MYTABLE (chp1, chp2, chp3) values(8, "prenom", "nom")

---

j'ai pensé plutôt faire txtNum.value à la place de 8 qui est le champ du numero identifiant

merci d'avance

Citation:

---

Envoyé par monphp

j'ai pensé plutôt faire txtNum.value à la place de 8 qui est le champ du numero identifiant

---

Bonjour,

Il faut que tu testes avant de poser la question, juste une chose, pense que tu crées une chaine de caratères, donc il y'a concaténation.

Starec

PS : Tu es sur la bonne voie.;)

merci starek,

en fait j'ai essayé de faire comme ceci:

Code:

---

insert into mytable(chp1, ch2, .. ) values ('txtNum.value' & ' ' , ... , .. )

---

mais ça ne marche pas .

merci d'avance de votre aide

Re

1 - Pense à mettre les balises codes
2 - Ce n'est pas starek, mais Starec
3 - Je t'ai dis par concaténation, ce serait plutôt

Code:

---

insert into mytable(chp1, ch2, .. ) values ('" & me.txtNum.value & "' , ... , .. )

---

' pour du texte
# pour des dates
rien pour du numérique

Starec

merci Starec de ton aide ,

par contre au niveau de la suppression j'ai procede ainsi

Code:

---

me.lstresult.RemoveItem(me.lstresult.listIndex)

---

mais le probleme je ne trouve pas l'equivalent de removeItem dans vba access donc j'ai encore utilisé cette solution ,mais elle ne fonctionne pas

Code:

---

ListBox1.Items.Remove(ListBox1.SelectedItem)

---

j'ai un petit souci par rapport à la supprssion d'un element dans ma listbox que je n'arrive pas à resoudre et en plus je n'arrive pas à trouver l'equivalent de removeItem car il me dit que la methode est introvable
merci d'avance de votre aide
voici le bout de code

Code:

---

1 2 3 4 5 6 7 8

Private Sub cmdSupprimer_Click() Dim ligne As Integer For ligne = 0 To Me.lstConsult If Me.lstConsult.Selected(Me.lstConsult.Selected(ligne)) = True Then Me.lstConsult.RemoveItem (ligne) End If Next ligne End Sub

---

Re

Qu'elle version d'Access as-tu ? Car RemoveItem est apparu à partir d'Access 2002.

Starec

j'utilise la version 2000

Re

Donc pas de RemoveItem ou de AddItem.

Je dois partir, mais fait une recherche sur le forum, il y'a moins d'un mois j'ai donnée une solution sans ces deux éléments.

Starec