(31/12/2019, 12:52)ozanakkaya yazdı: F_TEKLIFLIST isimli formdaki Komut399'un tıklandığında olayındaki kodu aşağıdaki ile değiştir.

DoCmd.OpenForm "F_TEKLIF_REV", acNormal, , "[TEKLIF_ID]=" & Me.TEKLIF_ID

DoCmd.GoToControl "Alt2_R"

DoCmd.FindRecord Me.MTN_REV_ID

T_TEKLIF_DETAY_ALT isimli formun kayıt kaynağını T_TEKLIF_DETAY_ALT olarak değiştir. F_TEKLIF_REV isimli forma alt form olarak eklenen T_TEKLIF_DETAY_ALT formuna alt ve üst alan olarak REV_ID alanını ekle.

Dediklerinizi yaptım ama olmadı şimdide revizyon ekranında ekranına girdiğimde T_TEKLIF_ALT_DETAY alt formu boş geliyor ve yine aynı sorunlar devam ediyor.

Önceki mesajımda belirtitğim altform - üst form bağlama olayını T_TEKLIF_DETAY_ALT isimli alt formun bulunduğu tüm formlarda yapmanız gerekiyor. Yeni teklif hazırladığınız F_YTEKLIF_H isimli formda bu alt form mevcut, ancak alt -üst form bağlama işlemi yapılmadığı için T_TEKLIF_DETAY_ALT isimli tabloya aynı rev_id kaydı içeren veri kaydedemiyorsunuz. 

(31/12/2019, 13:26)yasinacar yazdı: Dediklerinizi yaptım ama olmadı

Benim dediklerim, sorduğunuz soruya cevap olarak yazılanlardır. Uygulamanızın yapımcısı ben değilim. Eksiklikler var ise kendiniz tamamlamalısınız.

(31/12/2019, 14:14)ozanakkaya yazdı: Önceki mesajımda belirtitğim altform - üst form bağlama olayını T_TEKLIF_DETAY_ALT isimli alt formun bulunduğu tüm formlarda yapmanız gerekiyor. Yeni teklif hazırladığınız F_YTEKLIF_H isimli formda bu alt form mevcut, ancak alt -üst form bağlama işlemi yapılmadığı için T_TEKLIF_DETAY_ALT isimli tabloya aynı rev_id kaydı içeren veri kaydedemiyorsunuz. 

(31/12/2019, 13:26)yasinacar yazdı: Dediklerinizi yaptım ama olmadı

Benim dediklerim, sorduğunuz soruya cevap olarak yazılanlardır. Uygulamanızın yapımcısı ben değilim. Eksiklikler var ise kendiniz tamamlamalısınız.

T_TEKLIF_DETAY_ALT alt formu F_YTEKLIF_H ve F_TEKLIF_REV formlarında dediğiniz gibi ikisinde de değişiklikleri yaptım buna rağmen boş geliyor REV_ID alt ve üst için değiştirdim dediğiniz kodu değiştirdim örnek uygulamanın son hali aşağıdaki gibi.

Ama yine teni teklif te sıkıntı yok ama revizyon yaptığımda sıkıntı var verileri 2şer alıyor raporlamada ayrıca F_SIPARISLER formuna R0 olanı gönderiyor bu kısımda yardımcı olabilirmisiniz?

Bu uygulamayı siz mi yaptınız?

(31/12/2019, 15:36)ozanakkaya yazdı: Bu uygulamayı siz mi yaptınız?

Tabanını başka bir örnek uygulamadan aldım geri kalanını ben yaptım

(31/12/2019, 15:34)yasinacar yazdı: revizyon yaptığımda sıkıntı var

Revize et butonuna tıkladığınızda,

DoCmd.RunSQL "INSERT INTO T_TEKLIF_D ( PARA_B, TOPLAM_F, ADET, BIRIM_F, TANIM, KOD, SIRA, BIRIM, TERMIN, REV_ID ) SELECT T_TEKLIF_D.PARA_B, T_TEKLIF_D.TOPLAM_F, T_TEKLIF_D.ADET, T_TEKLIF_D.BIRIM_F, T_TEKLIF_D.TANIM, T_TEKLIF_D.KOD, T_TEKLIF_D.SIRA, T_TEKLIF_D.BIRIM, T_TEKLIF_D.TERMIN, " & Me.Alt2_R.Form.MTN_REV_ID & " FROM T_TEKLIF_D WHERE (((T_TEKLIF_D.REV_ID)=" & G_ID & "));"

