"..not passed Windows Logo testing.."

[johndoomed]

Hi all!

I've made a CRM system in Access 2000, in short: A program file (Stored localy) with linked tables on a shared server.

It is used by 6 people, and works fine.

But, two of the users gets the Win XP message "This software has not passed Windows Logo testing...".

Only two users...

Any idea on how to get rid of that annoying message?

 

[johndoomed]

No ideas?

Not even Gemma or RuralGuy?

 

[gemma-the-husky]

Thanks for the confidence, but I'm really not sure.

I haven't got Access2K, but in later editions the Macro Security level causes some warnings to be given before opening databases. Is there a tools, security/ macros or tools,macro, security level you can set to low?

 

[johndoomed]

All have Access2K installed.

I can't find any security options at all. I use 99.9% VBA. Just one autoexec macro opening a menu-form.

Perhaps we shold try reinstalling Access?

 

[gemma-the-husky]

I've just look at Access XP - the security bits weren't in there, came in with A2003.

could it be something to do with the domain logins of the users - out of my depth here though.

 

[johndoomed]

It's very strange. I have a "identifier" script, but it is very basic:

-
    User = Environ("USERNAME")
    Person = Me.[Person ID]
    
    If User = "jel" Then
        Me.[Person ID] = "1"
        Me.Admin.Visible = True
        GoTo Slutt
    ElseIf User = "nho" Then
        Me.[Person ID] = "5"
        Me.Admin.Visible = True
        GoTo Reguser
    ElseIf User = "kro" Then
        Me.[Person ID] = "2"
        Me.Admin.Visible = False

Etc...

Admin is just a button enabling the toolbars..

The strange thing is that the message pops up several times. About the number of subforms (4) on the mainmenu form... These subforms just displays the relevant (Latest) records in different tables. Tasks, Costumers, Invoices etc.

I'll think we'll go for the reinstall as a start.

 

[pbaldy]

Is there any pattern to the OS on machines that work vs those that don't? IOW, Windows XP Home/Pro SP1/SP2, etc?

 

[johndoomed]

All XP Pro with SP2.

As I pasted the code in the last post, I saw a possible cause.

Private Sub Form_Load()
    User = Environ("USERNAME")
    Person = Me.[Person ID]
    
    If User = "jel" Then
        Me.[Person ID] = "1"
        Me.Admin.Visible = True
        GoTo Slutt
    ElseIf User = "nho" Then
        Me.[Person ID] = "5"
        Me.Admin.Visible = True
        GoTo Reguser
    ElseIf User = "kro" Then
        Me.[Person ID] = "2"
        Me.Admin.Visible = False
    ElseIf User = "tbe" Then
        Me.[Person ID] = "7"
        Me.Admin.Visible = False
        GoTo Reguser
    ElseIf User = "hkr" Then
        Me.[Person ID] = "11"
        Me.Admin.Visible = False
        GoTo Reguser
    Else
        MsgBox ("User not not found.")
        Me.Admin.Visible = False
        GoTo Reguser
    End If
    
Reguser:
    Dim i As Integer
    For i = 1 To CommandBars.Count
    CommandBars(i).Enabled = False
    Next i
Slutt:
    
End Sub

All users getting errormessages has the function Reguser. I cant think of anything else!

 

[gemma-the-husky]

try temporarily commenting out the reguser commands, to see if it is the commandbars that are causing the problem.

A couple of other observations, but I don't know.
In A97 help you need to set a tools,reference to use command bars. Also is it a problem hiding EVERY commandbar. Maybe you have to have one visible.