Guten Abend Forum,
ich habe in meiner Rechnungsübersicht folgendes
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
Hallo,
ZitatNun 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.
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 :D
Grüsse J.D
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
Super, danke Franz!!!
Grüsse J.D