(12/12/2018, 19:02)haliliyas yazdı:

Private Sub afrTeklifDetay_Enter()

If IsNull(Me.TeklifNo) Then       'TeklifNo boş ise

Me.afrTeklifDetay.Locked = False '

MsgBox ("Teklif  oluşturulmadan kayıt eklenemez")

cboFirmaKodu.SetFocus

Else

Me.afrTeklifDetay.Locked = True

End If

End Sub

olayın kodunu formload'a değil "afrTeklifDetay"ın girildiğinde olayına yazmanız daha uygun olur
"afrTeklifDetay" kilitle dedim çünkü kilitlenince girebilirsiniz ama işlem yapamazsınız
eğer afrTeklifDetay.enabled = false deseydik oraya tekrar giremeyeceğimiz için
kontrolü tekrar yapamayabilirdik en azından ben denediğimde öyle oldu)
örneği inceler misiniz

Halil Bey uyguladım tamamdır.Teşekkürler. Yalnız kodda anlamadığım bir şey var "Me.afrTeklifDetay.Locked = False '" bu satır da locked kilitli demek  = false da kilitli değil anlamına gelmiyormu. if isnull ( eğer boş ise demek değilmi yani eğer me.teklifno boş ise afrTeklifDetayı kilitleme olarak anlıyorum ben bu kodu. Yapmak istediğimin tersi oluyor bana göre. Yanlışım nedir.