Ara-Bul Sorunu

1 2 3
02/02/2012, 19:04

yorum70

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

02/02/2012, 19:51

ercansahin

(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

Ş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.
02/02/2012, 20:18

yorum70

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.
02/02/2012, 20:26

yorum70

Yaptım snırım.
Ek Dosyalar

03/02/2012, 11:09

yorum70

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.
03/02/2012, 20:07

sonerdursun

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

1 2 3