Differences

This shows you the differences between two versions of the page.

--- software:microsoft:access [2015/05/05 16:49] – [SaveAsText() in Access to export all code] superwizard
+++ software:microsoft:access [2021/10/11 00:32] (current) – [Can t find project or library] superwizard
@@ Line 1: / Line 1: @@
+====== PtrSafe Access adjustment for 64 bit ======
+-02-26
+Compile error 64-bit
+Change this
+    Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
+    Private Declare Function GetExitCodeProcess Lib "kernel32" (ByVal hProcess As Long, lpExitCode As Long) As Long
+to this and it will compile on both 32-bit and 64-bit
+<code>
+#If Win64 Then
+    Private Declare PtrSafe Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
+    Private Declare PtrSafe Function GetExitCodeProcess Lib "kernel32" (ByVal hProcess As Long, lpExitCode As Long) As Long
+#Else
+    Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
+    Private Declare Function GetExitCodeProcess Lib "kernel32" (ByVal hProcess As Long, lpExitCode As Long) As Long
+#End If
+</code>
+From <https://stackoverflow.com/questions/6255750/how-do-i-convert-this-program-to-work-on-a-64-bit-machine>
+-02-20
+Compile error
+Private Declare Function WaitForSingleObject Lib "kernel32" (ByVal _
+    hHandle As Long, ByVal dwMilliseconds As Long) As Long
+====== Can t find project or library ======
+<WRAP center round box >
+        dtFMSProcessingDate = Date
+        MsgBox VBA.Date
+From <https://stackoverflow.com/questions/31575414/access-vba-date-function-not-working>
+Also
+-10-09
+TRIM() not found? Compile error: Can't find project or library in Excel 2007
+From <https://social.msdn.microsoft.com/Forums/office/en-US/608c32c1-3d47-47f4-a6ff-893b4695db20/trim-not-found-compile-error-cant-find-project-or-library-in-excel-2007?forum=exceldev>
+Answer: **On the VBA window go to Tools->References and uncheck the MISSING references.**
+    ClosedXML - Create Excel files in .Net
+	• Proposed as answer byTim Johnson at AptosFriday, June 6, 2014 5:13 PM
+	• Unproposed as answer byTim Johnson at AptosFriday, June 6, 2014 5:13 PM
+    Thursday, January 20, 2011 4:54 AM
+From <https://social.msdn.microsoft.com/Forums/office/en-US/608c32c1-3d47-47f4-a6ff-893b4695db20/trim-not-found-compile-error-cant-find-project-or-library-in-excel-2007?forum=exceldev>
+</WRAP>
+====== How to display Access query results without having to create temporary query? ======
+From: http://stackoverflow.com/questions/17328092/how-to-display-access-query-results-without-having-to-create-temporary-query
+<code>
+Const cstrQueryName As String = "TemporaryQuery"
+Dim db As DAO.Database
+Dim qdf As DAO.QueryDef
+Dim sqlStr As String
+'*Logic to create SQL query... variable to hold query is called sqlStr*
+' Apparently you have that piece worked out.  I'll use a simple query ...
+sqlStr = "SELECT * FROM Dual;"
+Set db = CurrentDb
+If Not QueryExists(cstrQueryName) Then
+    Set qdf = db.CreateQueryDef(cstrQueryName)
+Else
+    Set qdf = db.QueryDefs(cstrQueryName)
+End If
+qdf.sql = sqlStr
+Set qdf = Nothing
+Set db = Nothing
+DoCmd.OpenQuery cstrQueryName
+If you still want to later discard the saved query, do this ...
+If QueryExists(cstrQueryName) Then
+    DoCmd.DeleteObject acQuery, cstrQueryName
+End If
+This is the helper function for the above code ...
+Public Function QueryExists(ByVal pName As String) As Boolean
+    Dim db As DAO.Database
+    Dim qdf As DAO.QueryDef
+    Dim blnReturn As Boolean
+    Dim strMsg As String
+On Error GoTo ErrorHandler
+    blnReturn = False ' make it explicit
+    Set db = CurrentDb
+    Set qdf = db.QueryDefs(pName)
+    blnReturn = True
+ExitHere:
+    Set qdf = Nothing
+    Set db = Nothing
+    QueryExists = blnReturn
+    Exit Function
+ErrorHandler:
+    Select Case Err.Number
+    Case 3265 ' Item not found in this collection.
+    Case Else
+        strMsg = "Error " & Err.Number & " (" & Err.Description _
+            & ") in procedure QueryExists"
+        MsgBox strMsg
+    End Select
+    GoTo ExitHere
+End Function
+</code>
 ====== SaveAsText() in Access to export all code ======
@@ Line 197: / Line 332: @@
 From: http://community.spiceworks.com/how_to/show/5517-how-to-solve-missing-mscal-ocx-reference-in-microsoft-access-2010
-    However note, that the solution specified is a work-around for the above problem. Microsoft has stated that the Calendar control feature is deprecated in Access 2010 and has suggested a number of options for replacing it. See the link referenced at the bottom of this page for more details
+From: https://social.msdn.microsoft.com/Forums/office/en-US/fd1d449e-d39c-4c0b-99ea-ed561d8906ce/mscalocx-microsoft-calendar-control-conversion-to-mscomct2ocx?forum=exceldev
+    However note, that the solution specified is a work-around for the above problem. Microsoft has stated
+    that the Calendar control feature is deprecated in Access 2010 and has suggested a number of options
+    for replacing it. See the link referenced at the bottom of this page for more details
     Centerport
+    I. Click on the Windows Start menu and select 'Run'
+    II. In the Run command window enter:
+       regsvr32 %SystemRoot%\syswow64\mscal.ocx
+    III. Select OK to execute the command
 ====== Forms: Date Picker without ActiveX ======