AccessTr.neT

Tam Versiyon: Formdaki Sekme Denetimine Şifre Koyma
Ş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 3 4
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
Ş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...
Katkı paylaşım için teşekkürler. Saygılar...
Teşekkürler...
Hayrola, sanırım bu konuyu yeni keşfettiniz arkadaşlar. Neredeyse Harun'un askerliği bitecek yawImg-grin
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...
Sayfalar: 1 2 3 4