Form etkinleştiğinde ilk kayıt tamı, son kayıtta mı nasıl öğrenilir ?

Mehmet Eser · 14-04-2009, 18:21

merhaba

formda kendi oluşturduğumuz gezinti dümleri ile kayıtları dolaşırken ilk kayıtta olmamıza rağmen önceki düğmesi veya son kayıtta olmamıza rağmen sonraki düğmesi aktiftir.

önceki kayıt'a tıklarsa erişilemez, sonraki kayıta tıklarsak yeni kayıt ekle moduna geçiyor. Bunların olmasını istemiyorum. eğer ilk kayıtta isek önceki pasif olsun, son kayıtta isek sonraki düğmesi pasif olsun.

bir örnekte sağolsun beab05 form etkinleştiğinde şu kodla yeni kayıtta olup olmadığını kontrol ediyordu:

Kod:
If Me.NewRecord Then ...

buna benzer ben de lastrecord ya da fist record gibi birşeyler araştırdım ama acLast ve acFirs dışında bieşy bulamadım. onlarında değerini sorguladım süreki 3 sayısını verdi.

Form etkinleştiğinde ilk kayıtta mı ya da son kayıtta mı nasıl VBA ile öğrenebilirim ?

Teşekkürler.

Taruz · 14-04-2009, 18:47

MErhaba..

Diğer konudaki düzeneğinize yani kendi yaptığınız gezinti düğmelerine göre cevap veriyorum..

Kodu formun Geçerli olduğunda olayına yazınız..:

Visual Basic
If formdaki_id_alani= DFirst("tablo_id", "tablo_adi") Then
Me.onceki_kayit_butonu.Enabled = False
Else
Me.onceki_kayit_butonu.Enabled = True
End If
If formdaki_id_alani= DLast("tablo_id", "tablo_adi") Then
Me.sonraki_kayit_butonu.Enabled = False
Else
Me.sonraki_kayit_butonu.Enabled = True
End If

Mehmet Eser · 14-04-2009, 19:10

merhaba

Sayın Taruz verdiğiniz kodu ekledim ama ya ben bir kaç saatimi bu konuaya ayırdığım için gözden akçırdım bir yerleri ya da gerçekten durum değişmedi.

ekte örneğimi gönderiyorum. Form_Current kısmında kod eklendi.

teşekkürler.

Taruz · 14-04-2009, 19:55

Merhaba..

Personel tablosundaki otomatik sayı alanına accessin rezerv kelimelirnden birini vermişsiniz. Kodu doğru uyarlamış olmanıza rağmen bu nedenle işlevini uygulayamadı..

Bu alanın ismini tabloda ve de formda (metin kutusunun ismi ile beraber ve denetim kaynağını da) personelid olarak değiştirin.. Kodu da buna göre düzenlerseniz sorununuz çözülmüş olur..

Kod, bu değişiklikler sonrası bu şekilde olacak..:

Visual Basic
If Me.personelid = DFirst("personelid", "Personel") Then
    Me.btn_OncekiKayit.Enabled = False
Else
    Me.btn_OncekiKayit.Enabled = True
End If
 
If Me.personelid = DLast("personelid", "Personel") Then
    Me.btn_SonrakiKayit.Enabled = False
Else
    Me.btn_SonrakiKayit.Enabled = True
End If

Not: Dosyanızın içerisindeki verilerin gerçek olabileceğini düşünerek dosyanızı kaldırdım.. Eğer o personel bilgileri gerçekti ise bundan sonraki(hatta önceki) eklentilerde bu hususa dikkat etmekte fayda var..

Mehmet Eser · 14-04-2009, 20:15

eklentiyi kaldırdığınız için çok teşekkür ederim. daha önceki başka konumda gerekli bilgilleri silmiştim içinden. içindekiler gerçek bilgiler idi. her zaman ayrı bir örnek model oluşturmak zaman aldığından bazen asıl uygulamayı kırparak gönderiyorum.

bundan sonra daha çok dikkat edeceğim.

sağlıcakla...

Mehmet Eser · **Kayıt Tarihi:** 17.05.2008

merhaba

