Tipos incompatíveis

Caros Mestres!

Baixei aqui do fórum um db e queria adaptar e controlar o atendimento de bar por mesas. Juntei com outras partes que que já tinha aqui e estava funcionando direitinho (a grosso modo). Fiz umas alterações na apresentação do formulário e zerei todas as tabelas envolvidas para fazer um teste geral. Aí o problema. Não funciona mais. Dando tipos incompatíveis. Já testei tudo que acho possível e nada.
Deve abrir primeiro o formulário FPrincipal e ao clicar em uma mesa deve abrir Frm_Mesa_Det2. Ao pesquisar um produtos no botão Pesquisar Produtos, ao informar a quantidade e depois botão Adicionar vem o erro. Tipos incompatíveis. Estava dando tudo certinho e após o já citado acima agora esse problema. Alguém pode me ajudar?
Muito grato
Forte abraço

Up

Caro Marcelo.

Muito obrigado por sua atenção. Entendo a mensagem "tipos incompatíveis", seus motivos e tal. O que não estou conseguindo é descobrir o local em que os campos perdem seus valores ou tipos para ocasionar esse erro. Já segui todo o caminho, desde o primeiro valor informado no formulário até o local do erro, visualizando o conteúdo dos campos ou variáveis e não consegui encontrar.
Continuo tentando e esperando ajuda.

Muito obrigado

up

Caro Amigo.

Minhas mais sinceras desculpas. Pensei ser você um dos criadores do DB. Tem alguns códigos que tem o seu nome. Por isso achei ser você um dos pais da criança. Já que bem no início de um módulo é feito referência a você, Lupércio e Sílvio.

Public Sub TotalConta()
'By JPaulo Maximo Access
Dim I As Integer, j As Integer, ctl As Control ', somalistbox As Integer

Set ctl = Me.lstItens

j = ctl.ListCount - 1
somalistbox = 0
For I = 1 To j
somalistbox = somalistbox + ctl.Column(8, I)
'MsgBox ctl

Next I
somalistbox = Format(somalistbox, "currency")
Me.txtTotProd = somalistbox




End Sub

Public Sub TotalDesconto()
'By JPaulo Maximo Access
Dim I As Integer, j As Integer, ctl As Control ', somalistbox As Integer
Set ctl = Me.lstItens
j = ctl.ListCount - 1
somalistbox = 0
For I = 1 To j
somalistbox = somalistbox + ctl.Column(7, I)
'MsgBox ctl
Next I
somalistbox = Format(somalistbox, "currency")
Me.txtTotalDesc = somalistbox
End Sub

Private Sub txtQtde_AfterUpdate()
   
txtTotalItem = Format(((txtQtde * txtValor) - txtDesc), "###,###,###,##0.#0")
'txtTotalItem = Format(txtTotalItem + (txtTotalItem * Me.txttaxamesa), "###,###,###,##0.#0")

End Sub

'***********************************************************************************************
'* Códigos Desenvolvidos por Silvio para fins de estudo e aperfeiçoamento                      *
'                                                                                              *
'* REPRODUÇÃO TOTAL OU PARCIAL PERMITIDA, DESDE QUE CITADA AS FONTES QUE AQUI ESTÃO DESCRITAS  *
'* FONTES:http://maximoaccess.maisforum.com, Lupércio e JPaulo                                 *
'                                                                                              *
'***********************************************************************************************

Não lembra dessa parceria?

Abraços

Caro JPaulo

Caso realmente seja vc o autor dos códigos postados anteriormente e se ainda lembrar da lógica e dos porquês, seria possível uma espiada mais detalhada e ver o motivo do "dados incompatíveis" após percorrer esses códigos (TotalDesconto e TotalConta).

Muito obrigado

Forte abraço