sn arkadaşlar;

aşağıdaki kodda run time error 94: Invalid use of Null hatası alıyorum.bir türlü çözemedim. yardımcı olursanız sevinirim.
saygılar.

vb kodu

Private Sub SERVİSKODU_AfterUpdate()

Dim servis, adi As String

servis = DLookup("SERVİS_KODU", "SERVİS", "SERVİS_KODU='" & Me.SERVİSKODU & "'")

adi = DLookup("SERVİS_ADİ", "SERVİS", "SERVİS_KODU='" & Me.SERVİSKODU & "'")

If Len(servis) > 0 Then
MsgBox "" & vbCr & servis & " No'lu Servis Kodu:" & vbCr & vbCr & adi & _
" İsimli servise aittir. Lütfen farklı bir servis kodu kullanınız!!!!", vbExclamation, "Sistem Uyarı"
Me.SERVİSKODU = ""
Me.SERVİSKODU.SetFocus
Exit Sub
End If
End Sub

bir de msgbox açıldığında tamam cevabından sonra başka koda geçiyor. ?????

Sn hnakis76; formda ki SERVİSKODU guncellemesi ile SERVİS tablosunda kayit var ise uyari mesaji verilme islemi
Private Sub SERVİSKODU_AfterUpdate()
Dim servis, adi As String
if dcount("*", "SERVİS", "[SERVİS KODU]='" & Me.SERVİSKODU & "'")>0 then
MsgBox "" & vbCr & DLookup("[SERVİS KODU]", "SERVİS", "[SERVİS KODU]='" & Me.SERVİSKODU & "'") & " No'lu Servis Kodu:" & vbCr & vbCr & DLookup("[SERVİS ADİ]", "SERVİS", "[SERVİS KODU]='" & Me.SERVİSKODU & "'") & _
" İsimli servise aittir. Lütfen farklı bir servis kodu kullanınız!!!!", vbExclamation, "Sistem Uyarı"
Me.SERVİSKODU = ""
Me.SERVİSKODU.SetFocus
End If
End Sub
ile yapilabilir.

sn dsezgin83260;

önerdiğiniz kodu yazınca run-time error '2001': önceki işlemi iptal ettiniz mesajı geliyor.

If DCount("*", "SERVİS", "[SERVİS KODU]='" & Me.SERVİSKODU & "'") > 0 Then

satırında.


ilginç olan 2007 Access olan bir pc de kullanınca önceki kod hata vermiyor. sizce sebep ne olabilir.
saygılar.