** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Access y VBA > Access y VBA
  Mensajes nuevos Mensajes nuevos RSS - No recorre la tabla
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradoNo recorre la tabla

 Responder Responder
Autor
Mensaje
Nomada Ver desplegable
Colaborador
Colaborador


Unido: 03/Julio/2011
Localización: España
Estado: Sin conexión
Puntos: 1719
Enlace directo a este mensaje Tema: No recorre la tabla
    Enviado: 19/Junio/2020 a las 11:29
Buenas.
Que puede fallar para que el siguiente código no recorra la tabla?:
 Dim cadena As String, RecReg As DAO.Recordset
   cadena = "T_Maestro"
   Set RecReg = CurrentDb.OpenRecordset(cadena)
   With RecReg
      .MoveFirst
      Do While Not .EOF
         Me.AAA2 = Right(Me.AAA, 5)
         .MoveNext
      Loop
   End With
   RecReg.Close: Set RecReg = Nothing

Gracias.
Arriba
mounir Ver desplegable
Colaborador
Colaborador


Unido: 09/Febrero/2009
Localización: Asturias-España
Estado: Sin conexión
Puntos: 6479
Enlace directo a este mensaje Enviado: 19/Junio/2020 a las 12:03
Hola!

Pero que quieres hacer?.. Actualizar, Editar, o insertar?

Te recomiendo leer el capitulo 4 del "Curso Access y VBA Fermí Vilá". Viene todo lo que hay que saber sobre RecordSet.
Un Saludo.
Arriba
Nomada Ver desplegable
Colaborador
Colaborador


Unido: 03/Julio/2011
Localización: España
Estado: Sin conexión
Puntos: 1719
Enlace directo a este mensaje Enviado: 19/Junio/2020 a las 12:48
Actualizar el campo AAA2 con los 5 caracteres por la derecha del campo AAA.
Voy a leer el capítulo 4
Arriba
mounir Ver desplegable
Colaborador
Colaborador


Unido: 09/Febrero/2009
Localización: Asturias-España
Estado: Sin conexión
Puntos: 6479
Enlace directo a este mensaje Enviado: 19/Junio/2020 a las 12:51
Hola!

En tu código no haces referencia a actualizar y por eso no funciona.

En el capitulo 4 lo tienes así lo vas entiendo mejor.
Un Saludo.
Arriba
Nomada Ver desplegable
Colaborador
Colaborador


Unido: 03/Julio/2011
Localización: España
Estado: Sin conexión
Puntos: 1719
Enlace directo a este mensaje Enviado: 19/Junio/2020 a las 13:01
Gracias. Ya he visto el Capítulo 4 y no hace falta utilizar ningún recordset. Con solo la instrucción Do While basta.
Perfecto.
Este hilo se puede cerrar satisfactoriamente.
Saludos.
Pda. Qué diferencia hay entre utilizar en VBA el punto (me.campo) o la admiración (me!campo)?


Editado por Nomada - 19/Junio/2020 a las 13:07
Arriba
xavi Ver desplegable
Administrador
Administrador
Avatar
Terrassa-BCN

Unido: 10/Mayo/2005
Localización: Catalunya ||||
Estado: Sin conexión
Puntos: 14720
Enlace directo a este mensaje Enviado: 20/Junio/2020 a las 00:10
Ni te hace falta un recordset ni parece que te haga falta un Do While.

En cuanto a tu pregunta. Es más una cuestión de estilo que formal. A nivel práctico no existe diferencia. Solo que es más académico utilizar ! cuando a continuación va un campo y el . cuando a continuación va una propiedad o método (que seguro que no pueden ir detrás de !)

Xavi, un minyó de Terrassa

Mi web
Arriba
Nomada Ver desplegable
Colaborador
Colaborador


Unido: 03/Julio/2011
Localización: España
Estado: Sin conexión
Puntos: 1719
Enlace directo a este mensaje Enviado: 21/Junio/2020 a las 12:58
Gracias.
Pero entonces si no es con Do While, cómo recorrerías la tabla de registros?
Arriba
javier.mil Ver desplegable
Colaborador
Colaborador
Avatar

Unido: 10/Agosto/2005
Localización: España
Estado: Sin conexión
Puntos: 4812
Enlace directo a este mensaje Enviado: 21/Junio/2020 a las 13:50
con SQL puedes hacerlo

Ejemplo:

            Dim strSQL As String           
               
                DoCmd.SetWarnings False
               ' borra todo todo el campo ACtivo
                strSQL = "UPDATE tblPhones SET tblPhones.Activo = False;"
                DoCmd.RunSQL strSQL
               
    ' Actualiza el campo Activo segun el combo
                strSQL = "UPDATE tblPhones SET tblPhones.Activo = True " _
                & "WHERE (((tblPhones.Phones)='" & txtPhones & "'));"
                DoCmd.RunSQL strSQL
               
                DoCmd.SetWarnings True


Arriba
Nomada Ver desplegable
Colaborador
Colaborador


Unido: 03/Julio/2011
Localización: España
Estado: Sin conexión
Puntos: 1719
Enlace directo a este mensaje Enviado: 23/Junio/2020 a las 09:22
Gracias.
Este hilo se puede cerrar satisfactoriamente.
Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable