Skip to main content

AccessTr.neT


Formdaki Sekme Denetimine Şifre Koyma

Formdaki Sekme Denetimine Şifre Koyma

#13
Merhaba arkadaşlar,
kafayı sıyırmak uzereyım altta verılen kod verılen ornek programda çalışıyor ama benım programda

'Hide controls tagged with "*" until password entered.
Dim ctl As Control
For Each ctl In Controls
If ctl.Tag = "*" Then
ctl.Visible = False
End If
Next ctl
alanı bi turlu çalışmıyor ama diger yerler çalışıyor sizce problem ne olabilir?
yardımlarınızı bekliyorum.


Option Compare Database

Private Sub Form_Current()

'Hide controls tagged with "*" until password entered.
Dim ctl As Control
For Each ctl In Controls
If ctl.Tag = "*" Then
ctl.Visible = False
End If
Next ctl

End Sub

Private Sub TabCtl0_Change()

Dim strInput As String
Dim ctl As Control

' Hide controls on tab until correct password is entered
For Each ctl In Controls
If ctl.Tag = "*" Then
ctl.Visible = False
End If
Next ctl

' If tab page with Tab Index of 1 is selected
' show InputBox asking for password
If TabCtl0.Value = 1 Then
strInput = InputBox("Bu sekmeye giriş yapabilmek için lütfen şifreyi giriniz..." & vbNewLine & vbNewLine & "ŞİFRE = accesstr.net", _
"Şifreli Giriş Alanı")

' Check if value is entered into InputBox
' If no value entered display MsgBox
If strInput = "" Or strInput = Empty Then
MsgBox "Şifre alanını boş bıraktınız." & vbCrLf & "Şifrenizi girmediğiniz sürece bu sekmeyi göremezsiniz." & vbCrLf & "Sekme içeriğini görebilmek için lütfen şifrenizi giriniz...", , "Boş Alan Uyarısı"
TabCtl0.Pages.Item(0).SetFocus
Exit Sub
End If

' Check InputBox value and if value is a match
' display tab and unhide hidden fields
If strInput = "accesstr.net" Then

For Each ctl In Controls
If ctl.Tag = "*" Then
ctl.Visible = True
End If
Next ctl
' If incorrect password supplied return to tab (index 0)
Else
MsgBox "Üzgünüm, hatalı şifre girişi yaptınız." & vbCrLf & "Şifrenizi kontrol edip tekrar deneyin.", , "Hatalı Şifre Uyarısı"
TabCtl0.Pages.Item(0).SetFocus

Exit Sub
End If
End If

End Sub
Cevapla
#14
Şifre koymak istediğiniz sekmedeki tüm değerlerin İm özelliğine * işaretini koyun. Etiket, Metin kutusu, liste kutusu vb. ne varsa hepsinin İm'i * (Yıldız) olsun...

Sorun çözülecektir...

Kolay gelsin...
NZ Fonksiyonunun (İşlevinin) Ayrıntılı Anlatımı İçin Tıklayın...
DSum ve Sum Fonksiyonunun (İşlevinin) Ayrıntılı Anlatımı İçin Tıklayın...
DLookup Fonksiyonunun (İşlevinin) Ayrıntılı Anlatımı İçin Tıklayın...
Cevapla
#15
Katkı paylaşım için teşekkürler. Saygılar...
Bilgi paylaşıldıkça çoğalır....
Her engel, yaşam koşullarınızı daha iyileştirecek bir fırsattır.


Access için her zaman lazım olacak konu başlıkları listesi


Cevapla
#16
Teşekkürler...
Cevapla
#17
Hayrola, sanırım bu konuyu yeni keşfettiniz arkadaşlar. Neredeyse Harun'un askerliği bitecek yawImg-grin
İnadına, ille de Accesstr.net...
Cevapla
#18
Sn Mehmet Hocam başka bir konuda gündemden bahsetmiştim. Aktif olanların nereye baktığına baktığımda sizin bu konuya baktığınızı görünce bu vesile ile bu konuyu görmüş oldum ve gündeme taşımış oldum. Ancak görebildik. Bu arada Sn Harunun askerliği ne zaman bitiyor.Saygılar...
Bilgi paylaşıldıkça çoğalır....
Her engel, yaşam koşullarınızı daha iyileştirecek bir fırsattır.


Access için her zaman lazım olacak konu başlıkları listesi


Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task