GRM

Minimalizace-Maximalizace Navigačního panelu
Public Sub Nav_Collapse()
On Error GoTo Error_Handler

'vyber jeden z následujících příkazů
DoCmd.SelectObject acModule, , True
'DoCmd.Minimize
'DoCmd.RunCommand acCmdWindowHide
'DoCmd.Maximize

Error_Handler_Exit:
On Error Resume Next
Exit Sub

Error_Handler:
MsgBox "The following error has occured" & vbCrLf & vbCrLf & _
"Error Number: " & Err.Number & vbCrLf & _
"Error Source: Nav_Collapse" & vbCrLf & _
"Error Description: " & Err.Description & _
Switch(Erl = 0, "", Erl <> 0, vbCrLf & "Line No: " & Erl) _
, vbOKOnly + vbCritical, "An Error has Occured!"
Resume Error_Handler_Exit
End Sub
Hodnocení
Musíte být registrovaný, aby jste mohli hodnotit.

Prosím přihlašte se, a nebo se zaregistrujte.

Zatím nikdo nehodnotil.
Přilášení
Jméno

Heslo



Zapoměli jste heslo?
Pro zaslání nového
Klikněte sem.
Doporučuji
Hledáte spolehlivé místo pro Vaše webové stránky? ONEbit hosting - garantované webhostingové služby se zárukou spokojenosti
Dynamic DNS for your domain
Kdo je On-line
Hosté On-line: 1

Členové On-line: 0

Registrovaní členové: 5
Nejnovější člen: gerisa
Navigace
Domů
Články
Download
Odkazy
Kontakt
OnLine
Návštěvnost
TOPlist
Powered by PHP-fusion. Designed by Si-Fusion.