![Çözüldü](images/icons/cozuldu.png)
son hali ekteki gibidir.
(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.
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