Eigen foutmelding

[terbeest]

Ik heb een database gemaakt met daarop een inlog systeem. Dit omdat niet iedereen dezelfde rechten mag hebben op de database.

Als ik een forumlier probeer te openen waarvoor ik geen rechten heb dan krijg ik een nare foutmelding:

"Er is een fout opgetreden bij het uitvoeren van de opdracht."

Is dit niet te vervangen door iets gebruikersvriendelijkers? Of door helemaal geen foutmelding, maar dat er simpelweg niets wordt geopend?

 

[gebruiker54]

dan zou je met een hex editor je bestand moeten open die het uitvoert en dan zoeken naar die zin <in de programmacode>


suc66

 

[beheer25]

Niks Hex editor. Met VBA kun je dat oplossen. Pas daarin error handling toe en vang de fout die je krijgt af met een eigen meding. Van error handling zijn wel enkele goede voorbeelden te vinden in de helpfile.

Anders is het wellicht ook mogelijk om (weer met VBA) knoppen inactief of zelfs onzichtbaar te maken als iemand daar geen rechten op heeft.


Grtz,

 

[Bartuls]

Kleine toelichting mbt error handling.
Dat begint met On Error Go To .....

Maak maar eens een knopje op een formulier aan waarin je bijvoorbeeld een formulier toont en bekijk de code onder het On Click event van het knopje.
Dan zie je een voorbeeld van dergelijke code.

 

[Jojam]

Terbeest

Om de opgetreden foutcodes op te vangen in een eigen gemaakte foutcodes tabel zou je gebruik kunnen maken van onderstaand voorbeeld. In de praktijk vang je hier de meest fouten mee op. Dit is natuurlijk afhankelijk van de procedures je uitvoert.



========================================================================

Bij de handeling neem je bv op:

Private Sub Sluit_Click()
On Error GoTo Err_FoutCode
'-------------------------------------------------
DoCmd.Close
'-------------------------------------------------
Exit_FoutCode:
Exit Sub
Err_FoutCode:
Call FoutCodes
Exit Sub
End Sub

========================================================================


Je maakt een module aan met de volgende inhoud:

Function FoutCodes()

Dim Msg, Style, Title, Help, Ctxt, Response, MyString
Style = vbOKOnly + vbInformation + vbDefaultButton2

Select Case Err
Case 70: Msg = "Fout bij het lezen of schrijven van het bestand!"
Case 94: Msg = "U heeft geen record geselecteerd!"
Case 2105: Msg = "Kan niet naar het record gaan!"
Case 2046: Msg = "Het E-mail programma op de computer is niet juist geconfigureerd, U kunt geen E-mail verzenden!"
Case 2501: Msg = "Het verzenden van de Email is door U geannuleerd."
Case 3075: Msg = "U heeft geen record geselecteerd!"
Case Else: Msg = Err & " " & Err.Description
End Select
Response = MsgBox(Msg, Style, Koptekst)
DoCmd.Hourglass False
End Function()


========================================================================

De overige foutcode die niet zijn opgenomen i bovenstaand kun je zelf declareren.