[Resolvido]Baixar parcela pesquisada

Bom dia! Tenho um formulário com o nome frm_QuitarParcela. peço uma ajuda a vocês,  para que quando eu clicar no botão baixar do formulário
apareça um campo para eu pesquisar o numero da parcela. tentei várias vezes com as dicas que vocês me passaram mas não consegui.

Desde já agradeço!

No Aguardo!

Ola

Disponibilize já com as parcelas criadas

ou você não consegui fazer esta parte funcionar?

Desculpe a demora, segue BD


Nome do Cliente que gerei parcelas Foi [b]Abílio[b]

No Aguardo!

Alterações feitas. (... = código que já tinha)

Nome do controle subformulário alterado para "SubForm"

Código do botão Baixar

Código:

'----------------------------------------------------
'desenvolvidor por Damasceno Jr. (Fórum MaximoAccess)
'----------------------------------------------------

    Dim rs As DAO.Recordset
    Dim bytQtdParcelas As Byte
    Dim varValor As Variant
    Dim bytPriNaoQuitada As Byte
    
    Set rs = Me.SubForm.Form.RecordsetClone
    If Not rs.EOF Then
        Do
            If bytPriNaoQuitada = 0 Then If rs!Quitar = 0 Then bytPriNaoQuitada = Mid(rs!Parcelas, 1, InStr(rs!Parcelas, "/") - 1)
            bytQtdParcelas = bytQtdParcelas + 1
            rs.MoveNext
        Loop Until rs.EOF
        rs.MoveFirst
    End If
    rs.Close: Set rs = Nothing
        
    If bytPriNaoQuitada > 0 Then
        
        Do
        
            varValor = InputBox("Informe o número da parcela a ser quitada:" & vbNewLine & _
                                vbNewLine & _
                                "(total de parcelas: " & bytQtdParcelas & ")", "Parcelas", bytPriNaoQuitada)
            
            If StrPtr(varValor) = 0 Then Exit Sub 'interceptando botão cancelar da inputbox
            
            If IsNumeric(varValor) Then
                If Eval(varValor & " between 1 and " & bytQtdParcelas) Then
                    ...
                    Me!SubForm.Form.Filter = "Parcelas = """ & varValor & "/" & bytQtdParcelas & """"
                    Me!SubForm.Form.FilterOn = True
                    Exit Sub
                Else
                    MsgBox "Parcela informada não existe.", vbInformation, "Aviso"
                End If
            Else
                MsgBox "Informe um valor entre 1 e " & bytQtdParcelas & ".", vbInformation, "Aviso"
            End If
        
        Loop
    
    Else
        MsgBox "Não há parcelas a serem quitadas.", vbInformation, "Parcelas A Quitar"
    End If

Código do evento "Ao Carregar"

Código:

...
Me.SubForm.Form.Filter = ""
Me.SubForm.Form.FilterOn = False

Código do botão Salvar

Código:

...
Me!SubForm.Form.Filter = ""
Me!SubForm.Form.FilterOn = False
...

fiz uma solução com imputbox mas não chega nem perto kkkkkkk

Obrigado me ajudou!