05/03/2009, 00:38
skylort
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
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