Sonia24
18 de Junio del 2003

hola
Tengo un datagrid vinculado en tiempo de diseño a un objeto adodc que accede a una tabla de Facturas en Access. Mi problema es que cuando el tio que mete las facturas le da a grabar en el formulario, salta un error que dice "Error ODBC, la tabla se encuentra bloqueada por el usuario admin en la maquina.....(y el nombre de la maquina en la que se encuentra)". Consegui localizar el error en el 'nombre_de_ado.recordset.updatebatch' que es donde se cuelga, pero no lo consigo solucionar. ¿Que pasa? ¿Puede estar el problema en vincular el ado en tiempo de diseño? ¿Que puedo hacer?


gracias (Esta pregunta es una continuacion a otra que he hecho con anterioridad)

Nota: La bd de Access NO esta abierta en ninguna maquina.


Os adjunto el codigo de error (pa los mas expertos):

'With ado_facturas
' .Recordset!cod_factura = t_cod_factura.Text
' .Recordset!tipo_factura = "F"
' .Recordset!servicio = t_servicio.Text
' .Recordset!data_factura = t_data_factura.Value
' .Recordset!cod_cliente = t_cod_cliente.Text
' .Recordset!nome_cliente = t_nome_cliente.Text
' .Recordset!domicilio_cliente = t_domicilio_cliente.Text
' .Recordset!poblacion = t_poblacion.Text
' .Recordset!cp_cliente = t_cp_cliente.Text
' .Recordset!provincia_cliente = t_provincia_cliente.Text
' .Recordset!oficial = t_oficial.Value
' .Recordset!nif_cliente = t_nif_cliente.Text
' .Recordset!notas = t_notas.Text
' .Recordset!total_bruto = si_nulo_cero(t_total_bruto)
' .Recordset!gastos = si_nulo_cero(t_gastos)
' .Recordset!desconto = si_nulo_cero(t_desconto_factura)
' .Recordset!base_imponible_iva = si_nulo_cero(t_base_imponible)
' .Recordset!tipo_iva = t_tipo_iva.Text
' .Recordset!importe_compra = si_nulo_null(t_importe_compra)
' .Recordset!importe_iva = si_nulo_cero(t_importe_iva)
' .Recordset!total_factura = si_nulo_cero(t_total_factura)
' .Recordset!forma_pago = t_forma_pago.Text
' .Recordset!Pagado = si_nulo_cero(t_pagado)
' .Recordset!fecha_ultimo_pago = t_data_ultimo_pago.Value
' .Recordset!numero_factura = t_numero_factura.Text
'
' .Recordset.UpdateBatch adAffectAllChapters 'AQUI ES DONDE SE RALENTIZA Y
'SALTA EL ERROR.PERO SALTA
'CUANDO LE DA LA GANA.
'
'End With

angeles
18 de Junio del 2003

Pon :
.Recordset.Update

Sonia24
18 de Junio del 2003

.update tampoco funciona. Ya lo he probado casi tos