Merhaba,
İlginiz için çok teşekkür ederim. Private Sub Form_Open(Cancel As Integer)
Call Text_Kilitle
End Sub
Public Sub Text_Kilitle()
Dim Ctlr As Control
On Error Resume Next
For Each Ctlr In Me.Form.Controls
If Ctlr.Tag = "Kontrol" Then
Ctlr.Locked = True
End If
Next
End Sub
Public Sub Text_Ac()
Dim Ctlr As Control
On Error Resume Next
For Each Ctlr In Me.Form.Controls
If Ctlr.Tag = "Kontrol" Then
Ctlr.Locked = False
End If
Next
End Sub
Böyle bir kod buldum fakat bu kayıtları komple kitliyor. Sayfa açılınca tüm kayıtlar kilitleniyor. İnanın bana burada sizlere sorarken bir yandan da sürekli araştırıyorum.
Sanırım diğer kodun içine bu kodun kimi kısımlarını gömmem gerekecek umarım yaparım.
Amacım if le çağıran veri eğer daha önce kayıtlı ise sadece çağırılanı kilitlemek ve bu sayede kullanıcının o kayıt üzerinde hata yapmasını engellemek ve kullanıcının kaydı bozmamasını sağlamak.
Saygılarımla...
mükerrer kayıt varsa getir yoksa yeni kayıt aç
Konuyu Okuyanlar: 1 Ziyaretçi