17/01/2005, 16:01
|
 | | | Fecha de Ingreso: marzo-2004 Ubicación: 32 kms de Santiago a la costa
Mensajes: 132
Antigüedad: 21 años, 1 mes Puntos: 0 | |
| Me sale un error
Modifique el codigo he hice una nueva funcion
Public Function verdatacombo()
conectbd ' funcion de conexion
Dim RsetDatos As Recordset
Dim cadena_conexion As String
Dim intcontador As Integer
'sentencias sql
cadena_conexion = "select TIPPRO_NOMBRE,TIPPRO_ID from TIPO_PRODUCTO"
Set RsetDatos = VarConexion.OpenRecordset(cadena_conexion)
Set DataCombo.RowSource = RsetDatos
DataCombo.ListField = "TIPPRO_ID"
DataCombo.BoundColumn = "id_registro"
RsetDatos.Close
End Function
Me dice que:
"error '13' en el tiempo de ejecucion
no coinciden los tipo "
y me deja marcado lo del color amarillo...
Se me ocurrio cambiar la linea:
DataCombo.ListField = "TIPPRO_ID"
DataCombo.BoundColumn = "id_registro"
por :
DataCombo.ListField = !TIPPRO_ID
DataCombo.BoundColumn = !PRO_NOMBRE
suponiendo que tenia algo que ver con los datos que estaba ingresando pero me sale otro error.. que dice "referencia no valido o por calificar"... entonces pienso que ando muy perdida... si me puedes ayudar
__________________
Contento Señor contento :-) (Sto. Padre Alberto Hurtado) |