Ventana de alerta
Buenas noches mi pregunta es la siguiente:
Estoy creando una base de datos de gestantes cree un formulario en el cual de la fecha de ultima regla saque criterios para sacar la semanas de gestación y quisiera que cuando la gestante cumpla 38 semanas de gestación me arroje alguna alerta, también quisiera que me ayudaran que cuando ingrese la fecha de nacimiento del menor me deshabilite el campo fecha de ultima menstruación
Gracias por su ayuda
Estoy creando una base de datos de gestantes cree un formulario en el cual de la fecha de ultima regla saque criterios para sacar la semanas de gestación y quisiera que cuando la gestante cumpla 38 semanas de gestación me arroje alguna alerta, también quisiera que me ayudaran que cuando ingrese la fecha de nacimiento del menor me deshabilite el campo fecha de ultima menstruación
Gracias por su ayuda
1 respuesta
Respuesta
1
En propiedades del formulario, en el apartado Al abrir pones Procedimiento de Evento, picas en el cuadradito de los tres puntos y pones el código:
Dim db As Database
Dim rs As Recordset
Set db = CurrentDb
Set rs = db.OpenRecordset("Select * from NombreTabla where semana>=38")
If Not rs.EOF Then
Do While Not rs.EOF
MsgBox (rs!CampoQueQuierasVisualizar)
rs.MoveNext
Loop
End If
En cuanto a deshabilitar el campo fecha ¿a qué te refieres? ¿Dejarlo cómo nulo?
Si es así lo podrías hacer con la siguiente sql:
Update NombreTabla Set FechaMestruacion=null where FechaNacimiento is not null
Dim db As Database
Dim rs As Recordset
Set db = CurrentDb
Set rs = db.OpenRecordset("Select * from NombreTabla where semana>=38")
If Not rs.EOF Then
Do While Not rs.EOF
MsgBox (rs!CampoQueQuierasVisualizar)
rs.MoveNext
Loop
End If
En cuanto a deshabilitar el campo fecha ¿a qué te refieres? ¿Dejarlo cómo nulo?
Si es así lo podrías hacer con la siguiente sql:
Update NombreTabla Set FechaMestruacion=null where FechaNacimiento is not null
Que pena por no responder el mensaje pronto pero tengo una duda esto funciona en access 2003 como en 2007 por que lo hice en 2003 y no me funciono no se por que yo copie lo que me enviaste
Gracias
Gracias
Yo tengo el access 2003.
¿Qué error da?
¿Qué error da?