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

5 participantes

    ERRO EM TEMPO DE EXECUÇÃO '94"' USO DE 'NULL" INVÁLIDO

    avatar
    PauinhoTuca
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3
    Registrado : 28/02/2021

    ERRO EM TEMPO DE EXECUÇÃO '94"' USO DE 'NULL" INVÁLIDO Empty ERRO EM TEMPO DE EXECUÇÃO '94"' USO DE 'NULL" INVÁLIDO

    Mensagem  PauinhoTuca 3/3/2021, 01:43

    Boa noite será que alguem pode tentar me dar uma luz neste erro?

    Código:


    Sub Editar()

    bloqueado = True
    Dim tabela As ListObject
    Dim n As Integer, l As Integer
    Set tabela = Planilha1.ListObjects(1)

    n = UserForm2.ListBox1.Value
    l = tabela.Range.Columns().Find(n, , , xlWhole).Row

    tabela.Range(l, 2).Value = UserForm2.txtorcamento.Value
    tabela.Range(l, 3).Value = UserForm2.txtdata.Value
    tabela.Range(l, 4).Value = UserForm2.txtHora.Value
    tabela.Range(l, 5).Value = UserForm2.cbbVendedor.Value
    tabela.Range(l, 6).Value = UserForm2.txtcliente.Value
    tabela.Range(l, 7).Value = UserForm2.txtcidade.Value
    tabela.Range(l, 8).Value = UserForm2.txtuf.Value

    tabela.Range(l, 9).Value = IIf(UserForm2.obpadrao, "Padrão", "Fora de Padrão")      < AQUI APARECE O ERRO

    tabela.Range(l, 10).Value = UserForm2.cbbProduto.Value
    tabela.Range(l, 11).Value = UserForm2.txtcapacidade.Value
    tabela.Range(l, 12).Value = UserForm2.txtpreco.Value
    tabela.Range(l, 13).Value = UserForm2.txtContato.Value
    tabela.Range(l, 14).Value = UserForm2.txttelefone.Value
    tabela.Range(l, 15).Value = UserForm2.txtcelular.Value
    tabela.Range(l, 16).Value = UserForm2.txtemail.Value
    tabela.Range(l, 17).Value = UserForm2.cbbStatus.Value
    tabela.Range(l, 18).Value = UserForm2.txtDataDeRetorno.Value
    tabela.Range(l, 19).Value = UserForm2.txtObs.Value

    Call atualizar_listbox
    MsgBox "O Registro foi atualizado"

    bloqueado = False

    End Sub

    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7613
    Registrado : 15/03/2013

    ERRO EM TEMPO DE EXECUÇÃO '94"' USO DE 'NULL" INVÁLIDO Empty Re: ERRO EM TEMPO DE EXECUÇÃO '94"' USO DE 'NULL" INVÁLIDO

    Mensagem  Alvaro Teixeira 3/3/2021, 09:58

    Olá Paulo, Seja Bem-Vindo ao fórum.

    Sei que é membro novo, no entanto tenha atenção às Regras do Fórum

    1. Tenha paciência com quem coloca aqui as suas duvidas.
    2. Clareza nos títulos dos tópicos e duvidas, evite a linguagem MSN.
    3. Não colocar diversas vezes a mesma dúvida.
    4. Explicar detalhadamente o problema e informar a versão do seu Office + Sistema Operativo.
    5. Retorne sempre se deu certo, esse retorno é muito importante.
    6. Respeite toda a equipe Staff e demais membros deste fórum.
    7. Use sempre o botão Busca, sempre que tiver uma dúvida e antes de abrir tópicos.
    8. Não usar palavras como "Urgente". O fórum é livre e ninguém é obrigado a responder com urgência.
    9. A publicidade é proíbida e só pode ser feita pelo Administrador ou depois de aprovada pelo Administrador.
    10. Se o seu tópico não for respondido, tem o direito de fazer um Up ao final de 24horas!
    11. A colocação de Códigos ou Exemplos, devem constar sempre os créditos de quem o elaborou.
    12. Fale, não GRITE!   Só letras Maiúsculas, na Internet é o mesmo que gritar!
    13. É proibido tirar duvidas nas Salas de Repositório, devem abrir um novo tópico nas salas de duvidas, relacionando o Exemplo em causa.
    14. É proibido adicionar links externos nos tópicos, que redirecionem para outros sites ("backlinks").
    15. É permitido adicionar links externos, nos códigos VBA dentro das Base de Dados.


    Edite a mensagem nº 1 e ajuste o título do tópico em conformidade com as regras.

    Abraço
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3781
    Registrado : 04/04/2010

    ERRO EM TEMPO DE EXECUÇÃO '94"' USO DE 'NULL" INVÁLIDO Empty Re: ERRO EM TEMPO DE EXECUÇÃO '94"' USO DE 'NULL" INVÁLIDO

    Mensagem  Avelino Sampaio 3/3/2021, 10:14

    Olá!

    Seja bem-vindo!

    O campo obpadrao é de que tipo ? sim/não (boolean) ?

    Aguardamos


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso irrestrito ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.

    PauinhoTuca gosta desta mensagem

    avatar
    PauinhoTuca
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3
    Registrado : 28/02/2021

    ERRO EM TEMPO DE EXECUÇÃO '94"' USO DE 'NULL" INVÁLIDO Empty Re: ERRO EM TEMPO DE EXECUÇÃO '94"' USO DE 'NULL" INVÁLIDO

    Mensagem  PauinhoTuca 3/3/2021, 14:24

    obpadrao é o nome que dei ao option Button, são dois na verdade obpadrao e o obforadepadrao eles precisa aparecer na planilha escrito PADRÃO E OU FORA DE PADRÃO
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2594
    Registrado : 13/12/2016

    ERRO EM TEMPO DE EXECUÇÃO '94"' USO DE 'NULL" INVÁLIDO Empty Re: ERRO EM TEMPO DE EXECUÇÃO '94"' USO DE 'NULL" INVÁLIDO

    Mensagem  Alexandre Fim 3/3/2021, 14:35

    O problema está no tratamento de valores nulos.

    tabela.Range(l, 9).Value = IIf(IsNull(UserForm2.obpadrao), "Padrão", "Fora de Padrão")

    No caso, a rotina vai verificar se está nulo ou não de "UserForm2.obpadrao"
    Se for nulo, vai informar "Padrão", senão "Fora do Padrão"

    Att


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    ERRO EM TEMPO DE EXECUÇÃO '94"' USO DE 'NULL" INVÁLIDO Setinf11
    Sistemas e Tecnologia Ltda

    PauinhoTuca gosta desta mensagem

    avatar
    PauinhoTuca
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3
    Registrado : 28/02/2021

    ERRO EM TEMPO DE EXECUÇÃO '94"' USO DE 'NULL" INVÁLIDO Empty erro de compilação: o argumento não é opcional

    Mensagem  PauinhoTuca 3/3/2021, 17:03

    Boa tarde Alexandre Fim, deu certo aqui muito obrigado, sera que pode me ajudar com esse outro erro que vinha logo em seguida

    erro de compilação: o argumento não é opcional

    Código:
    Sub Filtro()

        Dim base As Range
        Dim crt As Range
        Dim filtrada As Range
        Dim nome As String
       
        Set base = Planilha1.Range("A1").CurrentRegion
        Set crt = Planilha2.Range("V1:AO2")
       
        base.AdvancedFilter xlFilterCopy, crt, Planilha2.Range("A1:T1")    Aqui acontece o erro
       
        Set filtrada = Planilha2.Range("A1").CurrentRegion
        nome = "'" & Planilha2.Name & "'!"
       
       
            UserForm2.ListBox1.RowSource = nome & filtrada.Address
           
    End Sub


    Última edição por PauinhoTuca em 3/3/2021, 18:58, editado 1 vez(es)
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    ERRO EM TEMPO DE EXECUÇÃO '94"' USO DE 'NULL" INVÁLIDO Empty Re: ERRO EM TEMPO DE EXECUÇÃO '94"' USO DE 'NULL" INVÁLIDO

    Mensagem  Alexandre Neves 3/3/2021, 18:46

    Boa noite, PaulinhoTuca e bem-vindo ao fórum
    Leia as regras e dê atenção ao indicado pelo moderador ahteixeira para mantermos o fórum organizado (edite a sua mensagem e adeqúe maiúsculas para texto normal), caso contrário será diminuída a sua reputação até ser banido do fórum (o que não é desejável)


    .................................................................................
    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

    PauinhoTuca gosta desta mensagem


      Data/hora atual: 25/9/2022, 16:31