no guarda valor en variable
Publicado por bekyna (31 intervenciones) el 22/12/2006 21:19:49
If (Text4.Text = "" And Text5.Text = "") Then
V_TEXT = (Text3.Text)
End If
If (Text4.Text = "") Then
V_TEXT = Text5.Text
' fecha1 = Text1.Text
End If
If (Text4.Text <> "") Then
V_TEXT = Text4.Text
End If
Hola les pido su ayuda para lo siguiente:
Tengo un procedimiento que ya es demasiado grande y me pidieron hacer algunas modificaciones a los cálculos y para ello utilice las siguientes condiciones y metí el valor a una variable para asi no tener que realizar mas código, pero hay un detalle que no esta guardando el valor en la ya declare la variable pero no guarda el valor, pongo una parte del código es mucho y no puedo poner todo.
Dim V_TEXT As String
If (Text4.Text = "" And Text5.Text = "") Then
V_TEXT = (Text3.Text)
End If
If (Text4.Text = "") Then
V_TEXT = Text5.Text
End If
If (Text4.Text <> "") Then
V_TEXT = Text4.Text
End If
If (V_TEXT = "" And Text16.Text = "") Then
Text43.Text = ""
'
ElseIf (V_TEXT = 0 And Text16.Text = 0) Then
Text43.Text = V_TEXT
'
ElseIf (V_TEXT <> "" And Text16.Text = "") Then
Text43.Text = V_TEXT
ElseIf (V_TEXT <> 0 And Text16.Text <> "") Then
AnaPA_S_Ant_ = (Text16.Text)
Ana_LB_Ant = V_TEXT
Text43.Text = (AnaPA_S_Ant_) - (Ana_LB_Ant)
End If
….
El detalle que las variables _ = (Text16.Text)_Ana
Ni siquiera las declare y no he tenido problema con el resultado de los calculos, les agradecería me ayuden a resolver este problemita, mil gracias por su valiosa ayuda y felices fiestas.
V_TEXT = (Text3.Text)
End If
If (Text4.Text = "") Then
V_TEXT = Text5.Text
' fecha1 = Text1.Text
End If
If (Text4.Text <> "") Then
V_TEXT = Text4.Text
End If
Hola les pido su ayuda para lo siguiente:
Tengo un procedimiento que ya es demasiado grande y me pidieron hacer algunas modificaciones a los cálculos y para ello utilice las siguientes condiciones y metí el valor a una variable para asi no tener que realizar mas código, pero hay un detalle que no esta guardando el valor en la ya declare la variable pero no guarda el valor, pongo una parte del código es mucho y no puedo poner todo.
Dim V_TEXT As String
If (Text4.Text = "" And Text5.Text = "") Then
V_TEXT = (Text3.Text)
End If
If (Text4.Text = "") Then
V_TEXT = Text5.Text
End If
If (Text4.Text <> "") Then
V_TEXT = Text4.Text
End If
If (V_TEXT = "" And Text16.Text = "") Then
Text43.Text = ""
'
ElseIf (V_TEXT = 0 And Text16.Text = 0) Then
Text43.Text = V_TEXT
'
ElseIf (V_TEXT <> "" And Text16.Text = "") Then
Text43.Text = V_TEXT
ElseIf (V_TEXT <> 0 And Text16.Text <> "") Then
AnaPA_S_Ant_ = (Text16.Text)
Ana_LB_Ant = V_TEXT
Text43.Text = (AnaPA_S_Ant_) - (Ana_LB_Ant)
End If
….
El detalle que las variables _ = (Text16.Text)_Ana
Ni siquiera las declare y no he tenido problema con el resultado de los calculos, les agradecería me ayuden a resolver este problemita, mil gracias por su valiosa ayuda y felices fiestas.
Valora esta pregunta


0