son bir değişiklik da ha yaptım sonuçta daha kullanışlı bir şey oldu.

Visual Basic
Private Sub Form_Current()
 
If Me.txtPersonelid = DFirst("Personelid", "Personel") Then
    Me.btn_OncekiKayit.Enabled = False
    Me.btn_ilkKayit.Enabled = False
Else
    Me.btn_OncekiKayit.Enabled = True
    Me.btn_ilkKayit.Enabled = True
End If
 
If Me.txtPersonelid = DLast("Personelid", "Personel") Then
    Me.btn_SonrakiKayit.Enabled = False
    Me.btn_SonKayit.Enabled = False
Else
    Me.btn_SonrakiKayit.Enabled = True
    Me.btn_SonKayit.Enabled = True
End If
 
'aktif kayıt no ve toplam kayıt sayısını kutulara yazdırır
'DİKKAT: bo kodun üstte olması lazım yoksa olmuyor
If Me.NewRecord Then '________________________________________
    Me.txtAktifVeri = CurrentRecord
    Me.txtToplamVeri = (RecordsetClone.RecordCount) + 1
    Me.btn_SonrakiKayit.Enabled = False
    Me.btn_SonKayit.Enabled = False
Else
    Me.txtAktifVeri = CurrentRecord
    Me.txtToplamVeri = (RecordsetClone.RecordCount)
End If '_______________________________________________________

bu şekilde yeni kayıt eklerken gezinti düğmelerinden ikisini daha iptal ettim. Ama ilk başta hepsini iptal etmek istedim olmadı. Bu sefer yeni kayıt işlemini iptal edecek bir konut aklıma gelmedi. Geri al tuşuna basınca da bir şey değişmedi.

tüm geiznti düğmleri iptal olunca tek çözüm formu kapatmak ve açmak oldu. Ben yine de böyle yapmak istiyorum.

tüm gezinti düğmleri iptal olmuşken yeni kayıt işlevinden nasıl çıkabilirim bunun için düğmeye hangi konutu eklemeliyim?

yukardaki kodda önceki ve ilk kayıt düğmesi aktif ama onları da pasif yapmak istiyorum.

teşekkürler. Smile

Benzer Konular...
Konu:		Yazar	Cevaplar:	Gösterim:	Son Mesaj
	Son Endeks In Ikinci Yeni Kayıtta Ilk Endeks Olarak Gelmesi	özgülapt	4	404	22-03-2025, 23:43 Son Mesaj: özgülapt
	[FORM] Formda Kriterlere Göre Sorgulanan Kayıt Miktarının Form üzerinde Gösterilmesi	M_Kemal_Askeri	1	376	13-05-2024, 05:10 Son Mesaj: dsezgin
	Form üzerinde Bulunan Sorguda Değişiklik Yaparak Kayıt Güncelleme	geneclean	5	657	13-02-2024, 15:51 Son Mesaj: dsezgin
	Sadece Geçerli Kayıtta Kenarlık Rengi Değiştirme Hk.	adnnfrm	25	1.585	13-09-2023, 00:00 Son Mesaj: halily
	[VBA] Kayıt Iptali: Kayıt Iptal Tablosuna Ekle, Kayıdı Sil Işlemi	programmer67	6	841	21-07-2023, 10:40 Son Mesaj: onur_can
	Ana Menüden 2.form Açtığımda Form Görev çubuğuna Inmiyor. 32'den 64'e Geçiş Hatası	OGUZTURKYILMAZ	3	673	13-04-2023, 23:39 Son Mesaj: OGUZTURKYILMAZ
	[FORM] Birleşik Kutu Ile Form Kayıt Kaynağı Değiştirmek.	BeyTor	2	471	27-03-2023, 03:43 Son Mesaj: BeyTor
	Toplu Taksitlendirme Işleminde Her Taksit Için Tabloya Ayrı Kayıt Nasıl Yapabilirim.	OĞUZ TÜRKYILMAZ	10	1.196	12-03-2023, 21:18 Son Mesaj: OĞUZ TÜRKYILMAZ

Oturum Aç




Beni Hatırla Şifremi Unuttum?

Access SQL