Buenos Dias,
Necesito la ultima ayuda debido a que entrego proyecto mañana.
me sale el error:
Multiple-step operation generated errors. chek each OLE DB, status value, if available. No work was done.
ese error me aparece cuando en un combo selecciono una direccion y en el momento que la adiciono me genera el error.
If (Cbo_Dir.Text = "") Then
MsgBox "Debe digitar una direccion de entrega para ese cliente"
Exit Sub
Else
Rs3.Fields("dir_detail_ped") = Cbo_Dir.Text 'AQUI SE GENERA EL ERROR
End If
la consulta del Rs3 es la siguiente:
Cadena_SQL_3 = "SELECT * FROM OEDETAIL_PED_SQL where id_ped='" & Text_Id.Text & "' "
y la consulta que me muestra las direcciones es la siguiente:
Set Rs11 = New ADODB.Recordset
Cadena_SQL_11 = "SELECT addr_1 FROM ARALTADR_SQL where cus_name = '" & Cbo_Cliente.Text & "'"
Rs11.Open Cadena_SQL_11, Connect, adOpenDynamic, adLockPessimistic
If dir = 0 Then
MsgBox "El cliente digitado no tiene una direccion almacenada"
Exit Sub
End If
If dir <> 0 Then
Rs11.MoveFirst
For j = 1 To dir
Cbo_Dir.AddItem Rs11.Fields("addr_1")
Rs11.MoveNext
Next j
End If
Algun Aporte?
