** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Access y VBA > Access y Otros sistemas
  Mensajes nuevos Mensajes nuevos RSS - Cuadro combinado modificar valores
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradoCuadro combinado modificar valores

 Responder Responder
Autor
Mensaje
neya_19 Ver desplegable
Asiduo
Asiduo


Unido: 12/Abril/2011
Localización: España
Estado: Sin conexión
Puntos: 447
Enlace directo a este mensaje Tema: Cuadro combinado modificar valores
    Enviado: 03/Enero/2014 a las 12:15
Buenos días,

Tengo un formulario que mediante unos filtros selecciono unos registros en concreto. Luego tengo otro cuadro combinado que lo que estoy intentando hacer es modificar todos los registros seleccionados para ese campo y poner el valor del cuadro combinado. He aplicado un código al cuadro pero me encuentro con el problema que solo me cambia el primer registro y el tema es que los cambie todos, y no consigo el resultado.

El código que estoy utilizando es:

Me.delegacion.Value = Me.Cuadro_combinado13.Column(0)

Es posible lo que quiero hacer, que un cuadro combinado cambie todos los registros?

Saludos,


Arriba
neya_19 Ver desplegable
Asiduo
Asiduo


Unido: 12/Abril/2011
Localización: España
Estado: Sin conexión
Puntos: 447
Enlace directo a este mensaje Enviado: 08/Enero/2014 a las 09:30
Buenos días,

El problema es que no quiero generar consultas ya que tengo una cantidad elevada de registros (alrededor de 1 millón). Por eso mi idea inicial era en un formulario, filtrar los registros que tengo que cambiar y a través de código VBA, poder modificar un campo  de todos estos registros filtrados.

Si he filtrado 1.000 registros, y a través de un cuadro combinado que ponga un valor, ejecutar código para que los cambie y ponga lo que hay en el cuadro combinado en el campo de los 1.000 registros filtrados.

No se si lo que explico es imposible de hacer.


Saludos,


Arriba
neya_19 Ver desplegable
Asiduo
Asiduo


Unido: 12/Abril/2011
Localización: España
Estado: Sin conexión
Puntos: 447
Enlace directo a este mensaje Enviado: 08/Enero/2014 a las 11:34
Buenos días,

Entiendo que una instrucción SQL és un tipo de lenguaje utilizado para ejecutar Query's, utilizado  en multitud de programas como SQL Server, Arcgis, access, etc.. y que en Acces hay la opción de utilizarlo principalmente en el diseño de consultas.

Y otra forma de ejecutar acciones es a través del lenguaje VBA (visual Basic) pudiendo llegar a obtener las mismas funciones que una Query con código SQL. Este lenguaje se utiliza principalmente en formularios e informes. 

Creo que el concepto va por ahí.

Saludos,


Arriba
neya_19 Ver desplegable
Asiduo
Asiduo


Unido: 12/Abril/2011
Localización: España
Estado: Sin conexión
Puntos: 447
Enlace directo a este mensaje Enviado: 08/Enero/2014 a las 13:58
Private Sub Comando10_Click()
Delegación.Value = Me.Cuadro_combinado13.Column(0)
Me.Refresh
End Sub

Conseguimos que el valor de un cuadro combinado de "copie" en el campo que especificamos.

Es un ejemplo simple pero no es copiado....


Saludos,


Arriba
neya_19 Ver desplegable
Asiduo
Asiduo


Unido: 12/Abril/2011
Localización: España
Estado: Sin conexión
Puntos: 447
Enlace directo a este mensaje Enviado: 17/Febrero/2014 a las 10:15
Buenos días,
 
Con la ayuda de un amigote, se ha generado el siguiente código para llevar a cabo lo que queriamos hacer:
 
Private Sub Comando10_Click()
    Dim laNova As String
    Dim laVella As String
    Dim rst As DAO.Recordset
    laNova = Nz(Me.Cuadro_combinado13.Value, "")
    If laNova = "" Then Exit Sub
    Set rst = Me.Recordset.Clone
    If rst.RecordCount = 0 Then Exit Sub
    With rst
        .MoveFirst
        Do Until .EOF
            laVella = rst.Fields("Delegacion").Value
            .Edit
            .Fields("Delegacion").Value = laNova
            .Fields("Fecha modificacion").Value = Date
            .Fields("Delegacion antigua").Value = laVella
            .Update
            .MoveNext
        Loop
    End With
    Me.Refresh
    rst.Close
    Set rst = Nothing
End Sub
 
Espero que le pueda servir a más gente.
 
Tema cerrado.
 
Saludos,
 
 
Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable