Microsoft Office Tutorials and References
In Depth Information
11.4.9 Unterdialogfeld »Bestellungen Neu«
Das heutige Datum wird ermittelt und formatiert in dem Bezeich-
nungsfeld für das Bestelldatum eingetragen. Dieses Datum kann spä-
ter geändert werden.
Aktuelles
Bestelldatum
Bestelldatum einstellen
Es folgen die beiden Ereignisprozeduren zur komfortablen Änderung des
Bestelldatums.
Bestelldatum
ändern
Private Sub lblBestelldatum2_Click()
zusKalender.Visible = True
End Sub
Private Sub zusKalender_DblClick()
lblBestelldatum2.Caption = "
" & zusKalender.Value
zusKalender.Visible = False
End Sub
Zur Erläuterung:
Falls der Benutzer mit der Maus in das Bezeichnungsfeld für das
Bestelldatum klickt, wird das (zunächst unsichtbare) Kalender-Steuer-
element angezeigt. Dazu wird die Eigenschaft Visible genutzt, die
den Wert True oder False haben kann.
Sichtbar machen
Der Benutzer kann im Kalender-Steuerelement ein Datum auswählen.
Sobald er auf dem ausgewählten Datum einen Doppelklick ausführt,
wird das Kalender-Steuerelement wieder unsichtbar, und das Datum
wird im Bezeichnungsfeld für das Bestelldatum eingetragen.
Auswählen
Suchen
Die folgenden vier Prozeduren sind in ähnlicher Form bereits Bestandteil
der anderen Unterdialogfelder. Sie dienen zur Auswahl eines Kunden
und eines Artikels:
Ähnliche Abläufe
Private Sub txtFirmaSuchen_Change()
' Liste mit Firmen füllen,
' die zu eingegebenem Text passen
ListeFirmaFuellen Me
End Sub
Private Sub cmbFirmaSuchen_Change()
Dim Zeile As Integer
' Zeile mit ausgewähltem Kunden suchen
Zeile = ZeileFirmaSuchen(Me)
Search JabSto ::




Custom Search