Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
22/07/2009 12:11
Konu Sahibi
hasanzengi
Yorumlar
5
Okunma
1863
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy
Kullanici Avatari

hasanzengi

Üye
Üye
14
5
03/07/2009
0
İstanbul
Ofis 2000
21/09/2011,17:08
Çözüldü 
Merhaba kullanıcı şifreli giriş ve yetkilendirmeyi yaptım, kullanıcı daha sonra kendi şifresini nasıl değiştirecek bunu nasıl yapabilirim
yardımcı olabilirmisiniz.
Teşekkürler.


hasanzengi, 03-07-2009 tarihinden beri AccessTr.neT üyesidir.

Kullanici Avatari

esrefigit

Aktif Üye
Aktif Üye
599
30/10/2008
359
Konya
Ofis 2003
03/08/2017,11:47
Çözüldü 
Örneğinizi ekleyin ya da;
Elinizdeki mevcut şifre giriş formunu kopyalayın. Fark olarak buna 3 tane metin kutusu koyun
1. Eski Şifre ( kullanıcının buraya mevcut şifresini yazması gerekli ki gerçekten o olduğunu bilelim)
2. Yeni Şifre
3. Yeni Şifre Tekrarı ( 2.si ile aynı olup olmadığını kontrol edeceğiz. Şifresini yanlış girmemesi için son kontrol)
Tamam dediğinde ;
1. Eski şifresini doğru yazmış mı? Farklıysa uyarı verin
2. Yeni şifre ve eski şifre aynı mı? Aynıysa uyarı verin.
3. Yeni şifre ve yeni şifre tekrarı aynı mı? Farklıysa uyarı verin

Yukarıdaki uyarılardan geçerse kullanıcı şifresini ado ile kaydedebilirsiniz.
strSQL = "SELECT * FROM kullanıcılar "
Set rstkayit = New ADODB.Recordset
rstkayit.Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
With rstkayit
.Find "[kullanıcıid]=" & Me.kullanıcı.Column(1)
.Fields("sifre")=me.yenisifre
.Update
End With


meşhur çin atasözü  "ACCESS İLE YAPABİLECEKLERİNİZ HAYAL EDEBİLECEKLERİNİZ İLE SINIRLIDIR" siz ne kadar hayal edebiliyorsunuz

Kullanici Avatari

Bilgisayarcı

Atçalı
Aktif Üye
658
29/01/2008
410
Antalya
Ofis 2003
01/11/2011,15:17
Çözüldü 
Bu kadar düzgün türkçeyle yazılmış bir esrefigit cevabı için teşekkür ederizImg-grin


Bana işe yarayan bir müdür göster,sana dünyayı yerinden oynatayım.
                                                                                        Descartes



Kullanici Avatari

esrefigit

Aktif Üye
Aktif Üye
599
30/10/2008
359
Konya
Ofis 2003
03/08/2017,11:47
Çözüldü 
teşekkür ederim


meşhur çin atasözü  "ACCESS İLE YAPABİLECEKLERİNİZ HAYAL EDEBİLECEKLERİNİZ İLE SINIRLIDIR" siz ne kadar hayal edebiliyorsunuz

Kullanici Avatari

hasanzengi

Üye
Üye
14
5
03/07/2009
0
İstanbul
Ofis 2000
21/09/2011,17:08
Çözüldü 
Çok teşekkürler, şifre sorğulamaları yaptım ama sadece yeni şifreyi tabloya update edecek komutları tam yaptıramadım, yardımcı olabilirmisiniz.

Sub YeniŞifreupdate()

Dim rstkayit As String

If Not IsNull(rstkayit![KULLANICIŞİFRESİ]) > 0 Then
Set rstkayit = CurrentDb.OpenRecordset("select * from KULLANICILAR where ID=" + str(Me.ID.Value) + " ;")
rstkayit.Edit
rstkayit![KULLANICIŞİFRESİ] = LCase$(strKULLANICIŞİFRESİ)
rstkayit.Update
rstkayit.Close
End If

