Dear All, Terkadang kita ingin membuat file baru yang berisi transaksi harian berjalan dan menamakan file tersebut berdasarkan tanggal berjalan tersebut. Mungkin kode berikut ini dapat menjadi ilustrasi dalam proses eksekusinya. Demikian salah satu "KEJUTAN LAGI" dalam Training ICDP-2009 mendatang. Ikutilah Training Spektakuler yang penuh Tips dan Sensasi unik dalam menjadikan aplikasi Anda semakin Powerfull dan Menarik tentunya... !
Salam, Lusky Kurniawan (Ph. 021 - 9293 1925) Private Sub Label15_Click() Dim strTgl As String Dim strBln As String Dim strThn As String Dim strTamp As String Dim strPath1 As String Dim strPath2 As String strBln = Left([txtkonversi_tgl], 2) strTgl = Mid([txtkonversi_tgl], 4, 2) strThn = Right([txtkonversi_tgl], 2) strTamp = strThn + strBln + strTgl strPath1 = "C:\ICDP-2009\Backup\1770\" & strTamp & "-1770.txt" strPath2 = "C:\ICDP-2009\Backup\1770 s\" & strTamp & "-1770-I.txt" 'strPath diatas bisa di-isi dengan Default Current Project 'dalam hal ini, default path ditentukan dengan code DoCmd.TransferText acExportDelim, , "tbl1770 induk", strPath1, yes DoCmd.TransferText acExportDelim, , "tbl1770-I Hal 1", strPath2, yes End Sub
