AccessTr.neT

syn mehmetb84;
örneğinize şu kodları ekledim
Formun Açıldığında alanları kilitlemek için;

Private Sub Form_Load()

Me.KeyPreview = True

Me.FilterOn = False

kilitle

End Sub

alanları kilitlemek için;

Sub kilitle()

Me.fiyatno.Locked = True

Me.kaliteadi.Locked = True

Me.verilenfiyat.Locked = True

Me.verilenpb.Locked = True

Me.tarih.Locked = True

Me.Metin51.Locked = True

Me.dolar.Locked = True

Me.euro.Locked = True

Me.kaliteleraltform.Locked = True

End Sub

alanların kilidini kaldırmak içinde;

Sub kilitac()

Me.fiyatno.Locked = False

Me.kaliteadi.Locked = False

Me.verilenfiyat.Locked = False

Me.verilenpb.Locked = False

Me.tarih.Locked = False

Me.Metin51.Locked = False

Me.dolar.Locked = False

Me.euro.Locked = False

Me.kaliteleraltform.Locked = False

End Sub

kodunu yazdım.
Yeni Kayıt butonun içeriğini;

Private Sub Komut39_Click()

Dim sesor As String

sesor = MsgBox("Yeni Kayıt Eklenecek.Devam Edilsin Mi...?", 36, "Yeni Kayıt Ekle..")

If sesor = 6 Then

 DoCmd.GoToRecord , , acNewRec

Me.kaliteadi.SetFocus

 kilitac   'Dikkat et burada alanların kilitleri açılıyor

 Else

 End If

End Sub

şeklinde değiştirdim.kilitac fonksiyonunuda ekledim alanlara veri girişi yapılsın diye.
formuna 1 adet buton ekledim(kilidi kaldır)
onun kodu ise;

Private Sub Komut60_Click()

kilitac

End Sub

şeklindedir.
bensadece bazı alanların kilitlerini devre dışı ve aktif ettim sen gerekli alanların hepsini kod sayfasında yazarsın.örnek ektedir.

Yeni butonu yukarıda yazmış olduğum kilit kaldırma işinden sonra yeni kayıda git komutunu çalıştıracak:

YENİ BUTONU:

ad_soyad.Locked = False

DoCmd.GoToRecord , , acNewRec

KAYDET BUTONU:

DoCmd.RunCommand acCmdSaveRecord

ad_soyad.Locked = True

DÜZENLE BUTONU:

ad_soyad.Locked = False

syn alpeki hocam;
sizin mesajı görmedim aynı yolu önermişiz
çok pardon

çoşkuncum aklına sağlık bu yöntemi aynen yapıcam daha kullanışlı saolasın.

Cevaplara ek olarak;
Form Üzerindeki Verileri Kilitle

(14/09/2011, 17:55)mehmetb84 yazdı: [ -> ]çoşkuncum aklına sağlık bu yöntemi aynen yapıcam daha kullanışlı saolasın.

sende sağol kolay gelsin