+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Örnekleri ve Uygulamaları (https://accesstr.net/forum-access-ornekleri-ve-uygulamalari.html)
+--- Konu Başlığı: Formdaki Sekme Denetimine Şifre Koyma (/konu-formdaki-sekme-denetimine-sifre-koyma.html)
Cvp: Formdaki Sekme Denetimine Şifre Koyma - skylort - 05/03/2009
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
Cvp: Formdaki Sekme Denetimine Şifre Koyma - tdsharun - 05/03/2009
Ş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...
Cvp: Formdaki Sekme Denetimine Şifre Koyma - benremix - 10/10/2009
Katkı paylaşım için teşekkürler. Saygılar...
Cvp: Formdaki Sekme Denetimine Şifre Koyma - ercansahin - 10/10/2009
Teşekkürler...
Cvp: Formdaki Sekme Denetimine Şifre Koyma - mehmetdemiral - 10/10/2009
Hayrola, sanırım bu konuyu yeni keşfettiniz arkadaşlar. Neredeyse Harun'un askerliği bitecek yaw
Cvp: Formdaki Sekme Denetimine Şifre Koyma - benremix - 10/10/2009
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...