açılan kutudan seçilen değere göre sürekli form satır ekleme

Merhaba

ekli dosyadaki formda açılır kutu daki seçime göre altındaki sürekli formda otomatik olarak satır gösterme sağlanabilir mi arkadaşlar?
örneğin; 5 i seçildiğinde sürekli formda 5 satır gözükecek

Buyrun inceleyin.

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.

teşekkürler arkadaşlar elinize sağlık...

(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.

Merhaba, iki tane tek tırnak boşluk anlamına geliyor. İfade1 ise bunun tanımı, bu sorgu metnini kopyalayıp sql'a yapıştırırsanız Sorgudaki sütunda 
İfade1: '' alanını görürsünüz. Bu sorgu Tablo1 isimli tabloya yeni satır ekler.