Crear condición para la entrada de datos en un inputbox Access 2010
Publicado por Víctor (1 intervención) el 31/05/2017 22:38:00
Necesito controlar la entrada de peso y estatura de los trabajadores en un inputbox pero no acepta la condición, la primera vez sí restringe la entrada pero si en el segundo intento pongo de nuevo el número incorrectamente entonces sí se agrega a la tabla, lo que yo quiero es que no deje ingresar nada a la tabla a menos de que esté dentro del rango establecido. entre 20 kg y 200 kg (poniendo como ejemplo el peso del empleado)
Ojalá que alguien pueda ayudarme con esto, se lo agradecería mucho. Saludos.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
altura = CStr(Nz(rst.Fields("Estatura").Value, 0))
peso = CStr(Nz(rst.Fields("Peso").Value, 0))
If peso = "" Or peso = "0" Or altura = "" Or altura = "0" Then
desc = MsgBox("Los datos de peso o altura del empleado no estan ingresados," & vbCrLf & _
"desea ingresarlos:", vbQuestion + vbYesNo, "DATOS EMPLEADOS")
If desc = vbYes ThenIf peso = "" Or peso = "0" Or peso < 0 Then
peso = InputBox("Ingrese el peso(Kgs): ", "Peso")
If StrPtr(peso) = 0 Then
peso = ""
bandP = FalseEnd If
If bandP = True ThenIf peso = "" Or Not IsNumeric(peso) Then
peso = Nz(InputBox("El peso ingresado no es valido, ingrese solo numeros, Ingrese el peso(kgs): ", "Peso"), "")
End If
If peso > 201 Thenpeso = Nz(InputBox("El peso debe ser menor o igual a 200", "peso"), "")
Exit Sub
End If
If peso < 19 Thenpeso = Nz(InputBox("El peso debe ser mayor o igual a 20", "peso"), "")
Exit Sub
End If
End If
pesoC = pesoEnd If
If altura = "" Or altura = "0" Then
altura = InputBox("Ingrese la Estatura(Mts): ", "Estatura")
If StrPtr(altura) = 0 Then
altura = ""
bandA = FalseEnd If
If bandA = True ThenIf altura = "" Or Not IsNumeric(altura) Then
altura = Nz(InputBox("La estatura ingresada no es valida, ingrese solo numeros, Ingrese la estatura(Mts): ", "Estatura"), "")
End If
If altura > 3 Thenaltura = Nz(InputBox("La estatura debe ser menor a 3 metros"), "Estatura")
End If
End If
alturaC = alturaEnd If
'MsgBox "pesoC y alturaC:" & pesoC & alturaC
Else
pesoC = ""
alturaC = ""
End If
End If
Me.txtPesoRegistro.Value = peso
Me.txtAlturaRegistro.Value = altura
cst.Closerst.Closedbs.CloseSet rst = NothingSet dbs = NothingidA = Nz(Me.ID.Value, "")
Set cdbs = CurrentProject.Connection
cdbs.BeginTransIf Not pesoC = "" Then
mysql = "UPDATE tblEmpleados SET Peso = " & pesoC & " WHERE Num = '" & numO & "'"
cdbs.Execute mysqlMsgBox "El dato de peso del empleado ha sido ingresado correctamente"End If
If Not alturaC = "" Then
mysql = "UPDATE tblEmpleados SET Estatura = " & alturaC & " WHERE Num = '" & numO & "'"
cdbs.Execute mysqlMsgBox "El dato de estatura del empleado ha sido ingresado correctamente"End If
Ojalá que alguien pueda ayudarme con esto, se lo agradecería mucho. Saludos.
Valora esta pregunta
0
