Hallo,
ich möchte anhand eines Buttons „Ja; Nein“ entscheiden, ob der Gesamtbetrag eines Berichtes in das Feld „Betrag“ ins Formular übertragen wird oder nicht.
Die MsgBox erscheint mit dem berechneten Gesamtbetrag. Die Nachfolgende If-Anweisung funzt aber nicht. Es wird nur die 1. If-Anweisung beachtet (die MsgBox wird geschlossen, egal auf welchen Button ich drücke). Tausche ich die Anweisungen, wird wieder nur die erste ausgeführt, der Betrag wird ins Formular übertragen - auch wenn ich auf den Nein-Button klicke.
Die zugrunde liegenden If-Anweisungen für die Öffnung der entsprechenden Formulare und Berichte habe ich mal weggelassen. Anschließend folgt:
…
Dim Ausgabe As String, Auswahl As Integer, Gesamt As Currency
On Error GoTo Err_btn_Bescheid_Click
Gesamt = Reports!rep_Berech_Erstattung_FG_2_BZFK![Gesamtsumme]
Ausgabe = „Der Gesamtbetrag beträgt " & Gesamt & " €“ & Chr(13) & " Betrag in SchuKo übernehmen?"
Auswahl = MsgBox(Ausgabe, vbYesNo + vbExclamation, „Betrag eintragen?“)
If vbNo Then ???
Close ???
ElseIf vbYes Then ???
Forms!frmA_Pers!frmB_Abr![Betrag] = Gesamt ???
End If
Exit_Err_btn_Bescheid_Click:
Exit Sub
Err_btn_Bescheid_Click:
MsgBox „Angaben nicht vollständig!“ & Chr(13) & „Berechnung konnte nicht durchgeführt werden!“, vbCritical, „SchuKo-Fehlermeldung“
End Sub