Merhaba Hocalarım bir şey soracaktım. kayıt işleminden sonra gelen veriyi kilitleyebilir miyiz? kişiye özel tanımlanmış gibi olacak.

örneğin: yeni kayıt yapılan bir kişinin branşını futbol seçtim. kaydettikten sonra formda burayı sabit görmek istiyorum. tıklanamasın kimse değiştiremesin. sadece ben tablo içinden yada düzenle butonundan müdahale edebileyim.

bu konuda fikirlerinize ihtiyacım var.

Hocalarım çözdüm. aşağıda yazılan kodu paylaşıyorum.

iki adet buton ekledim. kilit aç ve kilitle diye.

KİLİT AÇ:

Private Sub Komut126_Click()
Dim sifre, DogruSifre As Variant
sifre = InputBox("Şifreyi Yazınız", "Şifre?", , , , "", 0)
DogruSifre = "123456"
Select Case Len(sifre)
Case 0
    Exit Sub
Case Else
    If sifre = DogruSifre Then
Me.Branş.Enabled = True
    Else
        MsgBox ("hatalı şifre yazdınız")
    Exit Sub
    End If
End Select
End Sub





KİLİTLE:

Me.Branş.Enabled = False