VBA-Schulung 2003-03-27/28Lesen und Schreiben von Daten 2 Erstellung von Formularen und...

Lesen und Schreiben von Daten

2VBA-Schulung 2003-03-27/28

Erstellung von Formularen und

Datenverarbeitung



ÜberblickEntwicklung von Formularen Datenverarbeitung

Daten lesen,Daten bearbeiten,Daten schreiben

Klassisches EVA (Eingabe, Verarbeitung, Ausgabe)-Prinzip



ZielErleichterung der Erfassung von Rechnungspositionen mit Hilfe eines VBA-Formulars:„Rechnungs-Assistent“

Aufruf aus dem Menü „Aktionen“Anzeige aller ArtikelErstellen von neuen Rechnungsdatensätzen und neuen RechnungspositionenPlausibilitätsprüfungen



FormularNeues Formular erstellen

„Einfügen - UserForm“

Name: FInvoiceWizardCaption: Rechnungs-Assistent



FormularSteuerelemente für den Rechnungsdatensatz

fraRechnung (Frame)

dtpDatum (DTPicker)

cboVersand (ComboBox)

cboZahlungsweise (ComboBox)

cboLieferart (ComboBox)

+ Beschriftugen

(Labels)

cmdNeueRechnung

(CommandButton)



FormularSteuerelemente für die Rechnungspositionen

fraRechnungspositionen (Frame)

+ Beschriftugen

(Labels)

cboEinheit (ComboBox)

txtPreis (TextBox)

lblGesamt (Label)

txtAnzahl (TextBox)

txtArtikel (TextBox)

cmdNeuePosition (CommandButton)



FormularSteuerelement für die Artikelliste

lvwArtikel (ListView)

cmdClose (CommandButton)



Formular


10VBA-Schulung 2003-03-27/28

Haben Sie

Fragen?


11VBA-Schulung 2003-03-27/28

QuellcodeBenötigte Prozeduren:

Initialisieren der SteuerelementeEinlesen von persistenten VariablenEinlesen der Artikelliste

Anlegen einer neuen RechnungAnlegen von RechnungspositionenÜbernehmen der Artikeldaten in Steuerelemente der RechnungspositionenAnzeige der Summe der aktuellen Position


12VBA-Schulung 2003-03-27/28

QuellcodeDeklarationen auf Modulebene

' Konstante für Fehlerbehandlung

Private Const csErrSource = "FInvoiceWizard"

' Variablen für Tabellenobjekte

Private mtblInvoices As OrgDbServer31.Table

Private mtblPositions As OrgDbServer31.Table

Private mtblArticles As OrgDbServer31.Table


13VBA-Schulung 2003-03-27/28

QuellcodeProzedur Init()

Public Sub Init()

' Initialisierungen: Einlesen der Auswahllisten, Initialisieren der modulweiten Variablen

Dim pvars As PersistVars

Dim itm As ListItem

On Error GoTo ErrHandler


14VBA-Schulung 2003-03-27/28


' Variablen initialisieren

Set mtblInvoices = gTables.GetTable(dbtblRechnungen)

Set mtblPositions = gTables.GetTable(dbtblRechnungspositionen)

Set mtblArticles = gTables.GetTable(dbtblArtikel)


15VBA-Schulung 2003-03-27/28


' Auswahllisten einlesen

Set pvars = Database.Parser.PersistVars

With gobjDatabaseSupport

.LoadPersVarsCombobox pvars("lt_Versandkosten"), cboVersand

.LoadPersVarsCombobox pvars("lt_Zahlungsweise"), cboZahlungsweise

.LoadPersVarsCombobox pvars("lt_Lieferart"), cboLieferart

.LoadPersVarsCombobox pvars("lt_Einheit"), cboEinheit

End With


16VBA-Schulung 2003-03-27/28


' Artikel einlesen

lvwArtikel.ListItems.Clear

With mtblArticles

.GoTop ORGDB_NAV_NOEVENTS

Do While Not .EOF

Set itm = lvwArtikel.ListItems.Add(Text:=.Fields("Bezeichnung").Value)

itm.ListSubItems.Add Text:=.Fields("Art").Value

itm.ListSubItems.Add Text:=.Fields("Einheit").Value

itm.ListSubItems.Add Text:=.Fields("Nettopreis").Value

.Skip 1, ORGDB_NAV_NOEVENTS

Loop

End With


17VBA-Schulung 2003-03-27/28


Exit Sub

ErrHandler:

gErrors.DisplayError csErrSource & ".Init"

End Sub


18VBA-Schulung 2003-03-27/28

QuellcodeAufrufprozeduren

Im Modul Invoicing neue Prozedur ShowInvoiceWizard()

Public Sub ShowInvoiceWizard()

' Rechnungs-Assistenten aufrufen

Dim frmWizard As New FInvoiceWizard

With frmWizard

.Init

.Show vbModal

End With

End Sub


19VBA-Schulung 2003-03-27/28

QuellcodeAufrufprozeduren

Im Modul UserMacros neue Prozedur ShowInvoiceWizard()

Public Sub ShowInvoiceWizard()

' Rechnungs-Assistenten aufrufen

InitGlobalObjects

Invoicing.ShowInvoiceWizard

End Sub


20VBA-Schulung 2003-03-27/28

QuellcodeErster Test: Im Direktbereich (Strg+G)

UserMacros.ShowInvoiceWizard

eingeben


21VBA-Schulung 2003-03-27/28

Es funktioniert!


