Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
18/04/2013 15:04
Konu Sahibi
slayerrrrr
Yorumlar
2
Okunma
1042
Konuyu Oyla:
  • Derecelendirme: 5/5 - 1 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 5/5 - 1 oy

slayerrrrr

Aktif Üye
Kullanici Avatari
Aktif Üye
E.... T....
93
14/01/2011
13
İzmir
satın alma
Ofis 2007
17/08/2017,10:38
Çözüldü 
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


Ek Dosyalar
.rar   Database3.rar (Dosya Boyutu: 24,66 KB / İndirme Sayısı: 5)
Cevapla

ozanakkaya

sledgeab
Kullanici Avatari
Kurucu
O.... A....
9.789
29/01/2008
Denizli
Memur
Ofis 2010 32 Bit
Bugün,13:38
Çözüldü 
Kodları aşağıdakilerle değiştirip deneyiniz.

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
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


Cevapla

slayerrrrr

Aktif Üye
Kullanici Avatari
Aktif Üye
E.... T....
93
14/01/2011
13
İzmir
satın alma
Ofis 2007
17/08/2017,10:38
Çözüldü 
Çok teşekkür ederim...


Cevapla


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
Çözüldü Yardım : Tablodaki Bir Verinin Combobox İle Secilerek Tutarının Gösterilmesi orba 2 82 18/09/2017, 04:55 orba
Çözüldü Combox Sorgu Etkileşimi blue_wall 4 338 14/05/2017, 12:30 blue_wall
Çözüldü Dosya Kontrolü turalsitkituralvolkan 2 250 19/04/2017, 09:30 turalsitkituralvolkan
Çözüldü Pc Açılış Kullanıcı İle Veritabanı Kull Kontrolu burhanb 3 338 12/04/2017, 09:36 burhanb
Çözüldü Vb tarafında textbox içerik kontrolü yapamıyorum pelitt 3 311 08/04/2017, 11:57 atoz112

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
Forum use Krzysztof "Supryk" Supryczynski addons.