• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Code voor textbox doet het niet

  • Onderwerp starter Onderwerp starter rg027
  • Startdatum Startdatum
Status
Niet open voor verdere reacties.

rg027

Gebruiker
Lid geworden
30 jun 2005
Berichten
161
Ik heb volgende code in een formulier voor het kijken of een bepaalde naam reeds voorkomt in een lijst . Indien deze voorkomt moet ik in textbox1 het bijhorend nr krijgen, indien niet een niuew nr. Doch deze code voldoet niet. Iemand die een idee geeft hoe deze code toch goed werkt?
Code:
Private Sub cbooffKlant_Change()
'gegevens klantnr en naam opzoeken
TextBox3.Text = cbooffklant.List(cbooffklant.ListIndex, -1) + 1
TextBox2.Text = cbooffklant.List(cbooffklant.ListIndex, 1)
'kijk of klant offerte reeds een klantnr heeft voor faktuur
a = textbox2..text
for each b in sheets("klantgegevens").range("klantfak")
if a = b then
textbox1.text = b.offset(0,-2)
else
textbox1.text = range("klnr")
end if
next

End Sub
 
Dat is idd waar. Hoekan ik dan een tekst in een textbox omzetten naar een getal? Of is er een ander besturingelement voor formulieren om getallen in te voeren?
 
0 + waarde textbox of 1 * waarde textbox of CInt(waarde textbox)
 
Wees slim: lees het klantenbestand in in de combobox, als je de klant selecteert weet je ook meteen het nummer:

Code:
sub klanteninlezenincombobox()
   comboboxklanten.List=sheets("klanten").cells(1,1).currentregion.value
End Sub

Code:
Sub nummer()
  hetklantnummeris=comboboxklanten.List(comboboxklanten.listindex,3)
End sub
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan