Skip to main content

AccessTr.neT


Güncelleştirme Sonrası Olay Yordamına farklı İki kodu birleştirme.

Güncelleştirme Sonrası Olay Yordamına farklı İki kodu birleştirme.

Çözüldü #1
Sayın Hocalarım,değerli form üyeleri,

Ekteki çalışmamda Odeme_bilgileri formunda bulunan Odeme_tutarı alanının Günclleştirme Sonrası olayında iki farklı işlemi yapmam gerekiyor birisi altforma kayıt yapıyor,diğeri veriyi kasaya gönderiyor altforma kayıt yapma olayını uyguladım,ama kasaya gönderme işlemini gerçekleştiremiyorum böyle bir durumda her iki uygulama kodlarını birleştirmekmi gerekiyor yoksa başka bir çözüm yolumu var bilemediğim için takıldım kaldım.Bu konuda öneri veya mümkünse yardımlarınıza ihtiyacım var.
Zira her iki kod grubunun başvuru adresi aynı..


Saygılarımla.
İyi çalışmalar
.rar FA.Otel & İşletme Yönetim-32 - Deneme.rar (Dosya Boyutu: 936,11 KB | İndirme Sayısı: 8)
Son Düzenleme: 18/11/2015, 04:49, Düzenleyen: fascioğlu.
Cevapla
#2
frm_odemebilgileri formundaki odeme_tutari metin kutusunun güncelleştirme sonrasında olayındaki kodu aşağıdaki ile değiştir.


Dim db As Database

Dim rs, rs2, rs3 As DAO.Recordset
Dim strSQL, strSQL2, strSQL3 As String
Set db = CurrentDb()
strSQL = "SELECT * FROM tbl_odeme_bilgileri"
strSQL2 = "SELECT * FROM tbl_KASA"
strSQL3 = "SELECT TOP 1 ISLEMTARIHI AS tarihkontrol, tbl_KASA.* FROM tbl_KASA WHERE (((ISLEMTARIHI)=Date()) AND (([GELIRCESIDI]) Is Null));"

Set rs = db.OpenRecordset(strSQL)
rs.AddNew
rs!Odano = Me.Parent.Odano
rs!odeme_Tarihi = Now()
rs!odeme_yontemi = Me.odeme_yontemi
rs!odeme_tutari = Me.odeme_tutari
rs.Update

Set rs2 = db.OpenRecordset(strSQL2)
Set rs3 = db.OpenRecordset(strSQL3)

If rs3.EOF Then
rs2.AddNew
rs2!ISLEMTARIHI = Me.odeme_Tarihi
rs2!GELIRCESIDI = "KONAKLAMA"
If Me.odeme_yontemi = "Nakit" Then
rs2!NAKIT = Me.odeme_tutari
ElseIf Me.odeme_yontemi = "Kredi Kartı" Then
rs2!KREDIKARTI = Me.odeme_tutari
ElseIf Me.odeme_yontemi = "Banka" Then
rs2!BANKA = Me.odeme_tutari
End If
rs2.Update
Else
rs3.Edit
rs3!GELIRCESIDI = "KONAKLAMA"
If Me.odeme_yontemi = "Nakit" Then
rs3!NAKIT = Me.odeme_tutari
ElseIf Me.odeme_yontemi = "Kredi Kartı" Then
rs3!KREDIKARTI = Me.odeme_tutari
ElseIf Me.odeme_yontemi = "Banka" Then
rs3!BANKA = Me.odeme_tutari
End If
rs3.Update
End If

rs.Close
rs2.Close
rs3.Close
db.Close

Set rs = Nothing
Set rs2 = Nothing
Set rs3 = Nothing
Set db = Nothing

Me.odeme_Tarihi = Null
Me.odeme_yontemi = Null
Me.odeme_tutari = Null
Me.Recalc
Me.odeme_Tarihi.SetFocus
Me.Parent.frm_odeme_bilgileri1.Requery
Cevapla
#3
Sayın Ozan Hocam,
Yine muhteşemsiniz sağolun varolun emeğinize aklınıza sağlık,Allah razı olsun.
Konu çözülmüştür.
Saygılarımla..
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da