AccessTr.neT

(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?

(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??

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.

Ö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.

Hocam teşekkürler sorun çözüldü