Condicional if en VBA
Publicado por Ramon (2 intervenciones) el 16/02/2015 19:14:26
Hola,
Soy un novato en la programación de codigo VBA, y el siguiente codigo que le voy a mostrar mucho mas.
El problema es el siguiente.
Tengo una app en access, form, que guarda registro de tiempo en cuatros campos a través de 4 botones.
Que debería, o mas bien que necesito que realice. que cada botón una vez que haya pasado por el evento click se deshabilite cumpliendo una condición de cierto valor...
El codigo que tengo para esta app es.
Cual es el problema. Que funciona para los botones Comando 131 y 132, pero cuando cumplo la condición de valores para los Srtart 2 y End2. Los botones comando1 y comando2 (teniendo en cuenta que los campos Start1 y end2 tiene valores) se vuelven a habilitar cuando inicio nuevamente el evento LOAD del form.
Espero que halla sido claro.
De antemano muchísimas gracias...
Soy un novato en la programación de codigo VBA, y el siguiente codigo que le voy a mostrar mucho mas.
El problema es el siguiente.
Tengo una app en access, form, que guarda registro de tiempo en cuatros campos a través de 4 botones.
Que debería, o mas bien que necesito que realice. que cada botón una vez que haya pasado por el evento click se deshabilite cumpliendo una condición de cierto valor...
El codigo que tengo para esta app es.
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
Private Sub form_Load()
'Dim co1 As Integer
'[Start1] = co1
If [Start1] < Now() Then
Comando131.Enabled = False
If [End1] < Now() Then
Comando132.Enabled = False
If [Start2] < Now() Then
Comando133.Enabled = False
If [End2] < Now() Then
Comando134.Enabled = False
Else
Comando131.Enabled = True
Comando132.Enabled = True
Comando133.Enabled = True
Comando134.Enabled = True
End If
End If
End If
End If
End Sub
Private Sub Comando131_Click()
Me.Start1 = Now()
End Sub
Private Sub Comando132_Click()
Me.End1 = Now()
End Sub
Private Sub Comando133_Click()
Me.Start2 = Now()
End Sub
Private Sub Comando134_Click()
Me.End2 = Now()
End Sub
Cual es el problema. Que funciona para los botones Comando 131 y 132, pero cuando cumplo la condición de valores para los Srtart 2 y End2. Los botones comando1 y comando2 (teniendo en cuenta que los campos Start1 y end2 tiene valores) se vuelven a habilitar cuando inicio nuevamente el evento LOAD del form.
Espero que halla sido claro.
De antemano muchísimas gracias...
Valora esta pregunta
0