kilidi şifre ile açmak

1 2
22/09/2011, 14:44

alperadn01

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.
22/09/2011, 15:05

Coskun0559

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
23/09/2011, 08:22

alperadn01

Coşkun hocam teşekkür eder saygılar sunarım.
26/09/2011, 17:39

HAKKI34

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
26/09/2011, 18:19

Coskun0559

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
26/09/2011, 18:31

HAKKI34

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..
1 2