CONDICIONAR UN CODIGO
Publicado por cesar vargas (6 intervenciones) el 28/12/2006 04:06:28
MUCHACHOS.. TENGO EN UN FORMULARIO UNA MACRO PARA CONDICIONAR ENTRADAS A VARIOS TEXTBOX... LOS CODIGOS FUNCIONAN SI SE CUMPLEN LAS CONDICIONES PERO SI NO SECUMPLEN PASAN DESAPERCIBIDAS SIN QUE QUIEN DIGITA LOS DATOS LO NOTE...
NECESITO CONDICIONARLAS Y AL NO CUMPLIRSE ENTONCES ME MUESTRE UN MSGBOX CON UNA ADVERTENCIA...
AQUI ESTA EL CODIGO QUE TENGO:
Private Sub ComboBox1_Change()
If ComboBox1.Value = "ABONO FEBRERO" And TextBox10.Value < "65000" Then
TextBox3.Value = Val(TextBox3) - Val(TextBox10)
ElseIf ComboBox1.Value = "PAGO FEBRERO" And TextBox10.Value = "65000" Then
TextBox3.Value = Val(TextBox3) - Val(TextBox10)
ElseIf ComboBox1.Value = "PAGO CARNET Y PENSION FEBRERO" And TextBox10.Value = "70000" Then
TextBox2 = 0
TextBox3 = 0
End If
End Sub
NO SE SI SEHACE ASI. O HAY QUE REESTRUCTURARLO.. POR FAVOR AYUDENME
MI EMAIL ES [email protected]
NECESITO CONDICIONARLAS Y AL NO CUMPLIRSE ENTONCES ME MUESTRE UN MSGBOX CON UNA ADVERTENCIA...
AQUI ESTA EL CODIGO QUE TENGO:
Private Sub ComboBox1_Change()
If ComboBox1.Value = "ABONO FEBRERO" And TextBox10.Value < "65000" Then
TextBox3.Value = Val(TextBox3) - Val(TextBox10)
ElseIf ComboBox1.Value = "PAGO FEBRERO" And TextBox10.Value = "65000" Then
TextBox3.Value = Val(TextBox3) - Val(TextBox10)
ElseIf ComboBox1.Value = "PAGO CARNET Y PENSION FEBRERO" And TextBox10.Value = "70000" Then
TextBox2 = 0
TextBox3 = 0
End If
End Sub
NO SE SI SEHACE ASI. O HAY QUE REESTRUCTURARLO.. POR FAVOR AYUDENME
MI EMAIL ES [email protected]
Valora esta pregunta
0