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 & _
"

Ekran görüntüsü hatasını alıyorum.windows10 ve Office 2016 kullanıyorum.bu projeyi Xp ve 2006 yüklü PC de kullanıyorum hiçbir sıkıntı yok.sebebi ne olabilir.