AccessTr.neT

Tam Versiyon: İki Sayı Arası Toplu Kayıt Yapılması Hk.
Ş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
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 Img-grin
"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 Img-grin )

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