AccessTr.neT

Tam Versiyon: Formlar Arası Veri Aktarma
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2
Sayın form ailesi,
Yapmış oşduğum ekli projede Musterıcarıalt formunda bulunan ALINANTUTAR'ı girdiğimizde;Uygulamatarıhı,musterıadı,uygulamaıstemı,odemebıcımı ve alınantutar alanlardaki verilerin Kasa formunda bulunan Gelir Çeşidi Bölümünde bulunan alanlara aktarmak istemiştim ve aşağıda bulunan kodu uyguladım ama başarılı olamadım.Saygılarımla






Sub VeriAktar()

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




Set rs = db.OpenRecordset(strSQL)




rs.AddNew
rs!ISLEMTARIHI = Me.Parent.UYGULAMATARIHI
rs!ISLEMTARIHI = Now()
rs!odemeturu = Me.ACL_ODEMEBICIMI
rs!ODEMEYONTEMI = Me.ACL_UYGULAMAISTEMI
rs!ODEMETUTARI = Me.ALINANTUTAR
rs.Update




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




    If rs3.EOF Then
        rs2.AddNew
        rs2!ISLEMTARIHI = Me.UYGULAMATARIHI
        rs2!GELIRCESIDI = Me.ACL_ODEMEBICIMI
            If Me.ACL_ODEMEBICIMI = "Nakit" Then
                rs2!NAKIT = Me.ALINANTUTAR
            ElseIf Me.ACL_ODEMEBICIMI = "Kredi Kartı" Then
               rs2!KREDIKARTI = Me.ALINANTUTAR
            
            
            End If
        rs2.Update
    Else
        rs3.Edit
        rs3!GELIRCESIDI = Me.ALINANTUTAR
            If Me.ACL_ODEMEBICIMI = "Nakit" Then
              rs3!NAKIT = Me.ALINANTUTAR
            ElseIf Me.ACL_ODEMEBICIMI = "Kredi Kartı" Then
              rs3!KREDIKARTI = Me.ALINANTUTAR
           
            
            
            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.UYGULAMATARIHI = Null
Me.ACL_UYGULAMAISTEMI = Null
Me.ACL_ODEMEBICIMI = Null
Me.ALINANTUTAR = Null
Me.Recalc
Me.UYGULAMATARIHI.SetFocus












End Sub
Merhaba,
mesajınızı düzenlemeden önceki sorunuza ait cevap ektedir.
Sayın Ozan hocam,
Emek ve mesainiz için sonsuz teşekkürlerimi sunarım,yalınız ufak bir ayrıntı var,İlaçlama metin yazısınını Kasa da Türü adlı alana yazamazmıyız.
Saygılaımla.
Yazabilirsiniz.

Kullanılan ekleme sorgusu

INSERT INTO T_KASA 

GKOD, 
ISLEMTARIHI, 
[" & GOdemeTuru & "], 
GELIRCESIDI 

Values 
(
'" & GKOD & "', 
'" & UYGULAMATARIHI & "',
" & UYGULAMATUTARI & ", 
'" & GMUSTERIADI & "'
)

Kodun açılmış hali, hangi alana neyin kaydedileceği renklendirildi, bu sorguya TURU alanını ekleyip kaydedilecek değer için ilgili alanı Values bölümüne ekleyebilirsiniz.
Sayın Ozan hocam,
TURU alanına verdiğiniz kodları yazdım ama sanırım uygulayamadım,söz dizimi hatası veriyor.
Hatalı kodu görmeden birşey diyemeyeceğim.
Sayfalar: 1 2