End Sub
Private Sub Command5_Click()
If IsNull(Me.Kullanıcı) Or Me.Kullanıcı = "" Then
MsgBox "Lütfen Kullanıcı Adı Giriniz.", vbOKOnly + vbInformation, "Bilgilendirme Penceresi"
Me.Kullanıcı.SetFocus
Exit Sub
End If
If Me.Şifre.Value = Dlookup ("KULLANICIŞİFRESİ", "KULLANICILAR", "[ID]=" & Me.Kullanıcı.Value) Then

ID = Me.Kullanıcı.Value
YeniŞifretekrarı
Else
MsgBox "Hatalı Şifre! Lütfen Tekrar Deneyiniz", vbOKOnly + vbCritical, "Bilgilendirme Penceresi"

End If
intLogonAttempts = intLogonAttempts + 1
If intLogonAttempts > 3 Then
MsgBox "KAPATILACAK.", vbCritical, "Bilgilendirme Penceresi"
Application.Quit
End If
End Sub
Private Function YeniŞifretekrarı()
If [Yenişifre] = [Şifre] Then
MsgBox "Yenişifre ile Eskişifre Farklı olmalıdır"
DoCmd.GoToControl "Yenişifre"
Else
If IsNull([Yenişifre]) Or IsNull([Şifretekrarı]) Then
MsgBox "Yeni şifre ve Yeni şifre tekrarını girmelisiniz."
DoCmd.GoToControl "Yenişifre"
Else
If [Yenişifre] <> [Şifretekrarı] Then
MsgBox "Yenişifre ile Yenişifre Tekrarı aynı olmalıdır"
DoCmd.GoToControl "Yenişifre"
Else
If [Yenişifre] = [Şifretekrarı] Then

MsgBox "Şifreniz değiştirilmiştir"
DoCmd.OpenForm "SİFREGİRİŞ"
DoCmd.Close acForm, "SİFREDEĞİŞTİRME"
YeniŞifreupdate
End If
End If
End If
End If
End Function


hasanzengi, 03-07-2009 tarihinden beri AccessTr.neT üyesidir.

Kullanici Avatari

hasanzengi

Üye
Üye
14
5
03/07/2009
0
İstanbul
Ofis 2000
21/09/2011,17:08
Çözüldü 
Arkadaşlar,
update kısmında takıldım, bana yardımcı olabilirmisiniz, örneği ekleymiyorum aşağıdaki komutu çalıştıramıyorum, formun olayına

Option Compare Database
Public rstkayit As ADODB.Recordset
Dim strSQL As String
bunu yazdığımda aşğıdaki hatayı veriyor,


This error occurs when an event has failed to run because Microsoft Office Access cannot evaluate the location of the logic for the event. For example, if the OnOpen property of a form is set to =[Field], this error occurs because Access expects a macro or event name to run when the event is fired.

Sub şifreupdate()

strSQL = "SELECT * FROM KULLANICILAR "
Set rstkayit = New ADODB.Recordset
rstkayit.Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic

With rstkayit
.Find "[ID]=" & Me.Kullanıcı.Column1()
.Fields("KULLANICIŞİFRESİ") = Me.Yenişifre
.Update
End With



End Sub


hasanzengi, 03-07-2009 tarihinden beri AccessTr.neT üyesidir.


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
Çözüldü Açılan Kutuda Kullanıcının Veri Değiştirmesini Engelleme hey 2 138 01/05/2018, 15:00 hey
Çözüldü Her Kullanıcının Kendi Kaydettiği Veriyi Silme İzni hey 8 377 01/05/2018, 10:20 ozanakkaya
Çözüldü Alt Forma Veri Ekledikten Sonra Toplam Güncellemesi Yunus Bozkurt 3 167 30/03/2018, 20:15 Yunus Bozkurt
Çözüldü Formu Excele Bağladıktan Sonra Form Üzerinde Değişklik Yapamıyorum ankaram 4 396 09/06/2017, 09:21 ankaram
Çözüldü liste kutusu son sutünden sonra gereksiz boşluk koruyucu 5 696 03/02/2017, 10:43 atoz112

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2018 MyBB Group.