Skip to main content

AccessTr.neT


Tabloda Sıra Numarası Muamması (benim İçin)

Tabloda Sıra Numarası Muamması (benim İçin)

Çözüldü #1
Merhaba

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

.rar CRM V01.02.rar (Dosya Boyutu: 1,15 MB | İndirme Sayısı: 4)
Cevapla
#2
(24/12/2019 17:31)yasinacar Adlı Kullanıcıdan Alıntı: Teklif tablo formunda


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


(06/07/2009 23:57)AccessTr.neT Adlı Kullanıcıdan Alıntı: 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
"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 
Cevapla
#3
(24/12/2019 17:49)ozanakkaya Adlı Kullanıcıdan Alıntı:
(24/12/2019 17:31)yasinacar Adlı Kullanıcıdan Alıntı: Teklif tablo formunda


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


(06/07/2009 23:57)AccessTr.neT Adlı Kullanıcıdan Alıntı: 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.
Cevapla
#4
Merhaba, F_YTEKLIFHD_ALTFRM isimli altformda, ACK_KOD isimli metin kutusunun güncelleştirme sonrasında olayındaki

Visual Basic Code
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

Visual Basic Code
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.
"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 
Cevapla
#5
(25/12/2019 10:16)ozanakkaya Adlı Kullanıcıdan Alıntı: Merhaba, F_YTEKLIFHD_ALTFRM isimli altformda, ACK_KOD isimli metin kutusunun güncelleştirme sonrasında olayındaki

Visual Basic Code
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

Visual Basic Code
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ı
Cevapla
#6
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.
"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da