AccessTr.neT

Merhaba
form1 de EKIPMAN(örnek canavar(1) satırında seçilen ekipmanın DURUM u teslim edildi ise yeni satırda bu ekipmanın seçilmemesi için veya seçildiği zaman bu ekipman şu kişidedir(örnek x kişidedir) diye bir hata mesajı verdirmek istiyorum DURUM satırı teslim alındı yazıldığı zaman yeni satırda yeniden ekipmanın seçilebilmesini istiyorum bu konuda yardımlarınızı bekliyorum....Teşekkürler

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

Çok teşekkür ederim...