D Dev Oct 7, 2003 #1 Is there a way to programatically determine whether or not the SP 7 for Jet 4.0 has been installed?
J Joan Wild Oct 7, 2003 #2 See http://www.granite.ab.ca/access/verifyjetsp.htm You'll need to modify it to check msjet40.dll.
D david epsom dot com dot au Oct 8, 2003 #3 'David Graham. (david) Right to attribution retained. 'Watch for word wrap Option Compare Database Option Explicit Const mcModuleName = "mdlRP_DLLCheck" '2003/02/26 dlg Private Declare Function GetFileVersionInfo& Lib "Version" Alias "GetFileVersionInfoA" (ByVal FileName$, ByVal lptr&, ByVal lSize&, lpvData As Any) Public Sub gsbDLLCheck() msgbox gfn_GetVersion("msjet40.dll") & " SR7 is '4.0.7328.0'" End Sub Public Function gfn_GetVersion(FileName$) '2003/02/26 dlg --minimalist version -- Right to attribution retained Dim iBuf(0 To 99) As Integer Call GetFileVersionInfo(FileName$, 0&, 200, iBuf(0)) gfn_GetVersion = iBuf(25) & "." & iBuf(24) & "." & iBuf(27) & "." & iBuf(26) 'FILE VERSION End Function
'David Graham. (david) Right to attribution retained. 'Watch for word wrap Option Compare Database Option Explicit Const mcModuleName = "mdlRP_DLLCheck" '2003/02/26 dlg Private Declare Function GetFileVersionInfo& Lib "Version" Alias "GetFileVersionInfoA" (ByVal FileName$, ByVal lptr&, ByVal lSize&, lpvData As Any) Public Sub gsbDLLCheck() msgbox gfn_GetVersion("msjet40.dll") & " SR7 is '4.0.7328.0'" End Sub Public Function gfn_GetVersion(FileName$) '2003/02/26 dlg --minimalist version -- Right to attribution retained Dim iBuf(0 To 99) As Integer Call GetFileVersionInfo(FileName$, 0&, 200, iBuf(0)) gfn_GetVersion = iBuf(25) & "." & iBuf(24) & "." & iBuf(27) & "." & iBuf(26) 'FILE VERSION End Function
