Merhaba

Teklif tablo formunda kalemleri yazarken sıra numarasını elle veriyorum bunu sıralı yapsam her teklifte 1 den başlarmı?

CRM V01.02.rar (Dosya Boyutu: 1,15 MB | İndirme Sayısı: 4)

(24/12/2019, 17:31)yasinacar yazdı: Teklif tablo formunda

Merhaba, ben eklediğiniz örnek uygulamada bu isimde form göremedim.

(06/07/2009, 23:57)AccessTr.neT yazdı: 5-a) Konu açarken sorununuzu açık bir şekilde ifade etmelisiniz. Sorunuz ile ilgili (3. maddede anlatıldığı gibi) eklediğiniz örnek uygulamadaki form, rapor, sorgu vs. nesne isimlerini mutlaka belirtiniz. 

(24/12/2019, 17:49)ozanakkaya yazdı:

(24/12/2019, 17:31)yasinacar yazdı: Teklif tablo formunda

Merhaba, ben eklediğiniz örnek uygulamada bu isimde form göremedim.

(06/07/2009, 23:57)AccessTr.neT yazdı: 5-a) Konu açarken sorununuzu açık bir şekilde ifade etmelisiniz. Sorunuz ile ilgili (3. maddede anlatıldığı gibi) eklediğiniz örnek uygulamadaki form, rapor, sorgu vs. nesne isimlerini mutlaka belirtiniz. 

F_YTEKLIFHD_ALTFRM form ismi budur bu bir alt form üst formu ise F_YTEKLIFHR_ALTFRM budur ayrıca teklif yazma formu ise yine bu formların en üst formu F_YTEKLIF_H (yeni teklif) F_TEKLIF_REV (teklif revizyon için kullanılan) fomdur.

Merhaba, F_YTEKLIFHD_ALTFRM isimli altformda, ACK_KOD isimli metin kutusunun güncelleştirme sonrasında olayındaki

Me.ACK_TANIM = Me.ACK_KOD.Column(0)

Me.MTN_BIRIM_F = Me.ACK_KOD.Column(4)

Me.ACK_TANIM.Requery

kodlarını silin. Daha önce ACK_KOD açılan kutu olduğu için yazılmış ancak şu anda bu kod çalışmaz.
Bu kodun yerine

Dim GSayi As Integer

GSayi = Nz(DMax("[SIRA]", "T_TEKLIF_D", "[REV_ID]= " & [REV_ID]), 0)





If IsNull(Me.MTN_SIRA) Or Me.MTN_SIRA = "" Then

  Me.MTN_SIRA = GSayi + 1

End If

Kodu ekle, alt formda ACK_KOD metin kutusuna veri girdiğinde MTN_SIRA metin kutusuna sayıyı kendisi yazar.

(25/12/2019, 10:16)ozanakkaya yazdı: Merhaba, F_YTEKLIFHD_ALTFRM isimli altformda, ACK_KOD isimli metin kutusunun güncelleştirme sonrasında olayındaki

Me.ACK_TANIM = Me.ACK_KOD.Column(0)

Me.MTN_BIRIM_F = Me.ACK_KOD.Column(4)

Me.ACK_TANIM.Requery

kodlarını silin. Daha önce ACK_KOD açılan kutu olduğu için yazılmış ancak şu anda bu kod çalışmaz.
Bu kodun yerine

Dim GSayi As Integer

GSayi = Nz(DMax("[SIRA]", "T_TEKLIF_D", "[REV_ID]= " & [REV_ID]), 0)





If IsNull(Me.MTN_SIRA) Or Me.MTN_SIRA = "" Then

  Me.MTN_SIRA = GSayi + 1

End If

Kodu ekle, alt formda ACK_KOD metin kutusuna veri girdiğinde MTN_SIRA metin kutusuna sayıyı kendisi yazar.

Evet dediğiniz gibi oldu lakin bu seferde F_TEKLIF_REV üzeriden teklifi revize ederken hata veriyor bu kodda revize edemiyorum bu kısım sıkıntılı

Merhaba, "teklifi revize etmek" nedir bilmiyorum. Bahsedilen işlem, mesajınızda belirttiğiniz F_YTEKLIFHD_ALTFRM  isimli form üzerinde yapıldı. Sizin hata olarak belirttiğiniz durum sanırım YTEKLIFHD_ALTFRM2 isimli formda. F_YTEKLIFHD_ALTFRM2 isimli formda da sıra numarası verilmesini istiyorsanız, önceki mesajımda yazdığım kodu YTEKLIFHD_ALTFRM2 isimli forma da uygulayın.
Forma kod eklemezseniz işlem yapmasını bekleyemezsiniz.