Private Sub afrTeklifDetay_Enter()

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

Me.afrTeklifDetay.Locked = True'

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

cboFirmaKodu.SetFocus

Else

Me.afrTeklifDetay.Locked =False  

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
Hatalı kod düzenlenip dosya yeniden eklenmiştir