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.