MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Tipos incompatíveis - RowSource

    caiosouza
    caiosouza
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 419
    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;


    .................................................................................
    Caio Souza

    Engenheiro de Software
    Silvio
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4621
    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 : 419
    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!


    .................................................................................
    Caio Souza

    Engenheiro de Software

      Data/hora atual: 21/10/2020, 19:29