Schulaufgaufgabe vba access 2013

Private Sub btnPreisberechnung_Click() Dim Rabattsatz As Single txtBruttopreis = Me.txtAnzahlReifen * ................ .................kdart Case..... Rabattsatz = 15 Case 2 Rabattsatz = 5 Case Else If Me.txtAnzahlReifen = ..............Then Rabattsatz = 5 'kein StKd mit 4 Reifen Else Rabattsatz = 0 'kein StKd nicht 4 Reifen End If Me.txtRabatt = Round (.............* Rabattsatz / 100, 2) Me.txtAngebotspreis = txtBruttopreis - txtRabatt End Private Sub optFirmaOhneSonder_GotFocus() kdart = ............. End Sub Private Sub OptFirmaSondervereinbarung_GotFocus() kdart = ............. End Sub Private Sub optPirvat_GotFocus() kdart = ............. End Sub Private Sub optStammkunde_GotFocus() kdart = ............. End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

1)Ich habe noch einen Fehler gefunden.
2)Hier mit Erklärungen, falls du gefragt wirst.

Private Sub btnPreisberechnung_Click()
Dim Rabattsatz As Single
txtBruttopreis = Me.txtAnzahlReifen * .............'Hier Anzahl der Reifen (Variable oder  _
Textboxname)
Select Case .................kdart ' Case Select (Je nach Kundenart)
Case 1.....'Firma mit Sondervereinbarung
Rabattsatz = 15
Case 2'Firma ohne ...
Rabattsatz = 5
Case 3 'Stammkunde.............
Rabattsatz = 5 '? Keine Ahnung, wieviel Stammkunden bekommen..................
Case Else'Sonst (Also Kein Stammkunde)
If Me.txtAnzahlReifen = 4..............Then'Wenn er 4 Reifen kauft
Rabattsatz = 5          'kein StKd mit 4 Reifen
Else'Sonst kein Rabatt
Rabattsatz = 0          'kein StKd nicht 4 Reifen
End If
End Select 'Select Case Ende..................
Me.txtRabatt = Round (txtBruttopreis.............* Rabattsatz / 100, 2)'Rabattberechnung
Me.txtAngebotspreis = txtBruttopreis - txtRabatt
End
'Ab hier Auswahl Kundenart:

Private Sub optFirmaOhneSonder_GotFocus()
kdart = 2
End Sub

Private Sub OptFirmaSondervereinbarung_GotFocus()
kdart = 1
End Sub

Private Sub optPrivat_GotFocus()
kdart = 4
End Sub

Private Sub optStammkunde_GotFocus()
kdart = 3
End Sub

Private Sub btnPreisberechnung_Click() Dim Rabattsatz As Single txtBruttopreis = Me.txtAnzahlReifen * Me.txtEinzelPreis 'GERATEN, da ich nicht weiss, wie die _ Textbox richtig lautet! Select Case kdart Case 1 Rabattsatz = 15 Case 2 Rabattsatz = 5 Case 3 Rabattsatz = 0 Case Else If Me.txtAnzahlReifen = 4 Then Rabattsatz = 5 'kein StKd mit 4 Reifen Else Rabattsatz = 0 'kein StKd nicht 4 Reifen End If End Select Me.txtRabatt = Round (txtBruttopreis* Rabattsatz / 100, 2) Me.txtAngebotspreis = txtBruttopreis - txtRabatt End Private Sub optFirmaOhneSonder_GotFocus() kdart = 2 End Sub Private Sub OptFirmaSondervereinbarung_GotFocus() kdart = 1 End Sub Private Sub optPirvat_GotFocus() kdart = 3 End Sub Private Sub optStammkunde_GotFocus() kdart = 4 End Sub

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Schulaufgaufgabe vba access 2013

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread