AccessTr.neT

Tam Versiyon: açılan kutudan seçilen değere göre sürekli form satır ekleme
Ş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
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

satır.rar
Buyrun inceleyin.

satır_2012-04-05.rar
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.
Sayfalar: 1 2