Robert Smidt
Gebruiker
- Lid geworden
- 26 mei 2009
- Berichten
- 901
Beste Helpmijers,
Graag zou een oplossing willen hebben voor een bestaand - erg leuk - programma dat ik hier heb gevonden. Het betreft een vrij basic voorraadprogramma dat ik graag wil uitbreiden.
Het eerste waar ik tegenaan loop is wanneer ik een artikel wil bij- of afboeken dat het lastig zoeken is wanneer er honderden artikelen in staan. Op zich kan ik nu maar één letter invullen en pakt hij het eerste artikel dat met die letter begint, de kans is groot dat ik dat artikel niet zoek. Daarom mijn vraag wat is de code waardoor ik meerdere letters in kan typen en dat hij (net zoals in excel) naarmate ik meer letters intyp met een artikelvoorstel komt die mijn zoekvraag het meest benaderd.
Ik doe de code en het programma als bijlage.
'Code when searching Article Description
Private Sub cbx_Description_Change()
On Error GoTo Error_Handling
Me.lbl_Info.Caption = ""
With Sheets("Database").Columns(2).Find(Me.cbx_Description, , xlValues, xlWhole)
Me.cbxItem_Nr = .Offset(, -1).Value
Me.tbx_UniMea = .Offset(, 1).Value
Me.tbx_Date = Date
Me.tbx_Inventory = .Offset(, 2)
End With: Me.tbx_Units.SetFocus: Exit Sub
Error_Handling:
Me.lbl_Info.Caption = "No item found"
End Sub
Alvast heel erg bedankt voor de medewerking
Robert
Graag zou een oplossing willen hebben voor een bestaand - erg leuk - programma dat ik hier heb gevonden. Het betreft een vrij basic voorraadprogramma dat ik graag wil uitbreiden.
Het eerste waar ik tegenaan loop is wanneer ik een artikel wil bij- of afboeken dat het lastig zoeken is wanneer er honderden artikelen in staan. Op zich kan ik nu maar één letter invullen en pakt hij het eerste artikel dat met die letter begint, de kans is groot dat ik dat artikel niet zoek. Daarom mijn vraag wat is de code waardoor ik meerdere letters in kan typen en dat hij (net zoals in excel) naarmate ik meer letters intyp met een artikelvoorstel komt die mijn zoekvraag het meest benaderd.
Ik doe de code en het programma als bijlage.
'Code when searching Article Description
Private Sub cbx_Description_Change()
On Error GoTo Error_Handling
Me.lbl_Info.Caption = ""
With Sheets("Database").Columns(2).Find(Me.cbx_Description, , xlValues, xlWhole)
Me.cbxItem_Nr = .Offset(, -1).Value
Me.tbx_UniMea = .Offset(, 1).Value
Me.tbx_Date = Date
Me.tbx_Inventory = .Offset(, 2)
End With: Me.tbx_Units.SetFocus: Exit Sub
Error_Handling:
Me.lbl_Info.Caption = "No item found"
End Sub
Alvast heel erg bedankt voor de medewerking
Robert