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


    Não aparecem todos os registos.

    avatar
    m_sousa
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 159
    Registrado : 06/11/2020

    Não aparecem todos os registos. Empty Não aparecem todos os registos.

    Mensagem  m_sousa 7/1/2021, 09:39

    Olá

    tenho o seguinte código num form :

    Código:
    Option Compare Database

    Private Sub btnSair_Click()
    DoCmd.Close
    End Sub

    Private Sub Form_Load()
    Me.txtpesquisa.SetFocus
    End Sub

    Private Sub txtpesquisa_Change()
    Select Case Me!mdlOpcao
        Case 1
            strFiltro = "TipoAtividades LIKE '*" & Me.txtpesquisa.Text & "*' "
        Case Is = 2
            strFiltro = "Produto LIKE '*" & Me.txtpesquisa.Text & "*' "
        End Select
            Me.[frmsubContagemAtividades].Form.RecordSource = "SELECT * FROM ConsAtividades WHERE " & strFiltro
    End Sub

    O problema é quando abro o form, não aparecem todos os registos, mas se filtrar pelo nome aparecem !!!

    Obrigado

    Um bem hajam !
    =>Nois
    =>Nois
    Super Avançado
    Super Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 908
    Registrado : 09/11/2012

    Não aparecem todos os registos. Empty Re: Não aparecem todos os registos.

    Mensagem  =>Nois 26/1/2021, 17:38

    tenta assim

    Código:
    Private Sub txtpesquisa_Change()
    Select Case Me!mdlOpcao
        Case 1
            strFiltro = "TipoAtividades LIKE '*" & Me.txtpesquisa.Text & "*' "
    Me.[frmsubContagemAtividades].Form.RecordSource = "SELECT * FROM ConsAtividades WHERE " & strFiltro
        Case Is = 2
            strFiltro = "Produto LIKE '*" & Me.txtpesquisa.Text & "*' "
    Me.[frmsubContagemAtividades].Form.RecordSource = "SELECT * FROM ConsAtividades WHERE " & strFiltro
        End Select
           
    End Sub


    .................................................................................
    Att. Nois

    Se tudo não der certo... tente de novo drunken

      Data/hora atual: 13/5/2021, 10:16