AccessTr.neT
IIF çoklu kriter - Baskı Önizleme

+- 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ığı: IIF çoklu kriter (/konu-iif-coklu-kriter.html)

IIF çoklu kriter - altangüven - 17/06/2009

herkese selamlar şöyle bir kodum var:
Kod:
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.

Cvp: IIF çoklu kriter - Seruz - 17/06/2009

If içinde her değer için alanıda yazmalısınız.

Kod:
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:
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


Cvp: IIF çoklu kriter - altangüven - 18/06/2009

çok teşekkür ederim if için verdiğiniz örneği uyguladım çalışıyor. emeğinize sağlık kolay gelsin.