Microsoft Office Tutorials and References
In Depth Information
11.4.7 Unterdialogfeld »Artikel Neu«
Private Sub UserForm_Initialize()
Dim i As Integer
' Zugehörige Tabelle aktivieren
ThisWorkbook.Worksheets("Artikel").Activate
' Kategorien hinzufügen, ersten Eintrag anzeigen
cmbKategorie.Clear
Fori=1To8
cmbKategorie.AddItem Kategorie(i)
Next i
cmbKategorie.ListIndex = 0
' Preis und Anzahl vorbesetzen
txtEinzelpreisEuro.Text = "0"
txtEinzelpreisCent.Text = "00"
txtAnzahl.Text = "0"
End Sub
Private Sub cmdZurueck_Click()
' Zurück zum Hauptmenü
Unload Me
frmNordwind.Show
End Sub
Zur Erläuterung:
Das Kombinationsfeld, in dem die acht Kategorien aufgelistet werden,
wird zu Beginn aus dem anwendungsweiten Datenfeld gefüllt. Es
wird der erste Listeneintrag ausgewählt.
Kategorien
auflisten
Die insgesamt drei Textfelder für Einzelpreis und Anzahl werden mit
dem Startwert 0 bzw. 00 gefüllt.
Zahlenfelder
Anzahl einstellen
Es folgen die Prozeduren für die beiden Buttons kleiner und größer: <
und >. Mit diesen Buttons kann die Anzahl für den Lagerbestand verän-
dert werden.
Anzahl ändern
Private Sub cmdKleiner_Click()
Kleiner Me
End Sub
Private Sub cmdGroesser_Click()
Groesser Me
End Sub
Search JabSto ::




Custom Search