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]RecordSources com critérios de seleção em cboBox

    avatar
    Helden
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 131
    Registrado : 27/05/2016

    [Resolvido]RecordSources com critérios de seleção em cboBox Empty [Resolvido]RecordSources com critérios de seleção em cboBox

    Mensagem  Helden 1/4/2022, 16:08

    Bom dia pessoal, preciso colocar mais um critërio para carregar o subformulario que seria descrição do produto na cboProdutos
    o código sem a descriçao do produto esta funcionando bem e esta assim:

    Private Sub Comando123_Click()
    If SelComando123 - 1 Then

           Me.comb_inicio = Me.txtDataInicial
           Me.Comb_data = Me.txtDataFinal

           subFormDESPESAS.Form.RecordSource = "SELECT DataLancamento,Mes,Proveniente,Descricao,Qtd,ValorUnt,SubTotal,ValorPago,Apagar,DataVencimento,DataPagamento,DataReferencia,Parcelas,Quitar FROM tbl_Despesas " & vbCrLf & _
    "WHERE (((DataLancamento) Between comb_inicio And Comb_data)) AND ValorPago >0 " & vbCrLf & _
    "ORDER BY tbl_Despesas.DataLancamento ASC;"
    End If
    End Sub

    TEntei colocar mais um critério cboProdutos, assim:

    Private Sub Comando123_Click()
    If SelComando123 - 1 Then

           Me.comb_inicio = Me.txtDataInicial
           Me.Comb_data = Me.txtDataFinal

           subFormDESPESAS.Form.RecordSource = "SELECT DataLancamento,Mes,Proveniente,Descricao,Qtd,ValorUnt,SubTotal,ValorPago,Apagar,DataVencimento,DataPagamento,DataReferencia,Parcelas,Quitar FROM tbl_Despesas " & vbCrLf & _
                                               "WHERE (((DataLancamento) Between comb_inicio And Comb_data)) AND ValorPago >0 and Descricao Like '*" & Me.cboProdutos.Text" & vbCrLf & _
                                               "ORDER BY tbl_Despesas.DataLancamento ASC;"
    End If
    End Sub

    obs: "Descricao" é o campo na tabela que esta na "cboProdutos" .
    Vem a mensagem erro de sintaxe, podem me orientar, obrigado!!
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]RecordSources com critérios de seleção em cboBox Empty Re: [Resolvido]RecordSources com critérios de seleção em cboBox

    Mensagem  Alexandre Fim 1/4/2022, 17:21

    Olá Helden,

    Minha sugestão é utilizar a string (sSQL) concatenada também para facilitar a visualização.
    Sua consulta não vai rodar porque faltou formatação no LIKE e nas datas também. Segue código:

    Código:
       Dim sSQL As String

        sSQL = "SELECT DataLancamento,Mes,Proveniente,Descricao,Qtd,ValorUnt,SubTotal,ValorPago,Apagar,DataVencimento,DataPagamento,DataReferencia,Parcelas,Quitar "
        sSQL = sSQL & " FROM tbl_Despesas "
        sSQL = sSQL & " WHERE (((DataLancamento) BETWEEN #" & Format(comb_inicio, "mm/dd/yyyy") & "# "
        sSQL = sSQL & "                              AND #" & Format(Comb_data, "mm/dd/yyyy") & "#)) "
        sSQL = sSQL & " AND ValorPago >0 "
        sSQL = sSQL & " AND Descricao Like '*" & Trim(Me.cboProdutos) & "*'"
        sSQL = sSQL & " ORDER BY tbl_Despesas.DataLancamento ASC;"
       
        subFormDESPESAS.Form.RecordSource = sSQL

    Acredito que irá funcionar.

    Boa sorte

    Abs
    FIM


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

    [Resolvido]RecordSources com critérios de seleção em cboBox Setinf11
    Sistemas e Tecnologia Ltda
    avatar
    Helden
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 131
    Registrado : 27/05/2016

    [Resolvido]RecordSources com critérios de seleção em cboBox Empty Re: [Resolvido]RecordSources com critérios de seleção em cboBox

    Mensagem  Helden 1/4/2022, 20:35

    opa, obrigado Alexandre, o código não da erro mas não carrega o subformulário, será que falta um requery?
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]RecordSources com critérios de seleção em cboBox Empty Re: [Resolvido]RecordSources com critérios de seleção em cboBox

    Mensagem  Alexandre Fim 1/4/2022, 21:20

    Provavelmente sim.
    Se quiser, compartilha seu bd (somente partes envolvidas no problema) para analise e solução.

    Valeu


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

    [Resolvido]RecordSources com critérios de seleção em cboBox Setinf11
    Sistemas e Tecnologia Ltda
    avatar
    Helden
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 131
    Registrado : 27/05/2016

    [Resolvido]RecordSources com critérios de seleção em cboBox Empty Re: [Resolvido]RecordSources com critérios de seleção em cboBox

    Mensagem  Helden 2/4/2022, 00:51

    https://www.dropbox.com/s/13hr5iueqycscdi/Banco%20de%20dados8.accdb?dl=0

    codigo esta no botão teste
    "Comando 123"
    avatar
    Helden
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 131
    Registrado : 27/05/2016

    [Resolvido]RecordSources com critérios de seleção em cboBox Empty Re: [Resolvido]RecordSources com critérios de seleção em cboBox

    Mensagem  Helden 5/4/2022, 13:46

    bom dia, estou testano ainda mas acho que vai dar certo:
    Apenas mudei o formato de data para americano e coloquei as caixas de texto nas datas.

    Dim sSQL As String

    sSQL = "SELECT DataLancamento,Mes,Proveniente,Descricao,Qtd,ValorUnt,SubTotal,ValorPago,Apagar,DataVencimento,DataPagamento,DataReferencia,Parcelas,Quitar "
    sSQL = sSQL & " FROM tbl_Despesas "
    sSQL = sSQL & " WHERE (((DataLancamento) BETWEEN #" & Format(Me.txtDataInicial, "YYYY/mm/dd") & "# "
    sSQL = sSQL & " AND #" & Format(Me.txtDataFinal, "YYYY/mm/dd") & "#)) "
    sSQL = sSQL & " AND ValorPago > 0"
    sSQL = sSQL & " AND Descricao Like '*" & Trim(Me.cboProdutos) & "*'"
    sSQL = sSQL & " ORDER BY tbl_Despesas.DataLancamento ASC;"

    subFormDESPESAS.Form.RecordSource = sSQL
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]RecordSources com critérios de seleção em cboBox Empty Re: [Resolvido]RecordSources com critérios de seleção em cboBox

    Mensagem  Alexandre Fim 5/4/2022, 15:20

    Helden,

    Teu sistema tá meio confuso.
    Fiz alguns ajustes e está carregando corretamente.

    OBS: sempre que possível, utilize sempre a nomenclatura correta para seus controles. 
    Controles com descrição "Comando123", "CaixaDeCombinação9", "Texto3" não faz parte das boas práticas de programação, além de atrapalhar/dificultar na manutenção do sistema.

    Segue versão.

    []'s

    FIM


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

    [Resolvido]RecordSources com critérios de seleção em cboBox Setinf11
    Sistemas e Tecnologia Ltda
    avatar
    Helden
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 131
    Registrado : 27/05/2016

    [Resolvido]RecordSources com critérios de seleção em cboBox Empty Re: [Resolvido]RecordSources com critérios de seleção em cboBox

    Mensagem  Helden 13/4/2022, 17:23

    Alexandre, o código funcionou perfeitamente, agradeço muito a vc por compartilhar seu tempo e conhecimento.
    Show , obrigado!!!
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]RecordSources com critérios de seleção em cboBox Empty Re: [Resolvido]RecordSources com critérios de seleção em cboBox

    Mensagem  Alexandre Fim 14/4/2022, 13:44

    Valeu Helden,
    O fórum agradece.
    Sucesso !!!


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

    [Resolvido]RecordSources com critérios de seleção em cboBox Setinf11
    Sistemas e Tecnologia Ltda

    Conteúdo patrocinado


    [Resolvido]RecordSources com critérios de seleção em cboBox Empty Re: [Resolvido]RecordSources com critérios de seleção em cboBox

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 7/12/2024, 23:14