Office: Formular Wert per Klick in ein anderes Feld übernehmen

Guten Tag

Ich bin am Anschlag und brauche euer Schwarmwissen.
Da ich eher zu den Anfänger gehöre, brauche ich auch einfache Erklärungen, damit ich in Zukunft verstehe. :-D

Es handelt sich um eine DB um die Teilnehmer der vielen Jugend-Turnierwochen zu managen.

Hauptformular: Form_HF_Woche_Jahr (Einzelnes Formular)
Unterformular: Form_UF_Teilnehmer_Starting (Endlosformular)
Verknüpfung zum Filtern beim öffnen des UF: ID->Woche_Jahr_f
zusätzlich zeigt er mir nur die an, die nicht nur den gleichen Wert bei Woch_Jahr_f haben, sondern auch nur die, die bei Aktiv=Wahr und bei Warteliste=Falsch enthalten.

Ich habe eine Feld in einer Abfrage gemacht, die per Wenn-Formel den Startingwert für das jeweilige Kind ausgiebt. Es gibt aber eine Sonderregel in diesem Sport, die ganz wenigen Kindern erlaubt den Startingpunkt selbst zu definieren. Deswegen will ich nicht, dass der Wert von der Abfrage automatisch in die Teilnehmertabelle übertragen wird. Dies soll nur funktionieren, wenn ich den Button drücke.
Aktuell habe ich folgenden Code im Button (im UF) hinterlegt:

Private Sub Befehl24_Click()
Me!Starting_f.Value = Me!Starting_Zahl
End Sub

Das funktioniert, aber nur im Datensatz der den Focus hat. Es soll aber alle aktuell angezeigten Datensätze dann bearbeiten. Also wären Textlich gesprochen der Befehl:

Beim drücken des Button kopiere den Wert vom Feld Starting_Zahl in das Feld Starting_f bei den Datensätzen die angezeigt werden. Falls Starting_f einen Wert hat, soll dieser überschrieben werden.

Ich hoffe ich habe mich klar ausgedrückt. Anbei noch ein paar Bilder, die dies ev. Verdäutlichen.
System = Starting_Zahl
Manuell = Starting_f

Abfrage:


Tbl_Teilnehmer


Besten Dank euch allen.

Liebe Grüsse
Aaron

 

Hallo Aaron,

es gibt mehrere Möglichkeiten:

1. Du baust eine entsprechende "Aktualisierungsabfrage" der Du die Startingzahl als Parameter übergibst.

2. Du erstellst eine VBA-Prozedur in der Du das Recordset so filterst, dass es nur die zu aktualisierenden Sätze enthält. Das arbeitest Du dann mit dountil rs.eof und movenext sequentiell ab.

Beides sind Themen, die, sie hier im Detail zu erläutern, zu weit führt. Aber mit den genannten Stichworten lässt sich das nötige Wissen anlesen.

 

Guten Tag Andreas
Vielen Dank für den Tipp.

Funktioniert soweit ganz gut. Er Aktualisiert mir aber alle Datensätze. Ich habe es dann so versucht:

Private Sub Befehl24_Click()
DoCmd.OpenQuery "Abf_Akt_Starting_Zahl"
DoCmd.ApplyFilter , "[Funktion_f]=7"
DoCmd.ApplyFilter , "[Warteliste]=False"
DoCmd.ApplyFilter , "[Aktiv]=True"
DoCmd.ApplyFilter , "[Woche_Jahr_f]=Me.tbl_Woche_Jahr.ID"
End Sub

Es ändert noch immer über 320 Datensätze. Es sollten aber nur noch zwischen 30 und 40 Datensätze sein.

zu:

Da verstehe ich leider nur Spanisch was ich machen soll. Leider fand ich auch nichts, was mir dies erklärt, so, dass auch ein "Idiot" wie ich es verstehe.

Liebe Grüsse und vielen Dank nochmals.
Aaron

 

Wenn Du mit der ersten Version umgehen kannst ist das ja o.k.
MIt dem Apply Filter änderst Du den Filter jedesmal auf nur den einen Wert. Du must also einen Filterstring bilden wo alle Filter logisch miteinander verknüpft sind. Also ähnlich:

Code:

DoCmd.ApplyFilter , "[Funktion_f]=7 AND [Warteliste]=False AND [Aktiv]=True   AND [Woche_Jahr_f]=Me.tbl_Woche_Jahr.ID"

Neben AND gibt es naturlich auch OR. Das kann manchmal verwirrend sein, wenn man die Operanden beide verwendet.
Stichwort: Logische Verknüpfungen.

 

Moin Andreas

Danke für deine Hilfe. Ich konnte die Aktualisierungsabfrage erstellen und wie oben geschrieben mit dem Code auslösen. Aber das mit dem Filter setzen über ApplyFilter hat nicht funktioniert. Ich habe nun Stunden probiert. Keine Lösung gefunden. Wenn was passiert ist, dann nur, dass die AF ausgeführt wurde und im Formular versuchte man die Filter zu setzen.
Ich habe dies nun so gelösst:


Das Feld ID wird bei der Abfrage durch eine manuelle Eingabe gefüttert. Nicht wirklich elegant aber es funktioniert.
Liebe Grüsse
Aaron