Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss
Actualizar registros de un formulario continuo con un Recordset
294 views
Skip to first unread message
Toni
Dec 12, 2012, 9:49:44 AM12/12/12
to
Buenas de nuevo,
Sigo peleándome con el Recordset...
En el siguiento código intento recorrer los registros de un formulario continuo para actualizar el campo DATACOMGOV de cada registro con el valor de un cuadro de texto independiente DATACOMGOVPRAL:
Dim rst As Recordset
Do While rst.EOF = False
rst.Edit
rst!DataComGov = Me.TxtDataComGovPral
rst.Update
rst.MoveNext
Loop
Me.Recalc
No me funciona... Dónde está la equivocación?
Gracias
Sigo peleándome con el Recordset...
En el siguiento código intento recorrer los registros de un formulario continuo para actualizar el campo DATACOMGOV de cada registro con el valor de un cuadro de texto independiente DATACOMGOVPRAL:
Dim rst As Recordset
Do While rst.EOF = False
rst.Edit
rst!DataComGov = Me.TxtDataComGovPral
rst.Update
rst.MoveNext
Loop
Me.Recalc
No me funciona... Dónde está la equivocación?
Gracias
José Mª Fueyo
Dec 12, 2012, 11:39:25 AM12/12/12
to
Hola
¿Como creas la variable rst? podrías hacerlo mediante la propiedad Recordset del formulario
set rst=me.Recordset
Salu2
--
José Mª Fueyo
[MS MVP Access]
¿Como creas la variable rst? podrías hacerlo mediante la propiedad Recordset del formulario
set rst=me.Recordset
Salu2
--
José Mª Fueyo
[MS MVP Access]
Toni
Dec 13, 2012, 5:30:28 AM12/13/12
to
Gracias, jose Mª
Estoy probando el código siguiente, pero no funciona. El formulario es continuo y muestra 4 registros, pero los valores EOF i BOF del recordset son Falsos ya al inicio del código, por lo que no hace el Loop y no actualiza TelfCont.
Set rst = Me.Recordset
Dim iContador As Integer
Do While rst.EOF = True
rst.Edit
rst!Txt1 = iContador
rst.Update
iContador = iContador + 1
rst.MoveNext
Loop
Me.Recalc
No entiendo mucho de Recordset. Que puede pasar?
El dimecres 12 de desembre de 2012 17:39:25 UTC+1, José Mª Fueyo va escriure:
Estoy probando el código siguiente, pero no funciona. El formulario es continuo y muestra 4 registros, pero los valores EOF i BOF del recordset son Falsos ya al inicio del código, por lo que no hace el Loop y no actualiza TelfCont.
Set rst = Me.Recordset
Dim iContador As Integer
Do While rst.EOF = True
rst.Edit
rst!Txt1 = iContador
rst.Update
iContador = iContador + 1
rst.MoveNext
Loop
Me.Recalc
No entiendo mucho de Recordset. Que puede pasar?
El dimecres 12 de desembre de 2012 17:39:25 UTC+1, José Mª Fueyo va escriure:
José Mª Fueyo
Dec 13, 2012, 6:19:44 AM12/13/12
to
Hola
Sí un recordset tiene sus propiedades BOF y EOF a true, significa que no tiene registros (mira en la ayuda para más información). Por tanto, para recorrerlos haz mejor
Do Until rs.EOF
Sí un recordset tiene sus propiedades BOF y EOF a true, significa que no tiene registros (mira en la ayuda para más información). Por tanto, para recorrerlos haz mejor
Do Until rs.EOF
Toni
Dec 14, 2012, 3:31:29 AM12/14/12
to
Bien, funcionó, gràcias!
El dijous 13 de desembre de 2012 12:19:44 UTC+1, José Mª Fueyo va escriure:
El dijous 13 de desembre de 2012 12:19:44 UTC+1, José Mª Fueyo va escriure:
José Mª Fueyo
Dec 14, 2012, 3:58:09 AM12/14/12
to
:-)
0 new messages