CARA: Transpos Data dalam tabel atau kueri pada Access 2000

Terjemahan Artikel Terjemahan Artikel
ID Artikel: 202176 - Melihat produk di mana artikel ini berlaku.
Perbesar semua | Perkecil semua

Pada Halaman ini

RINGKASAN

Kadang-kadang, Anda mungkin perlu transpos data dalam tabel atau permintaan sehingga nama field terdaftar secara vertikal di kolom kiri dan data Membentang melintasi halaman horizontal. Sebagai contoh, Anda mungkin perlu Transpos data untuk laporan atau sebelum ekspor ke file teks. Ini Artikel menunjukkan dua metode yang dapat Anda gunakan untuk menyelesaikan tugas ini. Metode 1 menunjukkan kepada Anda bagaimana Anda dapat mengekspor data ke Microsoft Excel, Transpos data, dan kemudian mengimpor hasilnya kembali ke Microsoft Access. Metode 2 menunjukkan Anda bagaimana Anda dapat menggunakan Visual Basic untuk aplikasi prosedur untuk menyelesaikan tugas ini.

CATATAN: Tidak metode berikut bekerja jika Anda memiliki lebih dari 255 catatan karena jumlah maksimum kolom dalam tabel Microsoft Access 255.

Metode 1 - transpos Data dalam Microsoft Excel

Mengekspor Data ke Microsoft Excel

  1. Mulai Microsoft Access dan membuka database Anda. Di jendela Database, klik tabel atau kueri yang ingin diekspor.
  2. Pada Berkas menu, klik Ekspor.
  3. Dalam Mengekspor meja untuk kotak dialog, pilih versi Excel untuk yang Anda mengekspor di Simpan sebagai jenis kotak.
  4. Tentukan nama dan lokasi file, dan kemudian klik Simpan.

Transpos Data dalam Microsoft Excel

  1. Mulai Microsoft Excel dan membuka spreadsheet yang Anda buat dalam langkah 5 pada bagian "Ekspor the Data ke Microsoft Excel".
  2. Tekan CTRL + HOME untuk pergi ke sel A1. Tekan CTRL + SHIFT + END untuk memilih semua data.
  3. Pada Mengedit menu, klik Salin.
  4. Pada Masukkan menu, klik Lembar kerja.
  5. Pada Mengedit menu, klik Paste khusus.
  6. Dalam Paste khusus kotak dialog, klik untuk memilih Transpos Periksa kotak, dan kemudian klik Oke.
  7. Pada Format menu, titik Lembar, lalu klik Ubah nama. Ketik nama lembar yang berisi transposed data. Jika Anda ingin, klik Simpan sebagai pada Berkas menu untuk mengekspor data langsung ke teks dari Microsoft Excel.
  8. Simpan dan tutup buku kerja, dan kemudian keluar dari Microsoft Excel.

Mengimpor Data ke Microsoft Access

CATATAN: Anda dapat menghindari kemungkinan jenis konversi kegagalan jika Anda membuat sebuah meja kosong yang terdiri sepenuhnya dari text field dan Anda menambahkan data ke meja daripada mengimpor data ke tabel baru. Namun, Anda tidak dapat menambahkan spreadsheet data ke tabel yang ada dalam Microsoft Access.
  1. Pada Berkas menu, titik Mendapatkan Data eksternal, lalu klik Impor.
  2. Dalam Impor kotak dialog, klik Microsoft Excel (*.xls) dalam Tipe file daftar.
  3. Cari dan pilih berkas yang Anda simpan setelah menukar data dalam Microsoft Excel. Kemudian klik Impor.
  4. Layar pertama impor Spreadsheet Wizard, klik Tampilkan lembar kerja, lalu pilih lembar kerja yang berisi transposed data; Klik Berikutnya.
  5. Jangan pilih Baris pertama berisi judul kolom kotak centang pada kedua layar wisaya Spreadsheet impor. Klik Berikutnya.
  6. Klik Dalam sebuah tabel baru, lalu klik Berikutnya dua kali.
  7. Klik Tidak ada tombol utama, lalu klik Berikutnya.
  8. Klik Menyelesaikan. Tabel dihasilkan berisi transposed data.

Metode 2 - menggunakan fungsi kustom untuk transpos tabel