22VBA-Schulung 2003-03-27/28

Haben Sie

Fragen?


23VBA-Schulung 2003-03-27/28

QuellcodeWir machen weiter: Rechnung speichern

Private Sub cmdNeueRechnung_Click()

' Neuen Rechnungsdatensatz anlegen


...

Exit Sub

ErrHandler:

gErrors.DisplayError csErrSource & ".cmdNeueRechnung_Click"

End Sub


24VBA-Schulung 2003-03-27/28

QuellcodeRechnung speichern II

With mtblInvoices

' Datensatzpuffer leeren und Feldvorbelegungen auswerten

.Record = .DefaultRecord

.Fields("Datum").Value = dtpDatum.Value

.Fields("Versandkosten").Value = cboVersand.Text

.Fields("Zahlungsweise").Value = cboZahlungsweise.Text

.Fields("Lieferart").Value = cboLieferart.Text

.Insert

End With


25VBA-Schulung 2003-03-27/28

QuellcodePosition speichern

Private Sub cmdNeuePosition_Click()

' Neue Rechnungsposition anlegen


With mtblPositions

' Datensatzpuffer leeren und Feldvorbelegungen auswerten

.Record = .DefaultRecord

.Fields("Artikel").Value = txtArtikel.Value

.Fields("Anzahl").Value = txtAnzahl.Text

.Fields("Einheit").Value = cboEinheit.Text

.Fields("Nettopreis").Value = txtPreis.Text

.Insert

End With


26VBA-Schulung 2003-03-27/28

QuellcodeArtikeldaten übernehmen

Private Sub lvwArtikel_DblClick()

' Beim Doppelklick auf die Artikelliste sollen die Daten des ausgewählten

' Artikels in die Rechnungsposition übernommen werden


...

Exit Sub

ErrHandler:

gErrors.DisplayError csErrSource & ".lvwArtikel_DblClick"

End Sub


27VBA-Schulung 2003-03-27/28

QuellcodeArtikeldaten übernehmen II

' Gibt es einen ausgewählten Artikel?

If lvwArtikel.SelectedItem Is Nothing Then Exit Sub

' Daten übernehmen

With lvwArtikel.SelectedItem

txtArtikel.Text = .Text

cboEinheit.Text = .ListSubItems(2).Text

txtPreis.Text = .ListSubItems(3).Text

End With

' Anzahl auf 1 setzen

txtAnzahl.Text = "1"


28VBA-Schulung 2003-03-27/28

QuellcodeSumme der aktuellen Position anzeigen

Aufruf von txtAnzahl_Change() und txtPreis_Change()

Private Sub SummeAktualisieren()

' Gesamtpreis berechnen

lblGesamt.Caption = Val(txtAnzahl.Text) * Val(txtPreis.Text)

End Sub


29VBA-Schulung 2003-03-27/28

QuellcodeFormular schliessen

Private Sub cmdClose_Click()

' Formular schließen

Me.Hide

End Sub


30VBA-Schulung 2003-03-27/28

OberflächeWir binden das Makro in die Oberfläche ein:

Über den Menüpunkt AktionenÜber eine Schaltfläche

Wir testen...


31VBA-Schulung 2003-03-27/28

Es funktioniert noch immer und noch

besser!


32VBA-Schulung 2003-03-27/28

QuellcodePlausibilitätsprüfungen

Artikelname darf nicht leer seinAnzahl muss grösser als 0 seinWenn eine dieser Bedingungen nicht erfüllt ist, dann soll die Position gar nicht gespeichert werdenDer Cursor soll in das fehlerverursachende Eingabefeld platziert werden


33VBA-Schulung 2003-03-27/28

QuellcodePrivate Function PlausibilitätsprüfungPosition() As Boolean

' Plausibilitätsprüfung der Angaben zur Rechnungsposition

' Beim ersten Fehler wird die Funktion verlassen

' Artikelname darf nicht leer sein

If txtArtikel.Text = "" Then

MsgBox "Bitte geben Sie einen Artikelnamen ein.", vbExclamation, MsgBoxTitle

txtArtikel.SetFocus

PlausibilitätsprüfungPosition = False

Exit Function

End If

...


34VBA-Schulung 2003-03-27/28

Quellcode...

' Anzahl muss größer als 0 sein

If Val(txtAnzahl.Text) = 0 Then

MsgBox "Anzahl muss größer als 0 sein.", vbExclamation, MsgBoxTitle

txtAnzahl.SetFocus

PlausibilitätsprüfungPosition = False

Exit Function

End If

' Wenn wir hier angelangt sind, dann sind keine Fehler aufgetreten

PlausibilitätsprüfungPosition = True

End Function


35VBA-Schulung 2003-03-27/28

QuellcodeAufruf der Plausibilitätsprüfung

Private Sub cmdNeuePosition_Click()

' Neuen Rechnungsposition anlegen


' Plausibilitätsprüfung der Angaben

If Not PlausibilitätsprüfungPosition Then Exit Sub

With mtblPositions

...


36VBA-Schulung 2003-03-27/28

OberflächeWir testen...


37VBA-Schulung 2003-03-27/28

Haben Sie

Fragen?


38VBA-Schulung 2003-03-27/28

Vielen Dank für Ihre Aufmerksamkeit

Date post:	06-Apr-2015
Category:	Documents
Upload:	franziska-bloss
View:	108 times
Download:	3 times

VBA-Schulung 2003-03-27/28Lesen und Schreiben von Daten 2 Erstellung von Formularen und...

Documents