Skip to main content

AccessTr.neT


Ara-Bul Sorunu

Ara-Bul Sorunu

Çözüldü #1
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)
"Oyun bitince  şah ve piyon aynı kutuya atılır "
Cevapla
Çözüldü #2
(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.
Cevapla
Çözüldü #3
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.
"Oyun bitince  şah ve piyon aynı kutuya atılır "
Cevapla
Çözüldü #4
Yaptım snırım.Img-grin

Ek Dosyalar
 OYNAMA_sled2007.rar(122.63 KB)
"Oyun bitince  şah ve piyon aynı kutuya atılır "
Cevapla
Çözüldü #5
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.
"Oyun bitince  şah ve piyon aynı kutuya atılır "
Cevapla
Çözüldü #6
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)
Son Düzenleme: 03/02/2012, 20:24, Düzenleyen: sonerdursun.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task