üstad emeklerin için teşekkürler. en dosyayı ekliyorum buraya. yapmak istediğim birkaç işlem daha var onada yardımcı olursan çok sevinirim. bunun için dosyada bazı ekler yaptıktan sonra tekrar ekleyeceğim. birşey daha sorayım kayıt yapma sırasında 2 sefer kayıt eklenecek diye uyarıyı iptal edebilirmiyiz.yada görünmemesini sağlayabilirmiyiz.
Sayın linux2ex;
Access'in uyarı mesajlarını gizlemenin yolu (2003) için Sayın ayhan2122'nin
bir yazısında anlatılıyor.
Alıntı:Öncelikle Araçlar/Seçenekler tıkla ve açılan pencerede Düzen/Bul sekmesindeki Onayla çerçevesindeki EylemSorgularını kutucuğundaki işareti kaldır.
Saygılarımla, kolay gelsin.
merhaba, formda akmkod isimli açılan kutu yaptım burada müsterikodunu yazdığımı varsayalım. gelen kodu txt dosya adına yazdırıp kullanabilirmiyim. örnek A0001 musteri kodunu çağırdığımızı varsayarsak A0001.txt olarak kayıt nasıl yapabiliriz. birde daha önceden kaydedilmiş txt dosyadaki bilgileri geri çağırıp üzerinde değişklik yapabilirmiyim. dosyada birkaç değişiklik yapıp son halini ekliyorum. yardımlarınız için teşekkürler.
merhaba, müsteri kodu yazan açılan kutuda cariyi seçtikten sonra gelen kodu dosya adı yazan yere yazdırıp sonuna txt uzantısı ekleyerek kaydetmek. şuanda örnek dosya ; kayıt.txt adı ile bulunduğu kısma dosya kaydediyor. benim yapmak istediğim her txt dosyanın carikod başta olmak üzere örneğin A0001.TXT olarak kayıt yapması. yardım için teşekkürler. dosyayıda son hali ile ekliyorum.
Sayın linux2ex;
Denemedim ama şöyle olabileceğini düşünüyorum.
Modüldeki
Kod:
Public Sub olustur()
Dim strTextFile
strTextFile = CurrentProject.Path & "\kayıt.txt"
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.CreateTextFile(strTextFile)
End Sub
kodundaki
strTextFile = CurrentProject.Path & "\kayıt.txt"
satırını
strTextFile = CurrentProject.Path & AKMKOD.column(1) & ".txt"
olarak veya olmazsa Forms!Form1!AKMKOD.column(1)...
olarak dene.
Kolay gelsin saygılar.
merhaba, dediğiniz gibi denedim değiştirilen kısımda hata veriyor. sanırım başka bir yöntemle deneme yapacağız