MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Tipos incompatíveis - RowSource

    caiosouza
    caiosouza
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 376
    Registrado : 05/12/2016

    [Resolvido]Tipos incompatíveis - RowSource Empty [Resolvido]Tipos incompatíveis - RowSource

    Mensagem  caiosouza em 20/12/2017, 19:31

    Boa tarde Amigos,

    Oque poderia estar de incorreto nessa instrução?

    VBA: Erro 13 - Tipos incompatíveis
    Já tentei com e sem os " & _" para nova linha!

    Código:

    Dim strListBox As String

    strListBox = "SELECT tab_colaboradores.RE, tab_colaboradores.Nome AS Colaborador, tab_colaboradores.CentroCusto " & _
    "FROM tab_colaboradores " & _
    "WHERE(((tab_colaboradores.RE) Like [Forms]![fml_solicitante].[txt_re].[Text] & " * ") And ((tab_colaboradores.Nome) Like [Forms]![fml_solicitante].[txt_nome].[Text] & " * ") And ((tab_colaboradores.CentroCusto) Like [Forms]![fml_solicitante].[CentroCusto] & " * ")) " & _
    "ORDER BY tab_colaboradores.Nome;"

    Me.epis2.RowSource = strListBox


    Consulta:
    Quero execultar a seguinte instrução da consulta a partir de um botão, por exemplo.

    Código:
    SELECT tab_colaboradores.RE, tab_colaboradores.Nome AS Colaborador, tab_colaboradores.CentroCusto
    FROM tab_colaboradores
    WHERE (((tab_colaboradores.RE) Like [Forms]![fml_solicitante].[txt_re].[text] & "*") AND ((tab_colaboradores.Nome) Like [Forms]![fml_solicitante].[txt_nome].[text] & "*") AND ((tab_colaboradores.CentroCusto) Like [Forms]![fml_solicitante].[CentroCusto] & "*"))
    ORDER BY tab_colaboradores.Nome;


    .................................................................................
    A persistência leva ao sucesso!
    Silvio
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4305
    Registrado : 20/04/2011

    [Resolvido]Tipos incompatíveis - RowSource Empty Re: [Resolvido]Tipos incompatíveis - RowSource

    Mensagem  Silvio em 20/12/2017, 21:43



    Algo assim....


    Dim strListBox As String

    strListBox = "SELECT tab_colaboradores.RE, tab_colaboradores.Nome AS Colaborador, tab_colaboradores.CentroCusto " & _
    "FROM tab_colaboradores " & _
    "WHERE(((tab_colaboradores.RE) Like [Forms]![fml_solicitante]![txt_re]![Text] & " * ") And ((tab_colaboradores.Nome) Like [Forms]![fml_solicitante]![txt_nome]![Text] & " * ") And ((tab_colaboradores.CentroCusto) Like [Forms]![fml_solicitante]![CentroCusto] & " * ")) " & _
    "ORDER BY tab_colaboradores.Nome;"

    Me.epis2.RowSource = strListBox

    Só não sei se...[txt_nome]![Text]...esse [text] vai receber algum texto. Se não, apaga da rotina.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    caiosouza
    caiosouza
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 376
    Registrado : 05/12/2016

    [Resolvido]Tipos incompatíveis - RowSource Empty Re: [Resolvido]Tipos incompatíveis - RowSource

    Mensagem  caiosouza em 21/12/2017, 11:08

    Bom dia,

    Acabei solucionando o problema de outra forma, onde não envolvi código.

    Obrigado, resolvido!


    .................................................................................
    A persistência leva ao sucesso!

      Data/hora atual: 19/4/2019, 01:52