Como insertar un msgbox dentro de un if then
Private Sub CmdAceptar_Click() Dim FecNac As Date, Edad As Integer TxtFecNac.SetFocus FecNac = CDate(TxtFecNac) Edad = CInt((Date - FecNac) / 365) TxtEdad = Str(Edad) & " años" End Sub
Quiero que si se digita enter con un msgbox advierta que debe ingresar una fecha caso contrario siga normal
Gracias
Respuesta de Luis_P
1
Lamentablemente en vba fr excel no existe el evento keypress para determinar el codigo de la tecla que estas presionando (para enter seria el 13), asi que lo mas que te puedo aportar seria:
Private Sub CmdAceptar_Click()
Dim FecNac As Date, Edad As Integer
TxtFecNac.SetFocusFecNac = CDate(TxtFecNac)
If Len(Trim(TxtFecNac)) = 0 Then MsgBox "Digita una fecha", vbCritical: TxtFecNac.SetFocusFecNac
Edad = CInt((Date - FecNac) / 365)
TxtEdad = Str(Edad) & " años"
End Sub
Si el tex esta vacio te avisa que ingreses la fecha
