hamid-nice
پنج شنبه 17 اسفند 1391, 03:23 صبح
با سلام
یک کدی هست که برای low security کردن فایل های access بکار میره و کدش را در یک دگمه قرار می دهیم و با زدن این دگمه فایل مشخص شده به low security تغییر می کند
ممکنه یکی لطف کنه یک فایل exe با ویژوال بیسیک یا ویژوال c یا Delphi یا هر برنامه دیگر exe سازی ، برای این کار بسازه
که کار کدهای اکسس زیر را انجام بده
واقعا همه بچه های اکسس ممنون می شیم
Dim strSourcefile As String
'strSourcefile = "Full path of file"
strSourcefile = CurrentProject.Path & "\01.mdb"
' or ( for other address file like sample.mdb in Drive C ) is : strSourcefile = "c:\sample.mdb"
'Const cDatabaseToOpen = "strSourcefile"
On Error Resume Next
Dim AcApp
Set AcApp = CreateObject("Access.Application")
If AcApp.Version >= 10 Then
AcApp.AutomationSecurity = 1 ' msoAutomationSecurityLow
End If
AcApp.Visible = True
AcApp.OpenCurrentDatabase strSourcefile
If AcApp.CurrentProject.FullName <> "" Then
AcApp.UserControl = True
Else
AcApp.Quit
MsgBox "Failed to open '" & strSourcefile & "'."
End If
با تشکر فراوان
یک کدی هست که برای low security کردن فایل های access بکار میره و کدش را در یک دگمه قرار می دهیم و با زدن این دگمه فایل مشخص شده به low security تغییر می کند
ممکنه یکی لطف کنه یک فایل exe با ویژوال بیسیک یا ویژوال c یا Delphi یا هر برنامه دیگر exe سازی ، برای این کار بسازه
که کار کدهای اکسس زیر را انجام بده
واقعا همه بچه های اکسس ممنون می شیم
Dim strSourcefile As String
'strSourcefile = "Full path of file"
strSourcefile = CurrentProject.Path & "\01.mdb"
' or ( for other address file like sample.mdb in Drive C ) is : strSourcefile = "c:\sample.mdb"
'Const cDatabaseToOpen = "strSourcefile"
On Error Resume Next
Dim AcApp
Set AcApp = CreateObject("Access.Application")
If AcApp.Version >= 10 Then
AcApp.AutomationSecurity = 1 ' msoAutomationSecurityLow
End If
AcApp.Visible = True
AcApp.OpenCurrentDatabase strSourcefile
If AcApp.CurrentProject.FullName <> "" Then
AcApp.UserControl = True
Else
AcApp.Quit
MsgBox "Failed to open '" & strSourcefile & "'."
End If
با تشکر فراوان