Buenas tardes a todos;
Esta tarde les vengo a consultar sobre un problema que afana y me carcome,
Bueno le comento, estoy haciendo un pequeño aplicativo con VBA en donde hago una consulta dependiendo de la cantidad de resultados, genero dinamicamente unos CheckBox, para consultarlos en otro evento de la siguiente manera:
Cita: sql = "SELECT nombre, apellidos, cargo, nivel FROM personal_base WHERE cargo = 'Electronical Tech' AND base = '" & base_programacion & " ' ORDER BY sap_number;"
rs.Open sql, cn
electronicos_disponibles = rs.RecordCount
conta = 1
bajar = 0
'si la consulta no genera resultados
If rs.EOF Then
'Si la consulta genera resultados
Else
Do While Not rs.EOF
'Se genera dinamicamente los checkbox-------------------------------
Set Cheq = UserFormProgramador.FrameElecTech.Controls.Add("Fo rms.CheckBox.1")
With Cheq
.Name = "CheckBoxElecTech0" & conta
If (rs("cargo") = "Electronical Tech" And rs("nivel") = 1) Then
.Caption = rs("nombre") & " " & rs("apellidos") & " - Lv 1"
End If
If (rs("cargo") = "Electronical Tech" And rs("nivel") = 2) Then
.Caption = rs("nombre") & " " & rs("apellidos") & " - Lv 2"
End If
.Value = True
.Width = 300
.Top = 10 + bajar
.AutoSize = True
End With
'ubica los controles en el formulario
conta = conta + 1
bajar = bajar + 22
'recorre el vector resultado
rs.MoveNext
Loop
'cierra el vector
rs.Close
End If
Hasta ahi todo bien el problema radica cuando en otra funcion pregunto por el "
CheckBoxElecTech01", "
CheckBoxElecTech02"... etc;
Cita: Public Sub CommandButtonListo_Click()
electronicos_seleccionados = 0
If (UserFormProgramador.CheckBoxElecTech01.Value = True) Then
electronicos_seleccionados = electronicos_seleccionados + 1
End If
UserFormProgramador.LabelElectronicosSeleccionados .Caption = electronicos_seleccionados
End Sub
Ya que me muestra un error que dice "
Error de Compilacion. No se encontro el metodo o el dato del miembro" y me ubica en el evento y mas concretamente donde se utiliza la propiedad .Value del control generado dinamicamente.
Espero haberme hecho entender, les agradezco cualquier ayuda.