Private Sub DOVIZ_AfterUpdate()
Recalc
If IsNull(Metin71) Then Exit Sub
If Me.DOVIZ <> Me.Metin71 Then
MsgBox ("İlk veriden Farklı bir veri girildi")
HIZMET.Enabled = False
'ekleme buraya yapılacak =false
Else
HIZMET.Enabled = True
'ekleme buraya yapılacak =true
End If
End Sub
Umarım doğru anlamışımdır.