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
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
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
Hallo,
.
.
.
While Not rs.EOF
rs.Edit
rs![Gl_Durchwahl_KP] = "123456"
rs.Update
rs.MoveNext
.
.
Hallo DF6GL,
ich danke dir so klappt es ;D
Frage:
sprche ich denn jetzt alle Felder mit " rs![Feldname]" an ?
naja, offensichtlich ;D
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 ???
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
ich glaube da fehlt ein rsb.update
...
rsB![Text] = "123456"
rsB.Update
rsB.Close
....
Hallo lumbumba,
;D danke du hattest recht
läuft nun werde mich dann mal an die arbeit machen alles umzustellen wie ichs haben will :)