Unterformular speichert keine Daten (Stichwort Schlüsselfelder)

[MzKlMu]

Hallo,

Der besteht aber auch nur aus drei Krontrollkästchen.

Ein Reiter für 3 Kontrollkästchen ?
Was stellen die denn dar ?

Zu was werden denn die Kostenträger zugeordnet ?
Zum Mandaten ?
Zum Vorgang ?
Zur Rechnung ?

Erkläre das mal genauer.

[Parzelle387]

Hallo,

ich habe mittlerweile insgesamt 4 Reiter hinzugefügt.
Alle werden den Personen(Mandanten) zugeordnet, verknüpft über die PersonID
1. Kontoverbindung, 2. Pflegegrad, 3. Verteilschlüssel der Kostenträger, 4. Kostenträger.

Ist es eigentlich nicht vielleicht doch möglich, den Reiter mit den Rechnungen/Vorgängen irgendwie von den anderen zu trennen ? Ich dachte da an das gleiche Formular Erfassen NUR mit dem Ufo Rechnungen....
Hintergrund ist, die Kundendaten gebe ich ja in der regel nur einmal ein, bis auf die ein oder andere Änderung bei Bedarf.
Das mit den Vorgängen und Rechnungen ist die eigentliche "Arbeit".
Hier heraus möchte ich ja auch diverse Berichte erzeugen, die dann an die Kundendaten geknüpft sind. Also z.B. nach Eingabe der Rechnungen entsprechende Schreiben an die Kostenträger erzeugen etc..

[MzKlMu]

Hallo,

den Reiter mit den Rechnungen/Vorgängen irgendwie von den anderen zu trennen ?

Ja, das ist schon möglich. Bedenke aber, dass das auf diesem Register/Reiter 2 Unterformulare sind. Ufo1 zeigt die Vorgänge und darin ist ein Ufo das die Rechnungen zum Vorgang zeigt. Du brauchst also ein Formular das die Vorgänge in einem Hafo zeigt und darin muss ein Ufo für die Rechnungen angelegt werden.
Im Hafo für die Vorgänge musst Du eine Möglichkeit schaffen (z.B. mit einem Kombi oder Listenfeld) einen Mandanten zu suchen und anzuzeigen. Dabei ist zu bedenken, dass ein Mandant mehrere Vorgänge haben kann.

[Parzelle387]

Kann ich eigentlich die langen Listenfelder (Vorgang suchen & Personen suchen) sortieren ?
Im Moment steht der "älteste" Datensatz oben.
Bei den Personen ist es egal, aber bei den Vorgängen wäre es schön, wenn der "letzte/neueste" oben steht.

[MzKlMu]

Hallo,
natürlich kannst Du die sortieren. Die Listenfelder haben als Datenherkunft eine Abfrage (auf die 3 Punkte hinten klicken in der Zeile) und in jeder Abfrage kannst Du wie gewünscht sortieren.

[Parzelle387]

In der Datenherkunft war keine Abfrage drin, daher hatte ich mich schon gewundert.
Hab jetzt eine Abfrage eingefügt und "sortieren"eingestellt.

Ich kann aber da eintragen was ich will, absteigend oder aufsteigend, es bleibt immer der 1. Eintrag oben stehen.
Kann das mit den Filterkriterien des Ereignisses beim Anzeigen zusammen hängen ?

[DF6GL]

Hallo,

In der Datenherkunft war keine Abfrage drin, daher hatte ich mich schon gewundert.

Dann wird die Datensatzherkunft vermutlich durch VBA-Code eingestellt.

Kann das mit den Filterkriterien des Ereignisses beim Anzeigen zusammen hängen ?

und was stehen denn dort für Kriterien?  Zeig mal den Code..

[Parzelle387]

Das Listenfeld selbst:

Private Sub lstVorgangSuchen_AfterUpdate()
Dim rs As Object
    Set rs = Me.Recordset.Clone
    rs.FindFirst "[VorgangsID] = " & Me.lstVorgangSuchen
    If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub

Private Sub lstVorgangSuchen_GotFocus()
    Me.lstVorgangSuchen.RowSource = "SELECT VorgangsID, VorgDatum, lfdNr, Vorgabgeschlossen FROM tblVorgang WHERE PersonID_F=" & Me.PersonID_F
End Sub

Das Ufo:

Private Sub Form_Current()
    Me.lstVorgangSuchen.RowSource = "SELECT VorgangsID, VorgDatum, lfdNr, Vorgabgeschlossen FROM tblVorgang WHERE PersonID_F=" & Me.PersonID_F
    Me.lstVorgangSuchen = Me.VorgangsID
End Sub

[MzKlMu]

Hallo,
die Zuweisung von RowSource (Datenherkunft) per VBA hebt die Einstellungen in den Eigenschaften auf. Die kannst Du dort wieder löschen.
Ergäze die "Select ... " Zeile wie folgt.

Code [Auswählen] Erweitern

"SELECT VorgangsID, VorgDatum, lfdNr, Vorgabgeschlossen FROM tblVorgang WHERE PersonID_F=" & Me.PersonID_F & " Order By Feldname"Sortiert aufsteigend.

Code [Auswählen] Erweitern

...Order By Feldname Desc"
sortiert absteigend. Leerzeichen vor Order nicht vergessen.
Beide Select Zeilen entsprechend ergänzen.
Mit Order By kann man auch eine kommagetennte Feldliste übergeben um nach mehreren Feldern zu sortieren.

[Beaker s.a.]

Beide Select Zeilen entsprechend ergänzen.

Wobei die Zuweisung bei "GotFocus" überflüssig ist.

[Parzelle387]

Funktioniert super.

Ihr seid echt Klasse

[MzKlMu]

Halo,
@ekkehard

Wobei die Zuweisung bei "GotFocus" überflüssig ist.

nein, ist es nicht. Wenn in einem bestehenden Datensatz (wegen einer Falscheingabe z.B.) die PersonID_F geändert werden muss, so wird Form_Current() nicht ausgelöst. Das Listenfeld lstVorgangSuchen muss aber trotzdem angepasst werden, daher ist "GotFocus" notwendig.

[Beaker s.a.]

Hallo Klaus,

so wird Form_Current() ausgelöst ...

... und das Listfeld aktualisiert, - oder was übersehe ich dabei?
gruss ekkehard

[DF6GL]

Hallo,

Klaus hat hier :

so wird Form_Current() ausgelöst

"..nicht.." vergessen...

[MzKlMu]

Ja, habe das nicht vergessen. Habe es oben noch nachgetragen.
Danke für den Hinweis.