|
New user
Beiträge: 2
| Hallo zusammen, ich habe mal eine Frage und hoffe das diese jemand beantworten kann.
Ich muss gestehen ich arbeite mehr hobbymäßig mit Access freue mich aber immer wieder wenn ich sehe was man alles damit machen kann.
Allerdings suche ich jetzt schon seit einigen Wochen erfolglos im Internet nach einer Lösung meines Problems, glaube schon fast das ich vllt. die falschen Suchbegriffe eingebe.
Nun zu meinem Problem.
Ich habe ein Hauptformular (mit zugehöriger Tabelle ) in dem nur 2 Textfelder beschrieben werden müssen.
Die eingegebenen Daten werden über eine Abfrage mit Daten aus einer anderen Tabelle erweitert/verglichen und diese Daten dann in meinem Formular in einen UFO (Einzelformulare) wiedergegeben.
Das ganze soll so funktionieren das Ich im HF in Textfeld1 einen Text eingebe, danach in Textfeld2 auch einen Text eingebe.
Nach der 2.Texteingabe wird das UFO automatisch aktualisiert und gibt die Daten/Ergebnisse der Abfrage wieder.
Wenn in der Abfrage eine Übereinstimmung von bestimmten Daten gefunden werden der Wert 1 berechnet.
Ich möchte nun das wenn Wert=1 ist, automatisch ein Bericht ausgedruckt wird, leider bekomme ich das nicht auf die Kette.
Habe tausend verschiedene Sachen ausprobiert , alle erfolglos, ich weiß einfach nicht wo ich den Code einbauen soll so das der Bricht gedruckt wird.
Dachte das er in UFO Formulareigenschaften "Nach Aktualisierung" rein muss, da ja bei nur Eingabe der 2 Textfelder im HF das Formular gerefresht wird durch die Abfrage, es tut sich aber gar nüscht.
Das UFO benötige ich leider da dort ein Mapping mit anderen Daten stattfinden soll.
Wie schon gesagt ich bekomme es einfach nicht auf die Kette, wäre schon wenn jemand helfen könnte.
Diesen Code hatte ich gefunden und überall versucht einzubauen, Vor Aktualisierung, nach Aktualisierung und so weiter und so weiter aber es druckt nüscht.
Private Sub Form_AfterUpdate()
If Me.Mapping.Value <> 0 Then
Me.Undo
Cancel = True
End If
DoCmd.OpenReport "Bericht1", acViewNormal, , , acDialog
End Sub
Danke im Voraus für jede Hilfe und entschuldigt bitte wenn es zu viel oder zu wenig ausführlich geschrieben ist.
DR | |
|
Wenn Wert = 1 im UFO dann Bericht Druck