saya sudah coba functionnya tapi masih belum jalan mas, errornya di Dim fso As FileSystemObject, saya menggunakan ms access 2000.
salam ~roland -----Original Message----- From: Murid Belajar Access [mailto:[email protected]] Sent: Wednesday, April 15, 2009 11:36 To: [email protected] Subject: Re: [belajar-access] tanya cara export ke notepad? Importance: High 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
