خطای باز کردن فایل

[whoishe]

سلام دوستان، می دونید علت اتینکه موقع باز کردن فایل این ارور رو میده و گزینه open رو نداره چیه؟ اکسس 2016 هست و توی شبکه قرار دادم

[amirzazadeh]

سلام
از گزینه FILE در منو اصلی ACCESS OPTION را انتخاب کنید. حالا TRUST CENTER و از داخل اون MACRO SETTING رو انتخاب کرده و ENABLE ALL MACRO رو تیک بزنید.
اگر با این کار مشکل برطرف نشد محل اشتراک فایل رو TRUSTED LOCATION اضافه کنید.

154012

[whoishe]

سپاس از راهنماییتون. این کارو انجام دادم اجازه نمیده لوکیشن رو اضافه کنم
154013

[amirzazadeh]

سلام
پیشنهاد می کنم فرم ها و گزارش ها از جداول جدا کنید و فقط قسمت جداول یا همون Back End رو به اشتراک بذارید. البته قبل از انجام حتما یک نسخه پیشیبان بردارید.

[whoishe]

ممنون از راهنمایی شما. به همین شکل هست دیتا روی SQL هست و فرمها و گزارشها روی شبکه.از برنامه shortcut برای کلاینتها گذاشته شده که این ارور رو میده ولی اگر برنامه رو کپی کنم روی دسکتاپ کلاینت مشکل برطرف میشه با این مشکل که هنگام آپدیت باید برنامه رو برای همه مجددا کپی کنم

[amirzazadeh]

ممنون از راهنمایی شما. به همین شکل هست دیتا روی SQL هست و فرمها و گزارشها روی شبکه.از برنامه shortcut برای کلاینتها گذاشته شده که این ارور رو میده ولی اگر برنامه رو کپی کنم روی دسکتاپ کلاینت مشکل برطرف میشه با این مشکل که هنگام آپدیت باید برنامه رو برای همه مجددا کپی کنم
سلام و عرض ادب
برای رفع مشکل آپدیت، فایل آپدیت رو داخل شبکه به اشتراک بگذارید و در فرم ورود به برنامه کلاینت ها (که روی دسکتاپ هست) با چند خط کد ورژن برنامه دسکتاپ رو با آپدیت مقایسه کنید اگر یکی بود برنامه باز میشه در غیر اینصورت به کاربر پیام میده که برنامه نیاز به آپدیت داره و با یک دستور FileCopy نسخه قدیمی با نسخه جدید جایگزین میشه.
...............................
موفق باشید

[whoishe]

سپاس از شما
متاسفانه کد نویسی رو که فرمودید بلد نیستم اگر امکانش هست کد رو بزارید ممنون میشم

[amirzazadeh]

سپاس از شما
متاسفانه کد نویسی رو که فرمودید بلد نیستم اگر امکانش هست کد رو بزارید ممنون میشم

سلام

از این نمونه کد استفاده کنید:


Private Sub Form_Load()
CurName = CurrentProject.Name
UpdatePath = "\\amirzazadeh\bazdid\update\"
Update = Dir("\\amirzazadeh\bazdid\update\*.mdb")
If Not Update = vbNullString Then


If CurName <> Update Then
If MsgBox("New Update Available" & vbNewLine & "Do you Want to Update?", vbOKCancel, "Update" _
) = vbOK Then
k = CurrentProject.Path & "\" & Update
FileCopy UpdatePath & Update, CurrentProject.Path & "\" & Update
MsgBox "Update Completed" & vbNewLine & "Runing Again ...", vbInformation, "Update"
ReturnValue = ShellExecute(hWndAccessApp, "Open", k, 0&, 0&, SW_SHOWMAXIMIZED)

DoCmd.Quit

End If
End If

End If
End Sub

[amirzazadeh]

سلام

از این نمونه کد استفاده کنید:


Private Sub Form_Load()
CurName = CurrentProject.Name
UpdatePath = "\\amirzazadeh\bazdid\update\"
Update = Dir("\\amirzazadeh\bazdid\update\*.mdb")
If Not Update = vbNullString Then


If CurName <> Update Then
If MsgBox("New Update Available" & vbNewLine & "Do you Want to Update?", vbOKCancel, "Update" _
) = vbOK Then

FileCopy UpdatePath & Update, CurrentProject.Path & "\" & Update
MsgBox "Update Completed" & vbNewLine & "Runing Again ...", vbInformation, "Update"
ReturnValue = ShellExecute(hWndAccessApp, "Open", k, 0&, 0&, SW_SHOWMAXIMIZED)

DoCmd.Quit

End If
End If

End If
End Sub


سلام
فقط به این موارد توجه داشته باشید میسر آپدیت باید به مسیر فایل اشتراکی شما تغییر داده بشه و اگر فایل شما به جای mdb اکستنشن دیگر مثل mde یا adp یا ade داره تغییرات لازم رو اعمال کنید.

[amirzazadeh]

سلام
اگر با دستور ShellExecute به مشکل برخوردید کد رو به این شکل اصلاح کنید:


Private Sub Form_Load()
CurName = CurrentProject.Name
UpdatePath = "\\amirzazadeh\bazdid\update\"
Update = Dir("\\amirzazadeh\bazdid\update\*.mdb")
If Not Update = vbNullString Then


If CurName <> Update Then
If MsgBox("New Update Available" & vbNewLine & "Do you Want to Update?", vbOKCancel, "Update" _
) = vbOK Then
k = CurrentProject.Path & "\" & Update
FileCopy UpdatePath & Update, CurrentProject.Path & "\" & Update
MsgBox "Update Completed" & vbNewLine & "Runing Again ...", vbInformation, "Update"


Dim accapp As Access.Application

Set accapp = New Access.Application

accapp.OpenCurrentDatabase (k)
accapp.RunCommand acCmdAppMaximize
DoCmd.Quit

End If
End If

End If
End Sub

[whoishe]

از لطف شما بینهایت سپاسگزارم