اتصال بانک با برنامه

[azadich]

سلام خدمت اساتید محترم، در نمونه برنامه برای لینک شدن به بانک مسیر را می پرسه می خوام جوری اصلاح بشه که اگه برنامه و بانک در یک پوشه باشند خودش مسیر را پیدا کنه و مسیر موقعی سوال بشه که بانک در پوشه برنامه نباشه.ممنون

[Abbas Amiri]

سلام خدمت اساتید محترم، در نمونه برنامه برای لینک شدن به بانک مسیر را می پرسه می خوام جوری اصلاح بشه که اگه برنامه و بانک در یک پوشه باشند خودش مسیر را پیدا کنه و مسیر موقعی سوال بشه که بانک در پوشه برنامه نباشه.ممنون
سلام
شما احتیاج به ذخیره مسیر فایل Backend درجدول ندارید . چون هرزمان مسیری به آن نسبت بدهید ، در خصوصیت Connect جداول ذخیره میشود .
بنظر بنده باید مسیر فایل Backend را از خصوصیت یکی ازجداول بخوانید و چک کنید آیا درآن مسیر فایل Backend وجودارد ؟ درغیر اینصورت مسیرجدید پرسیده شود.

[azadich]

سلام
شما احتیاج به ذخیره مسیر فایل Backend درجدول ندارید . چون هرزمان مسیری به آن نسبت بدهید ، در خصوصیت Connect جداول ذخیره میشود .
بنظر بنده باید مسیر فایل Backend را از خصوصیت یکی ازجداول بخوانید و چک کنید آیا درآن مسیر فایل Backend وجودارد ؟ درغیر اینصورت مسیرجدید پرسیده شود.
خیلی ببخشید میشه رو نمونه اصلاح فرمایید بی نهایت ممنون میشم

[Abbas Amiri]

سلام
فایل اصلاح شد . درصورتی که فایل Backend درهمان مکان قبلی نباشد ، کادرمحاوره ای جهت انتخاب مسیر فایل Backend باز میشود .

[azadich]

سلام
فایل اصلاح شد . درصورتی که فایل Backend درهمان مکان قبلی نباشد ، کادرمحاوره ای جهت انتخاب مسیر فایل Backend باز میشود .
با تشکر، ببخشید مثل اینکه منظورم را درست نرساندم، می خوام اگه هر دو فایل داخل یک پوشه باشند در هر درایوی مسیر توسط خود برنامه تشخیص داده بشه.فقط موقعی که هر دوفایل داخل یک پوشه نباشند مسیر بپرسه.ممنون

[Abbas Amiri]

با تشکر، ببخشید مثل اینکه منظورم را درست نرساندم، می خوام اگه هر دو فایل داخل یک پوشه باشند در هر درایوی مسیر توسط خود برنامه تشخیص داده بشه.فقط موقعی که هر دوفایل داخل یک پوشه نباشند مسیر بپرسه.ممنون
سلام
روال زیر رو جایگزین کنید:


Private Sub Form_Open(Cancel As Integer)
Dim BackendPath As String, Answer As VbMsgBoxResult
BackendPath = strBackendPath(FullPath)
'If Dir(BackendPath) <> "" Then Exit Sub
If StrComp(GetFileFromPath(BackendPath, PathOnly), GetFileFromPath(CurrentDb.Name, PathOnly), vbTextCompare) = 0 Then Exit Sub
Do While Dir(BackendPath) = ""
BackendPath = BrowseFolder("لطفا مسیرفایل اطلاعات را مشخص کنید") & "\TEST_BE.accdb"
If BackendPath = "" Then
Answer = MsgBox("مسیر صحیح فایل اطلاعات را مشخص کنید" & vbCrLf & _
"دوباره سعی کنید", vbOKCancel + vbMsgBoxRtlReading + vbCritical, "")
If Answer = vbCancel Then
DoCmd.Quit acQuitSaveNone
End If
End If
Loop
Call Attach_BackEnd(BackendPath)
End Sub

[azadich]

سلام
روال زیر رو جایگزین کنید:


Private Sub Form_Open(Cancel As Integer)
Dim BackendPath As String, Answer As VbMsgBoxResult
BackendPath = strBackendPath(FullPath)
'If Dir(BackendPath) <> "" Then Exit Sub
If StrComp(GetFileFromPath(BackendPath, PathOnly), GetFileFromPath(CurrentDb.Name, PathOnly), vbTextCompare) = 0 Then Exit Sub
Do While Dir(BackendPath) = ""
BackendPath = BrowseFolder("لطفا مسیرفایل اطلاعات را مشخص کنید") & "\TEST_BE.accdb"
If BackendPath = "" Then
Answer = MsgBox("مسیر صحیح فایل اطلاعات را مشخص کنید" & vbCrLf & _
"دوباره سعی کنید", vbOKCancel + vbMsgBoxRtlReading + vbCritical, "")
If Answer = vbCancel Then
DoCmd.Quit acQuitSaveNone
End If
End If
Loop
Call Attach_BackEnd(BackendPath)
End Sub


اولا از شما سپاسگزارم که به سوالات جواب می دید،باز هم ببخشید منظورم اینه که اگه هر دو فایل داخل یه پوشه باشند پیغام نده و به هم وصل بشند

[azadich]

اولا از شما سپاسگزارم که به سوالات جواب می دید،باز هم ببخشید منظورم اینه که اگه هر دو فایل داخل یه پوشه باشند پیغام نده و به هم وصل بشند
سلام استادان گرامی،یعنی به این صورت که اگه هر دو فایل داخل یه پوشه باشند پیغام نده و به هم وصل بشند امکان نداره؟!

[Abbas Amiri]

سلام استادان گرامی،یعنی به این صورت که اگه هر دو فایل داخل یه پوشه باشند پیغام نده و به هم وصل بشند امکان نداره؟!
سلام
کد زیر جایگزین کنید:


Private Sub Form_Open(Cancel As Integer)
Dim BackendPath As String, Answer As VbMsgBoxResult
BackendPath = CurrentProject.Path & "\TEST_BE.accdb"
If Dir(BackendPath) = "" Then
Do While Dir(BackendPath) = ""
BackendPath = BrowseFolder("áØÝÇ ãÓíÑ ÝÇíá ÇØáÇÚÇÊ ÑÇ ãÔÎÕ ˜äíÏ") & "\TEST_BE.accdb"
If BackendPath = "" Then
Answer = MsgBox("ãÓíÑ ÝÇíá ÇØáÇÚÇÊ ÈÇíÏ ãÔÎÕ ÔæÏ" & vbCrLf & _
"ÏæÈÇÑå ÓÚí ˜äíÏ", vbOKCancel + vbMsgBoxRtlReading + vbCritical, "")
If Answer = vbCancel Then
DoCmd.Quit acQuitSaveNone
End If
End If
Loop
End If
Call Attach_BackEnd(BackendPath)
End Sub