İlk resimdeki kodu aşağıdaki ile değiştirerek deneyiniz.

Dim varmi As Integer



varmi = DCount("txtMusteriAdi", "TBL_PORTFOY", "AdiSoyadi='" & Me.txtMusteriAdi & "'")

    

If varmi >= 1 Then

        

    If MsgBox("Bu Müşteri adına Portföy kaydedilmiş. Kayıtları kontrol etmek istermisiniz.?", vbExclamation + vbYesNo) = vbYes Then

              

        DoCmd.OpenForm "F_005_PortfoyListesi", , , "[AdiSoyadi]='" & Me.txtMusteriAdi & "'", , , Me.txtMusteriAdi

                    

        Forms![F_005_PortfoyListesi].[SRG_AltForm].Form.Filter = "([SRG_PORTFOY alt formu].[Adisoyadi]='" & Me.txtMusteriAdi & "')"

        Forms![F_005_PortfoyListesi].[SRG_AltForm].Form.FilterOn = True

                        

    End If

End If