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 em tempo de execução

    tauron
    tauron
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1416
    Registrado : 07/12/2011

    [Resolvido]Erro em tempo de execução Empty [Resolvido]Erro em tempo de execução

    Mensagem  tauron 8/10/2015, 20:26

    Tenho um formulário com uma caixa de listagem e um botão com o código abaixo que uso para selecionar os itens de meu interesse mas, ao clicar no item escolhido aparece a seguinte mensagem: "Erro em tempo de execução '94': Uso de 'Null" invalido.

    Private Sub Lista1_AfterUpdate()
    Me!Lista1 = Proper(Me!Lista1)
    End Sub

    Private Sub Tst_Click()

    Dim sel As Variant
    Dim strwhere As String

    strwhere = "item in ("
    For Each sel In Me.Lista1.ItemsSelected
    strwhere = strwhere & "'" & Me.Lista1.ItemData(sel) & "',"
    Next
    strwhere = strwhere & ")"

    DoCmd.OpenReport "PedOrcamento", acViewPreview, , strwhere

    End Sub
    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Erro em tempo de execução Empty Re: [Resolvido]Erro em tempo de execução

    Mensagem  Marcelo David 8/10/2015, 21:49

    Proper(Me!Lista1)

    Proper é uma função?
    Se sim, ela está reclamando de valor nulo...
    Lista1 é um listbox? Está com alguma linha selecionada?



    .................................................................................
    [Resolvido]Erro em tempo de execução Favicon-16x16   Domine Access e VBA Criando Um Incrível Sistema Financeiro - [Passo a passo]
    [Resolvido]Erro em tempo de execução Favicon-16x16   Access e VBA - Formulário Desacoplado - [Passo a passo]
    [Resolvido]Erro em tempo de execução Yt_16x10 Conheça meu canal no Youtube e se inscreva.
    [Resolvido]Erro em tempo de execução Marcel11
    tauron
    tauron
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1416
    Registrado : 07/12/2011

    [Resolvido]Erro em tempo de execução Empty Re: [Resolvido]Erro em tempo de execução

    Mensagem  tauron 13/10/2015, 14:19

    Me desculpe marcelo por nao ter respondido antes eh que estava pesquisando sobre o problema, sim é uma função que eu havia adaptado de um modelo mais antigo (maestro) do mestre avelino. em um outro bd funciona normalmente.

    Veja o condigo com o erro:

    https://www.dropbox.com/s/dcwn7ua0ioa7h1k/lictauron.zip?dl=0
    RMARCO
    RMARCO
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 20
    Registrado : 10/02/2012

    [Resolvido]Erro em tempo de execução Empty Re: [Resolvido]Erro em tempo de execução

    Mensagem  RMARCO 13/10/2015, 20:09

    Pelo que pude entender voce deseja aplicar a UDF Proper, a todos os registros de seu listbox,porem essa função não está moldada para tal.
    Acredido que se utiliza-la na sql que "carrega" a listbox (retirando a chamada do envento after updade) resolva
    Código:
    SELECT Proper([Item]) AS Prod, Itens.Pedido, Itens.Pedido
    FROM Itens
    GROUP BY Proper([Item]), Itens.Pedido, Itens.Pedido
    HAVING (((Itens.Pedido)=[INFORME O PEDIDO]));
    tauron
    tauron
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1416
    Registrado : 07/12/2011

    [Resolvido]Erro em tempo de execução Empty Re: [Resolvido]Erro em tempo de execução

    Mensagem  tauron 14/10/2015, 00:32

    Entao RMarco, o problema era justamente o seguinte, em um outro projeto o codigo continua funcionando perfeitamente e agora gostaria de lhe agradecer pois esta funcionando novamente. Acredito que possa ser inclusive questoes de versao do access.

    Conteúdo patrocinado


    [Resolvido]Erro em tempo de execução Empty Re: [Resolvido]Erro em tempo de execução

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 8/11/2024, 00:36