Herkese merhaba,

Yapmak istediğim şu: Her bir formda yetkisiz kişiler tarafından veri girişini - silinmesini veya yetkili kişiler tarafından da olsa yanlışlıkla veri girişini - silinmesini önlemek amacıyla aşağıdaki gibi bir kod yazdım.

Public Sub KILITLE()
Dim ctlr As Control
On Error Resume Next
For Each ctlr In Me.Form.Controls
ctlr.Enabled = False
ctlr.Locked = True
Me.DUZELT.Caption = "DÜZELT"
Next
End Sub

Public Sub COZ()
Dim ctlr As Control
On Error Resume Next
For Each ctlr In Me.Form.Controls
ctlr.Enabled = True
ctlr.Locked = False
Me.DUZELT.Caption = "KAYDET"
Next
End Sub

Public Sub SAYFA()
Dim ctlr As Control
On Error Resume Next
For Each ctlr In Me.Form.Controls
If ctlr.Tag = "SAYFA" Then
ctlr.Enabled = True
ctlr.Locked = False
End If
Next
End Sub

Public Sub IDNO()
Dim ctlr As Control
On Error Resume Next
For Each ctlr In Me.Form.Controls
If ctlr.Tag = "IDNO" Then
ctlr.Enabled = False
ctlr.Locked = True
End If
Next
End Sub


Burada "KILITLE" fonksiyonunu çağırarak SAYFA imi dışındaki tüm denetimlerin kilitlenmesini,
"COZ" fonksiyonunu çağırarak SAYFA ve IDNO imi dışındaki tüm denetimlerin kilidinin tekrar düzenleme, silme işlemleri için açılmasını sağlamaya çalışıyorum.

SAYFA ve IDNO imi ile KILITLE ve COZ fonksiyonlarından etkilenmesini istemediğim denetimler için kullanıyorum (SAYFA imi sürekli aktif olmasını istediğim komut düğmeleri için, IDNO imi de sürekli kilitli olmasını istediğim denetimler için kullanıyorum).

Ben bu fonksiyonları her bir form için ayrı ayrı düzenliyorum.

Acaba genel bir kod yazıp kullanmak istediğim formlarda bu kodu çağırabilir miyim?

Sanırım Access'te yapılamayacak bir şey yok gibi, ama ben nasıl yapılabileceğini bilmiyorum.

Bilen arkadaşlar yardımcı olursa çok sevinirim.

Şimdiden çok teşekkür ederim.

Call FormIslem(Me.Name, 0)
prosedur islemini form ismini belirterek kullanilabilir. Im(Tag) bolumune SAYFA yazma ile diger formlarda da islem kullanilabilir.

Sayın dsezgin hocam,

Öncelikle ilginize çok teşekkür ediyorum.

Verdiğiniz örnek, muhtemelen tam benim istediğim örnek.
Muhtemelen diyorum, çünkü yapmaya çalıştım, ama sanırım benden kaynaklı yapamadım.

Rica etsem, ekteki örnekte basitçe gösterebilir misiniz?

Yapmak istediğim form ilk açıldığında bütün denetimler kilitli olsun.
"Yeni" komut düğmesine bastığımda yeni sayfaya gidip bütün denetimleri serbestleştirmesi,
Düzelt komut düğmesine bastığımda da mevcut kayıtta mevcut denetimleri serbestleştirmesi.

İlginize tekrar çok teşekkür ederim.

  Genel Fonksiyon.rar (Boyut: 26,07 KB / İndirilme: 93) inceleyiniz.

Sayın dsezgin hocam, gerçekten emeğinize sağlık.
Çok teşekkür ederim.