tomkruizinga
Gebruiker
- Lid geworden
- 7 dec 2018
- Berichten
- 21
Beste,
In bovenstaande afbeelding zie je dat er een artikelnummer is toegevoegd.
De tekstboxen onder deze combobox worden automatisch ingevuld.
Het probleem is dat, zodra het artikelnummer ingevoerd is, je met de pijltoetsen(op het toetsenbord) op het artikelnr. (in de combobox) moet gaan staan.
Ook komt het dan voor als we het verkeerde artikelnummer in willen voeren er lege regels (in de combobox) staan.
Wat wenselijk zou zijn is dat ter aller tijden een artikelnummer ingevoerd kan worden en dat de tekstboxen ook verspringen naar de juiste informatie.
Ik hoop dat ik mijn vraag duidelijk heb kunnen maken.
Alvast bedankt;
Tom Kruizinga
In bovenstaande afbeelding zie je dat er een artikelnummer is toegevoegd.
De tekstboxen onder deze combobox worden automatisch ingevuld.
Het probleem is dat, zodra het artikelnummer ingevoerd is, je met de pijltoetsen(op het toetsenbord) op het artikelnr. (in de combobox) moet gaan staan.
Ook komt het dan voor als we het verkeerde artikelnummer in willen voeren er lege regels (in de combobox) staan.
Wat wenselijk zou zijn is dat ter aller tijden een artikelnummer ingevoerd kan worden en dat de tekstboxen ook verspringen naar de juiste informatie.
Ik hoop dat ik mijn vraag duidelijk heb kunnen maken.
Code:
Private Sub tvg_Click()
If Trim(Me.TextBox4.Value) = "" Then
Me.TextBox4.SetFocus
MsgBox "Voer een Artikelnummer in!"
Exit Sub
End If
If Trim(Me.TextBox2.Value) = "INVOEREN" Then
Me.TextBox2.SetFocus
MsgBox "Voer een aantal in!"
Exit Sub
End If
If Trim(Me.TextBox5.Value) = "INVOEREN" Then
Me.ComboBox3.SetFocus
MsgBox "Voer een THT in!"
Exit Sub
End If
If Trim(Me.ComboBox3.Value) = "INVOEREN" Then
Me.ComboBox3.SetFocus
MsgBox "Voer een palletsoort in!"
Exit Sub
End If
If Trim(Me.TextBox4.Value) = "" Then
Me.TextBox4.SetFocus
MsgBox "Er gaat iets mis, dit artikelnummer staat niet in systeem, informeer Tom Kruizinga!"
Exit Sub
End If
arr = Array(ComboBox2.Value, TextBox2.Value, TextBox3.Value, TextBox4.Value, ComboBox1.Value, CDate(TextBox5.Value), ComboBox3.Value, (TextBox6), TextBox8.Value, TextBox7.Value)
Sheets("Overvoorraad lijst voor MAG ").Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(, 10) = arr
MsgBox "Gegevens zijn verwerkt", vbOKOnly + vbInformation, "Gegevens zijn verwerkt"
Sheets("palletbrief").Range("A1").Value = TextBox4.Value
Sheets("palletbrief").Range("M1").Value = ComboBox2.Value
Sheets("palletbrief").Range("A2").Value = TextBox3.Value
Sheets("palletbrief").Range("A3").Value = TextBox2.Value
Sheets("palletbrief").Range("A4").Value = CDate(TextBox5.Value)
Sheets("palletbrief").Range("A5").Value = TextBox7.Value
Sheets("palletbrief").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
MsgBox "Brief ligt op de printer"
Unload Me
frmklantgegevens.Show
End Sub
Tom Kruizinga