🚀 go-pugleaf

Luisa Delmonte ha escrito:

> Hola a todos,
>
> Estoy creando una base de datos; es la primera que hago. Hsta ahora he
> ido haciendo pero ahora empeiza a complicarse y ya no se por donde
> tirar. Necesito ayuda.

Simplifica. Creo que los problemas que tienes son de diseño de las
tablas.

En primer lugar, utiliza una consulta para obtener los pacientes en
alta
SELECT ... FROM TablaPacientes ...  WHERE FechaBaja IS Null ...;
Esta consulta te devolverá los datos de los pacientes en lo que no
conste una fecha de baja.

Creo que has hecho otra consulta al grupo sobre llevar un control de
visitas médicas. Yo no crearía una tabla para cada especialidad, si
una para todas las especialidades, y una tabla con un campo clave para
la lista de especialidades. Relacionaría ambas tablas y cuando se de
una cita, la persona que lo haga que elija la especialidad en un
ComboBox (una lista desplegable).

Si lo que quieres es que el usuario pueda añadir sobre la marcha
valores nuevos a la lista, tienes que establecer la propiedad
LimitarALaLista a verdadero y añadir código para el evento
NoEstáEnLaLista (NotInList)

El código para empezar sería:

Private Sub Especialidad_NotInList(NewData As String, Response As
Integer)
    DoCmd.RunSQL "INSERT INTO Tabla2 (Especialidad) VALUES (" & Chr(34)
& NewData & Chr(34) & ");"
    Response = acDataErrAdded
End Sub


Esto quedaría un poco rústico aunque funciona. Quedaría mejor si se
añade un poco de código más:

Primero: pedir confirmación al usuario para que se consciente de que
va a agregar datos a la lista:
If vbYes = msgbox(Pregunta, vbQuestion + vbyesno) then
   ...
else
  ' Si contesta que no, ignorar el error y deshacer la entrada del
usuario
   Response = acDataErrContinue
    ctl.Undo
end if

Segundo: validar la entrada del usuario para que el nuevo dato sea
coherente con el formato de los datos ya existentes.

Tercero: Si agregas un nuevo valor utilizando una sentencia SQL
aparecerá un mensaje advirtiendo al usuario, un mensaje que puede
resultar desconcertante. Lo puedes desactiva con docmd.SetWarnings
False; y una vez ejecutado vuelves a activar las alertas del sistema
con docmd.SetWarnings True