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

    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

    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7242
    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  ahteixeira 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 : 3711
    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 : 1446
    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


    .................................................................................
    - Procure sempre anexar seu projeto para análise do problema/dúvida.
    - Ao copiar/colar um código VBA, procure entender seu funcionamento.
    - Se o problema foi resolvido, não se esqueça de marcar o tópico como RESOLVIDO.

    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 : 7956
    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: 14/6/2021, 07:43