[Access] Switchboard knop klikken doet niks

[Verwijderd]

Ik zit met het volgende probleem:

Ik heb een switchboard in Acces met daarop een aantal knoppen, de meeste van deze knoppen werken als ik erop klik op een aantal knoppen na. Nu is het me opgevallen dat alle knoppen die niet werken als command het cijfer 4 hebben, zie onderstaand overzicht, irrelvante tekst is vervangen door sterretjes.

SwitchboardID   ItemNumber	ItemText	Command	Argument
2	               0	***********	0	
2	               1	***********	3	***********	
2	               2	***********	7	***********	
2	               3	***********	7	***********	
2	               4	***********	7	***********	
2	               5	***********	4	***********	
2	               6	***********	4	***********	
2	               7	***********	4	***********	
2	               8	***********	1	1

Wanneer ik inlog met administrator rechten werken de knoppen wel.
Het programma draait vanaf een Terminal Server (Windows 2003), wanneer ik met bepaalde gebruiker met meerdere rechten inlog werken ook allen knoppen.
Het maakt trouwens niet uit achter welke computer er wordt gezeten.

Het moet dus bijna wel iets met de rechten van de gebruiker te maken hebben. Ik kan alleen niet vinden waar het probleem zit.

Ik moet eerlijk zeggen dat ik verder weinig verstand van Acces heb.

Wie kan me helpen?

[ Voor 7% gewijzigd door een moderator op 06-02-2007 23:37 ]

[RobIII]

Verwijderd schreef op dinsdag 06 februari 2007 @ 22:23:
Ik zit met het volgende probleem:
<snip>
Wie kan me helpen?

Krijg je een foutmelding waar wij iets mee kunnen? We hebben geen glazen bol en "minder rechten" en "meer rechten" is nou niet echt iets waar wij zo 1 2 3 uit kunnen afleiden waar het probleem in zou kunnen liggen. Heb je de "rechten" al eens langs elkaar gehouden om te kijken waar de verschillen in zitten en wat dan de oorzaak zou kunnen zijn? Heb je uberhaupt een vermoeden wat het zou kunnen zijn? Of wat is de overeenkomst tussen de knoppen die het allemaal niet doen? Openen die knoppen bestanden vanaf een netwerkshare bijvoorbeeld?

Overigens, Access hoort in OFF

PRG >> OFF

[ Voor 14% gewijzigd door RobIII op 06-02-2007 23:44 ]

[Verwijderd]

Lief dat je 't hier vraagt, maar waarom denk je dat programmeurs wel ervaring met Access hebben?

edit:
Toen stond 'ie nog in PRG...

[ Voor 20% gewijzigd door Verwijderd op 06-02-2007 23:52 ]

[Verwijderd]

Nee geen enkele foutmelding, dat is dus het probleem, kan er niet achterkomen waarom het niet werkt.

[RobIII]

Mja, met de informatie die je ons geeft acht ik de kans dat wij er wél uit komen niet erg groot; het enige wat we kunnen doen is ideeën spuien waar het aan ligt (en dat kan letterlijk 1001 oorzaken hebben).

Mijn advies: duik er zelf nog maar eens in en doe maar een beetje beter je best om uit te vinden waar het probleem zit of om op z'n minst met zinnige informatie te komen; ik heb weinig trek in raadspelletjes.

[Lustucru]

Verwijderd schreef op woensdag 07 februari 2007 @ 09:31:
Nee geen enkele foutmelding, dat is dus het probleem, kan er niet achterkomen waarom het niet werkt.

RobIII stelt een heleboel relevante vragen waar je best een concreet antwoord op kunt geven.

NMet de informatie je nu geeft is het enige correcte antwoord dat bepaalde gebruikers actie 4 niet uit mogen voeren en dat je dat oplost door actie 4 nadrukkelijk wel toe te staan. Maar zover was je zelf ook al

Wat aktie 4 is? geen idee, moet ik opzoeken en jij kunt het zo zien. Hoe je die rechten wel geeft? Geen idee zolang ik niet weet wat aktie 4 is

[Verwijderd]

Misschien een domme vraag maar waar kan ik zien wat reactie 4 zou moeten doen als actie?

Ben niet zo bekend met Acces.

[Force]

Wat moeten die knoppen die het niet doen, doen dan?
M.a.w.: Wat gebeurt er als je die knoppen indrukt met admin rechten? Want dan doen ze het wel zeg je.

