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

    Não aparecem todos os registos.

    avatar
    m_sousa
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

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

    Mensagem  m_sousa em 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 !

      Data/hora atual: 18/1/2021, 19:38