Sub SifirsaKitle()
If Me.İs_No = 0 Then
fırkısıd.Enabled = False
[tbl_URUNGIRIS].Form![urunıd].Enabled = False
Else
fırkısıd.Enabled = True
[tbl_URUNGIRIS].Form![urunıd].Enabled = True
End If
End Sub
üstteki kodu urungiris formunun Vba sayfasına ekle,
formun açıldığında olayına ve İs_No metin kutusunun güncelleştirme sonrasında olayına
call SifirsaKitle
kodu eklekilitlenecek metin kutusu isimlerini SifirsaKitle koduna eklemelisin, fırkısıd ana form, urunıd altformdaki denetimin adıdır. Bu arada Türkçe karakter kullanımı ile ilgili bir şey söyleyemeyeceğim, uygulamanızın Türkçe karakterlerden dolayı gümlemesini bekliyorum.