Paano Gumawa ng Iyong Sariling Split Form sa Access gamit ang VBA

Mga Solusyon sa Pag-access Setyembre 29, 2025
Ipamahagi ngayon:

Ang mga split form sa Access ay lubhang kapaki-pakinabang. Sa kasamaang palad, hindi gumagana ang mga ito kapag inilagay mo ang mga ito sa loob ng isang navigation form. Matutunan kung paano ka makakagawa ng VBA function na gagayahin ang mga feature ng split form ng Access at gagawin itong gumana kahit sa loob ng isang navigation form.

Binibigyang-daan ka ng split form na magkaroon ng dalawang view ng iyong mga tala sa parehong oras - view ng form at view ng datasheet. Binibigyang-daan ka nitong magkaroon ng pangkalahatang-ideya ng lahat ng iyong mga tala habang kasabay nito ay nagbibigay sa iyo ng opsyon na tingnan at i-edit ang mga ito nang paisa-isa.

Sa kasamaang-palad, hindi gagana ang mga split form kapag inilagay mo ang mga ito sa loob ng isang navigation form – isang bagay na naguguluhan sa akin. Buti na lang may workaround para dito. Gamit ang VBA, maaari kang lumikha ng iyong sariling function na gayahin ang split form ng Access. Sundin lamang ang mga hakbang sa ibaba.

Download na Ngayon

Kung gusto mong simulan ang paggamit ng feature sa lalong madaling panahon, maaari mong:

I-download ang Sample Database na may VBA Codes Ngayon

Kung hindi man, kung nais mong DIY, maaari mong basahin ang mga nilalaman sa ibaba.

Mga Hakbang para Gumawa ng Iyong Sariling Split Form sa Access gamit ang VBA

1. Buksan ang iyong split form at i-update ang Default View sa Single Form. Buksan ang Iyong Split Form At I-update ang Default na View Sa Single Form

  1. Buksan ang iyong split form.
  2. Habang nasa view ng disenyo, piliin ang form.
  3. Pumunta sa Property Sheet (ALT + Enter) > tab na Form.
  4. Baguhin ang default na view sa: Single Form.
  5. Isara ang form at i-save.

2. Gumawa ng kopya ng form. Ito ang magsisilbing datasheet view.

  1. Pumunta sa navigation pane.
  2. Mag-right click sa iyong form at piliin ang Kopyahin.
  3. Mag-right click sa isang blangkong lugar sa navigation pane at piliin ang I-paste.
  4. Baguhin ang pangalan ng Form. Idagdag ito ng “_Datasheet”.

Halimbawa:

  • Form: Mga miyembro
  • Kopya ng Form: Members_Datasheet

3. Buksan ang Form ng Datasheet at i-update ang mga katangian ng view ng form nito.

  1. Buksan ang form ng Datasheet.
  2. Habang nasa view ng disenyo, piliin ang form.
  3. Pumunta sa Property Sheet > Form na tab.
  4. I-update ang mga sumusunod na katangian:
    • Default na View: Datasheet
    • Payagan ang Datasheet View: Oo
    • Payagan ang Form View: Hindi
  5. Isara ang form at i-save.

4. Muling buksan ang Main Form at idagdag ang Datasheet Form bilang subform.

  1. Buksan ang pangunahing form (ang kinopya) sa view ng disenyo.
  2. Magdagdag ng subform.
    • Pumunta sa Design menu. Piliin ang Subform/Subreport.Piliin ang Subform
    • Mag-click sa Detalye na bahagi ng form.
    • Lalabas ang SubForm Wizard.Ang SubForm Wizard

1. Mag-click sa 'Gumamit ng umiiral na form'.

2.Piliin ang iyong datasheet form.

3. I-click ang Susunod.Piliin ang 'Tukuyin ang Aking Sariling'

4. Piliin ang 'Tukuyin ang aking sarili'.

5. I-click ang Tapos na.

3. Ang datasheet form ay isa na ngayong subform ng iyong pangunahing form. Ayusin ito sa iyong nais na laki at posisyon.

5. Panghuli, idagdag ang code.

  1. Buksan ang VBA Editor (ALT + F11).
  2. Piliin ang pangunahing form at i-paste ang sumusunod na code.Piliin Ang Pangunahing Form At Idikit Ang Code
'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. Pagkatapos kopyahin ang code, palitan ang lahat ng pagkakataon ng salita Members_Datasheet na may aktwal na pangalan ng iyong form ng datasheet.
  2. Kapag tapos na, piliin ang iyong Datasheet Form mula sa Project menu at kopyahin ang code sa ibaba.
'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. I-update ang mga halaga para sa mga sumusunod na variable:
  • pk_tbox – tumutukoy sa text box na naglalaman ng pangunahing key.
  • pk_field – tumutukoy sa field ng pangunahing key ng record source.

May asterisk (*) ang bawat isa sa comment section para madali mo silang mahanap.

  1. Kapag tapos na, i-save ang mga pagbabago (CTRL + S) at isara ang VBA Editor.

Ngayon, maaari mong idagdag ang iyong sariling split form sa loob ng navigation form. Subukan!

Ayusin ang Sirang Access Database (.accdb)

Maraming dahilan kung bakit nagiging sira ang isang database ng Access. Nakalulungkot, wala tayong kontrol sa karamihan sa mga ito. Kung mangyari man ito sa iyo, tandaan na mayroon pa ring paraan upang mabawi ito. DataNumen Inc. ay lumikha ng isang software na gumaganap pag-aayos ng accdb. Tingnan ito.

Panimula ng May-akda:

Si Jayme Stack ay isang dalubhasa sa pagbawi ng data sa DataNumen, Inc., na pinuno ng mundo sa mga teknolohiya sa pagbawi ng data, kasama ang sql paggaling at excel mga produkto ng pagbawi ng software. Para sa karagdagang impormasyon pagbisita www.datanumen. Sa

Ipamahagi ngayon:

Mga komento ay sarado.