AccessTr.neT

Tam Versiyon: kilidi şifre ile açmak
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2
arkadaşlar öncelikle hepinize selam ve saygılar sunuyorum.ekde gönderdiğim örnekte formdaki "KİLİDİ ÇÖZ" butonunun sadece belirlenen bir şifre ile açılabilmesini istiyorum. Şimdiden herkese teşekkür eder saygılar sunarım.
kilitiac butonun içeriği(komut27) aynen şöyle olsun;
Private Sub Komut27_Click()
Dim sifre, c As String
sifre = InputBox("Düzenleme Şifresini Giriniz", "Düzenleme Şifresi:[alper]")
If sifre = "alper" Or sif = "ALPER" Then
Kimlik.Enabled = True
FATURA_NO.Enabled = True
TARİH.Enabled = True
TUTAR.Enabled = True
KDV.Enabled = True
TOPLAM.Enabled = True
AÇIKLAMA.Enabled = True
FİRMA_İSMİ.Enabled = True
Else
c = MsgBox("Hatalı Şifre Girdiniz.", 64, "Hatalı Şifre Girişi")
End If
End Sub
Coşkun hocam teşekkür eder saygılar sunarım.
S.A
Sadece üzerinde bulunan kayıdımı kitliyor ? Yoksa tüm kayıtlarımı kitliyor ?
Ayrıca üstadım şifre girerken **** şeklinde girmesini sağlayabilirmiyiz
syn Hakkı34;uyarı seviyen %80 ' çıkmış ama hala Site Kurallarını ihlal ediyorsunuz.
sita kuralları gereği sorunuzu yeni bir konuda açmak bu kadarmı zor bilmem ama sorunuzun cevabını Access örnekleri ve uygulamaları bölümüne yeni örnek ekleyerek paylaştım,başka arkadaşlarda faydalansın diye.

Buyrun sorunuzun cevabı burada;
https://accesstr.net/konu-inputbox-sifre...anmak.html
Ben yeni başlık açarsam bu konu daha önce açıldı neden yeniden açıyorsun denir diye açmadım. Bundan sonra yeni başlıkta açarım üstadım..Ozur
Sayfalar: 1 2