[AccessD] Determining 64-bit OS

Re: "Poorly  named I know, but it's been a long tradition that they
apparently did not want to break."

Just "HBB" - Horrible Beyond Belief.

Just more of the stupidity of that CEO at MSFT....and his band of
foreigners.

Sorry to "vent".



> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com [mailto:accessd-
> bounces at databaseadvisors.com] On Behalf Of Jim Dettman
> Sent: Monday, May 27, 2013 9:39 PM
> To: 'Access Developers discussion and problem solving'
> Subject: Re: [AccessD] Determining 64-bit OS
>
>
>  FYI: The win64 constant is not for the OS; it tells you if VBA is
> running
> 64 bit or 32 bit.
>
>   Poorly  named I know, but it's been a long tradition that they
> apparently
> did not want to break.
>
> Jim.
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Charlotte
> Foust
> Sent: Monday, May 27, 2013 04:13 PM
> To: Access Developers discussion and problem solving
> Subject: Re: [AccessD] Determining 64-bit OS
>
> I knew I was missing something simple!  Thanks.
>
> Charlotte
>
> On Mon, May 27, 2013 at 11:27 AM, Dan Waters <df.waters at comcast.net>
> wrote:
>
> > Forgot to include:
> >
> > '--------------------------------
> > Option Compare Database
> > Option Explicit
> >
> > Private Type OSVERSIONINFO
> >     dwOSVersionInfoSize As Long
> >     dwMajorVersion As Long
> >     dwMinorVersion As Long
> >     dwBuildNumber As Long
> >     dwPlatformId As Long
> >     szCSDVersion As String * 128
> > End Type
> >
> > Public Declare Function GetVersionExA Lib "kernel32"
> (lpVersionInformation
> > As OSVERSIONINFO) As Integer
> >
> > Public Function WindowsVersion() As String
> >
> >     Dim osinfo As OSVERSIONINFO
> >     Dim retvalue As Integer
> >
> >     osinfo.dwOSVersionInfoSize = 148
> >     osinfo.szCSDVersion = Space$(128)
> >     retvalue = GetVersionExA(osinfo)
> >
> >     WindowsVersion = osinfo.dwMajorVersion & "." &
> osinfo.dwMinorVersion &
> > "
> > Build (" & osinfo.dwBuildNumber & ") " &
> fTrimNull(osinfo.szCSDVersion)
> >
> > End Function
> >
> > Private Function fTrimNull(strIn As String) As String
> >
> >     Dim intPos As Integer
> >
> >     intPos = InStr(1, strIn, vbNullChar)
> >
> >     If intPos <> 0 Then
> >         fTrimNull = Mid$(strIn, 1, intPos - 1)
> >     Else
> >         fTrimNull = strIn
> >     End If
> >
> > End Function
> > '---------------------------------------------
> >
> > --
> > AccessD mailing list
> > AccessD at databaseadvisors.com
> > http://databaseadvisors.com/mailman/listinfo/accessd
> > Website: http://www.databaseadvisors.com
> >
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com