[Verwijderd]

Dan wordt er een opdracht uitgevoerd waarmee na ingave van datum een grafiek of lijst wordt weergegeven.

[Verwijderd]

Misschien dat iemand iets met deze code kan zien:

Private Function HandleButtonClick(intBtn As Integer)
' This function is called when a button is clicked.
' intBtn indicates which button was clicked.

' Constants for the commands that can be executed.
Const conCmdGotoSwitchboard = 1
Const conCmdOpenFormAdd = 2
Const conCmdOpenFormBrowse = 3
Const conCmdOpenReport = 4
Const conCmdCustomizeSwitchboard = 5
Const conCmdExitApplication = 6
Const conCmdRunMacro = 7
Const conCmdRunCode = 8
Const conCmdOpenPage = 9

' An error that is special cased.
Const conErrDoCmdCancelled = 2501

Dim con As Object
Dim rs As Object
Dim stSql As String

On Error GoTo HandleButtonClick_Err

' Find the item in the Switchboard Items table
' that corresponds to the button that was clicked.
Set con = Application.CurrentProject.Connection
Set rs = CreateObject("ADODB.Recordset")
stSql = "SELECT * FROM [Switchboard Items] "
stSql = stSql & "WHERE [SwitchboardID]=" & Me![SwitchboardID] & " AND [ItemNumber]=" & intBtn
rs.Open stSql, con, 1 ' 1 = adOpenKeyset

' If no item matches, report the error and exit the function.
If (rs.EOF) Then
MsgBox "Er is een fout opgetreden bij het lezen van de tabel Onderdelen van schakelbord."
rs.Close
Set rs = Nothing
Set con = Nothing
Exit Function
End If

Select Case rs![Command]

' Go to another switchboard.
Case conCmdGotoSwitchboard
Me.Filter = "[ItemNumber] = 0 AND [SwitchboardID]=" & rs![Argument]

' Open a form in Add mode.
Case conCmdOpenFormAdd
DoCmd.OpenForm rs![Argument], , , , acAdd

' Open a form.
Case conCmdOpenFormBrowse
DoCmd.OpenForm rs![Argument]

' Open a report.
Case conCmdOpenReport
DoCmd.OpenReport rs![Argument], acPreview

' Customize the Switchboard.
Case conCmdCustomizeSwitchboard
' Handle the case where the Switchboard Manager
' is not installed (e.g. Minimal Install).
On Error Resume Next
Application.Run "ACWZMAIN.sbm_Entry"
If (Err <> 0) Then MsgBox "De opdracht is niet beschikbaar."
On Error GoTo 0
' Update the form.
Me.Filter = "[ItemNumber] = 0 AND [Argument] = 'Standaard' "
Me.Caption = Nz(Me![ItemText], "")
FillOptions

' Exit the application.
Case conCmdExitApplication
CloseCurrentDatabase

' Run a macro.
Case conCmdRunMacro
DoCmd.RunMacro rs![Argument]

' Run code.
Case conCmdRunCode
Application.Run rs![Argument]

' Open a Data Access Page
Case conCmdOpenPage
DoCmd.OpenDataAccessPage rs![Argument]

' Any other command is unrecognized.
Case Else
MsgBox "Onbekende optie"

End Select

' Close the recordset and the database.
rs.Close

HandleButtonClick_Exit:
On Error Resume Next
Set rs = Nothing
Set con = Nothing
Exit Function

HandleButtonClick_Err:
' If the action was cancelled by the user for
' some reason, don't display an error message.
' Instead, resume on the next line.
If (Err = conErrDoCmdCancelled) Then
Resume Next
Else
MsgBox "Er is een fout opgetreden bij het uitvoeren van de opdracht.", vbCritical
Resume HandleButtonClick_Exit
End If

End Function

[RobIII]

Haal al die "Resume Next" en "On error resume next" er eens uit door ze weg te commenten; dan zul je zien dat er iig een error optreedt

[Verwijderd]

RobIII schreef op donderdag 08 februari 2007 @ 13:11:
Haal al die "Resume Next" en "On error resume next" er eens uit door ze weg te commenten; dan zul je zien dat er iig een error optreedt

Heb ik gedaan, klikken op de knoppen geeft nog steeds geen enkel resultaat.