Sayın Arkadaşlar,
Ekteki uygulamada Urungırıs ve urungırıs1 formlarına İş_No 0 ise alanlara veri girişini ne şekilde önleyebilirim,
Saygılarımla.

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
call SifirsaKitle
kodu ekleAlıntı:...Metin kutularının adını yazdığınız kodunun neresine ekleyeceğimi bilemedim...
Alıntı:...kilitlenecek metin kutusu isimlerini SifirsaKitle koduna eklemelisin...
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
fırkısıd.Enabled = False
fırkısıd.Enabled = True
Sub SifirsaKitle()
If Me.İs_No = 0 Then
[tbl_URUNGIRIS].Form![urunıd].Enabled = False
fırkısıd.Enabled = False
yetkılı.Enabled = False
SEKTOR.Enabled = False
tel.Enabled = False
ılılce.Enabled = False
belgeno.Enabled = False
Else
[tbl_URUNGIRIS].Form![urunıd].Enabled = True
fırkısıd.Enabled = True
yetkılı.Enabled = True
SEKTOR.Enabled = True
tel.Enabled = True
ılılce.Enabled = True
belgeno.Enabled = True
End If
End Sub