Merhaba,

Öncelikle, konularınızı Site Kurallarına uygun olarak açınız.

Alıntı:Site Kuralları:
3e) Örnek uygulamanızın adını veya rar/zip adını “örnek”, “deneme”, “yeni microsoft Access veritabanı”,“database”,“yeni klasör”, “soru” vs. isimlerle göndermeyiniz, kullanıcı adınızı ve/veya kısa başlık giriniz.

Bahsettiğiniz işlemi doğru anladıysam,

Yeni bir modül oluştur. Modüle aşağıdaki kodu ekle ve modülü kaydet.

Option Compare Database

Option Explicit



Global GeciciFormAdi, AcikForm As Form

'www.accesstr.net



Public Function FirmaSec()

    

    Set AcikForm = Screen.ActiveForm

    GeciciFormAdi = AcikForm.Name



    DoCmd.OpenForm "FİRMASEÇ", acNormal, "", "", , acNormal

End Function

Daha sonra, FİRMASEÇ isimli formu açtıracağın formlarda

formun açıldığında olayındaki

DoCmd.Maximize

DoCmd.GoToRecord , , acNewRec

DoCmd.OpenForm "FİRMASEÇ", acNormal

Şeklinde kod mevcut bu kodu aşağıdaki ile değiştir.

DoCmd.Maximize

DoCmd.GoToRecord , , acNewRec

Call FirmaSec

Formda bulunan firma seç formunu açtıran butonun tıklandığında olayındaki kodu aşağıdaki ile değiştir.

Call FirmaSec

FİRMASEÇ isimli formdaki Liste isimli liste kutusunun çift Tıklatıldığında olayındaki kodun tamamını aşağıdaki ile değiştir.

If GeciciFormAdi = "Fatura" Then

    Forms(GeciciFormAdi)![vade] = Liste.Column(4)

End If



Forms(GeciciFormAdi).[CARIID] = Liste.Column(0)

Forms(GeciciFormAdi).[FİRMAADI] = Liste.Column(1)



DoCmd.Close acForm, "FİRMASEÇ"

Sonuç hakkında olumlu/olumsuz bildirimde bulununuz.