Run time error 70 permission denid

[bhd2013]

با سلام وخسته نباشید

هنگام کپی کردن فایل از یک مسیر به مسیر دیگه در خط دستور fle.copy (destin) خطای Run time error 70 permission denid را میده.


چطوری به برنامه ای که در اکسس نوشته شده permission بدیم؟


با سپاس

[bhd2013]

دوستان کسی تا بحال با این مورد برخورد نکرده؟؟

[AbbasSediqi]

دوستان کسی تا بحال با این مورد برخورد نکرده؟؟


با سلام ارور مربوط به مجوز سطح دسترسی به رجیستری است

از طریق run as admin برطرف میشه

https://msdn.microsoft.com/en-us/library/aa264534(v=vs.60).aspx

[bhd2013]

با سلام ارور مربوط به مجوز سطح دسترسی به رجیستری است

از طریق run as admin برطرف میشه
https://msdn.microsoft.com/en-us/library/aa264534(v=vs.60).aspx

این کار را کردم حل نشد. بازم هم خطا داد .البته من خود اکسس را run as admin کردم چون فایل accdb این گزینه را نداره

میشه تو رجستری حلش کرد ؟

[bhd2013]

عزیران لطفا کمک کنید .

[bhd2013]

?????????????????????????????????????????????????? ?????????????????????????????????????????????????? ?????????????????????????????????????????????????? ?????????????????????????????????????????????????? ?????????????????????????????????????????????????? ????????????????????????//

[mazoolagh]

توضیح کافی ندادین از چه روشی استفاده میکنین : متد filesystemobject.copyfile یا تابع shell ؟

فایلی هست که خودتون create کردین یا نه؟

مسیر و اسم مستقیم دادین یا با کد سرهم میکنین؟

کد ها رو اینجا بگذارین شاید روش سر هم کردن اشکال داشته باشه.

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

[bhd2013]

انتخاب تصویر

Dim f As File
Dim copy As New FileSystemObject
Dim StrPic, varFileName, destin As String

Private Sub Cmd_SelectPic_Click()

Dim strFilter As String

destin = Application.CurrentProject.Path & "\logo"
strFilter = "Picture(*.Jpg)|*.bmp | *.png)"

varFileName = tsGetFileFromUser( _
fOpenFile:=True, _
strFilter:=strFilter, _
rlngflags:=0, _
strInitialDir:="C:\Windows\", _
strDialogTitle:="ÊÕæíÑ ÂÑã ÔÑ˜Ê ÑÇ ÇäÊÎÇÈ ˜äíÏ")

If IsNull(varFileName) Or varFileName = "" Then
MsgBox Space(20) & " ÇäÊÎÇÈ ÊÕæíÑ áÛæ ÔÏ ", vbCritical, "ÇÎØÇÑ"
Img_logo.Picture = Empty
Exit Sub
Else

Img_logo.Picture = varFileName
End If

End Sub



کپی فایل (تصویر) انتخاب شده در مسیر destin و دخیره ادرس فایل در جدول


Private Sub Cmd_save_Click()
If Img_logo.Picture <> "" Then
Set f = copy.GetFile(varFileName)
'f.copy (destin)
copy.CopyFile varFileName, destin, True
StrPic = destin & "\" & copy.GetFileName(varFileName)
End If
.
.
.



f.copy (destin)
copy.CopyFile varFileName, destin, True
در هر حالت فوق خطای Run time error 70 permission denid میده
اکسس 2013 run as admin هست
در لحضه وقع خطا مقادیر varFileName, destin چک کردم مشکلی نداره

[mazoolagh]

کد درست هست ولی وقتی آدرس فولدر میدین آخرش یک \ لازم داره!

destin = Application.CurrentProject.Path & "\logo\"​


در مورد جایگزینی apiهای 32 بیت به امکانات ذاتی اکسس هم فکر کنید، مثل application.filedialog

[bhd2013]

ممنون حل شد دستتان درد نکنه



در مورد جایگزینی apiهای 32 بیت به امکانات ذاتی اکسس هم فکر کنید، مثل application.filedialog


چه جالب ، نمی دونستم
ممنون