AccessTr.neT

Tam Versiyon: Ara-Bul Sorunu
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2 3
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.Img-grin

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)
Sayfalar: 1 2 3