Waalaikum salam, kang Yana
catatan sblmnya:
strSQL adalah query yang dibentuk dari seleksi di form.
Buat satu command button misalnya: cmdExportToCSV.
Private Sub cmdExportToCSV_Click()
On Error GoTo CSV_Err
strSQL = "select NamaAtlet,KotaAsal from MasterAtlet"
strNamaQuery = "qryRptTechnicalMeetingSparring"
strLokasiCSV = "D:\BelajarAccess\Yana\RptTechnicalMeetingSparring.csv"
If isQueryExist(strNamaQuery) Then DoCmd.DeleteObject acQuery, strNamaQuery
CurrentDb.CreateQueryDef strNamaQuery, strSQL
DoCmd.TransferText acExportDelim, "", strNamaQuery, strLokasiCSV, True, ""
CSV_Exit:
Exit Function
CSV_Err:
Debug.Print Err.Number
Debug.Print Err.Description
Resume CSV_Exit
End Sub
dan
taruh di module umum .
Function isQueryExist(ByVal stNamaQuery As String) As Boolean
isQueryExist = False
For i = 1 To CurrentDb.QueryDefs.Count
If CurrentDb.QueryDefs(i - 1).Name = stNamaQuery Then
isQueryExist = True
Exit For
End If
Next
End Function
salam,
murid access - NRN CL BEW
----- Original Message -----
From: Yana Karyana
To: [email protected]
Sent: Monday, May 04, 2009 13:24
Subject: [belajar-access] Export Report ke CSV jadi beberapa kolom
Assalamu'alaikum...........
Selamat siang semuanya.
Saya punya Report dengan nama "rptTechnical Meeting Sparring" yang
datasourcenya dari query yang disortir di form. Report tsb memiliki dua record
yaitu : 'Nama Atlet' dan 'Asal Kota'.
Saya export report tsb ke .CSV dengan cara :
Ketika report tsb di preview -> Klik kanan -> Export -> Pilih Text File dan
saya tambahkan .csv pada file namenya.
dan akhirnya file CSV tsb saya dapatkan. Namun tidak sesuai dengan yang
diharapkan. File CSV tsb hanya berisi 1 column yang mengandung 2 field di atas
(field nama atlet dan Asal Kota bersatu pada 1 kolom)
pertanyaannya :
1. Bagaimana agar file CSV yang di export dari Report tersebut agar
menghasilkan file 2 colom. (Nama atlet dan asal kota terpisah kolomnya)
2. Jika menggunakan 1 command button pada form, bagaimana kode untuk export
repot di atas secara langsung ke CSV.
Demikian masalah saya, moga teman-teman semua da yang bisa membantu.
Terima kasih.
Salam,
Yana K - TiTasik
