သင်၏ဝင်ရောက်ခွင့်ရှိ မှတ်တမ်းများကို အမြန်ပွားနည်း

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

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

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

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

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

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

Access တွင် 'မှတ်တမ်းကူးယူဖန်တီးခြင်း' လုပ်ဆောင်ချက်ကို ထည့်ရန် အဆင့်များ

1. ဒီဇိုင်းမြင်ကွင်းတွင် သင့်ပုံစံကိုဖွင့်ပါ။
2. အမိန့်ပေးခလုတ်တစ်ခုထည့်ပါ။ အမိန့်ပေးခလုတ် wizard ကိုကျော်ပါ။
3. ထည့်ပါ ကိုနှိပ်ပါ event ကိုနှိပ်လိုက်ပါ။

• ဒီဇိုင်းမြင်ကွင်းတွင် ခလုတ်ကို ရွေးပါ။
• Property Sheet ကိုဖွင့်ပါ (ALT + Enter)
• Event tab > On Click >…
• အခါ Builder ကို ရွေးပါ။ Menu ပေါ်လာပြီး Code Builder ကိုရွေးချယ်ပါ။
• OK ကိုကလစ်နှိပ်ပါ။
• ၎င်းသည် VBA Editor ကိုဖွင့်လိမ့်မည်။

4. 1. အောက်ပါကုဒ်ကို ကူးယူပြီး သင့်လိုအပ်ချက်များနှင့် ကိုက်ညီစေရန် ပြင်ဆင်ပါ။ မှတ်ချက်များကို လမ်းညွှန်အဖြစ် အသုံးပြုပါ။

   Private Sub Command24_Click()
       Dim currentID As Long
    
       'TO DO: change all instances of 'BookID' with the actual name of your table's ID or primary key
    
       If IsNull(BookID) Then
           MsgBox prompt:="Please select the record to copy first.", buttons:=vbExclamation
           Exit Sub
       End If
    
       currentID = BookID
       DoCmd.GoToRecord record:=acNewRec
    
       'TO DO: set the fields to be copied (those that most likely will have the same values)
       'FORMAT: fieldName = Dlookup("fieldname", "tableName", "primaryKeyField=" & currentID)
    
        Author = DLookup("Author", "Books", "BookID=" & currentID)
        Country = DLookup("Country", "Books", "BookID=" & currentID)
        Language = DLookup("Language", "Books", "BookID=" & currentID)
        Genre = DLookup("Genre", "Books", "BookID=" & currentID)
        Publisher = DLookup("Publisher", "Books", "BookID=" & currentID)
    
        Title.SetFocus ‘TO DO: change 'Title' with name of field that is going to be edited by the user
    
   End Sub

5. အခု ကုဒ်အလုပ်လုပ်ရင် စမ်းကြည့်ပါ။

ကုဒ်ဖြင့် ရှင်းပြထားသည်။

အထက်ဖော်ပြပါ ကုဒ်ကို စာအုပ်ဆိုင်၏ ဒေတာဘေ့စ်အတွက် အသုံးပြုခဲ့သည်။ စာအုပ်စီးရီးများကြောင့်၊ စာအုပ်အသေးစိတ်များ (ဥပမာ- စာရေးသူ၊ နိုင်ငံ၊ ဘာသာစကား၊ စသည်) သည် အကွက်တစ်ခု - ခေါင်းစဉ်မှလွဲ၍ တူညီသည့် သာဓကများရှိပါသည်။ ဒါကြောင့် ကုဒ်တွေအတွက် လိုအပ်တယ်။

အောက်တွင်ဖော်ပြထားသောစာရင်းသည် program flow ကိုပြသသည်။

1. အသုံးပြုသူသည် ကူးယူရန် မှတ်တမ်းတစ်ခုကို ရွေးချယ်ထားခြင်း ရှိမရှိ စစ်ဆေးပါ။ Add New Record ခလုတ်ကို နှိပ်ပြီးနောက် အသုံးပြုသူသည် ခလုတ်ကို နှိပ်ပါက အမှားအယွင်း မက်ဆေ့ချ် ပေါ်လာပါမည်။

If IsNull(BookID) Then
     MsgBox prompt:="Please select the record to copy first.", buttons:=vbExclamation
     Exit Sub
End If

2. လက်ရှိမှတ်တမ်း၏ ID သို့မဟုတ် အဓိကသော့ကို ရယူပြီး ၎င်းကို တန်ဖိုးအဖြစ် သတ်မှတ်ပါ။ လက်ရှိID ၎င်းကို ကူးယူမည့် တန်ဖိုးများအတွက် အခြေခံအဖြစ် အသုံးပြုပါမည်။

currentID = BookID

3. မှတ်တမ်းအသစ်တစ်ခုထည့်ပါ။

DoCmd.GoToRecord record:=acNewRec

4. အချို့သော အကွက်များအတွက် တန်ဖိုးများကို သတ်မှတ်ပါ။ လက်ရှိID ဤနေရာတွင် ရွေးချယ်ထားသော မှတ်တမ်းမှ အချက်အလက်များကို ကူးယူပါသည်။

'FORMAT: fieldName = Dlookup("fieldname", "tableName", "primaryKeyField=" & currentID)

Author = DLookup("Author", "Books", "BookID=" & currentID)
Country = DLookup("Country", "Books", "BookID=" & currentID)
Language = DLookup("Language", "Books", "BookID=" & currentID)
Genre = DLookup("Genre", "Books", "BookID=" & currentID)
Publisher = DLookup("Publisher", "Books", "BookID=" & currentID)

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

 Title.SetFocus      ‘TO DO: change 'Title' with name of field that is going to be edited by the user

ပျက်စီးနေသောဒေတာဘေ့စ်ကိုပြုပြင်ပါ။

ကံမကောင်းအကြောင်းကြောင့် တစ်နေ့တွင် သင့်ဒေတာဘေ့စ်ကိုဖွင့်၍မရပါက နိုးထလာပါက စွမ်းဆောင်နိုင်သော Third-party tools များကို စမ်းကြည့်နိုင်သည် ဝင်ရောက်ပြုပြင်ခြင်း။. ဒါဟာအံ့ဘွယ်သောအမှုဖြစ်ပါတယ်။

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

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