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

    Compartilhe
    avatar
    caiosouza
    Avançado
    Avançado

    Respeito às Regras 100%

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

    [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!
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

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

    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.
    [Você precisa estar registrado e conectado para ver este link.]
    avatar
    caiosouza
    Avançado
    Avançado

    Respeito às Regras 100%

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

    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: 16/11/2018, 10:14