Forum - Αλλαγη κωδικου login για τον χρηστη

Forum (https://www.ms-office.gr/forum/)

- Access - Ερωτήσεις / Απαντήσεις (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/)

- - Αλλαγη κωδικου login για τον χρηστη (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/5639-allagi-kodikoy-login-gia-ton-xristi.html)

Αλλαγη κωδικου login για τον χρηστη

Καλημερα.Βρηκα την εφαρμογη απο εδω στο forum https://www.ms-office.gr/forum/acces...koi-login.html με την οποια αλλαζεςι τον κωδικου του χρηστη .

Την βαση την εχω σε sql server.Χρησιμποιωντας τον κωδικα αυτον DoCmd.RunSQL "UPDATE tblUsers SET [Password] ='" & Me.txtNewPass & "' where [tblusers].userID=" & Me.UsernameID μου λεει οτι αλλαξε ο κωδικος αλλα μεσα στον πινακα βλεπω οτι δεν αλλαξε.Δοκιμασα παντως την βαση τοπικα και δουλευει.

Γεια σας!

Γιάννη, σιγουρέψου ότι έχεις κλείσει τον πίνακα B]tblUsers [/B] και δοκίμασε να τρέξεις ένα ερώτημα με τον παρακάτω κώδικα:

Κώδικας:

UPDATE tblUsers SET tblUsers.[Password] = '123345678' WHERE tblUsers.[userID]=1;

όπου tblUsers = ο απομακρυσμένος πίνακας της βάσης MSQL.

Στη θέση του [userID] χρησιμοποίησε ένα υπαρκτό νούμερο αν δεν υπάρχει το 1 του παραδείγματος.

Αν δεις ότι λειτουργεί τότε θα πρέπει να ελευθερώνεις την εγγραφή που δεσμεύεται από τη φόρμα Login για να μπορέσει να ενημερωθεί.

Θα σου πρότεινα να χρησιμοποιήσεις:

Κώδικας:

    If Me.Dirty Then Me.Dirty = False 'Αποθηκεύει και μ' αυτό τον τρόπο αφαιρεί το κλείδωμα της εγγραφής

    CurrentDb.Execute "UPDATE tblUsers SET [Password] ='" & Me.txtNewPass & "' where [tblusers].userID=" & Me.UsernameID

Καλή συνέχεια!

Τάσος

Τασο σε ευχαριστω