MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


3 participantes

    Tipos incompatíveis

    Finformática
    Finformática
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1098
    Registrado : 23/03/2010

    Tipos incompatíveis Empty Tipos incompatíveis

    Mensagem  Finformática 2/9/2023, 22:41

    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
    Anexos
    Tipos incompatíveis AttachmentSCVBAR em desenvolvimento MESA.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (860 Kb) Baixado 10 vez(es)
    Finformática
    Finformática
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1098
    Registrado : 23/03/2010

    Tipos incompatíveis Empty Re: Tipos incompatíveis

    Mensagem  Finformática 3/9/2023, 16:59

    Up
    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3948
    Registrado : 21/04/2011

    Tipos incompatíveis Empty Re: Tipos incompatíveis

    Mensagem  Marcelo David 4/9/2023, 03:39

    Olá,
    dei uma olhada rapida aqui e vi que o erro aponta para a linha:
    txtTotalPagar = txtTotProd - txtTotalDesc

    Daí esse erro ocorre porque os campos txtTotProd e txtTotalDesc estão sem valores, daí o Access tenta realizar o calculo desses campos vazios e consequentemente não numericos,
    por isso o erro.

    A solução é esses campos estarem com algum valor.


    .................................................................................
    Tipos incompatíveis Favicon-16x16   Domine Access e VBA Criando Um Incrível Sistema Financeiro - [Passo a passo]
    Tipos incompatíveis Favicon-16x16   Access e VBA - Formulário Desacoplado - [Passo a passo]
    Tipos incompatíveis Yt_16x10 Conheça meu canal no Youtube e se inscreva.
    Tipos incompatíveis Marcel11
    Finformática
    Finformática
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1098
    Registrado : 23/03/2010

    Tipos incompatíveis Empty Re: Tipos incompatíveis

    Mensagem  Finformática 4/9/2023, 16:21

    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
    Finformática
    Finformática
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1098
    Registrado : 23/03/2010

    Tipos incompatíveis Empty Re: Tipos incompatíveis

    Mensagem  Finformática 5/9/2023, 13:13

    up
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11026
    Registrado : 04/11/2009

    Tipos incompatíveis Empty Re: Tipos incompatíveis

    Mensagem  JPaulo 5/9/2023, 15:25

    Esse banco em anexo, não tem ponta por onde se pegue.

    Se você for ao VBA, fizer Debug/Compile e corrigir todos os erros que o VBA lhe mostrar, depois volte aqui com o banco, para ajudar-mos.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    Tipos incompatíveis Folder_announce_new Utilize o Sistema de Busca do Fórum...
    Tipos incompatíveis Folder_announce_new 102 Códigos VBA Gratuitos...
    Tipos incompatíveis Folder_announce_new Instruções SQL como utilizar...
    Finformática
    Finformática
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1098
    Registrado : 23/03/2010

    Tipos incompatíveis Empty Re: Tipos incompatíveis

    Mensagem  Finformática 5/9/2023, 20:04

    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
    Finformática
    Finformática
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1098
    Registrado : 23/03/2010

    Tipos incompatíveis Empty Re: Tipos incompatíveis

    Mensagem  Finformática 5/9/2023, 20:58

    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
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11026
    Registrado : 04/11/2009

    Tipos incompatíveis Empty Re: Tipos incompatíveis

    Mensagem  JPaulo 5/9/2023, 22:01

    Esses trecho de código até podem ser elaborados por mim, mas não nesse banco.
    Esse banco tem inúmeros erros e falta de controles, que acusam muitos erros ao fazer o debug/compile.
    Esse banco tem de ser compilado e corrigido.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    Tipos incompatíveis Folder_announce_new Utilize o Sistema de Busca do Fórum...
    Tipos incompatíveis Folder_announce_new 102 Códigos VBA Gratuitos...
    Tipos incompatíveis Folder_announce_new Instruções SQL como utilizar...

    Conteúdo patrocinado


    Tipos incompatíveis Empty Re: Tipos incompatíveis

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 8/12/2024, 06:19