Merhaba.
Konu başlığındakiler ne işe yarıyor.Açıklayabilirmisiniz örnekle.

DoCmd.OpenForm "F_Sporcu", , , , , , Me.lstVizesiDolanLisanslar
For Gveri = 0 To SporcuRS.RecordCount - 1
AlanDoldur
SporcuRS.MoveNext
If Me.TcNo_TXT = Me.OpenArgs Then
Exit For
End If
Next Gveri