Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
30/01/2009 18:11
Konu Sahibi
Coskun0559
Yorumlar
14
Okunma
9020
Konuyu Oyla:
  • Derecelendirme: 5/5 - 1 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 5/5 - 1 oy
Kullanici Avatari

Coskun0559

Uzman
Uzman
CO.... ÇA....
 33
 1.221
 99
 02/11/2008
516
 Tekirdağ
 
 -
 16/08/2018,17:56
Çözüldü 
değerli arkadaşlarım sizlerden öğrenmiş olduğum bilgilerle çalışmammı her gün değiştiriyorum baya bi yol aştım.yalnız takılıpta yapamadım bişi kaldı.ekte gönderdiğim vt de kullanıcı yetkilendirmek istiyorum.kullanıcı tablomda admin ve user var.şifre giriş formundaki açılan kutuda isimleri geliyo sadece mesela coşkun kullanıcısı admin,hüseyin kullanıcısı user.ben hüseyini veya başka bir user kullanıcı seçtiğim zaman sadece raporlama yapsın istiyorum.bunuda şöyle düşündüm değerli üstatlar eğer user olarak oturum açılırsa yeni bi form tasarlıcam ve üzerine sadece süzme yapan butonlar koyacam.normalde admin olarak girilirse denetim masası diye bi form var her şey ordan yapılıyo ben user olarak girince denetim masası formunun değil user için sadece süzme yada filtreleme yapacak olan formun gelmesini istiyorum.değerli üstadlar bu hususta bana yardımcı olursanız fikirlerinizi paylaşırsanız sevinirim tesekkur ederim herkese. şifre coşkun için 11200602956 hüseyin için 3458 dir


GERİ SAYIM;Sen doğduğunda başladı ! Eğer (9) canlı bile olsaydın en fazla (8) kez kaçabilirdin Ölümden ! Bil ki (7) Düvele sultan dahi olsan yerin (6) Mekan olacak sana. En fazla (5) Metre kumaş götürebileceksin ! Kapatacaksın (4) açsanda gözlerini ! Bu (3) günlük fani dünyada Azraile (2) kat olup yalvarsanda nafile EceL geldiğinde (1) gün öleceksin ! İşte, o an herşey (0) dan başlayacak. Çünkü,
ÖLÜM BİR YOK OLUŞ DEĞİL,YENİDEN DOĞUŞTUR !

Kullanici Avatari

tdsharun

>>> O Şimdi Sivil<<<
Aktif Üye
 36
 778
 27
 06/11/2008
231
 Kütahya
 
 Ofis 2003
 31/12/2011,02:16
Çözüldü 
Şifre yanlış olunca da giriş yapıyordu. Kodlamada hata yapmışım. Düzeltip gönderirim birazdan...



Kullanici Avatari

tdsharun

>>> O Şimdi Sivil<<<
Aktif Üye
 36
 778
 27
 06/11/2008
231
 Kütahya
 
 Ofis 2003
 31/12/2011,02:16
Çözüldü 
Evet, şimdi kusursuz çalışan bir hal aldı...

Tam senin istediğin gibi oldu. Sifre formundaki Command2 butonunun tıklandığında olayındaki kodların yerine aşağıdaki kodları yerleştir:

Kod:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
Private Sub Command2_Click()
Dim SifreKontrol As String

SifreKontrol = DLookup("Sifre", "tblsifre", "[ID]=" & Me.kullanıcı.Value)
'Girilen kullanıcı adı ve sifreyi "tblsifre" tablosundan kontrol et

    If IsNull(Me.kullanıcı) Or Me.kullanıcı = "" Then
            MsgBox "Lutfen Kullanıcı Adı Giriniz.", vbCritical, "CSKN CKL"
            Me.kullanıcı.SetFocus
        Exit Sub
    End If

    If IsNull(Me.Sifre) Or Me.Sifre = "" Then
            MsgBox "Lutfen Şifre Giriniz.", vbCritical, "CSKN CKL"
            Me.Sifre.SetFocus
        Exit Sub
    End If

'Eger Kullanıcı 3 kez yanlıs islem yaparsa programı kapat
    
    intLogonAttempts = intLogonAttempts + 1
    If intLogonAttempts > 3 Then
        MsgBox "Sisteme giris icin uygun kod ve Sifre üretilemedi.", vbCritical, "CSKN CKL"
        Application.Quit
    End If



If Me.Sifre.Value = SifreKontrol Then

YetkiKontrol

Else
        MsgBox "Hatalı Sifre! Lütfen Tekrar Deneyiniz", vbCritical, "CSKN CKL"
        Me.Sifre.SetFocus
    End If
    
End Sub

Private Function YetkiKontrol()
Dim Yetkili As String
Yetkili = DLookup("Yetki", "tblsifre", "[ID]=" & Me.kullanıcı.Value)

If Yetkili = "ADMINISTRATOR" Then
        DoCmd.Close acForm, "sifre"
MsgBox "Admin olarak giriş yaptınız. Denetim Masasına yönlendiriliyorsunuz.", vbInformation, "Lütfen Dikkat..."
        DoCmd.OpenForm "Denetim Masası"

Else

        DoCmd.Close acForm, "sifre"

MsgBox "Sisteme Kısıtlı Kullanıcı olarak giriş yaptınız. Raporlama formuna yönlendiriliyorsunuz.", vbInformation, "Lütfen Dikkat..."
        DoCmd.OpenForm "frmGecisFormu"

End If

End Function


Kolay gelsin...



Kullanici Avatari

Coskun0559

Uzman
Uzman
CO.... ÇA....
 33
 1.221
 99
 02/11/2008
516
 Tekirdağ
 
 -
 16/08/2018,17:56
Çözüldü 
tesekkurler arkadaşım deneme fırsatım olmadı ama en kısa zamanda denicem.


GERİ SAYIM;Sen doğduğunda başladı ! Eğer (9) canlı bile olsaydın en fazla (8) kez kaçabilirdin Ölümden ! Bil ki (7) Düvele sultan dahi olsan yerin (6) Mekan olacak sana. En fazla (5) Metre kumaş götürebileceksin ! Kapatacaksın (4) açsanda gözlerini ! Bu (3) günlük fani dünyada Azraile (2) kat olup yalvarsanda nafile EceL geldiğinde (1) gün öleceksin ! İşte, o an herşey (0) dan başlayacak. Çünkü,
ÖLÜM BİR YOK OLUŞ DEĞİL,YENİDEN DOĞUŞTUR !

Kullanici Avatari

ozanakkaya

sledgeab
Kurucu
OZ.... AK....
 40
 11.140
 465
 29/01/2008
 Denizli
 Memur
 Ofis 2010 32 Bit
 Bugün,02:30
Çözüldü 
Konuyu Access Cevaplanmış Soruları bölümüne taşıyorum. Konu ile ilgisi sorun devam ederse lütfen konudaki herhangi bir mesajda bulunan "BİLDİR" butonunu tıklayarak Yöneticiden Konuyu Sorular Bölümüne taşımasını isteyiniz. Teşekkürler.


"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 

Kullanici Avatari

Tombakoglu

Aktif Üye
Aktif Üye
 60
 109
 7
 27/01/2009
3
 Eskişehir
 
 Ofis 2007
 28/12/2015,19:19
Çözüldü 
Teşekkürler,
Hayırlı çalışmalar dilerim




Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü Ağda Dosyayı Çoklu Kullanıcı İle Paylaşmak m_demir 6 118 17/08/2018, 15:42
Son Yorum: m_demir
Çözüldü İsme Göre Otomatik Sıra No golf2000 2 136 08/08/2018, 18:07
Son Yorum: golf2000
Çözüldü Kod İle İnternet Sayfası Açtırma te-kin 2 90 28/07/2018, 12:40
Son Yorum: te-kin
Çözüldü Taksit Sayısına Göre Yapılandırma. haziran4 10 318 26/07/2018, 16:13
Son Yorum: haziran4
Çözüldü Metin Kutusuna Girilen Veriye Göre Veri Çağırma fascioğlu 3 152 25/07/2018, 18:14
Son Yorum: fascioğlu

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