Visual Basic para Aplicaciones - Condicional if en VBA

Life is soft - evento anual de software empresarial
   
Vista:

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.


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
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Condicional if en VBA

Publicado por Martha (3 intervenciones) el 28/02/2015 13:40:28
Si los cuatro acontecimientos no tienen nada que ver entre si, cierra cada uno de forma independiente.
Si tienen que ver entre si, es decir, que los que quieres hacer es anidarlos introduce un Else if en lugar de if desde el segundo al cuarto.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar

Condicional if en VBA

Publicado por Ramon (2 intervenciones) el 04/03/2015 20:00:53
Muchas Gracias, cerré los acontecimientos de forma individual y funciono...

Nuevamente muchas gracias
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar