Tabloya otomatik sıra aldırmak
Tarih
26/12/2010 13:50
Konu Sahibi
volkan1
Yorumlar
5
Okunma
1177
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy
volkan1
Aktif Üye
Kullanici Avatari
Aktif Üye
V....
135
27/11/2010
0
Bursa
Ofis 2003
11/02/2014,22:56
Çözüldü 
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

ercansahin
BlackEagle
Kullanici Avatari
Uzman
E.... Ş....
3.739
14/11/2008
Ankara
Ofis 2010 32 Bit
20/05/2017,13:50
Çözüldü 
Sponsor Reklam
KLASOR adlı açılan kutunuzun güncelleştirme sonrası olayındaki kodu aşağıdaki şekilde değiştirip denermisiniz lütfen.

Visual Basic Code
1
2
3
4
5
6
7
8
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

volkan1
Aktif Üye
Kullanici Avatari
Aktif Üye
V....
135
27/11/2010
0
Bursa
Ofis 2003
11/02/2014,22:56
Çözüldü 
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
Cevapla

ercansahin
BlackEagle
Kullanici Avatari
Uzman
E.... Ş....
3.739
14/11/2008
Ankara
Ofis 2010 32 Bit
20/05/2017,13:50
Çözüldü 
Sponsor Reklam
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

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
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;

Visual Basic Code
Private Sub KLASOR_Exit(Cancel As Integer)
DoCmd.RunCommand acCmdRefreshPage
End Sub


Cevapla

volkan1
Aktif Üye
Kullanici Avatari
Aktif Üye
V....
135
27/11/2010
0
Bursa
Ofis 2003
11/02/2014,22:56
Çözüldü 
Zahmet oldu hocam sorun sayenizde tamamen çözüldü. Tekrar teşekkürler.
Cevapla

ercansahin
BlackEagle
Kullanici Avatari
Uzman
E.... Ş....
3.739
14/11/2008
Ankara
Ofis 2010 32 Bit
20/05/2017,13:50
Çözüldü 
Sponsor Reklam
Rica ederim. Kolay gelsin. Konuyu Cevaplanmış Access Soruları bölümüne taşıyorum.
Cevapla


Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  Formdan Tabloya Kayıt Butonu Ismail Kalan 7 127 14/05/2017, 12:21 atoz112
  Silinen Otomatik Sayının Yerini Doldurma serkandiker 7 157 02/05/2017, 10:42 serkandiker
  İlişkili Tabloya Formla Yeni Veri Girişi ALTANs 2 82 26/04/2017, 12:18 ALTANs
  Otomatik Mail Gönderimi temre 16 469 21/04/2017, 01:06 ozanakkaya
  Onay Kutusu Değerlerini Tabloya Kaydetme Allback 10 167 19/04/2017, 08:06 Allback


Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
DMCA.com Protection Status