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 SubBurada 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.
