Cara Membuat Borang Perpecahan Anda Sendiri dalam Akses menggunakan VBA

Bentuk perpecahan di Access sangat berguna. Malangnya, ia tidak berfungsi apabila anda meletakkannya di dalam borang navigasi. Ketahui bagaimana anda boleh membuat fungsi VBA yang akan mensimulasikan fungsi bentuk split Access 'dan membuatnya berfungsi walaupun di dalam borang navigasi.

Bentuk perpecahan membolehkan anda mempunyai dua paparan rekod anda pada masa yang sama - paparan borang dan paparan lembaran data. Ini membolehkan anda mempunyai gambaran keseluruhan semua rekod anda dan pada masa yang sama memberi anda pilihan untuk melihat dan menyuntingnya satu persatu.

Malangnya, borang perpecahan tidak akan berfungsi apabila anda memasukkannya ke dalam borang navigasi - sesuatu yang membingungkan saya. Perkara yang baik ada penyelesaian untuk ini. Dengan menggunakan VBA, anda boleh membuat fungsi anda sendiri yang akan mensimulasikan bentuk perpecahan Access. Ikuti sahaja langkah di bawah.

Muat Turun Sekarang

Jika anda ingin mula menggunakan ciri ini secepat mungkin, anda boleh:

Muat turun Contoh Pangkalan Data dengan Kod VBA Sekarang

Jika tidak, jika anda mahu DIY, anda boleh membaca kandungannya di bawah.

Langkah-langkah Membuat Borang Perpecahan Anda Sendiri dalam Akses menggunakan VBA

1. Buka borang perpecahan anda dan kemas kini Paparan Lalai ke Borang Tunggal.

1. Buka borang perpecahan anda.
2. Semasa dalam paparan reka bentuk, pilih borang.
3. Pergi ke Helaian Harta (ALT + Enter)> tab Borang.
4. Tukar paparan lalai ke: Bentuk Tunggal.
5. Tutup borang dan simpan.

2. Buat salinan borang. Ini akan berfungsi sebagai paparan lembar data.

1. Pergi ke panel navigasi.
2. Klik kanan pada borang anda dan pilih Salin.
3. Klik kanan pada kawasan kosong di panel navigasi dan pilih Tampal.
4. Tukar nama Borang. Tambahkan dengan "_Datasheet".

Contoh:

• Borang: Ahli
• Salinan Borang: Members_Datasheet

3. Buka Borang Lembar Data dan kemas kini sifat paparan borangnya.

1. Buka borang Lembaran Data.
2. Semasa dalam paparan reka bentuk, pilih borang.
3. Pergi ke tab Helaian Harta> Borang.
4. Kemas kini sifat berikut:
   • Paparan Lalai: Helai
   • Benarkan Paparan Lembaran Data: Ya
   • Benarkan Paparan Borang: Tidak
5. Tutup borang dan simpan.

4. Buka semula Borang Utama dan tambahkan Borang Lembar Data sebagai subformat.

1. Buka borang utama (yang disalin) dalam paparan reka bentuk.
2. Tambahkan subformat.
   • Pergi ke menu Reka bentuk. Pilih Subform / Subreport.
   • Klik pada bahagian Detail borang.
   • Wizard SubForm akan muncul.

1. Klik pada 'Gunakan borang yang ada'.

2. Pilih borang lembar data anda.

3. Klik Seterusnya.

4. Pilih 'Tentukan milik saya'.

5. Klik Selesai.

3. Borang lembar data kini menjadi subformat dari borang utama anda. Sesuaikan dengan ukuran dan kedudukan yang anda inginkan.

5. Akhir sekali, tambah kod.

1. Buka Editor VBA (ALT + F11).
2. Pilih borang utama dan tampal kod yang berikut.

'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

3. Setelah menyalin kod, ganti semua contoh perkataan Ahli_Datasheet dengan nama sebenar borang lembar data anda.
4. Setelah selesai, pilih Borang Lembar Data anda dari menu Projek dan salin kod di bawah.

'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

5. Kemas kini nilai untuk pemboleh ubah berikut:

• pk_tbox - merujuk pada kotak teks yang mengandungi kunci utama.
• pk_field - merujuk kepada bidang utama utama sumber rekod.

Mereka masing-masing mempunyai tanda bintang (*) di bahagian komen sehingga anda dapat mencarinya dengan mudah.

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

Sekarang, anda boleh menambahkan bentuk perpecahan anda sendiri di dalam borang navigasi. Cubalah!

Betulkan Pangkalan Data Akses Rosak (.accdb)

Terdapat banyak sebab mengapa pangkalan data Access menjadi rosak. Malangnya, kita tidak mempunyai kawalan ke atas kebanyakannya. Jika ia berlaku kepada anda, ingatlah bahawa masih ada cara untuk memulihkannya. DataNumen Inc. telah mencipta perisian yang berfungsi pembaikan accdb. Semak ia.

Pengenalan Pengarang:

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