Microsoft Office Tutorials and References
In Depth Information
11.4.8 Unterdialogfeld »Artikel Ändern«
nachfolgend erläuterten Prozedur dazu, dass alle Einträge des Artikels
im unteren Teil des Dialogfelds angezeigt werden.
Suchergebnis anzeigen
Es folgt die Prozedur, die aufgerufen wird, sobald ein neuer Listeneintrag
im Kombinationsfeld für die Artikel ausgewählt wurde. Diese Auswahl
kann durch das Programm (durch die obige Prozedur ListeArtikel-
Fuellen() ) oder durch den Benutzer stattfinden.
Automatische
Anzeige
Private Sub cmbArtikelnameSuchen_Change()
Dim Zeile As Integer
Dim Euro As Integer
' Zeilennummer des Artikels liefern,
' der aktuell in der Liste angezeigt wird
Zeile = ZeileArtikelSuchen(Me)
' Daten des Artikels in Dialogfeld kopieren
lblArtikelnummer2.Caption = "
" & _
Cells(Zeile, 1).Value
txtArtikelname.Text = Cells(Zeile, 2).Value
cmbKategorie.ListIndex = _
cmbKategorieSuchen.ListIndex
txtLiefereinheit.Text = Cells(Zeile, 4).Value
txtAnzahl.Text = Cells(Zeile, 6).Value
' Einzelpreis in zwei Feldern ausgeben
Euro = Int(Cells(Zeile, 5).Value)
' schneidet ab
txtEinzelpreisEuro.Text = Euro
txtEinzelpreisCent.Text = _
(Cells(Zeile, 5).Value – Euro) * 100
End Sub
Zur Erläuterung:
Da dieser Vorgang auch im Unterdialogfeld Bestellungen Neu benö-
tigt wird, wurde eine Funktion ZeileArtikelSuchen() im gemeinsa-
men Modul geschrieben.
Nach erfolgreicher Suche werden die Informationen über den Artikel
in die Felder im unteren Bereich des Dialogfelds geschrieben.
Die Artikelnummer wird in ein Bezeichnungsfeld geschrieben.
Das Kombinationsfeld für die Kategorie wird mit dem Suchkombina-
tionsfeld für die Kategorie synchronisiert.
Search JabSto ::




Custom Search