IIF çoklu kriter
Tarih
17/06/2009 17:16
Konu Sahibi
altangüven
Yorumlar
2
Okunma
1299
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



altangüven
altansoft
Kullanici Avatari
Aktif Üye
61
8
08/03/2009
4
Bursa
Ofis 2007
15/08/2011,15:04
Çözüldü 
Sponsor Reklam
herkese selamlar şöyle bir kodum var:

Kod:
1
2
3
4
5
6
7
8
9
10
Private Sub Form_DblClick(Cancel As Integer)
If Me.HESAPNO.Value = "330" Or "333" Or "360" Or "361" Or "362" Then
   DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
   DoCmd.RunSQL "insert into TRED select * from YALT Where YALT.KAYIT=[Forms]![FİŞGİRİŞ1]![FGALT1]![KAYIT]"
   DoCmd.RunSQL "delete  from YALT Where YALT.KAYIT=[Forms]![FİŞGİRİŞ1]![FGALT1]![KAYIT]"
   Me.Requery
Else
   MsgBox "SADECE EMANET KODU SEÇEBİLİRSİNİZ!!!"
End If
End Sub



Burada sadece 330 seçildiğinde çift tıklamayla eğer seçilen Hesapno uyuyorsa kaydı tablolar arası hareket ettirebiliyoruz. Uymuyorsa hata mesajı veriyoruz ben yukarıdaki gibi or (veya) çoklu kriter kullanarak kısıtlama yapmak istedim ancak bütün kodları ayrım yapmaksızın göndermeye başladı. Burada or yerine başka ne kullanılabilir.

altansoft 08-03-2009.
Cevapla

Seruz
Uzman
Kullanici Avatari
Uzman
S.... U....
1.544
7
30/10/2008
804
Tekirdağ
Ofis XP
13/01/2017,16:37
Çözüldü 
If içinde her değer için alanıda yazmalısınız.

Kod:
1
2
3
4
5
6
7
8
9
10
Private Sub Form_DblClick(Cancel As Integer)
If Me.HESAPNO.Value = "330" Or Me.HESAPNO.Value = "333" Or Me.HESAPNO.Value = "360" Or Me.HESAPNO.Value = "361" Or Me.HESAPNO.Value = "362" Then
   DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
   DoCmd.RunSQL "insert into TRED select * from YALT Where YALT.KAYIT=[Forms]![FİŞGİRİŞ1]![FGALT1]![KAYIT]"
   DoCmd.RunSQL "delete  from YALT Where YALT.KAYIT=[Forms]![FİŞGİRİŞ1]![FGALT1]![KAYIT]"
   Me.Requery
Else
   MsgBox "SADECE EMANET KODU SEÇEBİLİRSİNİZ!!!"
End If
End Sub


veya If değil Select Case ile yapabilirsiniz.

Kod:
1
2
3
4
5
6
7
8
9
10
11
Private Sub Form_DblClick(Cancel As Integer)
Select Case Me.HESAPNO.Value
  Case "330", "333", "360", "361", "362"
   DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
   DoCmd.RunSQL "insert into TRED select * from YALT Where YALT.KAYIT=[Forms]![FİŞGİRİŞ1]![FGALT1]![KAYIT]"
   DoCmd.RunSQL "delete  from YALT Where YALT.KAYIT=[Forms]![FİŞGİRİŞ1]![FGALT1]![KAYIT]"
   Me.Requery
  Case Else
   MsgBox "SADECE EMANET KODU SEÇEBİLİRSİNİZ!!!"
End Select
End Sub


Bildiğini bilenin arkasından git, bildiğini bilmeyeni uyar, bilmediğini bilene öğret, bilmediğini bilmeyenden kaç.
Konfüçyüs
Cevapla

altangüven
altansoft
Kullanici Avatari
Aktif Üye
61
8
08/03/2009
4
Bursa
Ofis 2007
15/08/2011,15:04
Çözüldü 
Sponsor Reklam
çok teşekkür ederim if için verdiğiniz örneği uyguladım çalışıyor. emeğinize sağlık kolay gelsin.
altansoft 08-03-2009.
Cevapla


Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  Listede farklı bir tabloyu çoklu ölçüt olarak kullanmak. nightashes 2 111 01/01/2017, 01:05 nightashes
Information Listeden Çoklu Seçimle Raporlama Akifff 3 267 30/07/2016, 13:24 Akifff
  bir kayda ilişkin çoklu veriyi seçerek çekme veya yeni veri ekleme mehmetb84 8 537 18/06/2016, 15:44 mehmetb84
  Access Form ve Raporda Çoklu Resim Gösterme Nasıl Yapılır? mehami 8 710 24/04/2016, 16:15 mehami
Çözüldü Formda Çoklu Süzme Nasıl Yapılır? mehami 13 1.114 12/04/2016, 16:30 mehami


Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya