Merhaba,

Ekli örneğimde Form Tablo2'ye bağlı. Açılan kutu da S1 sorgusundan veri çağırıyor. Görüleceği üzere, açılan kutunun içinde sırasıyla R0, R1,R2,R3......gibi veriler var. Dolayısıyla hepsinin bir kimlik numarası da var. Amacım butona her basışta açılan kutu içindeki verileri sırasıyla çağırmak. Yani butona bastım; açılan kutuya R0 geldi, bir daha bastım R1 geldi... gibi. R1'de iken dosyayı kaydedip çıktım, tekrar formu açtığımda en son R1'de kaldığım için butona bastığımda R2'yi getirmeli.Yani form neyde kaldıysa, butona bastığımda bir sonraki değeri açılır kutu içine çağırmalı. Nasıl yapılabilir? Tşk.

sn fatihsipahi



Açılan Kutununen başa dönmesi (reset) içinde ,



ekte örnek üzerinde uyguladım.

Teşekkürler, aradığım buydu..

Onur Bey tekrar merhaba,
Konuyla ilgili bir şey daha sorayım. Bu uygulamada R0,R1,R2.. değerleri artarken Kimlik2 değerini de 1'er 1'er arttırmak mümkün mü? Yani diyelim ki ekranda;

Kimlik2 = 1
Revizyon = R1

olsun. Butona basınca

Kimlik2=2
Revizyon=R2 olsun.

En son hangi kayıtta kaldılarsa butona bastığımda hem revizyon hem de kimlik değeri 1 artabilir mi? Tşk.

Onur Bey,

4. mesajımda birşeyi yanlış ifade ettim hemen düzelteyim. Aslında Kimlik2 sayısı bildiğiniz üzere anahtar ve Otomatik Sayı formatında. Yani sistem bu numarayı kendi veriyor ve benim butona basmamla yaratacağım +1'lik artış sütunda tekrarlanan veriye sebep olacağından hata verecektir. Şöyle düşünelim, Ekranda görünen son kayıt örneği ne ise, mesela;

Kimlik2 = 5
Revizyon=R2 olsun,

Butona basınca;

Kimlik2 = Sistemin vereceği yeni kimlik numarası
Revizyon = R3 olsun. Yani revizyon 1 artarken Kimlik2 sistem tarafından verilen yeni numara olsun. Tşk.

Tekrar merhaba Onur Bey,

Ben olayı çözdüm. Aşağıdaki koddaki gibi. Eğer daha sağlıklı bir öneriniz varsa bilgiye açığım. Tşk.

[Private Sub Komut11_Click()
Dim rbilgi As Integer
Dim EskiKimlik As Integer
Dim EskiRevizyon As Integer

EskiKimlik = Me.Kimlik2
EskiRevizyon = Me.revizyon
DoCmd.GoToRecord , , acNewRec
Me.revizyon = EskiRevizyon[/code]

rbilgi = Me.revizyon.ListIndex
Me.revizyon.SetFocus
Me.revizyon.ListIndex = rbilgi + 1
End Sub

Private Sub Komut12_Click()
Me.revizyon.SetFocus
Me.revizyon.ListIndex = 0
End Sub]