TYPE MISMATCH
Boa tarde glr. to faendo um projetinho aqui só pra eu aprender a mexer em list view
e da erro 13 type mismatch
ja vi q isso pode ser erro de declaraçao de variavel
mas nao acho nd q possa resolver.. está declarado corretamente
vou postar o codigo pra voces
Alguem me ajuda?
ja procurei no google e nao acho.. pode ser alguma reference ou component..mas sei la
a conexao é DAO 3,51
obrigado
e da erro 13 type mismatch
ja vi q isso pode ser erro de declaraçao de variavel
mas nao acho nd q possa resolver.. está declarado corretamente
vou postar o codigo pra voces
Citação:Dim db As Database
Dim dsproduto As Recordset
Private Sub Form_Load()
Set db = OpenDatabase(App.Path & [Ô]\dados.mdb[Ô])
preencheproduto
mostra
End Sub
Private Sub Text1_Change()
Set dsproduto = db.OpenRecordset([Ô]produtos[Ô], dbOpenSnapshot)
dsproduto.FindFirst [Ô]codigo =[Ô] & Text1
If Not dsproduto.NoMatch Then
mostra
Else
Exit Sub
End If
End Sub
Function preencheproduto()
Set dsproduto = db.OpenRecordset([Ô]produto[Ô], dbOpenSnapshot) [ô] erro aqui
Text2.Clear
Do While Not dsproduto.EOF
Text2.AddItem dsproduto!descricao
dsproduto.MoveNext
Loop
End Function
Function mostra()
Text2 = IIf(IsNull(dsproduto!descricao), [Ô][Ô], dsproduto!descricao)
Text3 = IIf(IsNull(dsproduto!precovenda), [Ô][Ô], dsproduto!precovenda)
End Function
Alguem me ajuda?
ja procurei no google e nao acho.. pode ser alguma reference ou component..mas sei la
a conexao é DAO 3,51
obrigado
Em que linha o erro acontece?
ta comentado ali
Set dsproduto = db.OpenRecordset([Ô]produto[Ô], dbOpenSnapshot) [ô] erro aqui
Set dsproduto = db.OpenRecordset([Ô]produto[Ô], dbOpenSnapshot) [ô] erro aqui
SACOFRITO,
Na linha que dá erro, a tabela não deveria ser PRODUTOS (no plural) tal como no Text1_Change(), que não dá erro?
Na linha que dá erro, a tabela não deveria ser PRODUTOS (no plural) tal como no Text1_Change(), que não dá erro?
nao nao rs
bom vc me falar isso q corrigi la no text1_chenge tb
na tabela esta produto
bom vc me falar isso q corrigi la no text1_chenge tb
na tabela esta produto
E se alterasse disso:
Para isso:
Set dsproduto = db.OpenRecordset([Ô]produto[Ô], dbOpenSnapshot)Para isso:
Set dsproduto = db.OpenRecordset([Ô]select * from produto[Ô], dbOpenSnapshot)
Andre, ja fiz isso.. mesma coisa
Você não poderia postar o projeto ou um exemplo com o código e o banco aqui para verificar melhor?
na vdd o projeto só tem esse form.. é algo simples q to fazendo pra treinar com banco de otro projeto pronto aqui da empresa...
no form tem 2 text box(text1 e text3) e uma combo box(text2)
no form tem 2 text box(text1 e text3) e uma combo box(text2)
Já que só tem isso, anexa aqui no fórum para a gente (com banco de dados e tudo mais).
Fica mais fácil de avaliar o problema e tentar uma solução;
Fica mais fácil de avaliar o problema e tentar uma solução;
ta dando q o arquivo é invalido.. oq eu faço?
arquivo formato.rar
zipado no win rar
arquivo formato.rar
zipado no win rar
Tópico encerrado , respostas não são mais permitidas