Estou tendo um problema que não faço ideia o motivo, mas uma consulta kardex roda sem problemas em notebook e anão roda no desktop. Ambos são Access 2010!
Alguns movimentos não possuem valor no campo "CustoEnt" e ficam null no BD e quando abro a consulta no desktop dá Erro em tempo de execução '94': Uso de Null inválido, porém se eu abrir no notebook roda sem problemas, saberia me dizer a origem e o que fazer para não ter problemas no desktop quando a consulta está buscando campos que possam estar como Null no BD?
Sub Load_ListBox()
Dim strDataLista30 As Date
Dim strCustoEntrada As String
strDataLista30 = Format(DateAdd("d", -31, Me.Data), "YYYY-MM-DD")
Me.Lista.RowSource = ""
strRS = "SELECT tbl_EstoqueMov.Codigo, tbl_Parceiro.Razao, tbl_EstoqueMov.Produto, tbl_EstoqueMov.ProdutoN, tbl_EstoqueMov.DocPedido, tbl_EstoqueMov.DocNF, tbl_EstoqueMov.DocData, tbl_EstoqueMov.DocData2, tbl_EstoqueMov.CustoAnt, tbl_EstoqueMov.CustoEnt, tbl_EstoqueMov.CustoMedio, tbl_EstoqueMov.Qtde, tbl_EstoqueMov.Saldo,tbl_EstoqueMov.TipoMov " & _
"FROM tbl_Parceiro INNER JOIN tbl_EstoqueMov ON tbl_Parceiro.codigo = tbl_EstoqueMov.Parceiro " & _
"WHERE tbl_EstoqueMov.ProdutoN='" & Me.BuscarProd & "' AND tbl_EstoqueMov.DocData2 >= '" & Format(strDataLista30, "YYYY-MM-DD") & "'" & _
"ORDER BY tbl_EstoqueMov.DocData2, tbl_EstoqueMov.Codigo"
Call Cnn_Open
Set rs = Cnn.Execute(strRS)
Do While Not rs.EOF
Me.Lista.RowSourceType = "Value List"
Me.Lista.AddItem rs!ProdutoN & ";" & rs!DocPedido & ";" & rs!DocNf & ";" & rs!DocData & ";" & rs!Razao & ";" & Format(rs!Qtde, "###,###") & ";" & Format(rs!Saldo, "###,###") & ";" & Format(CCur(Replace(rs!CustoAnt, ".", ",")), "#,##0.00") & ";" & Format(CCur(Replace(rs!CustoEnt, ".", ",")), "#,##0.00") & ";" & Format(CCur(Replace(rs!CustoMedio, ".", ",")), "#,##0.00") & ";" & rs!TipoMov
rs.MoveNext
Loop
Set rs = Nothing: Close
Set Cnn = Nothing: Close
End Sub
Alguns movimentos não possuem valor no campo "CustoEnt" e ficam null no BD e quando abro a consulta no desktop dá Erro em tempo de execução '94': Uso de Null inválido, porém se eu abrir no notebook roda sem problemas, saberia me dizer a origem e o que fazer para não ter problemas no desktop quando a consulta está buscando campos que possam estar como Null no BD?
Sub Load_ListBox()
Dim strDataLista30 As Date
Dim strCustoEntrada As String
strDataLista30 = Format(DateAdd("d", -31, Me.Data), "YYYY-MM-DD")
Me.Lista.RowSource = ""
strRS = "SELECT tbl_EstoqueMov.Codigo, tbl_Parceiro.Razao, tbl_EstoqueMov.Produto, tbl_EstoqueMov.ProdutoN, tbl_EstoqueMov.DocPedido, tbl_EstoqueMov.DocNF, tbl_EstoqueMov.DocData, tbl_EstoqueMov.DocData2, tbl_EstoqueMov.CustoAnt, tbl_EstoqueMov.CustoEnt, tbl_EstoqueMov.CustoMedio, tbl_EstoqueMov.Qtde, tbl_EstoqueMov.Saldo,tbl_EstoqueMov.TipoMov " & _
"FROM tbl_Parceiro INNER JOIN tbl_EstoqueMov ON tbl_Parceiro.codigo = tbl_EstoqueMov.Parceiro " & _
"WHERE tbl_EstoqueMov.ProdutoN='" & Me.BuscarProd & "' AND tbl_EstoqueMov.DocData2 >= '" & Format(strDataLista30, "YYYY-MM-DD") & "'" & _
"ORDER BY tbl_EstoqueMov.DocData2, tbl_EstoqueMov.Codigo"
Call Cnn_Open
Set rs = Cnn.Execute(strRS)
Do While Not rs.EOF
Me.Lista.RowSourceType = "Value List"
Me.Lista.AddItem rs!ProdutoN & ";" & rs!DocPedido & ";" & rs!DocNf & ";" & rs!DocData & ";" & rs!Razao & ";" & Format(rs!Qtde, "###,###") & ";" & Format(rs!Saldo, "###,###") & ";" & Format(CCur(Replace(rs!CustoAnt, ".", ",")), "#,##0.00") & ";" & Format(CCur(Replace(rs!CustoEnt, ".", ",")), "#,##0.00") & ";" & Format(CCur(Replace(rs!CustoMedio, ".", ",")), "#,##0.00") & ";" & rs!TipoMov
rs.MoveNext
Loop
Set rs = Nothing: Close
Set Cnn = Nothing: Close
End Sub