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 9156 03.11.2017, 18:38
Ostatni post: Ajgor
Scared [MS Access] Tworzenie kwerend Cixi 2 5884 12.01.2016, 13:24
Ostatni post: Cixi
  Sprawdzanie procesu z poziomu pliku bat daniodudis 0 7178 14.03.2015, 11:48
Ostatni post: daniodudis

Skocz do:


Wybrane wątki (Access sprawdzanie loginu)
Wątek: Autor Odpowiedzi: Wyświetleń: Ostatni post
  Poszukuję pomysłu na prosty program ;) janciu96 5 9374 13.12.2019 23:32
Ostatni post: Ajgor
  Programowanie Batch (CMD) Informatyk2019 0 1827 11.12.2019 18:30
Ostatni post: Informatyk2019
  [JavaScript] Znajdowanie przedziału czasu rafal12999 0 831 10.12.2019 17:58
Ostatni post: rafal12999
  Przekazywanie wskaźnika przez referencję w Qt Trojan3000 3 9327 10.12.2019 13:16
Ostatni post: Ajgor
  Proszę o pomoc w uzupełnieniu ankiety dt. Zawodu Programisty MaleMonki 0 1297 17.11.2019 12:47
Ostatni post: MaleMonki
  Spring framework – jakie strony polecacie do nauki? olek23 5 4039 15.11.2019 15:57
Ostatni post: Alsenas
  Programowanie windy (problem) w C++ mysza2323 2 2804 06.11.2019 23:04
Ostatni post: mysza2323
  Programy w C ~Anonim 1 3207 22.10.2019 17:48
Ostatni post: Szachista
  Książki do nauki C# olek23 14 11834 17.10.2019 13:06
Ostatni post: Ajgor
  Wyświetlanie informacji z bazy danych na stronie www PitPlay 1 4349 16.09.2019 11:18
Ostatni post: Ajgor
  Błąd przy uruchamianiu programu w Java z wiersza poleceń Physicist 3 2893 30.08.2019 14:16
Ostatni post: Physicist
  Python z wiersza poleceń Physicist 15 13696 21.08.2019 20:14
Ostatni post: Physicist
  Transfer plików via FTP Visual Basic FireBytes 3 5967 15.08.2019 07:41
Ostatni post: Szachista
  Menu wysuwane z boku patryk67 1 5008 07.08.2019 12:43
Ostatni post: aht
  Visual Basic Excel l.całkowitą przedstawić w postaci szesnastkowej fugaz 4 6792 18.06.2019 21:36
Ostatni post: fugaz