Skip to main content

AccessTr.neT

Kayıt Ol

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

Mesaj Kutusu Hakkında

notrino
notrino
Access Cevaplanmış Soruları
8
1757

Mesaj Kutusu Hakkında

Çözüldü #1
notrino
Aktif Üye
notrino
Bul
Aktif Üye*
Adı Soyadı:
Konum: İzmir
Ofis Versiyonu: Ofis 2010 32 Bit
Son Oturumu: 26/08/2023,17:17
Yorumları: 643
Konuları: 183
Kayıt Tarihi: 18/02/2016
Teşekkür Puanı: 21
Merhabalar,

Formdaki bir butona basıldığında "şifre ile bir komutun çalıştırılması" uygulamasını aşağıdaki kod dizilimi ile yapıyorum.

Kod:
Dim Sifre, DogruSifre As Variant

Sifre = InputBox("Şifreyi Yazınız", "Şifre?", , , , "", 0)
DogruSifre = "accesstr.net"

Select Case Len(Sifre)
Case 0
    Exit Sub
Case Else

    If Sifre = DogruSifre Then
        DoCmd.OpenForm "Form1", acNormal
    Else
        MsgBox ("hatalı şifre yazdınız")
    Exit Sub
    End If
End Select
Butona basıldığında çıkan mesaj kutusuna ilgili şifreyi yazarken girdiğim karakterler aynen ekranda gözükmektedir. Ben istiyorum ki girdiğim karakterler ekranda **** şeklinde görünsün. Yani ekrana bakan başkaları için gizlilik oluşsun. Bunun için bu kod diziliminde neyi değiştirmem gerekiyor? Teşekkürler.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
Mesaj Kutusu Hakkında - Yazar: notrino - 14/08/2018, 11:14
Cvp: Mesaj Kutusu Hakkında - Yazar: ozanakkaya - 14/08/2018, 11:22
Cvp: Mesaj Kutusu Hakkında - Yazar: ozanakkaya - 31/08/2018, 15:16
Cvp: Mesaj Kutusu Hakkında - Yazar: notrino - 31/08/2018, 15:34
Cvp: Mesaj Kutusu Hakkında - Yazar: ozanakkaya - 31/08/2018, 15:39
Cvp: Mesaj Kutusu Hakkında - Yazar: notrino - 31/08/2018, 16:05
Cvp: Mesaj Kutusu Hakkında - Yazar: mehmetdemiral - 01/09/2018, 01:38
Cvp: Mesaj Kutusu Hakkında - Yazar: notrino - 01/09/2018, 10:00
Cvp: Mesaj Kutusu Hakkında - Yazar: mehmetdemiral - 01/09/2018, 11:46