Problemas con formularios al pasar tablas a SQL
Publicado por Petis (23 intervenciones) el 07/06/2018 11:02:57
Tengo una base de datos en Access que funcionaba correctamente, exporte esas tablas a MySQL y y luego las importe de nuevo en el Access para que estén vinculadas.
tras hacer esto me he encontrado dos problemas:
1) Al pulsar en un botón añadir me llevaba a un formulario TotalA para añadir campos.
Ahora me marca esto como error
Private Sub Form_Activate() 'Al activar el formulario si el usuario es de solo lectura, bloqueamos todos los campos
Mail = DLookup("[email]", "[login]", "[Usuario]= fncUsuario()")
If Argumento = "E" Or Argumento = "W" Then
Me.masprove.Visible = False
Me.Etiqueta147.Visible = False
End If
End Sub
2)Al abrir un formulario Total (que tiene los datos de la tabla total) me marca errores también en el código en este caso:
Private Sub entidad_AfterUpdate() 'Al actualizar el valor de la entidad:
If entidad = "CEOE" Then 'Si CEOE...
Me.proyectoisee.Enabled = False 'No disponible elección de los servicios de ISEE
Me.departamento.Enabled = True 'Habilitado el campo departamento
proyectoisee = "" 'Dejamos vacío el campo de servicios de ISEE
Me.proyectoceoe.Enabled = True 'Disponible elección de los servicios de CEOE
Em ambos casos me indica que no se puede actualizar el recordset. ¿Alguien me puede ayyudar? Al meter las tablas vinculadas no reconoce ya el código?
tras hacer esto me he encontrado dos problemas:
1) Al pulsar en un botón añadir me llevaba a un formulario TotalA para añadir campos.
Ahora me marca esto como error
Private Sub Form_Activate() 'Al activar el formulario si el usuario es de solo lectura, bloqueamos todos los campos
Mail = DLookup("[email]", "[login]", "[Usuario]= fncUsuario()")
If Argumento = "E" Or Argumento = "W" Then
Me.masprove.Visible = False
Me.Etiqueta147.Visible = False
End If
End Sub
2)Al abrir un formulario Total (que tiene los datos de la tabla total) me marca errores también en el código en este caso:
Private Sub entidad_AfterUpdate() 'Al actualizar el valor de la entidad:
If entidad = "CEOE" Then 'Si CEOE...
Me.proyectoisee.Enabled = False 'No disponible elección de los servicios de ISEE
Me.departamento.Enabled = True 'Habilitado el campo departamento
proyectoisee = "" 'Dejamos vacío el campo de servicios de ISEE
Me.proyectoceoe.Enabled = True 'Disponible elección de los servicios de CEOE
Em ambos casos me indica que no se puede actualizar el recordset. ¿Alguien me puede ayyudar? Al meter las tablas vinculadas no reconoce ya el código?
Valora esta pregunta
0