Sayın fascioglu, bu kod ile cari formunu açmıyorsunuz. giris formunda gizli olan alt formu görünür yapıyorsunuz. Form açma farklı birşey.

Alt formdaki CARİ EKLE isimli butonun tıklandığında olayına aşağıdaki kodu yazarak deneyiniz.

Dim rst As Recordset



Forms!F_GIRIS!Kmt_Musteri.SetFocus

Forms!F_GIRIS!MUSTERIKAYIT.Visible = False

Forms!F_GIRIS!MUSTERICARI.Visible = True

 

Set rst = Forms!F_GIRIS!MUSTERICARI.Form.RecordsetClone



rst.FindFirst "MUSID = " & Me.MUSID

    If Not rst.NoMatch Then

        Forms!F_GIRIS!MUSTERICARI.Form.Bookmark = rst.Bookmark

    Else

        MsgBox "Müşteriye Ait Cari Bulunamadı!"

    End If



rst.Close

Set rst = Nothing