با سلام و احترام خدمت کلیه اساتید محترم
من می خواهم در یک فرم دکمه ای قرار دهم که با کلیک آن یک کپی از فایل اکسس که در ان کار می کنم در مسیر برنامه اصلی ایجاد شود . لطفا در صورت امکان راهنمائی بفرمائید . ممنون
با سلام و احترام خدمت کلیه اساتید محترم
من می خواهم در یک فرم دکمه ای قرار دهم که با کلیک آن یک کپی از فایل اکسس که در ان کار می کنم در مسیر برنامه اصلی ایجاد شود . لطفا در صورت امکان راهنمائی بفرمائید . ممنون
با سلام و احترام
ممنون از جنابعالی در خصوص پاسخ به سوال من
فقط لطفا اگر امکان دارد کد VBA که برای کپی کردن فایل لازم است را اعلام فرمائید. ممنون
از اين كد استفاده كنيد:
Dim sDest As String
Dim sSource As String
sSource = "\\MYSERVER\KOOLSID\MYFILE.MDB"
sDest = "C:\BACKUP\MYFILE.MDB"
FileCopy sSource, sDest
با سلام و احترام
ممنون از چنابعالی که پاسخ سوال من را ارائه نموده اید. ولی مشکلی که با کد فوق هست اینه که چون من می خواهم از داخل همان فایل یک کپی از فایل بگیرم با کد بالا به من اجازه نمی دهد و پیعام خطا نمایش می دهد. لطفا راهنمائی بفرمایید . ممنون
با سلام و احترام
اساتید محترم لطفاً راهنمایی فرمایید . ممنون
با سلام و احترام
ممنون از توجه جنابعالی
به پیوست فایلهای مورد نظر به حضورتان ارسال می گردد . دوست گرامی در فایل test زمانی که دکمه روی فرم زده می شود از روی فایل test1 کپی گرفته می شود . ولی من می خواهم از همان فایل test در مسیر مسخص شده کپی گرفته شود . ممنون
با سلام
اساتید محترم لطفا راهنمائی فرمائید . ممنون
به نمونه کدهای زیر دقت کنید:
Private Sub btnBrower_Click()
Dim fd As FileDialog
Set fd = Application.FileDialog(msoFileDialogFolderPicker)
fd.AllowMultiSelect = False
fd.Title = "انتخاب مسیر پرونده پشتیبان"
fd.ButtonName = "انتخاب پوشه"
If fd.Show = -1 Then
Me.txtAddress = fd.SelectedItems(1)
Me.txtInfo.Caption = "پوشه ذخیره سازی به درستی انتخاب شد"
Else
Me.txtInfo.Caption = "در انتخاب پوشه مشکلی رخ داده است، مجددا اقدام کنید."
End If
End Sub
Private Sub btnCopy_Click()
If IsNull(Me.txtAddress) Or Me.txtAddress = "" Then
Me.txtInfo.Caption = "مسیر پوشه ذخیره پرونده پشتیبان مشخص نشده است."
Else
Dim CDB As String
Dim NDB As String
NDB = Left(CurrentProject.Name, InStrRev(CurrentProject.Name, ".") - 1)
CDB = CurrentProject.FullName
MsgBox Me.txtAddress & "" & NDB & " " & Shamsi & Replace(Time, ":", "") & "." & Right(CurrentProject.Name, InStrRev(CurrentProject.Name, "."))
FileCopy CDB, Me.txtAddress & "" & NDB & " " & Shamsi & Replace(Time, ":", "") & "." & Right(CurrentProject.Name, InStrRev(CurrentProject.Name, "."))
End If
End Sub
و اما خطایی که دریافت میشه به دلیل این هست که فایل مورد نظر که همین برنامه باشه، باز هست و در حاله اجرا و پردازشه