Microsoft menyediakan contoh pemrograman hanya sebagai ilustrasi, tanpa jaminan apa pun baik tersurat maupun tersirat. Termasuk, namun tidak terbatas pada, jaminan tersirat mengenai kelayakan untuk diperdagangkan atau kesesuaian untuk keperluan tertentu. Artikel ini mengasumsikan bahwa Anda telah terbiasa dengan bahasa pemrograman yang ditunjukkan dan dengan alat yang digunakan untuk membuat dan mendebug prosedur. Teknisi dukungan Microsoft dapat membantu menjelaskan fungsionalitas prosedur tertentu, namun mereka tidak akan memodifikasi contoh untuk memberikan fungsionalitas tambahan atau menyusun prosedur untuk memenuhi persyaratan khusus Anda.
  1. Membuat modul baru dalam database Anda dan masukkan prosedur berikut:
    Function Transposer(strSource As String, strTarget As String)
    
       Dim db As DAO.Database
       Dim tdfNewDef As DAO.TableDef
       Dim fldNewField As DAO.Field
       Dim rstSource As DAO.Recordset, rstTarget As DAO.Recordset
       Dim i As Integer, j As Integer
    
       On Error GoTo Transposer_Err
    
       Set db = CurrentDb()
       Set rstSource = db.OpenRecordset(strSource)
       rstSource.MoveLast
    
       ' Create a new table to hold the transposed data.
       ' Create a field for each record in the original table.
       Set tdfNewDef = db.CreateTableDef(strTarget)
       For i = 0 To rstSource.RecordCount
          Set fldNewField = tdfNewDef.CreateField(CStr(i + 1), dbText)
          tdfNewDef.Fields.Append fldNewField
       Next i
       db.TableDefs.Append tdfNewDef
    
       ' Open the new table and fill the first field with
       ' field names from the original table.
       Set rstTarget = db.OpenRecordset(strTarget)
       For i = 0 To rstSource.Fields.Count - 1
          With rstTarget
            .AddNew
            .Fields(0) = rstSource.Fields(i).Name
            .Update
          End With
       Next i
    
       rstSource.MoveFirst
       rstTarget.MoveFirst
       ' Fill each column of the new table
       ' with a record from the original table.
       For j = 0 To rstSource.Fields.Count - 1
          ' Begin with the second field, because the first field
          ' already contains the field names.
          For i = 1 To rstTarget.Fields.Count - 1
             With rstTarget
                .Edit
                .Fields(i) = rstSource.Fields(j)
                rstSource.MoveNext
                .Update
             End With
    
          Next i
          rstSource.MoveFirst
          rstTarget.MoveNext
       Next j
    
       db.Close
    
       Exit Function
    
    Transposer_Err:
    
       Select Case Err
          Case 3010
             MsgBox "The table " & strTarget & " already exists."
          Case 3078
             MsgBox "The table " & strSource & " doesn't exist."
          Case Else
             MsgBox CStr(Err) & " " & Err.Description
       End Select
    
       Exit Function
    
    End Function
    					
  2. Untuk menguji fungsi, tekan CTRL + G. Di jendela segera, ketik baris berikut, dan kemudian tekan ENTER:
    ?Transposer("Suppliers","SuppliersTrans")
    					
Note This is a "FAST PUBLISH" article created directly from within the Microsoft support organization. The information contained herein is provided as-is in response to emerging issues. As a result of the speed in making it available, the materials may include typographical errors and may be revised at any time without notice. See Terms of Use for other considerations.

Properti

ID Artikel: 202176 - Kajian Terakhir: 19 September 2011 - Revisi: 2.0
Berlaku bagi:
  • Microsoft Access 2000 Standard Edition
Kata kunci: 
kbhowto kbhowtomaster kbmt KB202176 KbMtid
Penerjemahan Mesin
PENTING: Artikel ini diterjemahkan menggunakan perangkat lunak mesin penerjemah Microsoft dan bukan oleh seorang penerjemah. Microsoft menawarkan artikel yang diterjemahkan oleh seorang penerjemah maupun artikel yang diterjemahkan menggunakan mesin sehingga Anda akan memiliki akses ke seluruh artikel baru yang diterbitkan di Pangkalan Pengetahuan (Knowledge Base) dalam bahasa yang Anda gunakan. Namun, artikel yang diterjemahkan menggunakan mesin tidak selalu sempurna. Artikel tersebut mungkin memiliki kesalahan kosa kata, sintaksis, atau tata bahasa, hampir sama seperti orang asing yang berbicara dalam bahasa Anda. Microsoft tidak bertanggung jawab terhadap akurasi, kesalahan atau kerusakan yang disebabkan karena kesalahan penerjemahan konten atau penggunaannya oleh para pelanggan. Microsoft juga sering memperbarui perangkat lunak mesin penerjemah.
Klik disini untuk melihat versi Inggris dari artikel ini:202176

Berikan Masukan

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com