Skip to main content

AccessTr.neT


Tabloya otomatik sıra aldırmak

Tabloya otomatik sıra aldırmak

Çözüldü #1
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)
Cevapla
Çözüldü #2
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
Cevapla
Çözüldü #3
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
Son Düzenleme: 26/12/2010, 14:32, Düzenleyen: volkan1.
Cevapla
Çözüldü #4
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
Cevapla
Çözüldü #5
Zahmet oldu hocam sorun sayenizde tamamen çözüldü. Tekrar teşekkürler.
Cevapla
Çözüldü #6
Rica ederim. Kolay gelsin. Konuyu Cevaplanmış Access Soruları bölümüne taşıyorum.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task