استبدل الكود السابق بهذا الكود
Dim x
x = DLookup("[tozeh]", "tbl", "Auto_id =[المعرف]")
If x = 0 Then
Me![جهة التوزيع].Locked = True
Me![جهة التوزيع].Enabled = False
ElseIf x = -1 Then
Me![جهة التوزيع].Locked = False
Me![جهة التوزيع].Enabled = True
End If
::بالتوفيق::