[Access + VBA] Waarde uit textvak toevoegen in keuzelijst

Pagina: 1
Acties:
  • 177 views sinds 30-01-2008
  • Reageer

  • Piels
  • Registratie: Maart 2001
  • Laatst online: 28-07 10:59
Ik ben bezig met een klein projectje.

Nu heb ik dus een aantal textvakken (edit boxen) met waarden erin. En nu wil ik van 1 textvak, de waarde (.value) in een keuzelijst krijgen doormiddel van VBA.

wie maakt me los :)

Windows Phone Apps: Belstatus, Pinautomaten


Verwijderd

Ik neem aan dat je een listbox bedoelt!

listbox1.AddItem (txtbox.text) 'nu voeg je een keuze erbij

BTW tekst uit een textbox halen doe je met .text ipv .value

  • Piels
  • Registratie: Maart 2001
  • Laatst online: 28-07 10:59
We hebben het hier wel over VBA, en niet over Delphi he... :)

Ik kom namelijk ook geen AddItem tegen en geen .text, dus ik denk dat je het verkeerd begrepen hebt.

[ Voor 72% gewijzigd door Piels op 12-05-2003 11:57 ]

Windows Phone Apps: Belstatus, Pinautomaten


Verwijderd

Ik zou ook nog een id in elke keuze zetten zodat je makkelijker de keuze kan bepalen;

listbox1.ItemData(listbox1.NewIndex) = CInt(IDNUMMERTJE) <- moet een integer zijn

ItemData is niet zichtbaar; Alleen de waarde van je AddItem+

Verwijderd

Dit is geen Delphi maar VB; De grote broer van VBA

  • Piels
  • Registratie: Maart 2001
  • Laatst online: 28-07 10:59
Allemaal heel leuk :)
Maar ik moet eerst maar eens een item in de listbox krijgen :)

Windows Phone Apps: Belstatus, Pinautomaten


Verwijderd

Je moet idd anders doen; ik ga ff kijken

  • Piels
  • Registratie: Maart 2001
  • Laatst online: 28-07 10:59
i'll wait right here :)

Windows Phone Apps: Belstatus, Pinautomaten


Verwijderd

Je moet in Visual Basic Editor een userform maken en daar je txtbox, button en listbox in zetten.

Dan kan je wel de code hierboven gebruiken;

s6

  • Piels
  • Registratie: Maart 2001
  • Laatst online: 28-07 10:59
Nu ga je te snel :)
een userform in de Visual Basic Editor??

Windows Phone Apps: Belstatus, Pinautomaten


Verwijderd

jep;

in welk office pakket zit je dit te doen?

  • Piels
  • Registratie: Maart 2001
  • Laatst online: 28-07 10:59
Ik heb um :)

code:
1
lstArtikel.RowSource = lstArtikel.RowSource + edtArtikel.Value + ";"


Bedankt in ieder geval!

[ Voor 31% gewijzigd door Piels op 12-05-2003 12:30 ]

Windows Phone Apps: Belstatus, Pinautomaten


Verwijderd

no problem
Pagina: 1