gunakan fungsi ini:
Function fWriteText(ByVal strFileName As String, ByVal strText As String)
Dim fso As FileSystemObject
Set fso = New FileSystemObject
Dim f
Set f = fso.OpenTextFile(strFileName, ForAppending, True)
f.Write strText & vbCrLf
Set f = Nothing
Set fso = Nothing
End Function
cara pakainya tinggal:
taruh di general module.
tulis ini di immediate window: ?fWriteText(currentproject.Path &
"\test.txt","aku coba test aja")
Kalau mau pake di form, tinggal : buat command button isikan sbb:
misalnya:
fWriteText(currentproject.Path & "\test.txt",NamaFieldMemonya)
salam access,
murid access
----- Original Message -----
From: Roland
To: Belajar-Access (E-mail)
Sent: Wednesday, April 15, 2009 11:16
Subject: [belajar-access] tanya cara export ke notepad?
Met siang teman2,
bagaimana ya cara export field teks/memo menjadi .txt (notepad)?
salam,
~roland
