(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