Access logowanie przez Form i wybór dwóch form

Odpowiedz Nowy wątek
2015-01-15 14:35
0

Witam
Proszę o pomoc w następującym temacie (jestem zielony w VBA wiec proszę o info. w stylu "kawa na łąwę")

Posiadam bazę danych z następującymi elementami:

  • tabela "Login" ( username , password )
  • formularz "LoginF"
  • formularz "Welcome"
  • formularz "welcome1"

Po uruchomieniu bazy otwiera sie formularz LoginF gdzie mam dwa przyciski "Login" oraz "Exit" . W tej chwili mam zrobione tak ze po wpisaniu username i password i kliknięciu login uruchamia mi się okienko welcome . Chciałbym zęby był podział na dwie kategorie logowania się . Czyli Jeżeli loguje się kierownik otwiera się forma Welcome , jeżeli loguje się pracownik otwiera się forma Welcome1. podejrzewam ze muszę zrobić filtr tylko za bardzo nie wiem jak to zrobić . to jest mój kod z VB

Kod:
'...
Private Sub cmdLogin_Click()
If "" & txtUser.Value = "" Then
MsgBox("Please enter user name", vbExclamation + vbOKOnly, "form_loginF")
txtUser.SetFocus()
Exit Sub
End If
' apply filter to get record matching username entered.
DoCmd.ApplyFilter, "Username = '" & ("" & txtUser.Value) & "'"

    If Me.Username = ("" & txtUser.Value) And Me.Password = ("" & txtPassword.Value) Then
        ' correct user name and password entered
        MsgBox("correct password entered")

        [b]() ' remove filter
        DoCmd.ShowAllRecords[/b]

        ' enter code to open menu form.
        DoCmd.OpenForm("welcome")  ' change this to the form you want to open  
    Else
        ' incorrect username and password entered
        If Me.Username <> ("" & txtUser.Value) Then
            MsgBox("Incorrect username entered. ")
            Me.txtUser.SetFocus()
        Else
            MsgBox("Incorrect password entered. ")
            Me.txtPassword.SetFocus()
        End If
        ' remove filter
        DoCmd.ShowAllRecords()
    End If
End Sub

Private Sub cmdExit_click()
    Me.setVisible = False
End Sub

'...

Czy możne ktoś mi powiedzieć co trzeba zmienić w ""remove filter
DoCmd.ShowAllRecords"" bo podejrzewam ze to tu jest błąd

Dziękuję za szybką odpowiedź.

Pozostało 580 znaków

2015-01-15 14:48
0

Ten kod w ogóle działa?

Pozostało 580 znaków

2015-01-15 17:48
0

Tak działa i uruchamia się forma welcome

Pozostało 580 znaków

2015-01-15 18:01
0

Jeśli tak to w linii w której masz komentarz byzmienić formę daj IF-a który sprawdzi kto jest zalogowany i uruchomi odpowiednią.

Pozostało 580 znaków

2015-01-15 21:13
0

a mógłbyś bardziej dokładnie co i gdzie dokładnie mam wpisać

Pozostało 580 znaków

2015-01-15 21:27
0

Jeśli takie znaczniki w środku kodu działają to ja już nie wiem.

            [b]() ' remove filter
            DoCmd.ShowAllRecords[/b]

a mógłbyś bardziej dokładnie co i gdzie dokładnie mam wpisać

Zacznij od jakiegoś tutoriala.

Pozostało 580 znaków

2015-01-15 21:41
0

Zamiast tej linii:

         DoCmd.OpenForm("welcome")  ' change this to the form you want to open  

Daj to co ci napisalem

Pozostało 580 znaków

2015-01-16 11:21
Zimny Pomidor
0
dam1an napisał(a):

Jeśli takie znaczniki w środku kodu działają to ja już nie wiem.

[b]() ' remove filter
DoCmd.ShowAllRecords[/b]

a mógłbyś bardziej dokładnie co i gdzie dokładnie mam wpisać

Zacznij od jakiegoś tutoriala.

Ok [b] [/b] tego w kodzie nie ma zaznaczylem pogrubiebie tekstu i dodalo .

Pozostało 580 znaków

2015-01-16 16:28
0
Marcin.Miga napisał(a):

Zamiast tej linii:

         DoCmd.OpenForm("welcome")  ' change this to the form you want to open  

Daj to co ci napisalem

A czy mógłbyś mi powiedziec jak dokładnie ma wyglądać ten IF . Był bym bardzo wdzięczny

Pozostało 580 znaków

2015-01-17 06:55
0

Nie, no nie wiem.

Pozostało 580 znaków

2015-01-21 11:33
prze
0

A może dało by radę . Może ktoś wie jaki powinien być ten kod

Pozostało 580 znaków

Odpowiedz
Liczba odpowiedzi na stronę

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0