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]Instrucao SQL para RowSource em SubForm

    avatar
    SamyEcheverria
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 9
    Registrado : 11/01/2019

    [Resolvido]Instrucao SQL para RowSource em SubForm Empty [Resolvido]Instrucao SQL para RowSource em SubForm

    Mensagem  SamyEcheverria em 26/1/2019, 20:27

    Boa tarde a todos!

    Tenho um formulário "frmMenu" e um subformulário "subFornec" com os seguintes campos:

    subFornec!txtCNPJ (textbox)
    subFornec!txtNome (textbox)
    subFornec!cmdBusca (button)
    subFornec!lstFornec (List box)

    No botão "cmdBusca" eu envio os dados para atualizar a lista, mas está dando "erro 13", o código está abaixo.

    Desde já agradeço!


    Private Sub cmdBusca_Click()

    Dim strSql As String

    strSql = "SELECT * From qryFornec WHERE (((qryFornec.CNPJ) Like [Forms]![frmMenu]![subFornec].[Form]![txtCNPJ] & " * ") AND ((qryFornec.RazaoSocial) Like [Forms]![frmMenu]![subFornec].[Form]![txtNome] & " * "))"

    Me.lstFornec.RowSource = strSql

    End Sub
    hiperjohn
    hiperjohn
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 97
    Registrado : 06/06/2013

    [Resolvido]Instrucao SQL para RowSource em SubForm Empty Re: [Resolvido]Instrucao SQL para RowSource em SubForm

    Mensagem  hiperjohn em 27/1/2019, 01:54

    Olá, amigo.

    Acho que você pode fazer assim:

    Código:
    Dim strSql As String
    Dim criterio1 as String
    Dim criterio2 as String

    criterio1 =  [Forms]![frmMenu]![subFornec].[Form]![txtCNPJ]
    criterio2 = [Forms]![frmMenu]![subFornec].[Form]![txtNome]

    strSql = "SELECT * From qryFornec WHERE CNPJ Like '*" & criterio1 & "*' AND RazaoSocial Like  '*" & criterio2 &"*';"

    Me.lstFornec.RowSource = strSql
    avatar
    SamyEcheverria
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 9
    Registrado : 11/01/2019

    [Resolvido]Instrucao SQL para RowSource em SubForm Empty Re: [Resolvido]Instrucao SQL para RowSource em SubForm

    Mensagem  SamyEcheverria em 8/2/2019, 19:38

    Boa tarde!

    Estou apanhando das listas e combinações. Complicado!

    Muito obrigado amigo!

      Data/hora atual: 19/10/2020, 16:54