Skip to main content

AccessTr.neT

Kayıt Ol

 | Facebook ile Bağlan  | Twitter İle Bağlan | Google+ İle Bağlan

Giriş şifresi Oluşturmak

kenan827
kenan827
Access Cevaplanmış Soruları
11
3396

Giriş şifresi Oluşturmak

Çözüldü #1
kenan827
Aktif Üye
kenan827
Bul
Aktif Üye
Adı Soyadı:
Konum: İstanbul
Ofis Versiyonu: -
Son Oturumu: 07/07/2016,21:28
Yorumları: 288
Konuları: 67
Kayıt Tarihi: 28/02/2013
Teşekkür Puanı: 0
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
ozanakkaya
sledgeab
ozanakkaya
Bul
Kurucu
Adı Soyadı: Oz.... Ak....
Konum: Denizli
Ofis Versiyonu: Ofis 2016 64 Bit
Son Oturumu: Dün,15:36
Yorumları: 13.542
Konuları: 499
Kayıt Tarihi: 29/01/2008
Teşekkür Puanı: 3.139
Mesleğiniz: Memur
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
kenan827
Aktif Üye
kenan827
Bul
Aktif Üye
Adı Soyadı:
Konum: İstanbul
Ofis Versiyonu: -
Son Oturumu: 07/07/2016,21:28
Yorumları: 288
Konuları: 67
Kayıt Tarihi: 28/02/2013
Teşekkür Puanı: 0
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
ozanakkaya
sledgeab
ozanakkaya
Bul
Kurucu
Adı Soyadı: Oz.... Ak....
Konum: Denizli
Ofis Versiyonu: Ofis 2016 64 Bit
Son Oturumu: Dün,15:36
Yorumları: 13.542
Konuları: 499
Kayıt Tarihi: 29/01/2008
Teşekkür Puanı: 3.139
Mesleğiniz: Memur
(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
kenan827
Aktif Üye
kenan827
Bul
Aktif Üye
Adı Soyadı:
Konum: İstanbul
Ofis Versiyonu: -
Son Oturumu: 07/07/2016,21:28
Yorumları: 288
Konuları: 67
Kayıt Tarihi: 28/02/2013
Teşekkür Puanı: 0
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
ozguryasin
Uzman
ozguryasin
www Bul
Uzman
Adı Soyadı: Öz.... Ya....
Yaşı: 41
Konum: Bursa
Ofis Versiyonu: Ofis 2016 32 Bit
Son Oturumu: 07/07/2024,04:49
Yorumları: 1.176
Konuları: 43
Kayıt Tarihi: 23/09/2009
Teşekkür Puanı: 616
Mesleğiniz: Yazılım
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