AccessTr.neT
Tabloya otomatik sıra aldırmak - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Tabloya otomatik sıra aldırmak (/konu-tabloya-otomatik-sira-aldirmak.html)



Tabloya otomatik sıra aldırmak - volkan1 - 26/12/2010

Aslında başlıkla biraz uyumsuz oldu ama nasıl tarif ediceğimi tam çözemedim. Sıkıntı kaydı yapılmış bir satırı kalsörlerken her klaör için dizin numarasını otomatik verdirmek istiyorum.Ekteki çalışmada hatalı yeri gösterdim. Yardımlarınız için Teşekkürederim

.rar DENEMEM.rar (Dosya Boyutu: 44,97 KB | İndirme Sayısı: 18)



Cvp: Tabloya otmatik sıra aldırmak - ercansahin - 26/12/2010

KLASOR adlı açılan kutunuzun güncelleştirme sonrası olayındaki kodu aşağıdaki şekilde değiştirip denermisiniz lütfen.

Private Sub KLASOR_AfterUpdate()
DoCmd.RunCommand acCmdRefreshPage
Dim numara As String
numara = DCount("[KLASOR]", "YASAL_ISLEM", "KLASOR= '" & Form_YASAL_ISLEM_KAYIT_EKRANI.KLASOR & "'")

Me.DIZINNU = numara + 1
DoCmd.OpenForm "UYARI_2"
End Sub



Cvp: Tabloya otmatik sıra aldırmak - volkan1 - 26/12/2010

Hocam elinize sağlık gayet güzel çalışıyor. Teşekkürler
Hocam otomatik sıra veriyor ancak ilk sıra 2 den başlıyor


Cvp: Tabloya otmatik sıra aldırmak - ercansahin - 26/12/2010

Kod içerisinde yer alan DoCmd.RunCommand acCmdRefreshPage satırını kaldırın ve bu satırı KLASOR açılan kutusunun çıkıldığında olayına yazın, deneyin.

Yani ;
KLASOR açılan kutusunun güncelleştirme sonrası olayına
Private Sub KLASOR_AfterUpdate()
Dim numara As String
numara = DCount("[KLASOR]", "YASAL_ISLEM", "KLASOR= '" & Form_YASAL_ISLEM_KAYIT_EKRANI.KLASOR & "'")
If numara = 0 Then
Me.DIZINNU = 1
DoCmd.OpenForm "UYARI_2"
Else
Me.DIZINNU = numara + 1
DoCmd.OpenForm "UYARI_2"
End If
End Sub

Çıkıldığında olayına;
Private Sub KLASOR_Exit(Cancel As Integer)
DoCmd.RunCommand acCmdRefreshPage
End Sub



Cvp: Tabloya otmatik sıra aldırmak - volkan1 - 26/12/2010

Zahmet oldu hocam sorun sayenizde tamamen çözüldü. Tekrar teşekkürler.


Cvp: Tabloya otmatik sıra aldırmak - ercansahin - 26/12/2010

Rica ederim. Kolay gelsin. Konuyu Cevaplanmış Access Soruları bölümüne taşıyorum.