Unterformular in Schleife

[Herbert40]

Hallo Leute,

ich habe ein HF und ein UF welches sich auf das HF bezieht.

nun hätte ich gerne die daten aus dem UF in einer schleife zum weiterverarbeiten.

Da ich mich nicht so gut in VBA auskenne hätte ich gerne mal ein tip wie ich da ran gehe.
habe dort ein grundscript

Code (vb) [Auswählen] Erweitern

Dim rs As DAO.Recordset ' !!! Verweis auf Microsoft DAO x.x !!!
' Zugriff aus HForm
Set rs = Me!uForm.Form.RecordsetClone
rs.MoveFirst
While Not rs.EOF
    MsgBox rs(0)
    rs.MoveNext
Wend
rs.Close

diesen habe ich nun umgestellt

Code (vb) [Auswählen] Erweitern

    Dim rs As DAO.Recordset ' !!! Verweis auf Microsoft DAO x.x !!!
    ' Zugriff aus HForm
    Set rs = Me.Form_U_Koresp_nach_Ma.Form.RecordsetClone
    rs.MoveFirst
    While Not rs.EOF
        MsgBox rs(0)
        [Forms]![Form_Korespondenz]![Form_U_Koresp_nach_Ma]![Gl_Durchwahl_KP] = "123456"
    rs.MoveNext
    Wend
    rs.Close
   

zu test wollte ich daten eintragen aber irgendwie wird immer nur der erste datensats angesprochen

ich danke für jeden ratschlag

[DF6GL]

Hallo,

.
.
.
While Not rs.EOF       
rs.Edit       
rs![Gl_Durchwahl_KP] = "123456"   
rs.Update
rs.MoveNext
.
.

[Herbert40]

Hallo DF6GL,

ich danke dir so klappt es 
Frage:
sprche ich denn jetzt alle Felder mit " rs![Feldname]" an ?

[DF6GL]

naja, offensichtlich 

[Herbert40]

Hallo DF6GL,

zu jeden Datensatz aus dem UF existiert ein weiterer Datensatz. ich habe nun ein weiteres UF eingefügt und wollte dort dann ein datensatz anfügen. irgendwie will der aber nicht so als ich das will 

Code (vb) [Auswählen] Erweitern

Dim rs As DAO.Recordset ' !!! Verweis auf Microsoft DAO x.x !!!
    Dim rsB As DAO.Recordset
    ' Zugriff aus HForm
    Set rs = Me.Form_U_Koresp_nach_Ma.Form.RecordsetClone
    rs.MoveFirst
    While Not rs.EOF
    rs.Edit
    rs![Gl_Durchwahl_KP] = "123456"
    rs.Update
    Me.AKZ_Auswahl.SetFocus
    Me.test = rs![Gl_Name]
    Set rsB = Me.UF_Bemerkung.Form.RecordsetClone
    rsB.AddNew
    rsB![Bem_AKZ] = rs![Sch_AKZ]
    rsB![Datum] = Date
    rsB![Text] = "123456"
    rsB.Close
    rs.MoveNext
    Wend
    rs.Close

was habe ich denn dort schon wieder falsch 

er läuft durch ohne fehlerangabe legt aber kein neuen Datensatz an

[lumbumba]

ich glaube da fehlt ein rsb.update
...
rsB![Text] = "123456"
rsB.Update
rsB.Close
....

[Herbert40]

Hallo lumbumba,

danke du hattest recht

läuft nun werde mich dann mal an die arbeit machen alles umzustellen wie ichs haben will