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

2 participantes

    [Resolvido]Erro em tempo de execução 13 Tipos imcompatíveis

    avatar
    fcamara
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 88
    Registrado : 07/01/2016

    [Resolvido]Erro em tempo de execução 13 Tipos imcompatíveis Empty [Resolvido]Erro em tempo de execução 13 Tipos imcompatíveis

    Mensagem  fcamara 3/8/2022, 14:25

    Bom dia
    Tenho uma combox no formulário que puxa os campos de minha tabela através de uma consulta. Os campos são id_ata e NUNATA e no evento após atualizar o Código:

    Private Sub bcel_AfterUpdate()
    Dim rs As Object
    Set rs = Me.Recordset.Clone
    rs.FindFirst "[id_ata] = " & Str(Me![bcel]) ' Erro nessa linha obs: bcel é minha combox
    Me.Bookmark = rs.Bookmark
    Me.lstSubitens.Requery
    End Sub

    Esta dando "Erro em tempo de execução ' 13' tipos incompatíveis"
    Alguem poderia me ajudar?
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Erro em tempo de execução 13 Tipos imcompatíveis Empty Re: [Resolvido]Erro em tempo de execução 13 Tipos imcompatíveis

    Mensagem  Alexandre Fim 3/8/2022, 15:10

    Olá Flávio,

    Também ajustei esse erro que estava gerando.
    Vou mandar na próxima versão, mas segue a alteração:


    Código:


    Private Sub bcel_AfterUpdate()
    Dim rs As Object
       
        'Set rs = Me.Recordset.Clone
        'rs.FindFirst "[IdAta] = " & Str(Me![bcel].Column(0))
        'Me.Bookmark = rs.Bookmark
       
        Me.Filter = "id_ata = " & bcel.Column(0) & ""
        Me.FilterOn = True
        Me.Requery
       
        Call CarregaListaSubitens(Me.Id_Ata)
       
       
       
       
    End Sub


    É isso !

    Att,
    Alexandre Fim


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

    [Resolvido]Erro em tempo de execução 13 Tipos imcompatíveis Setinf11
    Sistemas e Tecnologia Ltda

    fcamara gosta desta mensagem

    avatar
    fcamara
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 88
    Registrado : 07/01/2016

    [Resolvido]Erro em tempo de execução 13 Tipos imcompatíveis Empty Re: [Resolvido]Erro em tempo de execução 13 Tipos imcompatíveis

    Mensagem  fcamara 3/8/2022, 15:39

    Muito Obrigado você é 1000

      Data/hora atual: 1/10/2022, 16:51