Microsoft Office Tutorials and References
In Depth Information
11.4.7 Unterdialogfeld »Artikel Neu«
Zur Erläuterung:
Da diese beiden Vorgänge auch im Unterdialogfeld Bestellungen
Neu benötigt werden, wurden die beiden Funktionen Kleiner() und
Groesser() im gemeinsamen Modul geschrieben.
Es folgen die beiden Funktionen aus dem gemeinsamen Modul:
' Textfeld "Anzahl" über Button "Kleiner" steuern
Public Sub Kleiner(frm As UserForm)
If Not IsNumeric(frm.txtAnzahl.Text) Then
frm.txtAnzahl.Text = 0
ElseIffrm.txtAnzahl.Text>0Then
frm.txtAnzahl.Text = frm.txtAnzahl.Text – 1
End If
End Sub
' Textfeld "Anzahl" über Button "Groesser" steuern
Public Sub Groesser(frm As UserForm)
If Not IsNumeric(frm.txtAnzahl.Text) Then
frm.txtAnzahl.Text = 1
Else
frm.txtAnzahl.Text = CInt(frm.txtAnzahl.Text) + 1
End If
End Sub
Zur Erläuterung der Funktion Kleiner() :
Falls das Textfeld, das mit den beiden Buttons gekoppelt ist, keine
Zahl enthält, dann wird eine 0 in das Textfeld geschrieben.
Keine Zahl?
Falls die Zahl in dem Textfeld größer als 0 ist, wird sie um 1 vermin-
dert.
Vermindern
Zur Erläuterung der (sehr ähnlichen) Funktion Groesser() :
Falls das Textfeld keine Zahl enthält, wird eine 1 in das Textfeld
geschrieben, ansonsten wird die vorhandene Zahl um 1 erhöht.
Erhöhen
Speichern
Es folgt die Prozedur für den Button Speichern, also für das Speichern
eines neuen Artikels:
Button
»Speichern«
Private Sub cmdSpeichern_Click()
Dim Zeile As Integer
Dim LetzteZeile As Integer
Dim MaxArtikelnummer As Integer
Search JabSto ::




Custom Search