Realizo la siguiente funcion y me sigue dando el problema... hago que se dentega la ejecucion del programa en el pto. Rojo y puedo ver que los valores estan correctos, pero no me modifica el Bountext el datacombo 0 y 1 siguen en blanco....
nuevamente he visto las propidades de los tres datacom y son las mismas
EN conclusion no es la consulta si no que los datacombo son los que no quieren tomar el valor
quise cambiar el style = 0 pero no me deja:
Esta en style = dbcDropdownList
y lo quiero modificar por si ese es el problema
a Form41A.DataCombo1(0).style =dbcSimpleCombo pero me da un error
Lo que me da lata es que veo que la consulta arroja bien los relustados y son los 2 primeros DATACOMBO los que no quieren tomar el valor
Function Busca_DatosOrdenTrabajo(lngIDOT As Long)
Dim strSql As String
Dim dtabla As Recordset
Dim Bbase1 As Database
base1 = ""
Set Bbase1 = OpenDatabase(base1, False, False, coneccion2)
strSql = "SELECT ORDENTRABAJO.id_OrdenTrabajo, ORDENTRABAJO.ot_Numero, PROCESOS.pr_Nombre, PROCESOS.id_Proceso, ORDENTRABAJO.ot_Fecha," & _
" ORDENTRABAJO.ot_Usuario , ORDENTRABAJO.ot_Asignado " & _
" From ORDENTRABAJO, PROCESOS " & _
" WHERE (ORDENTRABAJO.id_OrdenTrabajo =" & lngIDOT & ") and " & _
" ORDENTRABAJO.id_Proceso = PROCESOS.id_Proceso "
Set dtabla = sqlllamado2(strSql, Bbase1)
If dtabla.RecordCount = 0 Then
Busca_DatosOrdenTrabajo = 0
Else
If Not dtabla.EOF Then
Form41A.Text1(0) = IIf(dtabla.NoMatch, 0, dtabla.Fields("ot_Numero"))
Form41A.Text1(1) = IIf(dtabla.NoMatch, 0, dtabla.Fields("ot_Fecha"))
Form41A.DataCombo1(0).BoundText = dtabla.Fields("ot_usuario")
Form41A.DataCombo1(1).BoundText = dtabla.Fields("ot_Asignado")
Form41A.DataCombo1(2).BoundText = dtabla.Fields("id_Proceso")
End If
End If
dtabla.Close
End Function
Ayudenme pliss
