+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: combox verinin kullanılıp kullanılmadığının kontrolü (/konu-combox-verinin-kullanilip-kullanilmadiginin-kontrolu.html)
combox verinin kullanılıp kullanılmadığının kontrolü - slayerrrrr - 18/04/2013
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
Cvp: combox verinin kullanılıp kullanılmadığının kontrolü - ozanakkaya - 18/04/2013
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 IfCvp: combox verinin kullanılıp kullanılmadığının kontrolü - slayerrrrr - 19/04/2013
Çok teşekkür ederim...