Access 2010 - ukrycie menu po starcie aplikacji - Thread - go-pugleaf

Thread View: pl.comp.bazy-danych.msaccess

3 messages

[T] Back to Threads [V] Tree View [G] Group Articles

3 total messages Started by MaciejF Fri, 04 Dec 2015 10:00

Access 2010 - ukrycie menu po starcie aplikacji

#137059

Author: MaciejF
Date: Fri, 04 Dec 2015 10:00

23 lines
1638 bytes

Witam,

Proszę kogoś o pomoc w kwestii ukrycia menu Accessa
użytkownik powinien widzieć tylko formularze.

Chciałbym użyć coś takiego:

Dim LUser As String
LUser = CurrentUser()

If LUser = "Pracownik"
Then
Ukryj menu i obiekty Accesa - właściwość na False
Else
Odkryj menu i obiekty Accessa - właściowość na True
End If

Kod powinien być wywołany przy starcie aplikacji.
Proszę o pomoc!

Pozdrawiam

MF

Re: Access 2010 - ukrycie menu po starcie aplikacji

#137060

Author: MaciejF
Date: Fri, 04 Dec 2015 10:32

18 lines
1871 bytes

na faq.accdb znalazłem coś takiego:
	
1.4 Jak pokazać (ukryć) okno bazy danych ?
' Przykładowy formularz Me.Name musi mieć ustawiony atrybut widoczny na Tak !
Public Sub zbShowDb(fVisible As Boolean)

    If fVisible = True Then
        DoCmd.SelectObject acForm, Me.Name, True
    Else
        DoCmd.SelectObject acForm, Me.Name, True
        DoCmd.RunCommand acCmdWindowHide
    End If

End Sub

Czy można te kody jakoś połączyć?

MF

Re: Access 2010 - ukrycie menu po starcie aplikacji

#137061

Author: Zbigniew Bratko
Date: Sun, 06 Dec 2015 15:53

46 lines
2087 bytes


Użytkownik "MaciejF"  napisał w wiadomości grup 
dyskusyjnych:f5394d9f-a81c-4b27-a7bd-c9696c496cff@googlegroups.com...

Witam,

Proszę kogoś o pomoc w kwestii ukrycia menu Accessa
użytkownik powinien widzieć tylko formularze.

Chciałbym użyć coś takiego:

Dim LUser As String
LUser = CurrentUser()

If LUser = "Pracownik"
Then
Ukryj menu i obiekty Accesa - właściwość na False
Else
Odkryj menu i obiekty Accessa - właściowość na True
End If

Kod powinien być wywołany przy starcie aplikacji.
Proszę o pomoc!

[...]

Może coś takiego:

Private Sub Form_Load()
Dim LUser As String

LUser = CurrentUser()

    If LUser = "Pracownik" Then
        DoCmd.ShowToolbar "Ribbon", acToolbarNo
        DoCmd.ShowToolbar "Status Bar", acToolbarNo
        DoCmd.SelectObject acForm, Me.Name, True
        DoCmd.RunCommand acCmdWindowHide
    Else
        DoCmd.ShowToolbar "Ribbon", acToolbarYes
        DoCmd.ShowToolbar "Status Bar", acToolbarYes
        DoCmd.SelectObject acForm, Me.Name, True
    End If

End Sub

Thread Navigation

This is a paginated view of messages in the thread with full content displayed inline.

Messages are displayed in chronological order, with the original post highlighted in green.

Use pagination controls to navigate through all messages in large threads.

Back to All Threads