(05/04/2012, 20:59)ozanakkaya yazdı: Forma buton ekle, tıklandığında olayına aşağıdaki kodu ekle.
Dim x As Integer
DoCmd.SetWarnings False
For x = 1 To Me.Metin5.Value
DoCmd.RunSQL ("INSERT INTO Tablo1 ( [ÇALIŞMA ADI] ) SELECT '' AS İfade1;")
Next x
DoCmd.SetWarnings True
Requery
butonu tıkladığında açılan kutudan seçtiğin veri kadar tabloya boş kayıt eklenir.
Pardon Ercan hocam, 1 dakika geç kalmışım.
SELECT '' AS İfade1;"
burayı anlayamadım, açıklayabilirmisiniz.