Microsoft Office Tutorials and References
In Depth Information
11.4.6 Unterdialogfeld »Kunden Ändern«
Private Sub UserForm_Initialize()
' Zugehörige Tabelle aktivieren
ThisWorkbook.Worksheets("Kunden").Activate
End Sub
Private Sub cmdZurueck_Click()
' Zurück zum Hauptmenü
Unload Me
frmNordwind.Show
End Sub
Die Abläufe wurden bereits für das Unterdialogfeld Kunden Neu erläu-
tert.
Suchen
Es folgt die Prozedur, die aufgerufen wird, sobald der Benutzer Zeichen
in das obere Textfeld einträgt, um einen Kunden zu suchen:
Private Sub txtFirmaSuchen_Change()
' Liste mit Firmen füllen, die zu eingegebenem Text passen
ListeFirmaFuellen Me
End Sub
Dieser Vorgang wird auch im Unterdialogfeld Bestellungen Neu benö-
tigt. Daher lohnt es sich, modular zu programmieren. Es wurde eine Pro-
zedur ListeFirmaFuellen() im gemeinsamen Modul geschrieben. Diese
Prozedur wird mit dem Parameter Me aufgerufen. Dieser Parameter kenn-
zeichnet das Dialogfeld, von dem aus die Prozedur aufgerufen wurde. Es
folgt die Prozedur aus dem gemeinsamen Modul:
Modularität
' Liste mit Firmen füllen, die zu eingegebenem Text passen
Public Sub ListeFirmaFuellen(frm As UserForm)
Dim Zeile As Integer
' Zugehörige Tabelle aktivieren
ThisWorkbook.Worksheets("Kunden").Activate
' Liste füllen
frm.cmbFirmaSuchen.Clear
Zeile = 2
Do While Cells(Zeile, 2).Value <> ""
' Falls eingegebene Zeichen in Firmenname vorkommen,
' dann diesen Firmenname der Liste hinzufügen
If InStr(StrConv(Cells(Zeile, 2).Value, vbUpperCase), _
StrConv(frm.txtFirmaSuchen.Text, vbUpperCase)) _
> 0 Then
Search JabSto ::




Custom Search