Microsoft Office Tutorials and References
In Depth Information
11.4.7 Unterdialogfeld »Artikel Neu«
Cells(Zeile, 1).EntireRow.Font.Bold = False
End If
' Neuen Artikelnamen eintragen
Cells(Zeile, 1).Value = MaxArtikelnummer + 1
Cells(Zeile, 2).Value = txtArtikelname.Text
Cells(Zeile, 3).Value = cmbKategorie.Text
Cells(Zeile, 4).Value = txtLiefereinheit.Text
Cells(Zeile, 6).Value = txtAnzahl.Text
' Einzelpreis zusammensetzen
If txtEinzelpreisEuro.Text = "" Then
Einzelpreis = 0
Else
Einzelpreis = CInt(txtEinzelpreisEuro.Text)
End If
If txtEinzelpreisCent.Text <> "" Then
Einzelpreis = Einzelpreis + _
CInt(txtEinzelpreisCent.Text) / 100
End If
Cells(Zeile, 5).Value = Einzelpreis
Cells(Zeile, 5).NumberFormatLocal = "0,00 €"
' Zurück zum Hauptmenü
Unload Me
frmNordwind.Show
End Sub
Zur Erläuterung:
Wie bei dem Namen für einen neuen Kunden wird der neue Name für
den neuen Artikel geprüft und in Großbuchstaben umgewandelt. Es
wird die Zeile gesucht, vor der der neue Artikel eingetragen werden
kann. Gegebenenfalls wird eine neue Zeile zum Eintragen eingefügt.
Die Artikelnummer des neuen Artikels wird wie eine neue Kunden-
nummer eindeutig ermittelt.
Artikeldaten
einfügen
Beim Eintragen der Artikelinformationen ist zu beachten, dass der der
Inhalt der Textfelder für Euro und Cent jeweils in eine Zahl umgewan-
delt wird. Anschließend werden die beiden Zahlen zu einem Einzel-
preis zusammengerechnet. Die Tabellenzelle wird außerdem passend
formatiert.
Einzelpreis
umwandeln
Search JabSto ::




Custom Search