Microsoft Office Tutorials and References
In Depth Information
11.4.7 Unterdialogfeld »Artikel Neu«
' Sicherheitsabfrage vor dem Löschen
If MsgBox("Wollen Sie diese Firma wirklich löschen?", _
vbYesNo Or vbQuestion) = vbNo Then
Exit Sub
End If
' Zeile mit ausgewählter Firma suchen
Zeile = 2
Do While Cells(Zeile, 1).Value <> _
CInt(lblKundennummer2.Caption)
Zeile=Zeile+1
Loop
' Ganze Zeile löschen
Cells(Zeile, 1).EntireRow.Delete
' Zurück zum Hauptmenü
Unload Me
frmNordwind.Show
End Sub
Zur Erläuterung:
Falls der Benutzer den Firmennamen gelöscht hat, so ist das Löschen
nicht möglich. Es wird daher abgelehnt, und die Prozedur wird ver-
lassen.
Kein leerer Name
Der Benutzer wird zur Sicherheit gefragt, ob er den Kunden wirklich
löschen möchte. Falls er den Button Nein betätigt, wird die Prozedur
verlassen.
Sicherheitsabfrage
Die Kundentabelle wird Zeile für Zeile durchsucht. Falls die Kunden-
nummer dem Inhalt des Bezeichnungsfelds entspricht, wird die Suche
abgebrochen.
Sucht
Kundennummer
Die Zeile wird mit Hilfe der Methode Delete() vollständig gelöscht.
Delete()
11.4.7
Unterdialogfeld »Artikel Neu«
Das Unterdialogfeld Artikel Neu enthält ähnliche Abläufe wie das
bereits beschriebene Unterdialogfeld Kunden Neu. In diesem Abschnitt
werden nur die Unterschiede genauer erläutert.
Ähnliche Abläufe
Beginn, Ende
Zunächst zwei Prozeduren dieses Dialogfelds, die zu Beginn und Ende
wichtig sind:
Search JabSto ::




Custom Search