Endlosformular

[firela112]

Code [Auswählen] Erweitern

Private Sub Befehl50_Click()
If Me![AT-Strecke] = -1 Then

Dim rsf As Recordset
Set rsf = Me.RecordsetClone
rsf.MoveFirst
Do Until rsf.EOF
With rsf
    Me![Auswertung_Übung Unterformular].Form![letzte_Atemschutzstrecke] = Me![ÜbungDatumAnfang]
End With
rsf.MoveNext
Loop
End If
End Sub
Dabei soll es mir im Unterformular alle Datensätze mit dem ÜbungDatumAnfang (HF) befüllen, jedoch machts ma des nur bei dem markierten.
Wo isn da mein Fehler?

[MzKlMu]

Hallo,
Deine Erklärung ist etwas dürftig.
Siehe auch:
http://www.ms-office-forum.net/forum/showthread.php?t=346640

Gleichzeiges Fragen in mehreren Foren (Grossposting) ist unerwünscht.
Siehe Forumsregeln.

[firela112]

oki, hab net gewusst, dass die beiden forums zusammenhängen

[MzKlMu]

Hallo,
die Foren hängen nicht zusammen.