Cara Membuat Formulir Split Anda Sendiri di Access menggunakan VBA

Solusi Akses September 29, 2025
Bagikan sekarang:

Formulir terpisah di Access sangat berguna. Sayangnya, mereka tidak berfungsi saat Anda menempatkannya di dalam formulir navigasi. Pelajari bagaimana Anda bisa membuat fungsi VBA yang akan mensimulasikan fungsionalitas formulir terpisah Access dan membuatnya berfungsi bahkan di dalam formulir navigasi.

Formulir terpisah memungkinkan Anda memiliki dua tampilan rekaman Anda secara bersamaan – tampilan formulir dan tampilan lembar data. Ini memungkinkan Anda untuk memiliki gambaran umum dari semua catatan Anda sementara pada saat yang sama memberi Anda pilihan untuk melihat dan mengeditnya satu per satu.

Sayangnya, formulir terpisah tidak akan berfungsi saat Anda memasukkannya ke dalam formulir navigasi – sesuatu yang membingungkan saya. Untung ada solusi untuk ini. Menggunakan VBA, Anda dapat membuat fungsi Anda sendiri yang akan mensimulasikan formulir split Access. Ikuti saja langkah-langkah di bawah ini.

Unduh Sekarang

Jika Anda ingin start untuk menggunakan fitur tersebut secepat mungkin, maka Anda dapat:

Unduh Contoh Database dengan Kode VBA Sekarang

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

Langkah-langkah untuk Membuat Formulir Split Anda Sendiri di Access menggunakan VBA

1. Buka formulir terpisah Anda dan perbarui Tampilan Default menjadi Formulir Tunggal. Buka Formulir Terpisah Anda Dan Perbarui Tampilan Default Ke Formulir Tunggal

  1. Buka formulir split Anda.
  2. Saat dalam tampilan desain, pilih formulir.
  3. Buka Lembar Properti (ALT + Enter) > tab Formulir.
  4. Ubah tampilan default menjadi: Formulir Tunggal.
  5. Tutup formulir dan simpan.

2. Buat salinan formulir. Ini akan berfungsi sebagai tampilan lembar data.

  1. Buka panel navigasi.
  2. Klik kanan pada formulir Anda dan pilih Salin.
  3. Klik kanan pada area kosong di panel navigasi dan pilih Tempel.
  4. Ubah nama Formulir. Tambahkan dengan "_Datasheet".

Contoh:

  • Formulir: Anggota
  • Salinan Formulir: Members_Datasheet

3. Buka Formulir Datasheet dan perbarui properti tampilan formulirnya.

  1. Buka formulir lembar data.
  2. Saat dalam tampilan desain, pilih formulir.
  3. Buka Lembar Properti > tab Formulir.
  4. Perbarui properti berikut:
    • Tampilan Bawaan: Datasheet
    • Izinkan Tampilan Lembar Data: Ya
    • Izinkan Tampilan Formulir: Tidak
  5. Tutup formulir dan simpan.

4. Buka kembali Formulir Utama dan tambahkan Formulir Lembar Data sebagai subformulir.

  1. Buka formulir utama (yang disalin) dalam tampilan desain.
  2. Tambahkan subformulir.
    • Masuk ke menu Desain. Pilih Subformulir/Sublaporan.Pilih Subformulir
    • Klik pada area Detail formulir.
    • Wizard SubForm akan muncul.Penyihir SubFormulir

1. Klik 'Gunakan formulir yang ada'.

2.Pilih formulir lembar data Anda.

3.Klik Berikutnya.Pilih 'Tentukan Milik Saya'

4.Pilih 'Tentukan milik saya'.

5.Klik Selesai.

3. Formulir lembar data sekarang menjadi subformulir dari formulir utama Anda. Sesuaikan dengan ukuran dan posisi yang Anda inginkan.

5. Terakhir, tambahkan kode.

  1. Buka Editor VBA (ALT + F11).
  2. Pilih form utama dan paste kode berikut.Pilih Formulir Utama Dan Tempel Kode
'MAIN FORM
Option Explicit

Private Sub Form_AfterUpdate()
   Me.Members_Datasheet.Requery
End Sub

Private Sub Form_Current()
   If Me.NewRecord Then
     Me.Members_Datasheet.Form.Recordset.AddNew
   Else
     Me.Members_Datasheet.Requery
   End If
End Sub
  1. Setelah menyalin kode, ganti semua contoh kata Anggota_Lembar Data dengan nama sebenarnya dari formulir lembar data Anda.
  2. Setelah selesai, pilih Formulir Lembar Data Anda dari menu Proyek dan salin kode di bawah ini.
'SUBFORM/DATASHEET FORM
Option Explicit

Private Sub Form_AfterUpdate()
   Me.Parent.Form.Requery
End Sub

Private Sub Form_Current()

  Dim pk_field As String, pk_tbox As Control
  Dim primaryKey As String, strSearch As String
 
  Set pk_tbox = Me.Member_ID 'textbox containing primary key *
  pk_field = "Member_ID" 'primary key field name *

  primaryKey = Nz(pk_tbox.Value, 0) 'change value to 0 if null
  pk_field = "[" & pk_field & "]" 'enclose field name with brackets
 
  If primaryKey <> 0 Then 'if not null (or not a new record)
    strSearch = pk_field & "=" & primaryKey
    Me.Parent.Recordset.FindFirst strSearch
  Else
     Me.Parent.Form.Recordset.AddNew
  End If

End Sub
  1. Perbarui nilai untuk variabel berikut:
  • pk_tbox – mengacu pada kotak teks yang berisi kunci utama.
  • pk_field – mengacu pada bidang kunci utama sumber rekaman.

Masing-masing memiliki tanda bintang (*) di bagian komentar sehingga Anda dapat dengan mudah menemukannya.

  1. Setelah selesai, simpan perubahan (CTRL + S) dan tutup Editor VBA.

Sekarang, Anda dapat menambahkan formulir split Anda sendiri di dalam formulir navigasi. Cobalah!

Perbaiki Basis Data Akses yang Rusak (.accdb)

Ada banyak alasan mengapa database Access menjadi rusak. Sayangnya, kami tidak memiliki kendali atas most dari mereka. Jika itu terjadi pada Anda, ingatlah bahwa masih ada cara untuk memulihkannya. DataNumen Inc. telah menciptakan perangkat lunak yang melakukan perbaikan accdb. Coba lihat.

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

Bagikan sekarang:

Komentar ditutup.