Tengo un problema en Access
Hola hen9, mi problema es el siguiente. Tengo un formulario basado en una tabla, y quiero que un campo se rellene con el resultado de ejecutar una consulta que ya tengo echa, si dicha consulta no devuelve nada, null, ejecutaría otra que me daría el valor a introducir en el campo. ¿Cómo puedo hacerlo?
1 Respuesta
Respuesta de hen9
1
Este ejemplo:
Este ejemplo selecciona todos los registros de la tabla Empleados y los copia en una nueva tabla llamada Copia Empleados.
Sub SelectIntoX()
Dim dbs As Database
Dim qdf As QueryDef
' Modifique esta línea para incluir la ruta de
' acceso a la base de datos Neptuno en su equipo.
Set dbs = OpenDatabase("Neptuno.mdb")
' Selecciona todos los registros de la tabla
' Empleados y los copia en una nueva tabla Copia Empleados.
dbs.Execute "SELECT Empleados.* INTO " _
& "[Copia Empleados] FROM Empleados;"
' Elimina la tabla porque esto es un ejemplo.
dbs.Execute "DROP TABLE [Copia Empleados];"
dbs.Close
End Sub
Luego deberías validar si la tabla contiene registros osea si copio alguno y si no entonces:
Que ejecute la otra consulta
Este ejemplo selecciona todos los registros de la tabla Empleados y los copia en una nueva tabla llamada Copia Empleados.
Sub SelectIntoX()
Dim dbs As Database
Dim qdf As QueryDef
' Modifique esta línea para incluir la ruta de
' acceso a la base de datos Neptuno en su equipo.
Set dbs = OpenDatabase("Neptuno.mdb")
' Selecciona todos los registros de la tabla
' Empleados y los copia en una nueva tabla Copia Empleados.
dbs.Execute "SELECT Empleados.* INTO " _
& "[Copia Empleados] FROM Empleados;"
' Elimina la tabla porque esto es un ejemplo.
dbs.Execute "DROP TABLE [Copia Empleados];"
dbs.Close
End Sub
Luego deberías validar si la tabla contiene registros osea si copio alguno y si no entonces:
Que ejecute la otra consulta
