form üzernden txt formatlı kaydetme(vbs uzantılı)

12/02/2013, 04:21

karabattak

Merhaba
ekteki örnek dosyamda tablo1 alanında tek satır bilgi içeren bir yazı alanları bulunmakta.
form1de bu alanlardaki bazı alanları düzenlemek için oluşturulmuş durumda.
yapmak istediğim form1 alanından bazı metinleri değiştirdiğimde "vbs oluştur" butonuna bastığımda tablo1 de bulunan tek satırdaki tüm sütün içindeki metinlerin yanyana olacak şekilde txt dosyasına deneme.vbs adı ile kaydedilmesini sağlamak.
bir nevi vbs mesaj oluşturucu gibi birşey yapmak istiyorum.
şimdiden cevap yazacak ve yardımcı olacak arkadaşlarıma teşekkür ederim.

saygılarımla.
12/02/2013, 16:08

Yandemir

tablodan değilde ekrandakileri yazdırdığınızı düşünürsek.

Dim Yazdir as string    
Open Application.CurrentProject.Path & "\Deneme.VBS" For Output As #1
Yazdir=me.mesaj1 & me.mesaj2 & me.mesaj3 & me.mesaj4 & ........
Print #1, Yazdir
Close #1
12/02/2013, 22:12

karabattak

sayın Yandemir
cevabınız için çok teşekkür ederim.
kod çalışıyor. sağolun.