Microsoft Office Tutorials and References
In Depth Information
11.4.8 Unterdialogfeld »Artikel Ändern«
11.4.8
Unterdialogfeld »Artikel Ändern«
Das Unterdialogfeld Artikel Ändern enthält ähnliche Abläufe wie das
bereits beschriebene Unterdialogfeld Kunden Ändern. In diesem
Abschnitt werden nur die Unterschiede genauer erläutert.
Ähnliche Abläufe
Beginn, Ende
Zunächst die beiden Prozeduren dieses Dialogfelds, die zu Beginn und
Ende wichtig sind:
Private Sub UserForm_Initialize()
Dim i As Integer
' Zugehörige Tabelle aktivieren
ThisWorkbook.Worksheets("Artikel").Activate
' Kategorien hinzufügen, ersten Eintrag anzeigen
cmbKategorie.Clear
cmbKategorieSuchen.Clear
Fori=1To8
cmbKategorie.AddItem Kategorie(i)
cmbKategorieSuchen.AddItem Kategorie(i)
Next i
cmbKategorieSuchen.ListIndex = 0
End Sub
Private Sub cmdZurueck_Click()
' Zurück zum Hauptmenü
Unload Me
frmNordwind.Show
End Sub
Zur Erläuterung:
Die beiden Kombinationsfelder, in denen jeweils die acht Kategorien
aufgelistet werden, werden zu Beginn aus dem anwendungsweiten
Datenfeld gefüllt. Es wird der erste Listeneintrag ausgewählt.
Kategorien
auflisten
Suchen
Es folgt die Prozedur, die aufgerufen wird, sobald der Benutzer (oder das
Programm) eine Kategorie aus der Liste auswählt, um einen Artikel zu
suchen:
Private Sub cmbKategorieSuchen_Change()
' Liste mit Artikeln füllen,
' die zu ausgewählter Kategorie passen
Search JabSto ::




Custom Search