Makasi mba dwint… kira2 bisa dilampirkan gamabrnya mas
From: belajar-access@yahoogroups.com [mailto:belajar-access@yahoogroups.com] On Behalf Of dwint ruswanto
Sent: Wednesday, October 23, 2013 1:03 PM
To: belajar-access@yahoogroups.com
Subject: Bls: [belajar-access] Ouput hasil Query ke bentuk tampilan Pivot yang telah jadi
om momod,
newbie boleh ikutan jawab gak ya? menggunakan fasilitas Get External Data milik si Excel.
1. pada ribbon "Data", lihat ke frame "Get External Data", lalu pilih "From Microsoft Query"
2. akan terbuka sebuah dialog box, pada tab "Databases" pilih "MS Access Database" lalu klik "OK"
3. akan terbuka dialog box baru, pilih nama database yang diinginkan lalu klik "OK"
4. akan terbuka Microsoft Query pilih tabel-tabel yang diinginkan, lalu buat relasi antar tabel, setelah itu pilih field yang ingin ditampilkan
5. tutup Microsoft Query, akan terbuka dialog box baru, pilih "Pivot Table Report", lokasi hasil, lalu klik "OK"
6. atur tampilan Pivot Table yang diiginkan dengan cara melakukan drag n drop field(s) ke kotak Row, Column, Values, dan/atau Filter
mau pakai gambar biar lebih jelas, tapi bingung cara masukin gambar lewat email yahoo :(
salam,
-dwint-
Pada Selasa, 22 Oktober 2013 14:52, Agung Kurniawan <agung.kurniawan@cimbniaga.co.id> menulis:
Makasi bang aksan buat pencerahannya…
Maaf mas saya newbie untuk membuat seperti ini, ini membuat program tsb dimananya didalam access (Group Macro&Code: Modul, Class Module ata Visual Basic)
Jika setelah dibuat programnya didalam access, trus cara eksekusinya gmana ?? supaya data hasil query sy bisa langsung dalam bentuk pivot yang telah jadi
Terima kasih sekali lagi bang buat pencerahannya
From: belajar-access@yahoogroups.com [mailto:belajar-access@yahoogroups.com] On Behalf Of aksan kurdin
Sent: Monday, October 21, 2013 11:51 PM
To: belajar-access@yahoogroups.com
Subject: Re: [belajar-access] Ouput hasil Query ke bentuk tampilan Pivot yang telah jadi
dengan automation .
anda garap object excel nya dalam access.
jadi mengontrol perilaku excel dari access.
berikut class yang pernah saya buat di vb6.
tidak perlu di copy semuanya, saya juga udah lupa. kudu dalam2 liat lagi dari awal :D
tapi intinya, ini melempar data di access ke sheet excel, dan membuat sheet baru berupa pivot yang siap pakai.
saya tidak mengisi dengan spesifik data yang jadi rows/column/pivotnya, tetapi menyediakan sheet pivot tinggal seret field saja.
anda pelajari dulu, kalau masih bingung, baru saya oprek pelajari lagi kode saya ini .. hehehehe
:)
Option Explicit
Private mrs_Data As ADODB.Recordset
Private mstr_Company As String
Private mstr_Title As String
Private mstr_ReportDate As String
Private objExcelApp As Object
Property Get Recordset() As ADODB.Recordset
������������ Set Recordset = mrs_Data
End Property
Property Set Recordset(rs As ADODB.Recordset)
������������ Set mrs_Data = rs
������������ mrs_Data.Filter = rs.Filter
End Property
Property Let Company(data As String)
������������ mstr_Company = data
End Property
Property Let Title(data As String)
������������ mstr_Title = data
End Property
Property Let ReportDate(data As Date)
������������ mstr_ReportDate = "As of date : " & Format(data, "dd/mmm/yyyy")
End Property
Public Sub ExportRStoExcel()
������������ Dim objWorkbook As Object
������������ Dim objWorksheet As Object
������������ Dim objRange As Object
������������ Dim objField As ADODB.Field
������������ Dim i As Integer
������������ ' Run Excel and open a new workbook
������������ Set objWorkbook = objExcelApp.Workbooks.Add
������������ ' Get a reference to the first worksheet
������������ Set objWorksheet = objWorkbook.Sheets(1)
������������ objWorksheet.Name = "Data"
������������ ' Get a range reference for the first row
������������ Set objRange = objWorksheet.Range("A1")
������������ objRange.Cells(1, 1) = mstr_Company
������������ Set objRange = objWorksheet.Range("A2")
������������ objRange.Cells(1, 1) = mstr_Title
������������
������������ Set objRange = objWorksheet.Range("A3")
������������ objRange.Cells(1, 1) = mstr_ReportDate
������������
������������ Set objRange = objWorksheet.Range("A5")
������������ ' Loop through the fields and put the field name in the first row
������������ i = 0
������������ For Each objField In mrs_Data.Fields
���������������������������� i = i + 1
���������������������������� objRange.Cells(1, i) = objField.Name
������������ Next
������������ ' Get a reference to the second row
������������ Set objRange = objWorksheet.Range("A6")
������������ ' Copy recordset to the range starting from the second row
������������ Call objRange.CopyFromRecordset(mrs_Data, mrs_Data.RecordCount, mrs_Data.Fields.Count)
������������ ' Bold the first row
������������ objWorksheet.Rows("1:5").Font.Bold = True
������������ objWorksheet.Range("A5").Select
������������ objWorksheet.PivotTableWizard
������������ objWorkbook.ActiveSheet.Name = "Pivot"
������������ objWorksheet.Select
������������ ' Expend the columns to show entire content
������������ 'objWorksheet.Cells.EntireColumn.AutoFit
������������ ' Show Excel Sheet to user
������������ objWorksheet.Move objWorkbook.Sheets("Pivot")
������������ objExcelApp.Visible = True
������������ ' Return Excel Sheet to calling routine
������������ 'Set ExportRStoExcel = objWorksheet
End Sub
Private Sub Class_Initialize()
������������ Set mrs_Data = New ADODB.Recordset
������������ Set objExcelApp = CreateObject("Excel.Application")
End Sub
Private Sub Class_Terminate()
������������ Set mrs_Data = Nothing
������������ Set objExcelApp = Nothing
End Sub
aksan kurdin
On 10/17/2013 2:00 PM, Agung Kurniawan wrote:
����
Dear para master access������
����
Mau Tanya, bagaimana caranya hasil query dari access output keluarannya di excel bukan dalam bentuk datasheet tetapi langsung dalam bentuk pivot yang telah jadi. (kalo di excel bentuk data sheet tersebut harus dibuat manual pivot kaya di excel)
����
Tks buat pencerahannya
Privileged/confidential information may be contained in this message. If you are not the named recipient or addressee, you are hereby notified that any use review, disclosure or copying of the contents herein is strictly prohibited. In such a case, kindly discard all its contents and notify sender accordingly regarding such unauthorized disclosure or transmission by email. Opinions, conclusions, statements and other information in this message that do not relate to the official business of CIMB Group shall be understood as neither given or endorsed by it. The contents herein are meant strictly for the use of the named recipient or addressee of CIMB Group. No assumption of responsibility or liability whatsoever is undertaken by CIMB Group in respect of prohibited and unauthorised use by any other person.
| Reply via web post | Reply to sender | Reply to group | Start a New Topic | Messages in this topic (6) |
Tidak ada komentar:
Posting Komentar