Skip to main content

AccessTr.neT


Forma 2 Kere Veri Yazıyor

Forma 2 Kere Veri Yazıyor

#12
(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
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
Forma 2 Kere Veri Yazıyor - Yazar: yasinacar - 31/12/2019, 00:03
Cvp: Forma 2 Kere Veri Yazıyor - Yazar: berduş - 31/12/2019, 10:13
Cvp: Forma 2 Kere Veri Yazıyor - Yazar: yasinacar - 31/12/2019, 10:35
Cvp: Forma 2 Kere Veri Yazıyor - Yazar: ozanakkaya - 31/12/2019, 10:54
Cvp: Forma 2 Kere Veri Yazıyor - Yazar: yasinacar - 31/12/2019, 12:31
Cvp: Forma 2 Kere Veri Yazıyor - Yazar: ozanakkaya - 31/12/2019, 12:52
Cvp: Forma 2 Kere Veri Yazıyor - Yazar: yasinacar - 31/12/2019, 13:26
Cvp: Forma 2 Kere Veri Yazıyor - Yazar: ozanakkaya - 31/12/2019, 14:14
Cvp: Forma 2 Kere Veri Yazıyor - Yazar: yasinacar - 31/12/2019, 15:34
Cvp: Forma 2 Kere Veri Yazıyor - Yazar: ozanakkaya - 31/12/2019, 15:36
Cvp: Forma 2 Kere Veri Yazıyor - Yazar: yasinacar - 31/12/2019, 15:39
Cvp: Forma 2 Kere Veri Yazıyor - Yazar: ozanakkaya - 31/12/2019, 16:25
Cvp: Forma 2 Kere Veri Yazıyor - Yazar: yasinacar - 31/12/2019, 16:48
Cvp: Forma 2 Kere Veri Yazıyor - Yazar: ozanakkaya - 31/12/2019, 17:03
Cvp: Forma 2 Kere Veri Yazıyor - Yazar: ozanakkaya - 31/12/2019, 17:34
Cvp: Forma 2 Kere Veri Yazıyor - Yazar: ozanakkaya - 31/12/2019, 23:36
Cvp: Forma 2 Kere Veri Yazıyor - Yazar: yasinacar - 01/01/2020, 01:41
Task