Hola tengo 2 tablas relacionadas mi BASE DE DATOS esta echo en ACCESS 2003
TABLA "TIENDA"
IdTienda (Autonumerico)
Nombre_Tienda (Texto)
IdDistrito (numero)
TABLA "Distrito"
IdDistrito (Autonumerico)
Nombre_Distrito (Texto)
en la tabla " Tienda " tengo el problema al guardar datos , El DataCombo me Controla los nombre de los distritos(Nombre_Distrito) me carga los nombres de los distritos, pero yo quisiera que cuando presione "Guardar" guarde solo el "IdDistrito" osea el codigo del distrito , ayudenme por favor aca les dejo el codigo que empleado
PROCEDIMIENTO QUE CREE PARA CARGAR LOS DISTRITOS AL DATACOMBO
Private Sub CargarDCB()
Dim rsDistrito As ADODB.Recordset
Set rsDistrito = New ADODB.Recordset
rsDistrito.Open "select IdDistrito,Nombre_Distrito from Distrito", cnBD, adOpenStatic, adLockReadOnly, adCmdText
Set Dcbcodist.DataSource = rsDistrito
Set Dcbcodist.RowSource = rsDistrito
Dcbcodist.ListField = "Nombre_Distrito"
Dcbcodist.BoundColumn = "IdDistrito"
End Sub
GUARDAR
Private Sub CmdGuardar_Click()
rsTienda.AddNew
rsTienda.Fields("IdTienda") = txtcodtienda.Text
rsTienda.Fields("Nombre_Tienda") = txtnombtien.Text
rsTienda.Fields("IdDistrito") = Dcbcodist.BoundColumn
End if
me sale este mensaje de error '-2147352571(80020005)' en tiempo de ejecucion
Los tipos no coinciden
ESPERANDO SU PRONTA AYUDA , GRACIAS
