Cara Menggandakan Catatan dengan Cepat dalam Akses Anda

Pelajari cara membuat fungsi VBA yang memungkinkan Anda menyalin data tertentu dari rekaman sebelumnya hanya dengan satu klik tombol. Tidak perlu berulang kali mengetik hal yang sama.

Pernahkah Anda memiliki pengalaman di mana Anda perlu memasukkan catatan baru di Access yang memiliki kumpulan nilai yang persis sama dengan catatan sebelumnya kecuali untuk satu bidang? Ini bisa melelahkan, bukan? Tutorial ini akan mengajari Anda cara membuat fungsi yang dengan mengklik tombol, Anda dapat menyalin nilai tertentu dari catatan sebelumnya - menghemat waktu Anda untuk mengetik ulang. Ikuti saja langkah-langkah di bawah ini.

Unduh Sekarang

Jika Anda ingin mulai menggunakan fitur ini sesegera mungkin, Anda dapat melakukan hal berikut:

Unduh Contoh Database dengan Kode VBA Sekarang

Kalau tidak, kalau mau DIY bisa baca isinya di bawah ini.

Langkah-langkah untuk Menambahkan Fungsionalitas 'Buat Salinan Rekaman' di Access

1. Buka formulir Anda dalam tampilan desain.
2. Tambahkan tombol perintah. Lewati wizard tombol perintah.
3. Tambahkan sebuah Saat Diklik acara ke tombol.

• Saat dalam tampilan desain, pilih tombol.
• Buka Lembar Properti (ALT + Enter)
• Buka tab Acara> Saat Diklik> ...
• Ketika Pilih Builder menu muncul, pilih Code Builder.
• Klik OK.
• Ini akan membuka Editor VBA.

4. 1. Salin kode berikut dan modifikasi agar sesuai dengan kebutuhan Anda. Gunakan komentar sebagai panduan.

   Private Sub Command24_Click()
       Dim currentID As Long
    
       'TO DO: change all instances of 'BookID' with the actual name of your table's ID or primary key
    
       If IsNull(BookID) Then
           MsgBox prompt:="Please select the record to copy first.", buttons:=vbExclamation
           Exit Sub
       End If
    
       currentID = BookID
       DoCmd.GoToRecord record:=acNewRec
    
       'TO DO: set the fields to be copied (those that most likely will have the same values)
       'FORMAT: fieldName = Dlookup("fieldname", "tableName", "primaryKeyField=" & currentID)
    
        Author = DLookup("Author", "Books", "BookID=" & currentID)
        Country = DLookup("Country", "Books", "BookID=" & currentID)
        Language = DLookup("Language", "Books", "BookID=" & currentID)
        Genre = DLookup("Genre", "Books", "BookID=" & currentID)
        Publisher = DLookup("Publisher", "Books", "BookID=" & currentID)
    
        Title.SetFocus ‘TO DO: change 'Title' with name of field that is going to be edited by the user
    
   End Sub

5. Sekarang uji kode jika berhasil.

Kode Dijelaskan

Kode di atas digunakan untuk database toko buku. Karena seri buku, ada beberapa contoh di mana semua detail buku (mis. Penulis, Negara, Bahasa, dll.) Sama kecuali untuk satu bidang - Judul. Dengan demikian, perlu adanya kode.

Daftar di bawah ini menunjukkan aliran program.

1. Periksa apakah pengguna telah memilih catatan untuk disalin. Pesan kesalahan akan muncul jika pengguna mengklik tombol tepat setelah mengklik tombol Add New Record - menjadikan ID null.

If IsNull(BookID) Then
     MsgBox prompt:="Please select the record to copy first.", buttons:=vbExclamation
     Exit Sub
End If

2. Dapatkan ID atau kunci utama dari rekaman saat ini dan tetapkan sebagai nilai untuk ID saat ini Ini akan digunakan sebagai dasar untuk nilai yang akan disalin.

currentID = BookID

3. Tambahkan rekor baru.

DoCmd.GoToRecord record:=acNewRec

4. Tetapkan nilai untuk bidang tertentu berdasarkan ID saat ini Di sinilah data disalin dari rekaman yang dipilih.

'FORMAT: fieldName = Dlookup("fieldname", "tableName", "primaryKeyField=" & currentID)

Author = DLookup("Author", "Books", "BookID=" & currentID)
Country = DLookup("Country", "Books", "BookID=" & currentID)
Language = DLookup("Language", "Books", "BookID=" & currentID)
Genre = DLookup("Genre", "Books", "BookID=" & currentID)
Publisher = DLookup("Publisher", "Books", "BookID=" & currentID)

5. Fokuskan perhatian pada kolom yang kemungkinan besar akan diedit pertama kali oleh pengguna. Hal ini meningkatkan pengalaman pengguna karena menghilangkan kebutuhan pengguna untuk memilih kolom yang masih perlu diperbarui secara manual.

 Title.SetFocus      ‘TO DO: change 'Title' with name of field that is going to be edited by the user

Perbaiki Database yang Rusak

Jika karena alasan yang tidak menguntungkan, Anda bangun suatu hari tidak dapat membuka database Anda, Anda bisa mencoba alat pihak ketiga yang melakukan Perbaikan akses. Ini bekerja dengan sangat baik.

Pengantar Penulis:

Jayme Stack adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk pemulihan sql dan unggul dalam produk perangkat lunak pemulihan. Untuk informasi lebih lanjut kunjungi www.datanumen.com