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

    [Resolvido]Erro ao actualizar combo

    PPTT
    PPTT
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 308
    Registrado : 18/05/2011

    [Resolvido]Erro ao actualizar combo Empty Erro ao actualizar combo

    Mensagem  PPTT Sáb 25 Ago 2012, 03:16

    Boas,

    Tenho um formulario com um campo que deve receber valores de uma combobox
    que tem duas colunas alternadamente consoante os campos da combobox
    estão preenchidos ou não e estou a tentar o seguinte código:

    Private Sub MinhaCaixadeCombinacao_AfterUpdate()

    If Me.MeuCampoB = Null Then
    Me.MeuCampoA = Me.MinhaCaixadeCombinacao.Column(0)
    End If
    If Me.MeuCampoC = Null Then
    Me.MeuCampoA = Me.MinhaCaixadeCombinacao.Column(1)
    End If
    End Sub

    mas está a dar erro, como devo proceder?

    Muito obrigado


    .................................................................................
    bounce Este lugar é o ceú
    PPTT
    PPTT
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 308
    Registrado : 18/05/2011

    [Resolvido]Erro ao actualizar combo Empty Re: [Resolvido]Erro ao actualizar combo

    Mensagem  PPTT Sáb 25 Ago 2012, 16:12

    Alguém me consegue ajudar?
    Obrigado


    .................................................................................
    bounce Este lugar é o ceú
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Erro ao actualizar combo Empty Re: [Resolvido]Erro ao actualizar combo

    Mensagem  criquio Sáb 25 Ago 2012, 16:25

    Ajuda muito se mencionar qual é o erro que ocorre, mas, em alguns casos, consegue-se resolver assim:

    If IsNull(Me.NomeCampo) Or Me.NomeCampo.Value = "" Then...

    Isso porque nulo é diferente de vazio, por isso usamos as duas formas para prevenir os dois casos. Tente aí.


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Erro ao actualizar combo Empty Re: [Resolvido]Erro ao actualizar combo

    Mensagem  Alexandre Neves Sáb 25 Ago 2012, 16:28

    Grande Críquio
    Estava a criar um tema sobre o assunto para que ficasse de lembrete
    http://maximoaccess.forumeiros.com/t9216-trabalhar-com-nulos


    .................................................................................
    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
    PPTT
    PPTT
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 308
    Registrado : 18/05/2011

    [Resolvido]Erro ao actualizar combo Empty Re: [Resolvido]Erro ao actualizar combo

    Mensagem  PPTT Sex 31 Ago 2012, 02:50

    Então ficaria assim:

    Private Sub MinhaCaixadeCombinacao_AfterUpdate()
    If IsNull(Me.MinhaCaixadeCombinacao.Column(1)) Or Me.MinhaCaixadeCombinacao.Column(1) = "" Then
    Me.MeuCampo = Me.MinhaCaixadeCombinacao.Column(0)
    ElseIf IsNull(Me.MinhaCaixadeCombinacao.Column(0)) Or Me.MinhaCaixadeCombinacao.Column(0) = "" Then
    Me.MeuCampo = Me.MinhaCaixadeCombinacao.Column(1)
    End If
    End Sub

    Grato pela ajuda dispensada,
    Cptos


    .................................................................................
    bounce Este lugar é o ceú
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Erro ao actualizar combo Empty Re: [Resolvido]Erro ao actualizar combo

    Mensagem  criquio Sex 31 Ago 2012, 02:59

    O fórum agradece pelo retorno.


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.


    Conteúdo patrocinado


    [Resolvido]Erro ao actualizar combo Empty Re: [Resolvido]Erro ao actualizar combo

    Mensagem  Conteúdo patrocinado


      Data/hora atual: Seg 25 Nov 2024, 22:47