AccessTr.neT

son hali ekteki gibidir.

Yeni mdb yi incelermisiniz
Kolay gelsin

yalnış anladınız. tablolarda hiç bir kayıt olmayacak ben herhangi iki tane sayı aralığı yazdığımda o iki sayı arası kayıtları kendisi oluşturacak siz iki sayı arası sorgulama yapmışsınız.

(09/11/2010, 14:42)SADIK54 yazdı: [ -> ]Arkadaşlar iki hücreye 732515 den 732535' e kadar olan sayıların kayıtlarını alt alta sıralı olarak liste kutusuna gelmesini istiyorum ve temizle butonuna bastığımda komple liste kutusundan hepsinin silinmesini istiyorum nasıl yaparım yardımcı olurmusunuz.

Sn sadık yanlış anlamadım
"gelmesini istiyorum" dediğinizde "zaten varolan kayıtlar gelsin" anlamı çıkar
"tabloya eklemek istiyorum" deseydiniz haklısınız.
Silme konusunda sanırım kodda problem yok

Yeni kayıt eklemek için ise ayni formda aşağıdaki yöntemi kullanabilirsiniz
Bir buton ekleyin, On click özelliğine kodu yazın
ILK ve SON numaralarınızı yazıp butona tıklayın

DoCmd.SetWarnings False

Dim ILKNOVER As Integer

ILKNOVER = Forms!Form1!ILK

Do While ILKNOVER < Forms!Form1!SON + 1

DoCmd.RunSQL "INSERT INTO Tablo1 ([FATURA NO]) VALUES (" & ILKNOVER & ")", -1

ILKNOVER = ILKNOVER + 1

Loop

Me.ILK.Requery

Me.SON.Requery

Me.Liste39.Requery

DoCmd.SetWarnings True

Kolay gelsin

---

Dosya ektedir

çok teşekkür ederim tam istediğim gibi oldu

Sn Sadık,
Elbette bu çözüm kodla bitmiyor
1. Herşeyden önce FaturaNo ya "yinelenemez" özelliği vermeniz
gerekir ( aksi halde ayni numaraları tekrar ekler )
2. ILK ve SON adını verdiğimiz alanları butona basmadan ( veya basıldığında )
kontrol etmeniz gerekir
a. ILK ve SON boş olamaz
b. ILK ve SON eşit olamaz
c. ILK SON dan büyük olamaz
d. SON ILK ten küçük olamaz
e. ILK ve SON farkı max. şu kadar olmalıdır
( aksi halde tapaj hatasıyla 1000 lerce kayıt atar
102300- 202350 yazdığınızı bir düşünün )

Bu kontrolleri yaptıktan sonra butonu enable
etmek daha mantıklı.

Bu arada son eklediğim dosyada 2. butonun
captionunu düzeltmemişim, özür dilerim, umarım
anlaşılıyordur.