Cvp: Forma 2 Kere Veri Yazıyor - yasinacar - 31/12/2019
(31/12/2019, 16:25)ozanakkaya yazdı: (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
Evet bu desteğiniz ile T_TEKLIF_ALT_DETAY form sorununu çözdüm lakin hala F_SIPARISLER formuna R0 olarak kaydı gönderiyor R1 gitmiyor
Sanırım burdaki sıkıntı yine T_TEKLIF_ALT_DETAY formunda da revizyon yaptığımda çıkıyor buda raporu boş getiriyor burda nasıl bir iyileştirme yapabilirim hocam?
Cvp: Forma 2 Kere Veri Yazıyor - ozanakkaya - 31/12/2019
(31/12/2019, 12:31)yasinacar yazdı: Evet şuanda F_SIPARISLER formuna 1 kayıt geliyor ama bu seferde ilk kayıtı yani R0 olanı alıyor R1 i alması gerekiyor
Konuda, 5. mesajdaki sorunuz. 6. mesajda
DoCmd.OpenForm "F_TEKLIF_REV", acNormal, , "[TEKLIF_ID]=" & Me.TEKLIF_ID
DoCmd.GoToControl "Alt2_R"
DoCmd.FindRecord Me.MTN_REV_ID
şeklinde kod düzeltmesi yapmanız gerektiğini yazdım.
Şimdi, F_SIPARISLER formunda aynı işlemin olduğunu yazıyorsunuz. Sizce çözüm için ne yapmak gerekir??
Cvp: Forma 2 Kere Veri Yazıyor - ozanakkaya - 31/12/2019
Rapor sorunu,
Daha önceki konunuzda bu sorunu çözmüştük. Teklif için oluşturulan raporu, sipariş için düzenlemişsiniz. Bu yüzden teklif için raporu açtığınızda çalışmaz. Raporun kayıt kaynağı olan S_TEKLIFIRAPORU_GENEL isimli sorguya S_SIPARISLIST sorgusunu eklemişsiniz.
R_TEKLIFRAPORU isimli raporu ve sorgusunu eski haline getirin. Sipariş formu için R_SIPARISRAPORU şeklinde yeni rapor oluşturup sorgusunu düzenleyin.
Örneğiniz ile ilgili yapabileceklerim bundan ibarettir. İyi çalışmalar.
Cvp: Forma 2 Kere Veri Yazıyor - ozanakkaya - 31/12/2019
Önceki konunuzda düzgün çalışan teklif raporunu uygulamanıza ekledim. Satış için sorgu ve rapor oluşturdum. Bu konuyu taşıyorum. Farklı sorunuz var ise yeni konu açınız.
Cvp: Forma 2 Kere Veri Yazıyor - yasinacar - 01/01/2020
Hocam teşekkürler sorun çözüldü
|