Hallo Liebes Forum!
Ich habe ein UF "Verstorbener1". Hier ist ein Formularfeld "Wer_gibt_Auskunft".
Jetzt habe ich eine Abfrage "Auskunftgeber" erstellt. Hier ist das Ergebnis "Auskunft".
Dann habe ich eine Befehlsschaltfläche "Befehl97" eingebaut.
Das Formular hat "FK-Auftrag" und die Abfrage hat "FK_AuftragsID" als Verknüpfung.
Jetzt suche ich den Code für die Befehlsschaltfläche beim Klicken um das Abfrageergebnis in das Formularfeld einzufügen.
Wenn ich einmal eine Lösung haben, kann ich die Codes für die anderen Befehlsschaltflächen selber zusammenstellen.
Danke schon mal für Eure Hilfe.
Dorian
Hallo,
Sub Befehl97_Click()
Me!AnzeigeTextfeld= Dlookup("Auskunft","Auskunftgeber")
End Sub
(wenn ich das richtig verstanden habe..)
Hallo Franz!
Habe diesen Code:
Private Sub Befehl97_Click()
Me!Wer_gibt_Auskunft = DLookup("Auskunft", "Auskunftgeber")
End Sub
eingefügt.
Klappt auch bis auf einen Fehler. Jetzt wird der erste Datensatz der Abfrage eingefügt. Aber wie bekomme ich den richtigen Datensatz hin?
Das UF "Verstorbener1" hat als Schlüssel "FK_Auftrag"
Die Abfrage hat als Schlüssel "FK_AuftragsID"
Wie kann ich das verknüpfen?
Dorian
Hallo,
wenn sich alles im UFO abspielt, dann so:
Private Sub Befehl97_Click()
Me!Wer_gibt_Auskunft = DLookup("Auskunft", "Auskunftgeber","FK_AuftragsID= " & [FK-Auftrag])
End Sub
wobei der Wert von FK-Auftrag aus dem akt. markierten Datensatz genommen wird.
Hallo Franz!
Private Sub Befehl97_Click()
'Der Auftraggeber wird automatisch in das Feld Wer gibt Auskunft eingetragen.
Me!Wer_gibt_Auskunft = DLookup("Auskunft", "Auskunftgeber", "FK_AuftragsID = " & FK_Auftrag)
End Sub
Ich musste nur noch die eckigen Klammern bei FK_Auftrag entfernen. Jetzt funktioniert es genau richtig! Jetzt weiß ich wie ich Abfragen auf Befehlsschaltflächen legen kann!
Vielen Dank!!!
LG
Dorian
Hallo,
das hat eher weniger mit den Eckklammern zu tun als mit der richtigen Schreibweise des Namens.. Eigentlich heißt es richtig:
Me!Wer_gibt_Auskunft = DLookup("Auskunft", "Auskunftgeber", "FK_AuftragsID = " & Me!FK_Auftrag)
oder
Me!Wer_gibt_Auskunft = DLookup("Auskunft", "Auskunftgeber", "FK_AuftragsID = " & Me![FK_Auftrag])
Hallo!
Ja ich hatte das "ME!" nicht davor. Aber jetzt klappt es. Habe schon die nächsten Befehlsschaltflächen mit Abfragen versehen. Man lernt immer wieder dazu.
Dorian