AccessTr.neT

Tam Versiyon: combox verinin kullanılıp kullanılmadığının kontrolü
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
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...