Mark Simms
marksimms at verizon.net
Tue May 28 22:13:35 CDT 2013
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