اجرای RunTime برنامه های اکسس

[سنبله کار]

کدی که برای غیر فعال کردن shift داده بودم برای اکسس پروجکت بود شما باید از این کد استفاده کنید .

Private Sub Form_Open(Cancel As Integer)



    ChangeProperty "AllowBypassKey", DB_Boolean, False

    

    If SysCmd(acSysCmdRuntime) = False Then

    Shell Chr(34) & "msaccess.exe" & Chr(34) & " " & Chr(34) & Application.CurrentProject.FullName & Chr(34) & " /runtime", vbMaximizedFocus

    DoCmd.Quit acQuitPrompt

    End If



End Sub





Function ChangeProperty(strPropName As String, varPropType As Variant, varPropValue As Variant) As Integer

    Dim dbs As Object, prp As Variant

    Const conPropNotFoundError = 3270



    Set dbs = CurrentDb

    On Error GoTo Change_Err

    dbs.Properties(strPropName) = varPropValue

    ChangeProperty = True



Change_Bye:

    Exit Function



Change_Err:

    If Err = conPropNotFoundError Then    ' Property not found.

        Set prp = dbs.CreateProperty(strPropName, _

            varPropType, varPropValue)

        dbs.Properties.Append prp

        Resume Next

    Else

        ' Unknown error.

        ChangeProperty = False

        Resume Change_Bye

    End If

End Function

برای آزمایش هم این نمونه را قرار می دهم .