kodu ile T_TEKLIF_D tablosuna yeni kayıt ekletiyorsunuz. Ama bu yeni eklenen yeni REV_ID numaralı kayıt T_TEKLIF_DETAY_ALT isimli tabloda yok. Tabloda olmadığı için revize edilen kayda ait ilgili veri görünmüyor. Uygulamayı sizin yapıp yapmadığınızı o yüzden sordum.

Revize işleminde kullandığınız Komut413'ün tıklandığında olayındaki kodu aşağıdaki ile değiştirerek deneyiniz.

Dim GSonRevId, GYeniRevId As String



Me.Alt2_R!F_YTEKLIFHD_ALTFRM2.Form.AllowEdits = True

Me.Alt2_R.Form.MTN_REV_ID.SetFocus

GSonRevId = Me.Alt2_R.Form.MTN_REV_ID

Me.Alt2_R.Locked = False

Me.Komut413.Enabled = False

Me.Komut353.Enabled = False

Me.Alt2_R.Form.Komut80.Enabled = True

Me.Alt2_R.Form.Komut351.Enabled = True

Me.Komut911.Enabled = False





G_ID = Me.Alt2_R.Form.MTN_REV_ID

EskiRevNo = Me.Alt2_R.Form.ACK_REVNO_ID

Eskimusteri = Me.Alt2_R.Form.ACK_MUSTERI_ID

Eskipersonel = Me.Alt2_R.Form.ACK_PERSONEL_ID

Eskikonu = Me.Alt2_R.Form.MTN_KONU



DoCmd.GoToControl "Alt2_R"

DoCmd.GoToRecord , , acNewRec



Me.Alt2_R.Form.ACK_REVNO_ID = EskiRevNo + 1

Me.Alt2_R.Form.ACK_MUSTERI_ID = Eskimusteri

Me.Alt2_R.Form.ACK_PERSONEL_ID = Eskipersonel

Me.Alt2_R.Form.MTN_KONU = Eskikonu



DoCmd.RunCommand acCmdSaveRecord



DoCmd.SetWarnings False

DoCmd.RunSQL "INSERT INTO T_TEKLIF_D ( PARA_B, TOPLAM_F, ADET, BIRIM_F, TANIM, KOD, SIRA, BIRIM, TERMIN, REV_ID ) SELECT T_TEKLIF_D.PARA_B, T_TEKLIF_D.TOPLAM_F, T_TEKLIF_D.ADET, T_TEKLIF_D.BIRIM_F, T_TEKLIF_D.TANIM, T_TEKLIF_D.KOD, T_TEKLIF_D.SIRA, T_TEKLIF_D.BIRIM, T_TEKLIF_D.TERMIN, " & Me.Alt2_R.Form.MTN_REV_ID & " FROM T_TEKLIF_D WHERE (((T_TEKLIF_D.REV_ID)=" & G_ID & "));"



GYeniRevId = DMax("REV_ID", "T_TEKLIF_D")

DoCmd.RunSQL "INSERT INTO T_TEKLIF_DETAY_ALT ( REV_ID, T_GSEHRI, T_ODEME, T_ODETAY, T_OPSIYON, T_PAKET, T_SERTIFIKA, T_TESLIM, T_TESLIMS ) SELECT  " & GYeniRevId & ", T_TEKLIF_DETAY_ALT.T_GSEHRI, T_TEKLIF_DETAY_ALT.T_ODEME, T_TEKLIF_DETAY_ALT.T_ODETAY, T_TEKLIF_DETAY_ALT.T_OPSIYON, T_TEKLIF_DETAY_ALT.T_PAKET, T_TEKLIF_DETAY_ALT.T_SERTIFIKA, T_TEKLIF_DETAY_ALT.T_TESLIM, T_TEKLIF_DETAY_ALT.T_TESLIMS FROM T_TEKLIF_DETAY_ALT WHERE (((T_TEKLIF_DETAY_ALT.REV_ID)=" & GSonRevId & "));"



DoCmd.SetWarnings True

Me.Alt2_R!F_YTEKLIFHD_ALTFRM2.Form.Requery

Me.Alt2_R!Alt96.Form.Requery