Formular Abfrage

kinglui_9e2551 · 9. November 2019 um 08:01

Hallo

Ich habe ein Problem.

Und zwar will ich über ein Formular eine Abfrage aus einer Tabelle machen. Das erste Feld ist ein Kombinationsfeld. Wenn ich bei diesem Feld ein Datensatz aussuche sollen alle nachfolgenden Felder (Ingesamt 10 Feldlisten) mit den zugehörigen Daten zum Kombinationsfeld gefüllt werden. Dieses passiert bis jetzt aber leider nicht. Wenn ich beim Kombinationsfeld ein Datensatz aussuche bleiben die Daten in der anderen Felder unverändert. Wie kann ich es nun hinbekommen, dass sich die nachfolgenden Felder automatisch verändern???

Danke, Kinglui

Eillicht_zu_Vensre_ac055a · 9. November 2019 um 08:01

Hallo

Hallo.

Ich habe ein Problem.

Ach was?

Kombinationsfeld ein Datensatz aussuche bleiben die Daten in
der anderen Felder unverändert. Wie kann ich es nun
hinbekommen, dass sich die nachfolgenden Felder automatisch
verändern???

Private Sub Kombinationsfeld_AfterUpdate()
AnderesFeld.Requery
NochnAnderesFeld.Requery
…
End Sub

Gruß Eillicht zu Vensre

Netwolf · 9. November 2019 um 08:02

Hallo Kinglui,

Und zwar will ich über ein Formular eine Abfrage aus einer
Tabelle machen.

D.h. du nutzt das Kombifeld um die Datensätze der Datenbasis des Formulars auszuwählen? Oder handelt es sich um eine andere Tabelle?
Wie ist die Tabelle dann mit der des Formulars verknüpft?
Wie sieht dein Ereignis des Kombifeldes mit VBA-Code aus?

Das erste Feld ist ein Kombinationsfeld. Wenn
ich bei diesem Feld ein Datensatz aussuche sollen alle
nachfolgenden Felder (Ingesamt 10 Feldlisten)

äh, was denn nun, Felder, oder Feldlisten? Was meinst du mit Feldlisten? Meinst du Listenfelder?

mit den zugehörigen Daten zum Kombinationsfeld gefüllt werden.

wieviele Columns hat das Kombifeld? Welche Columns sollen in die anderen Felder übernommen werden?

Dieses passiert bis jetzt aber leider nicht.

logo, das mußt du auch in VBA programmieren.

Wenn ich beim
Kombinationsfeld ein Datensatz aussuche bleiben die Daten in
der anderen Felder unverändert. Wie kann ich es nun
hinbekommen, dass sich die nachfolgenden Felder automatisch
verändern???

Sorry, da ist eine konkrete Hilfe nicht möglich! Deine Informationen sind unvollständig bzw. kann ich nicht erkennen was du bewirken willst!? Vielleicht könntest du einfach mal aufschreiben was da passieren soll und wie die Zusammenhänge sind!?

Grüße aus Essen
Wolfgang

kinglui_9e2551 · 9. November 2019 um 08:03

Vielen Dank erst einmal für die bisherige Hilfe.

Aber bis jetzt konnte ich das Problem damit nicht lösen.
Ich erklär deswegen mein Problem noch mal etwas genauer. Vielleicht kann mir dann einer helfen.

Ich habe ein Formular, das mir einfach nur Daten anzeigen soll. In diesem Formular kann man durch ein Kombinationsfeld den Nachnamen aussuchen. Nun soll in den nachfolgenden Textfeldern die zum Nachnamen dazugehörigen Daten angezeigt werden (Vorname, Straße, Adresse etc.). Alle Daten befinden sich in einer Tabelle Patienten. Also sowohl der Nachname als auch Vorname, Straße, Adresse etc.) Bis jetzt gibt es keine VBA Code. Weder für das Kombinationsfeld noch für die Textfelder. Ich habe von VBA auch nicht so den Plan.
Wie kann man nun es ermöglichen, dass wenn ich beim Kombinationsfeld zum Beispiel den Nachnamen ‚Müller’ auswähle, die dazugehörigen Daten in den Textfeldern angezeigt werden?

Eillicht_zu_Vensre_ac055a · 9. November 2019 um 08:03

Alle Daten befinden sich in einer Tabelle Patienten. Also sowohl der
Nachname als auch Vorname, Straße, Adresse etc.) Bis jetzt gibt es
keine VBA Code.

ALso, Du wählst das Feld „Nachname“ aus und schreibst da „Schnullerbacke“ rein. Dann musst Du dafür sorgen, dass die anderen Felder mitbekommen, dass der gewählte Nachname sich geändert hat. Das geschieht über die Ereignisprozedur „Nachname_AfterUpdate“, die ich Dir schon kurz skizzor. Wichtig ist, dass in der Datenherkunft der Folgefelder die Abhängigkeit zum Nachnamen auch hinterlogen wird. Wenn Dein Formular einfach nur auf der Abfrage „SELECT Name, Vorname FROM Patienten“ basiert, kannst Du im Formular „Schnullerbacke“ als Nachnamen eintragen, bis die Hölle zufriert - das Formular hat immer noch die gleiche Datenherkunft.

Also musst Du die Datenherkunft der abhängigen Felder dynamisch während der Anzeige des Formulars ändern. Genau das passiert in der Ereignisprozedur „AfterUpdate“, z.B. so :

Private Sub Nachname\_AfterUpdate()
Vorname.RowSource="SELECT Primärschlüssel,Vorname "+ \_
 "FROM Patienten WHERE Nachname="+ \_
 Me.Nachname
Vorname.Requery
End Sub

Das setzt voraus, dass sowohl Nachname als auch Vorname in Deinem Formular als Kombinationsfelder definoren sind. Im Feld „Vorname“ stellst Du die Spaltenanzahl auf 2 und die Spaltenbreiten auf „0cm;3cm“. Fertig.

Gruß Eillicht zu Vensre