** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Access y VBA > Access y VBA
  Mensajes nuevos Mensajes nuevos RSS - Validaciones de Texbox
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradoValidaciones de Texbox

 Responder Responder
Autor
Mensaje
cegonz Ver desplegable
Nuevo
Nuevo
Avatar

Unido: 31/Julio/2019
Localización: Arica
Estado: Sin conexión
Puntos: 3
Enlace directo a este mensaje Tema: Validaciones de Texbox
    Enviado: 31/Julio/2019 a las 15:12
Estimados,

Tengo lo siguiente codigo me podrias ayudar para realizar validaciones de (FlatID, HarvestQty y HArvestUser, no quieor que avance si uno de los vampos no esta lleno.  MUchas gracias. 

Private Sub btn_guardar_Click()
If Len(FlatID) > 1 And 40 < (HarvestQty) >= 0 And Len(HarvestUser) > 1 Then
    
DoCmd.RunCommand acCmdSaveRecord
DoCmd.RunCommand acCmdRecordsGoToNew
 
  Else
  MsgBox "¡Favor Verificar información!", vbCritical, "Error Dato!!!"
End If   
Me.Refresh
End Sub
Private Sub FlatID_box_AfterUpdate()
Me.L_Flat.Value = Me.FlatID_box.Value
End Sub
Private Sub FlatID_box_Click()

End Sub

Arriba
lbauluz Ver desplegable
Administrador
Administrador
Avatar

Unido: 29/Marzo/2005
Localización: La Gloria
Estado: Sin conexión
Puntos: 3849
Enlace directo a este mensaje Enviado: 31/Julio/2019 a las 19:05
Hombre, ese IF no es correcto, deberías poner algo más parecido a esto:

if (Len(FlatID) > 1 And (
HarvestQty > 40 or HarvestQty >= 0 ) And Len(HarvestUser) > 1) Then


Aún así, la parte de (HarvestQty > 40 or HarvestQty >= 0 ) no tiene sentido salvo que en realidad quieras poner (HarvestQty  40 and HarvestQty >= 0 )


un saludo.

Luis 
El Búho es un pajarraco
Arriba
cegonz Ver desplegable
Nuevo
Nuevo
Avatar

Unido: 31/Julio/2019
Localización: Arica
Estado: Sin conexión
Puntos: 3
Enlace directo a este mensaje Enviado: 01/Agosto/2019 a las 16:18
Hola,

si necesito que HarvestQty sea como maximo 40 y minimo 0.


Arriba
jilo Ver desplegable
Colaborador
Colaborador


Unido: 19/Diciembre/2004
Localización: TAFALLA
Estado: Sin conexión
Puntos: 959
Enlace directo a este mensaje Enviado: 02/Agosto/2019 a las 08:43
Hola,
if (HarvestQty<=40 and HarvestQty>=0) then
....

Un saludo
Espero te sirva !!!!!!
Iñaki
Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable