VBA ကို အသုံးပြု၍ Access တွင် သင့်ကိုယ်ပိုင် Split Form ဖန်တီးနည်း

Access ရှိ ခွဲခြမ်းပုံစံများသည် အလွန်အသုံးဝင်သည်။ ကံမကောင်းစွာပဲ၊ ၎င်းတို့ကို လမ်းညွှန်မှုပုံစံတစ်ခုတွင် သင်ထားလိုက်သောအခါ ၎င်းတို့သည် အလုပ်မလုပ်ပါ။ Access ၏ခွဲထွက်ပုံစံလုပ်ဆောင်ချက်များကို အတုယူပြီး VBA လုပ်ဆောင်ချက်ကို သင်မည်ကဲ့သို့ဖန်တီးနိုင်သည်ကို လေ့လာပြီး ၎င်းကို လမ်းညွှန်မှုပုံစံတစ်ခုအတွင်း၌ပင် လုပ်ဆောင်နိုင်စေမည်ကို လေ့လာပါ။

Split form သည် သင့်အား တစ်ချိန်တည်းတွင် သင့်မှတ်တမ်းများကို ကြည့်ရှုမှုနှစ်ခုရှိနိုင်သည် - ပုံစံမြင်ကွင်းနှင့် ဒေတာစာရွက်မြင်ကွင်း။ ၎င်းသည် သင့်အား တစ်ချိန်တည်းတွင် သင့်မှတ်တမ်းများအားလုံးကို ခြုံငုံသုံးသပ်နိုင်စေကာ ၎င်းတို့ကို တစ်ခုပြီးတစ်ခု တည်းဖြတ်ရန် ရွေးချယ်ခွင့်တစ်ခုပေးသည်။

ကံမကောင်းစွာပဲ၊ ၎င်းတို့ကို လမ်းညွှန်မှုဖောင်တစ်ခုအတွင်း ထည့်လိုက်သောအခါတွင် ခွဲခြမ်းပုံစံများသည် အလုပ်မလုပ်တော့ပါ။ ကောင်းတဲ့အချက်က ဒီအတွက် ဖြေရှင်းချက်တစ်ခုရှိတယ်။ VBA ကို အသုံးပြု၍ Access ၏ ခွဲထွက်ပုံစံကို အတုယူမည့် သင့်ကိုယ်ပိုင်လုပ်ဆောင်ချက်ကို ဖန်တီးနိုင်သည်။ အောက်ဖော်ပြပါအဆင့်များကိုသာ လိုက်နာပါ။

အခုတော့ကို Download လုပ်

ဒီလုပ်ဆောင်ချက်ကို အမြန်ဆုံးအသုံးပြုချင်တယ်ဆိုရင် အောက်ပါတို့ကို လုပ်ဆောင်နိုင်ပါတယ်-

VBA ကုဒ်များဖြင့် နမူနာဒေတာဘေ့စ်ကို ယခုဒေါင်းလုဒ်လုပ်ပါ။

မဟုတ်ရင် DIY လုပ်ချင်တယ်ဆိုရင်တော့ အောက်က အကြောင်းအရာတွေကို ဖတ်ရှုနိုင်ပါတယ်။

VBA ကို အသုံးပြု၍ Access တွင် သင့်ကိုယ်ပိုင် ခွဲခြမ်းပုံစံကို ဖန်တီးရန် အဆင့်များ

1. သင်၏ခွဲခြမ်းပုံစံကိုဖွင့်ပြီး မူရင်းမြင်ကွင်းကို Single Form သို့ အပ်ဒိတ်လုပ်ပါ။

1. သင်၏ခွဲခြမ်းပုံစံကိုဖွင့်ပါ။
2. ဒီဇိုင်းမြင်ကွင်းတွင်ရှိနေစဉ် ဖောင်ကိုရွေးချယ်ပါ။
3. Property Sheet (ALT + Enter) > Form tab သို့သွားပါ။
4. မူရင်းအမြင်ကို- Single Form သို့ ပြောင်းပါ။
5. ဖောင်ကိုပိတ်ပြီး သိမ်းပါ။

2. ဖောင်၏ မိတ္တူကို ဖန်တီးပါ။ ၎င်းသည် ဒေတာစာရွက်မြင်ကွင်းအဖြစ် လုပ်ဆောင်မည်ဖြစ်သည်။

1. လမ်းကြောင်းပြကွက်သို့ သွားပါ။
2. သင့်ဖောင်ပေါ်တွင် Right Click နှိပ်ပြီး Copy ကိုရွေးချယ်ပါ။
3. လမ်းညွှန်မှုအကန့်ရှိ ကွက်လပ်တစ်ခုပေါ်တွင် ညာဘက်ကလစ်နှိပ်ပြီး Paste ကိုရွေးချယ်ပါ။
4. ဖောင်အမည်ကို ပြောင်းပါ။ ၎င်းကို “_Datasheet” ဖြင့် ဖြည့်စွက်ပါ။

ဥပမာ:

• ပုံစံ- အဖွဲ့ဝင်များ
• ဖောင်၏မိတ္တူ- Members_Datasheet

3. ဒေတာစာရွက်ဖောင်ကိုဖွင့်ပြီး ၎င်း၏ပုံစံမြင်ကွင်းဂုဏ်သတ္တိများကို အပ်ဒိတ်လုပ်ပါ။

1. ဒေတာစာရွက်ပုံစံကိုဖွင့်ပါ။
2. ဒီဇိုင်းမြင်ကွင်းတွင်ရှိနေစဉ် ဖောင်ကိုရွေးချယ်ပါ။
3. Property Sheet > Form tab သို့သွားပါ။
4. အောက်ပါဂုဏ်သတ္တိများကို အပ်ဒိတ်လုပ်ပါ။
   • မူရင်းမြင်ကွင်း- အချက်အလက်စာရွက်
   • ဒေတာစာရွက်ကြည့်ရှုခွင့်ပြုပါ- Yes
   • Form View ကို ခွင့်ပြုပါ- အဘယ်သူမျှမ
5. ဖောင်ကိုပိတ်ပြီး သိမ်းပါ။

4. ပင်မဖောင်ကို ပြန်ဖွင့်ပြီး ဒေတာစာရွက်ဖောင်ကို ပုံစံခွဲအဖြစ် ထည့်ပါ။

1. ဒီဇိုင်းမြင်ကွင်းတွင် ပင်မပုံစံ (ကူးယူထားသော) ကိုဖွင့်ပါ။
2. ပုံစံခွဲတစ်ခုကို ထည့်ပါ။
   • ဒီဇိုင်းမီနူးသို့သွားပါ။ Subform/Subreport ကို ရွေးပါ။
   • Form ၏ Detail area ကို နှိပ်ပါ။
   • SubForm Wizard ပေါ်လာပါမည်။

1. 'ရှိပြီးသား ဖောင်ကို အသုံးပြုပါ' ကို နှိပ်ပါ။

2. သင့်ဒေတာစာရွက်ပုံစံကို ရွေးပါ။

3. Next ကိုနှိပ်ပါ။

4. 'ကျွန်ုပ်၏ကိုယ်ပိုင်ကို သတ်မှတ်ပါ' ကို ရွေးပါ။

5. Finish ကိုနှိပ်ပါ။

3. ဒေတာစာရွက်ဖောင်သည် ယခုအခါ သင့်ပင်မဖောင်ပုံစံ၏ အခွဲတစ်ခုဖြစ်သည်။ ၎င်းကို သင်အလိုရှိသော အရွယ်အစားနှင့် အနေအထားသို့ ချိန်ညှိပါ။

5. နောက်ဆုံးတွင် ကုဒ်ကိုထည့်ပါ။

1. VBA Editor (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 menu မှ သင်၏ 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_field – မှတ်တမ်းအရင်းအမြစ်၏ အဓိကသော့အကွက်ကို ရည်ညွှန်းသည်။

၎င်းတို့တစ်ခုစီတွင် မှတ်ချက်ကဏ္ဍတွင် ခရေပွင့် (*) တစ်ခုစီပါရှိသောကြောင့် ၎င်းတို့ကို အလွယ်တကူရှာဖွေနိုင်သည်။

6. ပြီးသောအခါ၊ အပြောင်းအလဲများ (CTRL + S) ကိုသိမ်းဆည်းပြီး VBA Editor ကိုပိတ်ပါ။

ယခု၊ သင်သည် သင်၏ကိုယ်ပိုင်ခွဲထွက်ပုံစံကို လမ်းညွှန်မှုပုံစံတွင် ထည့်နိုင်သည်။ စမ်းသုံးကြည့်လိုက်ပါ။

ပျက်စီးနေသော Access Database (.accdb) ကို ပြင်ဆင်ပါ

Access database ပျက်စီးသွားရတဲ့ အကြောင်းရင်းတွေ အများကြီးရှိနိုင်ပါတယ်။ ဝမ်းနည်းစရာကောင်းတာက ကျွန်တော်တို့မှာ အများစုကို ထိန်းချုပ်နိုင်စွမ်း မရှိပါဘူး။ တကယ်လို့ ဒီလိုဖြစ်ခဲ့ရင် ပြန်ကောင်းလာဖို့ နည်းလမ်းရှိနေဆဲဆိုတာ မမေ့ပါနဲ့။ DataNumen Inc. သည် စွမ်းဆောင်နိုင်သော ဆော့ဖ်ဝဲတစ်ခုကို ဖန်တီးထားသည်။ accdb ပြုပြင်ခြင်း။။ စုံစမ်းသည်။

စာရေးသူနိဒါန်း:

Jayme Stack သည် ဒေတာပြန်လည်ရယူရေးဆိုင်ရာ ကျွမ်းကျင်သူဖြစ်သည်။ DataNumen, Inc. အပါအဝင် ဒေတာပြန်လည်ရယူရေးနည်းပညာများတွင် ကမ္ဘာ့ခေါင်းဆောင်ဖြစ်သည်။ sql ပြန်လည်နာလန်ထူ နှင့် excel recovery software ထုတ်ကုန်များ။ ပိုမိုသိရှိလိုပါကသွားရောက်ကြည့်ရှု www ။datanumen.com