[AccessD] Access 2010 SP1 issue

David,

  Use the GetAccessVersion() code here:

http://allenbrowne.com/ser-53code.html

 To determine the build number of the MSACCESS.EXE.  These will be different
for the 2010 vs 2010 SP1.  The standard 2010 build is 14.0.4750.1000.  I
don't know what the SP1 version is because I have not installed it yet.

 Note that both MSKB fixes and SP's will increase the build number so your
best bet is not to check for a specific level.

Jim.

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of David McAfee
Sent: Thursday, July 21, 2011 03:18 PM
To: Access Developers discussion and problem solving
Subject: [AccessD] Access 2010 SP1 issue

I have an ADP with a form that gets bound at run-time.
This has worked flawlessly for several years until this morning.

The user is complaining that the form opens up with all of the fields
displaying #NAME?

I haven't touched this form, or even the ADP in the longest time so I new it
wasn't anything I've done. :)

It works as it is supposed to on my computer and all the other employees in
his department.

We had him go to another user's computer and  log in as himself. It worked.

So I figured it was tied to his machine. I then realized his is on Win7,
using Acess2010SP1.

I found out SP1 was just released internally this week. A-HA!

I ended up getting it working by doing this quick fix as shown below:
I added the "If (SysCmd(acSysCmdAccessVer) = 14) Then" statement.

Private Sub Form_Open(Cancel As Integer)
   On Error GoTo Form_Open_Error
Me.RecordSource = ""
If Nz(Me.OpenArgs, "") <> "" Then ' Is Not Null Then
    If IsNumeric(Me.OpenArgs) Then
        Me.InputParameters = "@IncStatJunctID = " & CInt(Me.OpenArgs)
        If (SysCmd(acSysCmdAccessVer) = 14) Then
            Me.RecordSource = "EXEC dbo.stpItemDetHist " &
Me.InputParameters
        Else
            Me.RecordSourceQualifier = "dbo"
            Me.RecordSource = "stpItemDetHist"
        End If

        'Do a bunch of stuff here

    Else
        Cancel = True
    End If
Else
    Cancel = True
End If


This works, but technically isn't correct. I need to check for A2010 SP1,
not just A2010 (Ver14)

Does anyone know how I can check for SP1?
Exit Sub
-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com