DADOS PERDIDOS
Amigos, estou com um problema bastante estranho, com o codigo em negrito eu carrego em um list as entradas de um certo material, so que tem um material que a instrução busca na tabela sendo que ele não esta na mesma, ou esta escondido, pois ja tentei localiza-lo com o VisData e nada ele não esta la mais continua carregando. Tentei deleta-lo fazendo um codigo a parte: Set BDDelete = OpenDatabase("c:\Estoque\Materiais.mdb")
'BDDelete.Execute ("DELETE * FROM Entrada where Codigo = '" & Text1.text & "'") ainda assim continua carregando. Alguem sabe o que pode estar havendo?
Sql_1 = "SELECT Quant,Data,Doc FROM Entrada WHERE Codigo like '*" & TextBusca1.text & "*'"
Set tbOs1 = bdMat2.OpenRecordset(Sql_1)
If tbOs1.RecordCount = 0 Then
DbList_4.Clear
Else
DbList_4.Clear
tbOs1.MoveLast
tbOs1.MoveFirst
Dim k, L, b
k = 0
L = 1
Do Until tbOs1.EOF
DbList_4.AddItem tbOs1("Quant")
DbList_4.List(k, 1) = tbOs1.Fields("Data")
DbList_4.List(k, 2) = tbOs1.Fields("Doc")
k = k + 1
b = b + CDbl(tbOs1("Quant"))
tbOs1.MoveNext
Loop
End If
If Lb_Entrada = "" Then
Lb_Entrada = 0
End If
Lb_Entrada = ValStr(CStr(b))
'BDDelete.Execute ("DELETE * FROM Entrada where Codigo = '" & Text1.text & "'") ainda assim continua carregando. Alguem sabe o que pode estar havendo?
Sql_1 = "SELECT Quant,Data,Doc FROM Entrada WHERE Codigo like '*" & TextBusca1.text & "*'"
Set tbOs1 = bdMat2.OpenRecordset(Sql_1)
If tbOs1.RecordCount = 0 Then
DbList_4.Clear
Else
DbList_4.Clear
tbOs1.MoveLast
tbOs1.MoveFirst
Dim k, L, b
k = 0
L = 1
Do Until tbOs1.EOF
DbList_4.AddItem tbOs1("Quant")
DbList_4.List(k, 1) = tbOs1.Fields("Data")
DbList_4.List(k, 2) = tbOs1.Fields("Doc")
k = k + 1
b = b + CDbl(tbOs1("Quant"))
tbOs1.MoveNext
Loop
End If
If Lb_Entrada = "" Then
Lb_Entrada = 0
End If
Lb_Entrada = ValStr(CStr(b))
cara.. tenta dar um pack no mdb.. o que seria a função compactar.. do access... assim ele retira todo o lixo que foi gerado nas consultas... os velhos indexÂÂÂ's...
Tópico encerrado , respostas não são mais permitidas