Skip to main content

AccessTr.neT


Giriş şifresi Oluşturmak

Giriş şifresi Oluşturmak

Çözüldü #1
Merhaba hocalarım eklediğim programda giriş şifresi yapmaya çalıştım. Şifre formu açıldığı zaman Açılan Kutuda kullanıcı adını seçiyorum isim Açılan Kutuya almıyor. Benim istediğim şifre ekranı açıldığı zaman  açılan kutuda kullanıcı adını seçtikten sonra şifreyi yazıp giriş butonuna tıkladığım zaman Gelir Gider (MUHASEBE) ekranı açılsın.
Bu konuda yardımlarınıza ihtiyacım var.
.rar Gelir-Gider 1.8.rar (Dosya Boyutu: 43,65 KB | İndirme Sayısı: 6)
Son Düzenleme: 26/02/2016, 23:29, Düzenleyen: kenan827.
Cevapla
#2
1-) Açılan kutunun satır kaynağı olan sorguya "KULLANICILAR" yazmışsınız,
Kullanıcılar isimli tabloda 2 tane alan var. Ancak sizin açılan kutunuzun sütun sayısı 1 ve ilişkili sütun değeri 0,
bu yüzden seçim yapılamıyor. sütun sayısı 2, genişlikler 5;0 ve ilişkili sütun 1 olmalı.
2-) Formun kayıt kaynağı yok ancak açılan kutunun denetim kaynağı KullaniciAdi, kayıt kaynağı yok ise denetimin denetim kaynağıda olmaz, seçim yapılamasının diğer nedeni de bu.

3-) If Metin2.Volue = Dlookup ("Sifre", "KULLANICILAR", "KULLANIC ADI HATALII='" & Açılan_Kutu15.Value & " ' ") Then

şeklinde kod eklemişsiniz. ancak Dlookup kriteri olan alan KULLANIC ADI HATALII şeklinde alan tabloda yok. Bunun Sifre olarak değişmesi gerekl.i Ayrıca Volue diye birşey de yok. Bunun Value olması lazım.

4-)Kod içerisinde bulunan GoTe tanımlamasıda hatalı bunun da GoTo olması lazım.
Cevapla
#3
Hocam kodlardan fazla anlamıyorum yazdıklarınız uygulamaya çalıştım. Hata veriyor bir türlü başaramadım.
Hocam yazdıklarınızı eklediğim programa uygulayarak eklerseniz sevinirim. Saygılar.
Cevapla
#4
(27/02/2016, 00:20)kenan827 yazdı: Hocam kodlardan fazla anlamıyorum yazdıklarınız uygulamaya çalıştım. Hata veriyor bir türlü başaramadım.
Hocam yazdıklarınızı eklediğim programa uygulayarak eklerseniz sevinirim. Saygılar.

Kusura bakmayın, malesef düzenleyip ekleyemem. Çünkü 57 konunuz var ama kod bilginiz yok denecek kadar az. Bunun sebebi ben veya diğer arkadaşlar her sorunuza cevabı uygulamanız düzenleyerek ekliyoruz. Bu yüzden öğrenemiyorsunuz.

2. mesajda gerekli açıklamayı yaptım, bence biraz daha uğraşın. Yine yapamazsanız açıklamaya göre düzenlediğiniz örneği ekleyiniz.
Cevapla
#5
Hocam Son eklediğim uygulamaya bakabilirmisiniz. Çok uğraştım yine açılan kutuda kullanıcı ismini seçmeme izin vermiyor. Şifre işleminde yaptığım değişikliğin doğru olup olmadığını da bilmiyorum.
.rar Gelir-Gider 1.9.rar (Dosya Boyutu: 41,52 KB | İndirme Sayısı: 8)
Son Düzenleme: 27/02/2016, 02:04, Düzenleyen: kenan827.
Cevapla
#6
kontrol edip geri bildirimde bulununuz.

kod içeriği:


Kod:
Dim OZGUR As New ADODB.Recordset
OZGUR.Open "KULLANICILAR", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
OZGUR.Find "[KullaniciAdi]='" & Me.Kullanici.Column(0) & "'"
If Me.Kullanici.Column(1) = Me.Metin2 Then
DoCmd.OpenForm "MUHASEBE"
Else
MsgBox "ŞİFRE YANLIŞ", vbCritical, "bİLGİ"
End If
OZGUR.Close: Set OZGUR = Nothing

.rar ozguryasin.rar (Dosya Boyutu: 64,36 KB | İndirme Sayısı: 12)
POWER 'un Çekirgesi :=)
ozguryasin, 23-09-2009 tarihinden beri AccessTr.neT AİLESİ üyesidir.
Access'i Profesyonel Şekilde Öğrenmek İçin https://www.accesstr.net Ailesi Yeter. alkis


Site Kurallarını sorularınızın hızlı cevaplanması için kesinlikle okuyunuz.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task