VBA istifadə edərək Access-də Öz Split Formanızı Necə Yaratmaq olar

Access-də bölmə formaları çox faydalıdır. Təəssüf ki, naviqasiya formasının içərisinə yerləşdirdiyiniz zaman onlar işləmir. Access-in bölünmüş forma funksiyalarını təqlid edəcək və hətta naviqasiya formasında işləməsini təmin edəcək VBA funksiyasını necə yarada biləcəyinizi öyrənin.

Bölünmüş forma eyni vaxtda qeydlərinizin iki görünüşünü əldə etməyə imkan verir - forma görünüşü və məlumat cədvəli. Bu, sizə bütün qeydlərinizə ümumi baxış keçirməyə imkan verir, eyni zamanda onlara bir-bir baxmaq və redaktə etmək imkanı verir.

Təəssüf ki, onları naviqasiya formasının içərisinə qoyduğunuz zaman bölünmüş formalar işləməyəcək - məni çaşdıran bir şey. Yaxşı ki, bunun həlli yolu var. VBA-dan istifadə edərək Access-in bölünmüş formasını simulyasiya edəcək öz funksiyanızı yarada bilərsiniz. Sadəcə aşağıdakı addımları izləyin.

İndi Download

Funksiyadan ən qısa müddətdə istifadə etməyə başlamaq istəyirsinizsə, aşağıdakıları edə bilərsiniz:

İndi VBA Kodları ilə Nümunə Verilənlər Bazasını endirin

Əks halda, DIY etmək istəyirsinizsə, aşağıdakı məzmunu oxuya bilərsiniz.

VBA istifadə edərək Access-də Öz Split Formanızı Yaratmaq üçün Addımlar

1. Split formanı açın və Defolt Görünüşü Tək Formaya yeniləyin.

1. Bölünmüş formanı açın.
2. Dizayn görünüşündə formanı seçin.
3. Mülkiyyət vərəqinə keçin (ALT + Enter) > Forma nişanı.
4. Defolt görünüşü dəyişdirin: Tək Forma.
5. Formanı bağlayın və yadda saxlayın.

2. Formanın surətini yaradın. Bu məlumat cədvəlinin görünüşü kimi xidmət edəcəkdir.

1. Naviqasiya panelinə keçin.
2. Formanızın üzərinə sağ vurun və Kopyala seçin.
3. Naviqasiya panelindəki boş sahəyə sağ vurun və Yapıştır seçin.
4. Formanın adını dəyişdirin. Onu “_Datasheet” ilə əlavə edin.

Misal:

• Forma: Üzvlər
• Formanın surəti: Members_Datasheet

3. Datasheet Formasını açın və onun forma görünüşü xassələrini yeniləyin.

1. Datasheet formasını açın.
2. Dizayn görünüşündə formanı seçin.
3. Mülkiyyət vərəqi > Forma nişanına keçin.
4. Aşağıdakı xüsusiyyətləri yeniləyin:
   • Defolt Görünüş: Texniki pasport
   • Datasheet Görünüşünə icazə verin: bəli
   • Forma Baxışına icazə verin: Yox
5. Formanı bağlayın və yadda saxlayın.

4. Əsas Formanı yenidən açın və Datasheet Formasını alt forma kimi əlavə edin.

1. Dizayn görünüşündə əsas formanı (kopyalanan) açın.
2. Alt forma əlavə edin.
   • Dizayn menyusuna keçin. Alt forma/Alt hesabat seçin.
   • Formanın Detal sahəsinə klikləyin.
   • Alt Forma Sihirbazı görünəcək.

1. "Mövcud formanı istifadə et" üzərinə klikləyin.

2. Datasheet formasını seçin.

3. Next düyməsini klikləyin.

4. "Özümü təyin et" seçin.

5. Bitir düyməsini basın.

3. Məlumat cədvəli forması indi əsas formanızın alt formasıdır. İstədiyiniz ölçü və mövqeyə uyğunlaşdırın.

5. Nəhayət, kodu əlavə edin.

1. VBA redaktorunu açın (ALT + F11).
2. Əsas formanı seçin və aşağıdakı kodu yapışdırın.

'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. Kodu kopyaladıqdan sonra sözün bütün nümunələrini dəyişdirin Üzvlər_Məlumat vərəqi məlumat cədvəli formanızın həqiqi adı ilə.
4. Bitirdikdən sonra Layihə menyusundan Datasheet Formanızı seçin və aşağıdakı kodu kopyalayın.

'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. Aşağıdakı dəyişənlər üçün dəyərləri yeniləyin:

• pk_tbox – əsas açarı ehtiva edən mətn qutusuna istinad edir.
• pk_field – qeyd mənbəyinin əsas açar sahəsinə istinad edir.

Onların hər birinin şərh bölməsində ulduz (*) işarəsi var ki, onları asanlıqla tapa biləsiniz.

6. Bitirdikdən sonra dəyişiklikləri qeyd edin (CTRL + S) və VBA Redaktorunu bağlayın.

İndi naviqasiya formasına öz split formanızı əlavə edə bilərsiniz. Sınayın!

Zədələnmiş Giriş verilənlər bazasını (.accdb) düzəldin

Access verilənlər bazasının korlanmasının bir çox səbəbi ola bilər. Təəssüf ki, onların əksəriyyəti üzərində nəzarətimiz yoxdur. Əgər bu sizin başınıza gələrsə, unutmayın ki, onu bərpa etməyin hələ də bir yolu var. DataNumen Inc həyata keçirən bir proqram yaratdı accdb təmiri. Onu yoxlamaq.

Müəllif Giriş:

Jayme Stack məlumatların bərpası üzrə mütəxəssisdir DataNumendaxil olmaqla məlumatların bərpası texnologiyaları üzrə dünya lideri olan , Inc sql bərpa və excel bərpa proqram məhsulları. Ətraflı məlumat üçün ziyarət edin www.datanumen.com