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

[gianniskar]

Καλημερα.Βρηκα την εφαρμογη απο εδω στο 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 μου λεει οτι αλλαξε ο κωδικος αλλα μεσα στον πινακα βλεπω οτι δεν αλλαξε.Δοκιμασα παντως την βαση τοπικα και δουλευει.

[Tasos]

Γεια σας!

Γιάννη, σιγουρέψου ότι έχεις κλείσει τον πίνακα 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

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

Τάσος

[gianniskar]

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