myGully.com - Access VBA

myGully.com (https://mygully.com/index.php)

- Programmierung (https://mygully.com/forumdisplay.php?f=67)

- - Access VBA (https://mygully.com/showthread.php?t=1864374)

Um mich besser aufs Abi vorzubereiten, hat mir mein Lehrer alte Klausuren zur Verfügung gestellt. Nur leider hab ich bei einer die Lösung nicht... Da ich diesen Teil nicht wirklich verstanden hab, hoffe ich ihr könnt mir die Aufgaben lösen. :(
Die Datenbank und Aufgabenstellungen hab ich bei Rapidshare hochgeladen, sollte eigentlich für jemanden, der sich mit Access und VBA auskennt kein Problem sein... danke schonmal! :T
[Link nur für registrierte und freigeschaltete Mitglieder sichtbar. Jetzt registrieren...]

ok da wohl verständlicherweise niemand lust dazu hat^^, beschränk ich meine frage mal auf folgende aufgabenstellung:

Ihre Aufgabe besteht darin, die vorliegenden Programmzeilen durch Unterprozeduren zu ersetzen. Beginnen Sie mit der Aufzeichnung bei „Do“; die Textpassagen können Sie auch kürzen.

Obwohl es bei dieser Aufgabe hauptsächlich um die Struktur geht, sollten Sie auf korrekte Wiedergabe der Zeilen achten.

Code:

Private Sub befDialog_Click()

    Dim anzahl As Double

    Dim preis As Double

    Dim ergebnis As Double

    Const VVK = 1.1

    Dim antwort As Integer

    

    ergebnis = 0

    

    Do

         anzahl = Val(InputBox("Bitte geben Sie die Anzahl der Karten ein", "Anzahl Karten"))

         preis = Val(InputBox("Bitte geben Sie den Preis pro Karte an", "Preis eingeben"))

        

         ergebnis = anzahl * preis * VVK + ergebnis

         

         MsgBox "... ergibt insgesamt " & Format(ergebnis, "#,##0.00 €"), , "Gesamtpreis"

         

         antwort = MsgBox("Möchten Sie noch weitere Karten kaufen?", vbYesNo, "Weiter?")

         

    Loop Until antwort = vbNo

End Sub

Wobei ich denke, dass dies eine Hausaufgabe sein sollte - denn sonst hättest du auch deinen Lehrer um die Lösungen beten können.

besten dank!
hab ja während des abis keine schule mehr, also ist es auch keine hausaufgabe o.ä.!