mERHABA Arkadaşlar; Katkılarınızla program test yayınlarına başladı.Sledgeab üstadın 2003'e çevirdiği programı, 2007 yaptım ve yüklenecek pc'ye 2007 kurdum..Ara kutusu öylece duruyor ve arama yapmıyor ! Biraz uğraştım, arama yapan kopyasından aktarma yaptım olmadı.

Bir diğer sorun, kimlik1.id saymaya 1 den değilde 50'li sayılardan başlıyor, 1 den başlasa ve girdikce otomatik atsa en azından kaç evrak girdiğimizi biliriz.

Saygılarımla.

Ek Dosyalar

OYNAMA_sled2007.rar(123.42 KB)

(02/02/2012, 19:04)yorum70 yazdı: Bir diğer sorun, kimlik1.id saymaya 1 den değilde 50'li sayılardan başlıyor, 1 den başlasa ve girdikce otomatik atsa en azından kaç evrak girdiğimizi biliriz.

Ek Dosyalar

OYNAMA_sled2007.rar(123.42 KB)

Şu anda kullandığım bilgisayarda office olmaması nedeniyle ilk sorunuza yanıt veremeyeceğim, ancak bence kimlik1.id'nin (muhtemelen otomatik sayı) tuttuğu sayılara takılmadan kayıt sayısını saydırarak kaç evrak girdiğinizi izlemeniz daha doğru bir yaklaşım olacaktır.

Anladım, kımlık1'den takip etmek yerine say komutunu kullanmamı öneriyorsunuz.Uğraşayım biraz.

Teşekkür ediyorum,saygılarımla.

Yaptım snırım.

Ek Dosyalar

OYNAMA_sled2007.rar(122.63 KB)

Yaptım derken, SAY komutunu yaptığımı beyan etmek istedim.Üstatlardan diğer soruna el atacak olursa bahtiyar olurum, veya tarif edin ben uğraşayım.

ilk sorun için kimlikid otomatik sayı her kayıt yapmak için forma girip çıktığında otomatik olarak artar onun yerine kimlik id gizledim ve evrak sayısı kısmı tablodaki evrak kayıt sırasına göre artması için aşağıdaki gibi yaptım kaydet butonuna tıklandığında olayına gözat.

Me.EvrakSayısı = DMax("[EvrakSayısı]", "VERIGIRIS") + 1

İkinci liste kutunun ismi Liste64
bu nedenle tıklandığında olayı aşağıdaki gibi olmalı kodlar hernekadar birbirine benzesede
denetimlerin isimlerine göre çalışır.

Private Sub Liste64_Click()

Dim rs As Object



 Set rs = Me.Recordset.Clone

 rs.FindFirst "[Kimlik1] = " & str(Nz(Me![Liste64], 0))

 If Not rs.EOF Then Me.Bookmark = rs.Bookmark



End Sub

Ek Dosyalar

OYNAMA_sled-2010-DUZUNLEME.rar(133.85 KB)