ပြင်ပဖိုင်အမည်ပြောင်းသည့်အခါ ချိတ်ဆက်ထားသောဇယားကို အမြန်မွမ်းမံနည်း

ချိတ်ဆက်ထားသောဇယားများသည် အံ့မခန်းအသုံးဝင်နိုင်သည် (အချိန်တိုင်းမဟုတ်သော်လည်း) – အထူးသဖြင့် ပုံမှန်ပြောင်းလဲနေသော ပြင်ပအချက်အလက်များကို သင်ဆက်ဆံနေချိန်တွင်ဖြစ်သည်။ သာမာန်ဥပမာတစ်ခုသည် ပေးသွင်းသူတစ်ဦးက သင့်အား ၎င်းတို့၏လက်ရှိလစဉ်စျေးနှုန်းဖိုင်ကို ဝင်ရောက်ခွင့်ပေးသည့်အခါ ဖြစ်နိုင်သည်။ သို့သော် ၎င်းတို့သည် နောက်လတွင် ဖိုင်ကိုထုတ်ပေးသောအခါ ဘာဖြစ်သွားသနည်း၊ ဖိုင်အမည်သည် “Pricelist-01-01-2016” မှ “Pricelist-01-02-2016” သို့ ပြောင်းသွားပါသည်။ ပထမဆုံးဖြစ်လာမယ့်အရာက သင့်လင့်ခ်ပျက်သွားမှာဖြစ်လို့ သင်ကိုယ်တိုင် အပ်ဒိတ်လုပ်ရပါလိမ့်မယ်။ ဖိုင်အမည်ပြောင်းတိုင်း အဲဒါက ဇယားနာမည်တွေအတွက်ပါ (ဟုတ်ပါတယ်!)။ မင်းမေးတာကို မြန်မြန်ဆန်ဆန်လုပ်ဖို့ နည်းလမ်းရှိသလား။ မင်းမေးတာကို ဝမ်းသာပါတယ် - ဆက်ဖတ်ပြီး ဘယ်လိုရှာရမလဲ...

မြင်ကွင်းကို သတ်မှတ်ခြင်း - မြင်ကွင်း

ဤဆောင်းပါးတွင်၊ ကျွန်ုပ်သည် စိတ်ကူးယဉ်ဇာတ်လမ်းတစ်ပုဒ်ကို အသုံးပြုပါလိမ့်မည်၊ သို့သော် တစ်ချက်မှာ သင် လျင်မြန်စွာ မှတ်မိလိမ့်မည်မှာ သေချာပါသည်။

လစဉ်လတိုင်း၊ Acme ကုန်သွယ်မှုတွင် အသုံးပြုသည့် စားသုံးကုန်များ အားလုံးအတွက် မွမ်းမံထားသော ဈေးနှုန်းစာရင်းကို ကျွန်ုပ်တို့ထံ ပေးပို့ပါသည်။ DataNumen. လစဉ် စာရေးကိရိယာအတွက် မည်မျှသုံးစွဲမည်ကို ကျွန်ုပ်တို့ သိရှိနိုင်ရန်၊ ကျွန်ုပ်တို့၏ ရုံးစီမံခန့်ခွဲမှုဒေတာဘေ့စ်တွင် ထိုဖိုင်ကို ချိတ်ဆက်ထားပါသည်။

ပြဿနာက ဖိုင်ရဲ့ format က အတူတူပဲဖြစ်နေပေမယ့် ဖိုင်နာမည်က လစဉ်ပြောင်းနေပါတယ်။ ပြီးခဲ့တဲ့လက "stationary costs Jan 2017.xls" ဖြစ်ပြီး ဒီလမှာတော့ "stationary costs Feb 2017.xls" ဖြစ်ပါတယ်။

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

ဒါကို မလုပ်ချင်တဲ့အတွက်၊ အဲဒါကို အစားလုပ်ဖို့အတွက် အောက်ပါကုဒ်ကို ဖန်တီးခဲ့တယ် - သင်မြင်ရမှာ သေချာတဲ့အတွက် ပိုလွယ်ပါတယ်။

Public Sub UpdateLink (tableName As String, newFileName As String)
    Dim objDB As Database
    Dim objTableDef As TableDef
    Dim newConnect as String
    
    Set objDB = CurrentDb
    Set objTableDef = objDB.TableDefs(tableName)

    'format of the connection string in our case, for example, is:
    ' Excel 5.0;HDR=YES;IMEX=2;DATABASE=File name including path and extension type
    newConnect = "Excel 5.0;HDR=YES;IMEX=2;DATABASE=" & newFileName
    objTableDef.Connect = newConnect
    objTableDef.RefreshLink

    Set objTableDef = Nothing
    Set objDB = Nothing
End Sub

ကုဒ်အကြောင်းရှင်းပြသည်။

မြင်တွေ့ရသည့်အတိုင်း၊ ကျွန်ုပ်တို့သည် (ချိတ်ဆက်ထားသော) ဇယားအမည်ကို ဇယားကို ချိတ်ဆက်သင့်သည့် ဖိုင်အသစ်၏အမည်နှင့်အတူ ပေးပို့ပါသည်။ ဖိုင်အမည်တွင် ဖိုင်သို့သွားသော လမ်းကြောင်းအပြည့်အစုံ ပါဝင်သင့်သည်။ အစပိုင်းတွင် သင်အခက်အခဲရှိနိုင်သည့် အချက်တစ်ခုမှာ “newConnect” variable ထဲသို့ ထည့်သွင်းရန် connection string အတွက် မှန်ကန်သော format ကို ရယူခြင်းပင်ဖြစ်သည်။ မှန်ကန်သော format ကို ရှာဖွေရန် အရင်းအမြစ်များစွာရှိသော်လည်း၊ ကျွန်ုပ်တွေ့ရှိခဲ့သည့် အလွယ်ကူဆုံးနည်းလမ်းတစ်ခုမှာ လက်ရှိချိတ်ဆက်ထားသော ဇယား၏ connection string ကို ရိုးရိုးရှင်းရှင်းကြည့်ရှုခြင်းဖြစ်သည်။ ထိုသို့ပြုလုပ်ရန် “Set objTableDef = objDB.TableDefs(tableName)” လိုင်းအောက်တွင် အောက်ပါလိုင်းကို တည့်တည့်ထည့်ပါ။

Debug.Print (objTableDef.Connect)

၎င်းသည် ကုဒ်တည်းဖြတ်သူ၏ အမှားရှာ/ချက်ခြင်းဝင်းဒိုးတွင် ရှိပြီးသားချိတ်ဆက်မှုစာကြောင်းကို ပရင့်ထုတ်မည် (၎င်းသည် မမြင်ရသေးပါက၊ ကုဒ်ကိုမလည်ပတ်မီ ချက်ခြင်းဝင်းဒိုး၏ မြင်နိုင်စွမ်းကို ပြောင်းရန် VBA ကုဒ်တည်းဖြတ်သူမျက်နှာပြင်အတွင်းမှ CTRL-G ကိုနှိပ်ပါ။

သတိပေးချက်

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

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

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