Kodları aşağıdakilerle değiştirip deneyiniz.

Dim VarMi As Integer

Dim Kimde As String



VarMi = Nz(DLookup("[Kimlik]", "Bakim_el_aletleri_tablo", "[DURUM]='TESLİM EDİLDİ' And [CİHAZ TİPİ1] = " & "'" & Me![EKIPMAN] & "'"), 0)

Kimde = Nz(DLookup("[TESLİM ALAN]", "Bakim_el_aletleri_tablo", "[Kimlik]=" & VarMi), "")



    If VarMi > 0 Then

        MsgBox ("Bu Ekipman " & Kimde & " isimli kişidedir")

        Me.EKIPMAN = ""

    Else

        K1 = Me.EKIPMAN.Column(1)

        K2 = Me.EKIPMAN.Column(2)

        K3 = Me.EKIPMAN.Column(3)

        K4 = Me.EKIPMAN.Column(4)

        K5 = Me.EKIPMAN.Column(5)

        K6 = Me.EKIPMAN.Column(6)

        K7 = Me.EKIPMAN.Column(7)

    End If