Microsoft Access SendKeys | Common Problem with Solution | Using SendKeys

Microsoft Access SendKeys

While working with a Microsoft Access database in certain operating systems, you may receive an error message similiar to the following:

• Error 70: Permission Denied.

• Solution: There are a number of solutions to this problem, however, some require changes to your operating system that you may not want to make. This solution provides an override SendKeys function:

  Private Declare Function GetVersionEx Lib "kernel32.dll" Alias "GetVersionExA" (lpVersionInformation As OSVERSIONINFO) As Long Private Declare Function GetModuleFileName Lib "kernel32" Alias "GetModuleFileNameA" (ByVal hModule As Long, ByVal lpFilename As String, ByVal nSize As Long) As Long 'get os version Private Type OSVERSIONINFO dwOSVersionInfoSize As Long dwMajorVersion As Long dwMinorVersion As Long dwBuildNumber As Long dwPlatformId As Long szCSDVersion As String * 128 End Type Function OsVersion() As Single Dim os As OSVERSIONINFO Dim retval As Long os.dwOSVersionInfoSize = Len(os) retval = GetVersionEx(os) ' read Windows's version information OsVersion = Val(os.dwMajorVersion & "." & os.dwMinorVersion) End Function Public Function Sendkeys(sSend$, Optional bWait As Boolean = False) Static bInit As Boolean, bVistaOrGreater As Boolean, wShell As Object If Not bInit Then bVistaOrGreater = (OsVersion() >= 6) If bVistaOrGreater Then Set wShell = CreateObject("WScript.Shell") bInit = True End If If Not bVistaOrGreater Then VBA.Sendkeys sSend$, bWait Else wShell.Sendkeys sSend$, bWait End If End Function

Main Menu

Send Keys Form - Modern View (Access 2010/2013)

Previous Next

Live Demonstration: To experience a more interactive and personalized demonstration of this WSI template, we invite you to contact WSI and schedule a live demonstration with one of our team members. This opportunity allows you to engage directly with us, either as an alternative to or in conjunction with downloading and exploring the demo version of the template at your leisure. Please note that downloading Microsoft Office files, including Microsoft Access database files, might trigger a security warning on your computer. To avoid this and get a comprehensive overview, you have the option of viewing the template through a virtual meeting on Teams or Zoom with a WSI representative.
Once you purchase the database template, you will receive the full version of the database in a standard Access Database file. The purchased database will have full access to the database window, all design objects, the visual basic project code, and you will be able to modify or add to the design in any way you wish (this does not apply to the run-time/compiled versions). If you lack the time to integrate this database into your system, please Contact Us and we will be glad to help with your integration process. If you like the basics of what you see in the database, but need enhancements to make the system functional for your business, please Contact Us and we will develop a quote for you to implement the additional features and enhancements that you require.

$9.99 - this allows you to use this database template however you wish within your organization.

Once your purchase is complete - you will receive an email with a link to download the full version of the database.

If you need any help implementing any of these code samples or modifications made for your needs, please visit free quote for your Microsoft Access Development needs. 

To learn more about the WSI quoting process.

To view some other common Microsoft Access Run-Time Errors.