Imprimir página | Cerrar ventana

Validaciones de Texbox

Impreso de: Foro de Access y VBA
Categoría: Access y VBA
Nombre del foro: Access y VBA
Descripción del foro: Foro de programacion en Access (Con código y sin código)
URL: http://www.mvp-access.com/foro/forum_posts.asp?TID=84628
Fecha de impresión: 26/Marzo/2026 a las 19:28


Tema: Validaciones de Texbox
Publicado por: cegonz
Asunto: Validaciones de Texbox
Fecha de publicación: 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


Respuestas:
Publicado por: lbauluz
Fecha de publicación: 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

Publicado por: cegonz
Fecha de publicación: 01/Agosto/2019 a las 16:18
Hola,

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

Publicado por: jilo
Fecha de publicación: 02/Agosto/2019 a las 08:43
Hola,
if (HarvestQty<=40 and HarvestQty>=0) then
....

Un saludo


-------------
Espero te sirva !!!!!!
Iñaki


Imprimir página | Cerrar ventana