Witamy na forum PC Format Zapraszamy do REJESTRACJI


Użytkownicy przeglądający ten wątek: 1 gości

Access sprawdzanie loginu

#1
Access sprawdzanie loginu
Witam potrzebuje pomocy przy kodzie w vba access 2007. Mam odpowiedni formularz w którym użytkownik przy rejestracji w dane pola wpisuje login, hasło po kliknięciu przycisku zapisz zapisuje wszystko do tablicy z userami dzięki czemu może wykorzystać ww dane w kolejnym formularzu logowania.
Wszystko cacy lecz fajnie by było gdyby kod który napisałem potrafił oprócz sprawdzenia czy hasła pasują do siebie, login nie jest puste(któreś z pól z hasłem lub oba nie są puste) sprawdzał jeszcze czy dany login już istnieje w bazie :D


Załączone pliki
.txt   11.txt (Rozmiar: 693 bajtów / Pobrań: 73)
 System operacyjny: windows_seven Przeglądarka: firefox
#2
RE: Access sprawdzanie loginu
To może wyglądać tak:

Kod:
Option Compare Database
'Zawsze umieszczamy w naszym kodzie
'pozwala ograniczyć możliwość powstania błędów
Option Explicit

Private Sub Polecenie20_Click()
    Dim rs As Object
    
    'Dołączamy obsługę błędów!
    On Error GoTo Err_Polecenie20_Click
    
    'Tworzymy kopię tabeli w Rekord Set
    Set rs = Me.Recordset.Clone
    
    If Me.Tekst13.Value = Me.Tekst21.Value And Not IsNull(Me.Tekst11.Value) Then
        
        'Wyszukujemy login
        rs.FindFirst "[Login] = '" & Me.Tekst11.Value & "'"
        
        'Jeśli ten login nie istnieje dopisujemy nowy
        If rs.NoMatch = True Then
            DoCmd.GoToRecord , , acNewRec
            Me.Login.Value = Me.Tekst11.Value
            Me.Haslo.Value = Me.Tekst13.Value
            Me.Refresh
            MsgBox "Brawo udało Ci się stworzyć konto", vbInformation, "Battlenet"
            Me.Tekst11.Value = ""
            Me.Tekst13.Value = ""
            Me.Tekst21.Value = ""
        Else
            MsgBox "To konto już istnieje!", vbInformation, "Battlenet"
        End If
            
        DoCmd.Close
        DoCmd.OpenForm "Startowy"
    
    Else
        MsgBox "Hasła nie pasuja do siebie/pola są puste lub login został już użyty !!!", , "Błąd"
    End If
    
Exit_Polecenie20_Click:
        Exit Sub
    
Err_Polecenie20_Click:
        MsgBox Err.Description, vbCritical, "Battlenet"
        Resume Exit_Polecenie20_Click

End Sub
NIE POMAGAM NA PRIVIE!!!
 System operacyjny: windows_seven Przeglądarka: ie
#3
RE: Access sprawdzanie loginu
Proponowałbym założyć indeks unikalny na polu login. Dzięki temu będziesz mógł wykorzystać mechanizmy Accessa do obsługi błędu i zapewnienia unikalności danych w tabeli.
 System operacyjny: windows_xp_2003 Przeglądarka: firefox
Programy: Polecane / Nowe / Inne



Użytkownicy forum szukali:
access login użytkownikaaccess sprawdzanie loginu

Podobne wątki (Access sprawdzanie loginu)
Wątek: Autor Odpowiedzi: Wyświetleń: Ostatni post
  Sprawdzanie wygranej. PixelFullHD 1 9172 03.11.2017, 18:38
Ostatni post: Ajgor
Scared [MS Access] Tworzenie kwerend Cixi 2 5899 12.01.2016, 13:24
Ostatni post: Cixi
  Sprawdzanie procesu z poziomu pliku bat daniodudis 0 7192 14.03.2015, 11:48
Ostatni post: daniodudis

Skocz do:


Wybrane wątki (Access sprawdzanie loginu)
Wątek: Autor Odpowiedzi: Wyświetleń: Ostatni post
  Błąd przy uruchamianiu programu w Java z wiersza poleceń Physicist 3 2954 30.08.2019 14:16
Ostatni post: Physicist
  Python z wiersza poleceń Physicist 15 13943 21.08.2019 20:14
Ostatni post: Physicist
  Transfer plików via FTP Visual Basic FireBytes 3 6027 15.08.2019 07:41
Ostatni post: Szachista
  Menu wysuwane z boku patryk67 1 5104 07.08.2019 12:43
Ostatni post: aht
  Visual Basic Excel l.całkowitą przedstawić w postaci szesnastkowej fugaz 4 6897 18.06.2019 21:36
Ostatni post: fugaz
  Nauka do Olimpiady Informatycznej? piotr0905 1 6647 08.06.2019 16:50
Ostatni post: wlisik
Ściana Prosta gra w Builder C++ Kiranek1 1 6570 31.05.2019 15:20
Ostatni post: Szachista
  Menu (Nie widoczne długie opisy) wanhelsing 5 8655 28.04.2019 19:31
Ostatni post: koneton
  Skrypt usuwający pliki sylwiaa1 2 3908 28.04.2019 15:20
Ostatni post: sylwiaa1
  Środowisko do assemblera Physicist 4 8186 21.04.2019 14:04
Ostatni post: Ajgor
  VBA excel dmjs 6 8374 17.04.2019 10:20
Ostatni post: ptrick
  C++ - sens pogłębiania nauki gbr 5 8158 25.03.2019 12:53
Ostatni post: koneton
  Klasa wewnętrzna w C++ Physicist 4 7814 23.03.2019 18:28
Ostatni post: Physicist
  Ruby on Rails - tutoriale luciussulla 0 6951 23.03.2019 16:49
Ostatni post: luciussulla
Big Grin Czy dostane sie technikum informatycznego klaudiusz20046 6 10187 21.03.2019 01:28
Ostatni post: UnableToSee