Konu Araçları | Konu Seçenekleri | Gösterim Stili
ycancan
Tarih
29/04/2010 23:06
Konu Sahibi
ycancan
Yorumlar
21
Okunma
12161
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy
ycancan

ycancan

Aktif Üye
 19
 72
 11/04/2010
15
 Ankara
 
 Ofis 2003
 21/03/2017,00:29
Çözüldü 
arkadaslar bir giriş ekranı ve dogru kullanıcı ve sıfre gırınce ana form açılacak yoksa msgbox("hata") verecek bunları sihirbaz ile yapamadım kod ile ilgilide bilgim yok yardımcı olabilirmisiniz acaba
birde doğru giriş yapılırsa giriş ekranı kapanacak Img-grin


Tecrübe herkesin kendi hatalarına verdiği addır.

emturker

emturker

Uzman
Mu....
 88
 1.256
 30/10/2008
781
 İstanbul
 
 Ofis 2010 32 Bit
 11/04/2019,15:47
Çözüldü 
girişi kontrol etmemiştim ama ekranı kaplamayı bir kontrol edin.
olmazsa girişi değiştirelim.

girişide değiştirdim bundan sonrası size kalmış.
iyi geceler.


Application Engineer

ycancan

ycancan

Aktif Üye
 19
 72
 11/04/2010
15
 Ankara
 
 Ofis 2003
 21/03/2017,00:29
Çözüldü 
hocam kaplama değil dogru giriş yapılıcan örneğin su an girişe tıklayınca arkada giriş formu açık kalıyor ya o kapansın dıyordum Img-grin


Tecrübe herkesin kendi hatalarına verdiği addır.

emturker

emturker

Uzman
Mu....
 88
 1.256
 30/10/2008
781
 İstanbul
 
 Ofis 2010 32 Bit
 11/04/2019,15:47
Çözüldü 
logonu kontrol edin.


Application Engineer

ycancan

ycancan

Aktif Üye
 19
 72
 11/04/2010
15
 Ankara
 
 Ofis 2003
 21/03/2017,00:29
Çözüldü 
'Kullanıcı adını giriniz

If IsNull(Me.kullanıcı) Or Me.kullanıcı = "" Then
MsgBox "Lütfen Kullanıcı Adı Giriniz.", vbOKOnly + vbCritical, "BİLGİ"
Me.kullanıcı.SetFocus
Exit Sub
End If

'Kullanıcı şifresini giriniz



'Girilen kullanıcı adı ve şifreyi "tblŞifre" tablosundan kontrol et

If Me.Şifre.Value = Dlookup ("Şifre", "tblsifre", "[ID]=" & Me.kullanıcı.Value) Then



'Şifre formunu kapat ve frmAdmin kullanıcı tanımlama formunu aç

Form.Visible = False
DoCmd.OpenForm "FRMANA"

Else
MsgBox "Hatalı Şifre! Lütfen Tekrar Deneyiniz", vbOKOnly + vbCritical, "BİLGİ"
Me.Şifre.SetFocus
End If

'Eğer Kullanıcı 3 kez yanlış işlem yaparsa programı kapat

intLogonAttempts = intLogonAttempts + 1
If intLogonAttempts > 3 Then
MsgBox "Sisteme giriş için uygun kod ve şifre girilemedi.", vbCritical, "BİLGİ"
Application.Quit
End If
------------------------------
kodlar bunlar fakat kendı programımda yapamadım

program son hali upload::

http://rapidshare.com/files/381689885/ve...e.mdb.html
ellerine sağlık güzel olmuş
http://rapidshare.com/files/381689885/ve...e.mdb.html
bu link üzerinde düzenleyebilirmisin acaba o yaptıklarını?


Tecrübe herkesin kendi hatalarına verdiği addır.

emturker

emturker

Uzman
Mu....
 88
 1.256
 30/10/2008
781
 İstanbul
 
 Ofis 2010 32 Bit
 11/04/2019,15:47
Çözüldü 
biraz bekleyin ekliyelim.
kontrol ediniz.


Application Engineer


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü Form Üzerin Çoklu Giriş Sayma Mahmut Yazıcı 9 234 08/03/2019, 10:11
Son Yorum: Mahmut Yazıcı
Çözüldü Access 2010 Da Açılan Proje Access 2016 Da Açılmıyor.(Her İki Bilgisayarda 64 Bit) Oğuz Türkyılmaz 2 114 05/03/2019, 17:06
Son Yorum: haliliyas
Çözüldü Formdaki Tüm Sonuçları Raporlama Ve Yazdırma Ekranı yasargulten 23 754 04/03/2019, 13:10
Son Yorum: ozanakkaya
Çözüldü Çoklu Sorgu Ve İl İlçe Mahalle Ekranı? yasargulten 11 522 24/02/2019, 22:39
Son Yorum: yasargulten
Çözüldü Formdaki Altforma Veri Giriş Yapılamıyor U.ALTUN 2 122 20/02/2019, 13:47
Son Yorum: U.ALTUN

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