Robert Smidt
Gebruiker
- Lid geworden
- 26 mei 2009
- Berichten
- 901
Beste Helpmijers,
Ik heb hier sinds kort een leuk voorraadbestand gevonden en moet deze behoorlijk optimaliseren mocht ik deze maximaal willen kunnen gebruiken. In mijn beleving zit er alles in qua functionaliteiten, echter ontbreekt mij nagenoeg alle kennis om hierin te muteren. Neemt niet weg dat het mij steeds duidelijker wordt t.a.v. de opbouw en zie het - naast dat ik het programma in de praktijk ga gebruiken - ook als een leermoment om te kunnen programmeren in VBA.
Mijn probleem is het volgende: Het programma kan prima zoeken op de omschrijving van een artikel, echter niet op artikelnummer. In de praktijk is dat handiger wanneer je facturen in moet boeken. Onderstaande code heb ik overgenomen en enigszins omgebouwd om te zoeken op artikelnummer, echter zonder resultaat. Wie kan/wil mij hierbij helpen?
Code when searching artikelnummer
Private Sub cbxArtikelnummer_Afterupdate()
On Error GoTo Error_Handling
Me.lbl_Info.Caption = ""
With Sheets("Database").Columns(2).Find(Me.cbxArtikelnummer, , xlValues, xlWhole)
Me.cbx_Omschrijving = .Offset(, 0).Value
Me.tbx_Eenheid = .Offset(, 1).Value
Me.tbx_Datum = Date
Me.tbx_Voorraad = .Offset(, 2)
End With: Me.tbx_Aantal.SetFocus: Exit Sub
Error_Handling:
Me.lbl_Info.Caption = "Artikel niet gevonden"
End Sub
Alvast bedankt.
Robert
Bekijk bijlage Voorraadbeheren origineel2.xlsmBekijk bijlage Voorraadbeheren origineel2.xlsm
Ik heb hier sinds kort een leuk voorraadbestand gevonden en moet deze behoorlijk optimaliseren mocht ik deze maximaal willen kunnen gebruiken. In mijn beleving zit er alles in qua functionaliteiten, echter ontbreekt mij nagenoeg alle kennis om hierin te muteren. Neemt niet weg dat het mij steeds duidelijker wordt t.a.v. de opbouw en zie het - naast dat ik het programma in de praktijk ga gebruiken - ook als een leermoment om te kunnen programmeren in VBA.
Mijn probleem is het volgende: Het programma kan prima zoeken op de omschrijving van een artikel, echter niet op artikelnummer. In de praktijk is dat handiger wanneer je facturen in moet boeken. Onderstaande code heb ik overgenomen en enigszins omgebouwd om te zoeken op artikelnummer, echter zonder resultaat. Wie kan/wil mij hierbij helpen?
Code when searching artikelnummer
Private Sub cbxArtikelnummer_Afterupdate()
On Error GoTo Error_Handling
Me.lbl_Info.Caption = ""
With Sheets("Database").Columns(2).Find(Me.cbxArtikelnummer, , xlValues, xlWhole)
Me.cbx_Omschrijving = .Offset(, 0).Value
Me.tbx_Eenheid = .Offset(, 1).Value
Me.tbx_Datum = Date
Me.tbx_Voorraad = .Offset(, 2)
End With: Me.tbx_Aantal.SetFocus: Exit Sub
Error_Handling:
Me.lbl_Info.Caption = "Artikel niet gevonden"
End Sub
Alvast bedankt.
Robert
Bekijk bijlage Voorraadbeheren origineel2.xlsmBekijk bijlage Voorraadbeheren origineel2.xlsm