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