Microsoft Office Tutorials and References
In Depth Information
11.4.9 Unterdialogfeld »Bestellungen Neu«
' Daten der Firma in Label anzeigen
lblFirma.Caption=" KNr:"&_
Cells(Zeile,1).Value&","&_
Cells(Zeile,2).Value&"("&_
Cells(Zeile, 7).Value & ")" & vbCrLf & _
" " & Cells(Zeile, 3).Value & _
", " & Cells(Zeile, 4).Value & _
""&Cells(Zeile,5).Value_
& " (" & Cells(Zeile, 6).Value & ")"
End Sub
Private Sub cmbKategorieSuchen_Change()
' Liste mit Artikeln füllen,
' die zu ausgewählter Kategorie passen
ListeArtikelFuellen Me
End Sub
Private Sub cmbArtikelnameSuchen_Change()
Dim Zeile As Integer
' Zeilennummer des Artikels liefern,
' der aktuell in der Liste angezeigt wird
Zeile = ZeileArtikelSuchen(Me)
' Daten des Artikels in Label anzeigen
lblArtikel.Caption = " ANr: " & _
Cells(Zeile,1).Value&","&_
Cells(Zeile,2).Value&"("&_
Cells(Zeile, 3).Value & ")" & vbCrLf & _
" " & Cells(Zeile, 4).Value & _
",EP:"&Format(Cells(Zeile,5).Value,"0.00")&_
" €, Bestand: " & Cells(Zeile, 6).Value
End Sub
Zur Erläuterung der Unterschiede:
Die Daten des ausgewählten Kunden und des ausgewählten Artikels
werden jeweils in kompakter Form in ein Bezeichnungsfeld geschrie-
ben. Somit kann sich der Benutzer sicher sein, die richtige Auswahl
getroffen zu haben.
Kontrollausgabe
Anzahl einstellen
Die Prozeduren Kleiner() und Groesser() :
Search JabSto ::




Custom Search