14/07/2011, 17:07
|
| | Fecha de Ingreso: mayo-2009
Mensajes: 76
Antigüedad: 15 años, 6 meses Puntos: 0 | |
obtener nombre de control combobox Hola a todos tengo un problema con la obtencion de un nombre de mi control combo box. les comento adetalle
tengo tres combobox los cuales se ponen visibles dependiendo de un radiobutton seleccionado pero uno a la vez es decir si el radiobutton seleccionado es 1 se muetra el combobox1 y si el radiobuton seleccionado es 2 se muetra el combobox2, hasta el momento todo perfecto.
el siguente paso es validar que los combox no esten vacios, para eso cuento con la suguiente funcion. donde combo propietario y combocompartido son los combos que pueden variar.
Private Function ValidaCampos()
On Error GoTo Err_ValidaCampos
'*Procedimiento : Validacion_Campos
'*Objetivo: Validar de los datos y contenido de la pantalla antes de procesar la información.
'*Base de datos origen:
Dim bFalta As Boolean
Dim strval As String
Dim vacio As Boolean 'para indicar si el origen destino estan vacios
vacio = True
bFalta = False
If ComboPropietario.Text = Empty Or ComboPropietario.Text = "" Then
bFalta = True
End If
If ComboCompartido.Text = Empty Or ComboCompartido.Text = "" Then
bFalta = True
End If
If cbxcliente.Text = Empty Or cbxcliente.Text = "" Then
bFalta = True
End If
If cbxproyecto.Text = Empty Or cbxproyecto.Text = "" Then
bFalta = True
End If
If bFalta = True Then
MsgBox "Favor de llenar los campos vacíos", vbInformation
bNoOk = True
End If
Exit_ValidaCampos:
Exit Function
Err_ValidaCampos:
Me.MousePointer = 0
MsgBox Err.Description
Resume Exit_ValidaCampos
End Function
para obtener esos combos variados hago la suguiente funcion
Private Function ComboPropietario() As ComboBox
Dim cbx1 As Control
If cbxUNP.Visible Then
ComboPropietario = cbxUNP.Name
ElseIf cbxPromotorP.Visible Then
ComboPropietario = cbxPromotorP.Name
Else
ComboPropietario = cbxGerenciaP.Name
End If
End Function que me regresa un combo el punto es que al correr la aplicacion se muestra el siguente error
variable de tipo de objeto o la variable de bloque whih no esta establecida
he visto algunas formas de soolucionaerlo como inocializar el contro pero no me da resultado tal vez este haciendo algo mal y no logro detectar que puede ser agradesco ua yuda de antemano |