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