Kategorie szkoleń | Egzaminy | Kontakt
  • 4
  • 1
  • 1

Hey.

Mam pole w bazie SQL i w formularzu Access Login, chcę ustawić makro, które będzie pobierało login z domeny Win.

Jak mam zaprojektować makro krok po kroku. w sensie jak zacząć budować makro, którą opcję wybrać itd.

Dzięki za info!

 

Elwira_Sochacka
  • Zapytał
  • @ Elwira_Sochacka | 14.06.2017
    • 1
    • 0
    • 5

Odpowiedzi (4)

  • 1

Login systemowy możesz pobrać poniższą komendą, ale nie bardzo rozumiem, co potrzebujesz zrobić dalej.

login = Environ("username")

Mirosław_Janiak
  • Odpowiedział
  • @ Mirosław_Janiak | 14.06.2017
    • 1
    • 7
    • 1
Komentarze
a jak rozpocząć makro? jak zacząć, bo nie wiem, którą opcje wybrać?
Skomentował : @ Elwira_Sochacka ,16.06.2017
  • 1
  • 0
  • 5
i chciałabym aby login został wpisany w pole w formularzu...
Skomentował : @ Elwira_Sochacka ,18.06.2017
  • 1
  • 0
  • 5
  • 1

W menu "Tworzenie" kliknij "Moduł", otworzy się edytor VBA (można go też uruchomić przez alt+F11 i dodać moduł z menu "Insert" -> "Module"). Tam wklej poniższe makro i naciśnij F5, powinien wyskoczyć komunikat z Twoim loginem w treści.

Sub pobierz_login()

login = Environ("username")
MsgBox login

End Sub

Bardzo przydatnym klawiszem jest F8, pozwala on na wykonywanie skryptu wiersz po wierszu, co znacznie ułatwia bieżącą analizę jego działania.

Mirosław_Janiak
  • Odpowiedział
  • @ Mirosław_Janiak | 17.06.2017
    • 1
    • 7
    • 1
Komentarze
Hey, dzięki, działa, a jak jeszcze zrobić aby ten login został umieszczony w polu danych?
Skomentował : @ Elwira_Sochacka ,18.06.2017
  • 1
  • 0
  • 5
  • 1

Proponuję wrzucić to do procedury zdarzenia formularza "Przy otwarciu":

Private Sub Form_Open(Cancel As Integer)

Tekst1 = Environ("username")

End Sub

Gdzie Tekst1 to nazwa pola, w którym login ma się pojawić.

Mirosław_Janiak
  • Odpowiedział
  • @ Mirosław_Janiak | 18.06.2017
    • 1
    • 7
    • 1
Komentarze
Przy otwarciu mam już ustawione makro do formularza aby pokazywał się nowy rekord, rozumiem, że dodaję nową akcję, tylko jaką? "UstawWartość" bo tutaj mam problem, w którym momencie to wpisać?
Dzięki za odpowiedzi! :-)
Skomentował : @ Elwira_Sochacka ,18.06.2017
  • 1
  • 0
  • 5
  • 1

Lepiej napisać funkcję.

Public Function Pracownik()

Pracownik = Environ("username")

End Function

I tam, gdzie potrzebujemy podać dane, można później wpisywać po prostu =Pracownik().

Tomasz_Kasprzycki
  • Odpowiedział
  • @ Tomasz_Kasprzycki | 21.06.2017
    • 2
    • 4
    • 8