نياز به كمك فوري زمينه اكسس
با سلام خدمت همه دوستانؤ در زمينه طراحي با اكسس من با دو تا مشكل مواجه شدم و به كمك شما احتياج دارم خواهشمندم
هر كس مي تونه كمك كنه دريغ نكنه:
1-چطوري مي تونم اين امكان رو بانك اطلاعاتيم بدم كه مانند نرام افزارهاي موجود در بازار ( مانند نرم افزار هاي حسابداري) از اطلاعاتم Backup تهيه كنم و به طور واضح تر اينكه چطوري مي تونم با دستكاري تو اكسس يا نوشتن يك كد ويژوال Tableهام رو توي يك فايل ذخيره كنم و در موقع نياز اون رو Restore كنم .
2- من مي خواهم از طريق يك فرم ثابت دو Table رو داده همانند بدم چطوري مي تونم اين كار رو بكنم از همه شما متشكرم
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
;)
تهیه نسخه پشتیبان از دیتابیس هنگام خروج
در مورد سوال اولتون از کد زیر استفاه کنین:
کد:
'You can Copy an open database with this function
'****************************************************
'You should add reference ->>>>>Microsoft Scripting Runtime<<<<<-
'for CopyFile method to work
'****************************************************
Public Function BackupCopy()
Dim fso As FileSystemObject
Dim sSourcePath As String
Dim sSourceFile As String
Dim sBackupPath As String
Dim sBackupFile As String
sSourcePath = "C:\Database\"
sSourceFile = "MyDB.mdb"
sBackupPath = "C:\Database\Backups\"
sBackupFile = "BackupDB_" & Format(Date, "mmddyyyy") & "_" & Format(Time, "hhmmss") & ".mdb"
Set fso = New FileSystemObject
fso.CopyFile sSourcePath & sSourceFile, sBackupPath & sBackupFile, True
Set fso = Nothing
Beep
MsgBox "Backup was successful and saved @ " & Chr(13) & Chr(13) & sBackupPath & Chr(13) & Chr(13) & "The backup file name is " & Chr(13) & Chr(13) & sBackupFile, vbInformation, "Backup Completed"
End Function
[/CODE]
