Bericht anhand vom gespeicherten Wert Ja/Nein

[J.D]

Guten Abend Forum,

ich habe in meiner Rechnungsübersicht folgendes

Code [Auswählen] Erweitern

Private Sub Rechnungs_NR_DblClick(Cancel As Integer)
    stDocName = "Rechnungen"
    DoCmd.OpenReport stDocName, acPreview, , "NR =" & Me!Rechnungs_NR & ""
End Sub
dieses öffnet mir mein Standard Bericht,
Nun möchte ich aber wenn die auswahl in der Tabelle  Rechnung der Wert Privat auf Ja steht ein anderes Formular geladen werden.

Ich habe schon ein wenig Goggle generft, aber irgendwie komme ich da nicht weiter! *traurig*

Grüsse J.D

[DF6GL]

Hallo,

Nun möchte ich aber wenn die auswahl in der Tabelle  Rechnung der Wert Privat auf Ja steht ein anderes Formular geladen werden

Was meinst Du damit? Was ist "Auswahl in der Tabelle"?


Erklär das mal genauer.

[J.D]

Ich habe in der Tabelle Rechnungen das Feld Rechnung_Privat, mit den werten Ja/Nein.

Die Rechnungsübersicht ist EndlosForm in welcher das Makro auf die Rechnungs_NR gelegt ist.

Praktisch müsste ich jetzt prüfen

Private Sub Rechnungs_NR_DblClick(Cancel As Integer)

Ist Rechnungs_NR in Tabelle Rechnungen wert Privat Ja dann

    stDocName = "Rechnungen_Privat"
    DoCmd.OpenReport stDocName, acPreview, , "NR =" & Me!Rechnungs_NR & ""

Else

    stDocName = "Rechnungen"
    DoCmd.OpenReport stDocName, acPreview, , "NR =" & Me!Rechnungs_NR & ""

End Sub

Sorry wenn es schlecht ausschaut aber so gut hab ich es dann auch noch nicht auf den Access, bin froh das es mit dem Bericht so weit Funktioniert und das ich das mit dem BIC & IBAN hinbekommen habe... Bissel kann ich ja, aber da haue ich gerade mit den finger auf die Tastatur

Grüsse J.D

[DF6GL]

Hallo,

macht ja nichts... Nur das Problem sollte klar werden/sein...

Private Sub Rechnungs_NR_DblClick(Cancel As Integer)

'Ist Rechnungs_NR in Tabelle Rechnungen wert Privat Ja dann
If Dlookup("Privat","Rechnungen","NR =" & Me!Rechnungs_NR) Then
    stDocName = "Rechnungen_Privat"
    DoCmd.OpenReport stDocName, acPreview, , "NR =" & Me!Rechnungs_NR & ""   ist überflüssig

Else

    stDocName = "Rechnungen"
    DoCmd.OpenReport stDocName, acPreview, , "NR =" & Me!Rechnungs_NR & ""
End If

End Sub

[J.D]

Super, danke Franz!!!

Grüsse J.D