** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Access y VBA > Access y VBA
  Mensajes nuevos Mensajes nuevos RSS - Cambiar valor predeterminado tabla vinculada
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradoCambiar valor predeterminado tabla vinculada

 Responder Responder Página  <12
Autor
Mensaje
rokoko Ver desplegable
Colaborador
Colaborador
Avatar

Unido: 16/Febrero/2008
Localización: Pamplona
Estado: Sin conexión
Puntos: 2531
Enlace directo a este mensaje Enviado: 25/Mayo/2020 a las 20:16
Publicado originalmente por Nomada Nomada escribió:

Al final salió. Después de revisar todo paso a paso, el problema era que tenía el campo independiente con decimales.
Muchas gracias a los dos.
Este hilo se puede cerrar satisfactoriamente.
Saludos

Te funciona pero no es correcto como lo haces, fijate que le pasas el dato directamente a la funcion y no cuando la llamas.
Private Sub Comando5_Click()
ActualizarPropiedad "Tabla1", "Agua", "vCuota"  esto no te vale para nada, aqui tendria que ir me.txtCuota
End Sub

Function ActualizarPropiedad(Tabla1, Agua, vCuota)
    Dim dbs As DAO.Database
    vCuota = Me.txtCuota  ' Esto te sobraria
    Set dbs = OpenDatabase("D:\PASO\PRUEBA\pruebaExportar_be.accdb", False, False, ";PWD=12345")

    With dbs
        dbs.TableDefs(Tabla1).Fields(Agua).DefaultValue = vCuota  'Aqui es donde pilla el valor
    End With
    Set dbs = Nothing
    MsgBox "Valor predeterminada cambiado correctamente.", vbInformation
End Function
Arriba
Nomada Ver desplegable
Colaborador
Colaborador


Unido: 03/Julio/2011
Localización: España
Estado: Sin conexión
Puntos: 1530
Enlace directo a este mensaje Enviado: 25/Mayo/2020 a las 20:24
Perfecto, perfecto. Ahora si:
Private Sub Comando5_Click()
ActualizarPropiedad "Tabla1", "Agua", "txtCuota"
End Sub

Function ActualizarPropiedad(Tabla1, Agua, txCuota)
    Dim dbs As DAO.Database
    Set dbs = OpenDatabase("D:\PASO\PRUEBA\pruebaExportar_be.accdb", False, False, ";PWD=12345")

    With dbs
        dbs.TableDefs(Tabla1).Fields(Agua).DefaultValue = txtCuota
        .Close
    End With
    Set dbs = Nothing
    MsgBox "Valor predeterminada cambiado correctamente.", vbInformation
End Function

Muchas, muchas gracias.
Arriba
rokoko Ver desplegable
Colaborador
Colaborador
Avatar

Unido: 16/Febrero/2008
Localización: Pamplona
Estado: Sin conexión
Puntos: 2531
Enlace directo a este mensaje Enviado: 25/Mayo/2020 a las 20:39
Asi mejor no, pillar el dato del campo.  "txtCuota" le estaria pasando un valor de texto creo....

Private Sub Comando5_Click()
ActualizarPropiedad "Tabla1", "Agua", Me. txtCuota
End Sub
Arriba
Nomada Ver desplegable
Colaborador
Colaborador


Unido: 03/Julio/2011
Localización: España
Estado: Sin conexión
Puntos: 1530
Enlace directo a este mensaje Enviado: 26/Mayo/2020 a las 12:02
Muchas gracias.
Este hilo se puede cerrar satisfactoriamente.
Saludos.
Arriba
 Responder Responder Página  <12
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable