Merhaba
Teklif tablo formunda kalemleri yazarken sıra numarasını elle veriyorum bunu sıralı yapsam her teklifte 1 den başlarmı?
![Çözüldü](images/icons/cozuldu.png)
(24/12/2019, 17:31)yasinacar yazdı: Teklif tablo formunda
(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.
Me.ACK_TANIM = Me.ACK_KOD.Column(0)
Me.MTN_BIRIM_F = Me.ACK_KOD.Column(4)
Me.ACK_TANIM.Requery
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
(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.