Error Object variable or with block al cargar y filtrar un DataGrid
Publicado por Ayrton (4 intervenciones) el 12/11/2018 15:44:57
Hola a todos los programadores de visual basic, Necesito una ayuda con un codigo en el cual estoy estancado ya varios dias y no doy con la solucion se que puede ser una solucion simple pero aun asi no la encuentro, quisiera que me presten un poco de sus conocimientos para solucionarlo les agradecere mucho sin mas empiezo con la problematica:
tengo un adodc llamado adovdeta con el cual cargo datos a un datagrid
y un adodcmovi con el cual cargo datos a controles como son textbox y label
he hecho un procedimiento para filtrar datos , con un campo llamado nummov el cual poseen las tablas creadas en una base de datos en access llamadas movimientos(nummov,fecha,hora) y det_mov(nummov,cod,detalle,cant,nota).
y me genera el error expuesto en el titulo, el codigo es el siguiente:
tengo un adodc llamado adovdeta con el cual cargo datos a un datagrid
y un adodcmovi con el cual cargo datos a controles como son textbox y label
he hecho un procedimiento para filtrar datos , con un campo llamado nummov el cual poseen las tablas creadas en una base de datos en access llamadas movimientos(nummov,fecha,hora) y det_mov(nummov,cod,detalle,cant,nota).
y me genera el error expuesto en el titulo, el codigo es el siguiente:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
On Error GoTo errFilt
If Not adoMovi.Recordset.EOF And Not adoMovi.Recordset.BOF Then
If IsNull(adoMovi.Recordset!nummov) Then
adovdeta.Recordset.Filter = "nummov=" & (numped + 1)
Else
adovdeta.Recordset.Filter = "nummov=" & adoMovi.Recordset!nummov
End If
End If
dgLista.Columns(0).Visible = False
dgLista.Columns(1).Caption = "CODIGO"
dgLista.Columns(2).Caption = "DETALLE"
dgLista.Columns(3).Caption = "CANTIDAD"
dgLista.Columns(4).Caption = "NOTA"
dgLista.Columns(2).Width = 4000
dgLista.Columns(3).Width = 1000
dgLista.Columns(4).Width = 6000
Exit Sub
errFilt: MsgBox err.DescriptionValora esta pregunta
0
