VBA ашиглан Access дээр өөрийн хуваасан маягтыг хэрхэн үүсгэх вэ

Access дахь хуваасан хэлбэрүүд нь маш их хэрэгтэй байдаг. Харамсалтай нь, тэдгээрийг навигацийн хэлбэрт оруулахад тэдгээр нь ажиллахгүй байна. Access-ийн хуваагдсан хэлбэрийн функцийг дууриаж, навигацийн хэлбэрийн дотор ч ажиллуулах VBA функцийг хэрхэн бүтээж болох талаар олж мэдэх.

Хуваах хэлбэр нь бичлэгийнхээ хоёр үзэмжийг нэгэн зэрэг харах боломжийг олгодог - хэлбэр харах ба мэдээллийн хуудас харах. Энэ нь танд бүх бичлэгүүдийн тоймыг гаргаж, тэдгээрийг нэг нэгээр нь үзэх, засах боломжийг танд олгоно.

Харамсалтай нь хуваах маягтууд нь навигацийн хэлбэрт оруулахад үр дүнгүй болно. Үүнийг шийдэх шийдэл байгаа нь сайн хэрэг. VBA-г ашиглан та Access-ийн хуваагдсан хэлбэрийг дууриах функцийг өөрөө үүсгэж болно. Доорх алхмуудыг дагана уу.

Одоо Татах

Хэрэв та энэ функцийг аль болох хурдан ашиглаж эхлэхийг хүсвэл дараах зүйлсийг хийж болно:

VBA кодтой мэдээллийн сангийн дээжийг одоо татаж аваарай

Үгүй бол, хэрэв та DIY хийхийг хүсвэл доорхи агуулгыг уншиж болно.

VBA ашиглан Access дээр өөрийн хуваасан маягтыг үүсгэх алхамууд

1. Хуваагдсан маягтаа нээгээд Default View-ийг дан хэлбэр болгон шинэчлээрэй.

1. Хуваах хэлбэрээ нээнэ үү.
2. Загварын харагдац дээр байхдаа маягтыг сонгоно уу.
3. Үл хөдлөх хөрөнгийн хуудас (ALT + Enter)> Form таб руу очно уу.
4. Анхдагч хэлбэрийг өөрчлөх: Нэг хэлбэр.
5. Маягтыг хааж хадгална уу.

2. Маягтын хуулбарыг бий болгох. Энэ нь мэдээллийн хуудсыг үзэх үүрэг гүйцэтгэнэ.

1. Чиглүүлэгч хэсэг рүү очно уу.
2. Хэлбэр дээрээ хулганы баруун товчийг дарж, Хуулбарыг сонгоно уу.
3. Навигацийн самбар дээрх хоосон талбар дээр хулганы баруун товчийг дараад Paste командыг сонгоно уу.
4. Маягтын нэрийг солино уу. Үүнийг "_Datasheet" -тэй хавсаргана уу.

Жишээ нь:

• Маягт: Гишүүд
• Маягтын хуулбар: Гишүүдийн_хугацааны хуудас

3. Мэдээллийн хүснэгтийн маягтыг нээгээд маягтыг харах шинж чанаруудыг шинэчил.

1. Datasheet маягтыг нээнэ үү.
2. Загварын харагдац дээр байхдаа маягтыг сонгоно уу.
3. Үл хөдлөх хөрөнгийн хуудас> Маягт таб руу очно уу.
4. Дараах шинж чанаруудыг шинэчлэх:
   • Анхдагч харах: Datasheet
   • Мэдээллийн хуудас харахыг зөвшөөрөх: Тийм
   • Маягт харахыг зөвшөөрөх: Үгүй
5. Маягтыг хааж хадгална уу.

4. Үндсэн маягтыг дахин нээж, мэдээллийн хуудасны маягтыг дэд хэлбэрт оруулна уу.

1. Загварын үүднээс үндсэн хэлбэрийг (хуулж авсан) нээнэ үү.
2. Дэд хэлбэр нэмэх.
   • Дизайн цэс рүү очно уу. Subform / Subreport-г сонгоно уу.
   • Маягтын дэлгэрэнгүй хэсэг дээр дарна уу.
   • SubForm шидтэн гарч ирнэ.

1. 'Одоо байгаа маягтыг ашиглах' дээр дарна уу.

2. Өөрийн мэдээллийн хуудсыг сонгоно уу.

3. Дараа нь дарна уу.

4. 'Өөрийгөө тодорхойлох' гэснийг сонгоно уу.

5. Finish дээр дарна уу.

3. Мэдээллийн хуудасны хэлбэр нь одоо таны үндсэн маягтын дэд хэлбэр болж байна. Үүнийг хүссэн хэмжээ, байрлалдаа тохируулна уу.

5. Эцэст нь кодыг нэмнэ үү.

1. VBA редакторыг (ALT + F11) нээнэ үү.
2. Үндсэн хэлбэрийг сонгоод дараах кодыг оруулна уу.

'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. Кодыг хуулж авсны дараа үгийн бүх жишээг солино Гишүүдийн_хуудасны хуудас таны мэдээллийн хуудасны маягтын жинхэнэ нэртэй хамт.
4. Дууссаны дараа Project цэснээс Datasheet Form-аа сонгоод доорх кодыг хуулж авна уу.

'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. Дараах хувьсагчдын утгыг шинэчил.

• pk_tbox - анхдагч түлхүүр агуулсан текст хайрцгийг хэлнэ.
• pk_талбар - бичлэгийн эх үүсвэрийн үндсэн түлхүүр талбарыг хэлнэ.

Тэд тус бүрдээ тайлбар хэсэгт (*) одтой тул та тэдгээрийг амархан олох боломжтой.

6. Дууссаны дараа өөрчлөлтүүдийг (CTRL + S) хадгалаад VBA Editor-ийг хаа.

Одоо, та өөрийн хуваах маягтыг навигацийн хэлбэрт нэмж оруулах боломжтой. Үүнийг үзээрэй!

Гэмтсэн хандалтын мэдээллийн санг засах (.accdb)

Access өгөгдлийн сан яагаад эвдэрдэг олон шалтгаан байж болно. Харамсалтай нь бид тэдгээрийн ихэнхийг нь хянаж чадахгүй. Хэрэв танд ийм зүйл тохиолдвол үүнийг сэргээх арга зам байсаар байгааг санаарай. DataNumen Inc нь гүйцэтгэдэг програм хангамжийг бүтээсэн accdb засвар. Үүнийг шалга.

Зохиогчийн танилцуулга:

Jayme Stack бол мэдээлэл сэргээх мэргэжилтэн юм DataNumen, Үүнд мэдээлэл сэргээх технологиор дэлхийд тэргүүлэгч, Inc. sql сэргээх болон excel сэргээх програм хангамжийн бүтээгдэхүүнүүд. Дэлгэрэнгүй мэдээллийг авна уу WWW.datanumen.com