MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Função DLookup - Dados Incompativeis.

    Compartilhe

    XPTOS
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 461
    Registrado : 20/01/2014

    [Resolvido]Função DLookup - Dados Incompativeis.

    Mensagem  XPTOS em Sab 27 Set 2014, 22:48

    Prezados,

    Estou usando o codigo abaixo no evento AfterUpdate da minha combo cboTipo e este tem a função de verificar se o que eu digitei na combo cboTipo existe na tabela tblContabilidadeTipologiaAssunto.

    Mas quando eu digito os dados na minha 3ª combo aparece a mensagem Erro 13 - Tipos Incompativeis.

    Alguém poderia me dar uma luz?


    Formulario: Fonte do registro (tblContabilidade)

    Já as combos tem como origem de linha as tabelas:
    tblContabilidadeTipologiaAssunto
    tblContabilidadeOrigem

    Dim X As String 'Variavel
    X = "cboTipo = '" & Me.TipologiaDocumental & "'" 'Assunto da combo tem que ser igual da tabela tblContabilidadeOrigem

    If DLookup("cboTipo", "tblContabilidadeOrigem", X) Then 'Se assunto selecionado estiver na tabela
    'tblContabilidadeOrigem o codigo segue

    Else
    'Se não tive assunto cadastrado na tabela valta com msgbox abaixo
    MsgBox "Assunto Inexistente", vbQuestion + vbCritical, "Aviso"
    End If


    Segue exemplo!
    [Você precisa estar registrado e conectado para ver este link.]

    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 5890
    Registrado : 05/11/2009

    Re: [Resolvido]Função DLookup - Dados Incompativeis.

    Mensagem  Alexandre Neves em Dom 28 Set 2014, 07:33

    Bom dia,
    Falta o campo cboTipo na tabela


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

    XPTOS
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 461
    Registrado : 20/01/2014

    Re: [Resolvido]Função DLookup - Dados Incompativeis.

    Mensagem  XPTOS em Dom 28 Set 2014, 15:45

    Alexandre, bom dia,

    Parti do principio que você me sugeriu e com algumas adaptações agora o código funciona perfeitamente.

    Segue caso alguém tenha uma dúvida semelhante:

    Dim X As String 'Variavel
    X = "Assunto = '" & Me.cboTipo & "'" 'Assunto da combo tem que ser igual da tabela tblContabilidadeOrigem

    If Not IsNull(DLookup("Assunto", "tblContabilidadeTipologiaAssunto", X)) Then 'Se assunto selecionado estiver na tabela
    'tblContabilidadeOrigem o codigo segue

    Else
    'Se não tive assunto cadastrado na tabela valta com msgbox abaixo
    MsgBox "Assunto Inexistente", vbQuestion + vbCritical, "Aviso"
    End If
    Screen.PreviousControl.SetFocus
    DoCmd.GoToControl "cboTipo"

      Data/hora atual: Sab 10 Dez 2016, 04:53