+- 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ığı: Farklı forumda bulunan veriyi başka bir formda bulunan alana aktarmak (/konu-farkli-forumda-bulunan-veriyi-baska-bir-formda-bulunan-alana-aktarmak.html)
Cvp: Farklı forumda bulunan veriyi başka bir formda bulunan alana aktarmak - ozanakkaya - 24/06/2015
tbl_NAKITODEME isimli tabloya ve tbl_KKARTIODEME isimli tabloya "ODEME_ID" adında alan ekledim.
Formdaki Kredi Kartı isimli butonun tıklandığında olayına aşağıdaki kodu ekledim.
If [NAKITODEME].[Form]![KKARTI] <> 0 Then
Me.KKARTIODEME.Visible = True
Me.NAKITODEME.Visible = False
Sorgu1 = "SELECT * FROM tbl_KKARTIODEME "
Set Kayitlar = New ADODB.Recordset
Kayitlar.Open Sorgu1, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
With Kayitlar
.Find "[ODEME_ID]=" & "'" & [NAKITODEME].[Form]![ODEME_ID] & "'"
If Not rstkayit.EOF Then
If .Fields("CEKIMTUTARI") <> [NAKITODEME].[Form]![KKARTI] Then
If MsgBox("Bu işleme ait ödeme " & .Fields("CEKIMTUTARI") & " olarak kaydedilmiş, ödeme" & [NAKITODEME].[Form]![KKARTI] & " ile değiştirilsin mi? ", vbYesNo, "Ödeme Bilgisi...") = vbYes Then
.Fields("CEKIMTUTARI") = [NAKITODEME].[Form]![KKARTI]
.Update
End If
End If
Else
.AddNew
.Fields("ODEME_ID") = [NAKITODEME].[Form]![ODEME_ID]
.Fields("MUSTERIADI") = [NAKITODEME].[Form]![MUSTERIADI]
.Fields("MUSTERIID") = [NAKITODEME].[Form]![MUSTERIID]
.Fields("CEKIMTAR") = [NAKITODEME].[Form]![ISLEMTARIHI]
.Fields("CEKIMTUTARI") = [NAKITODEME].[Form]![KKARTI]
.Update
End If
End With
Else
MsgBox ("Kredi Kartı çekim tutarı giriniz")
End If
Me.KKARTIODEME.RequeryCvp: Farklı forumda bulunan veriyi başka bir formda bulunan alana aktarmak - fascioğlu - 24/06/2015
Hocam çok teşekkür ederim,evet sistem olarak doğr emeğinize sağlık,
Ancak NAKITODEME formundaki KKARTI alanına verinin KKARTIODEME FORMUNDAKİ CEKIMTUTARI'nın gelmesi gerekiyor çünkü öncelikle KKARTI bilgileri ile cekim tutarının girilmesi gerekiyor.Bu işlemden sonra NAKIT ODEME formuna CEKİMTUTARI'nı aktarma yapılması gerekiyor diye düşünüyorum.
ikinci soruma dair işlem yok henüz.
Saygılarımla.
Cvp: Farklı forumda bulunan veriyi başka bir formda bulunan alana aktarmak - ozanakkaya - 24/06/2015
İnceleyiniz....
Cvp: Farklı forumda bulunan veriyi başka bir formda bulunan alana aktarmak - fascioğlu - 24/06/2015
Ozan Hocam Tür Uyuşmazlığı diye bir hata veriyor
.Find "[ODEME_ID]=" & "'" & Me.ODEME_ID & "'"
Ayrıca Nakıt Ödemeye ise veri girdiğimde tüm boş satırları dolduruyor,kapatıp tekrar girdiğimde ise siliyor ?
Cvp: Farklı forumda bulunan veriyi başka bir formda bulunan alana aktarmak - ozanakkaya - 24/06/2015
(24/06/2015, 01:13)fascioğlu yazdı: Ozan Hocam Tür Uyuşmazlığı diye bir hata veriyor
.Find "[ODEME_ID]=" & "'" & Me.ODEME_ID & "'"
.Find "[ODEME_ID]=" & "'" & Me.ODEME_ID & "'".Find "[ODEME_ID]=" & Me.ODEME_ID(24/06/2015, 01:13)fascioğlu yazdı: Ayrıca Nakıt Ödemeye ise veri girdiğimde tüm boş satırları dolduruyor,kapatıp tekrar girdiğimde ise siliyor ?
NAKIT metin kutusunun denetim kaynağını NAKIT yap.
Cvp: Farklı forumda bulunan veriyi başka bir formda bulunan alana aktarmak - fascioğlu - 24/06/2015
Merhaba Ozan hocam..
Öncelikle yardım ve emeğinizden dolayı çok teşekkür ederim
Yapmış olduğunuz örnekten yola çıkarak projede bir takım değişiklikler yaptım.
1-Nakıtodeme,kkartıodeme formlarına ilaveten birde Musterıcari kartı ekledim.Ayrıca alt ve üst alan bağlantılarından MUSTERIID 'yi kaldırdım.
2-Böylece sorgu aracılığıyla Müşteriye Farklı tarihlerde verilen servis hizmeti tutarlarının genel toplamı ile hizmet verilen tarih itibarıyla toplam tutarlarını cari karta getirebildim,burada tek sıkıntı Nakıt ödeme formunda bulunan TOPODEME toplamını Cari kart formuna getirerek ALACAK/BORC TOPLAMINDAN ÖDEME TOPLAMI'nı çıkarark KALAN'nı bulabilmek.
3-Nakıt ödeme formunda bulunan KKARTI ödeme alanına veri girilmeden KKARTIODEME formunun açılarak buraya gireceğimiz verinin NAKITODEME formundaki KKARTI alanına yazması
Saygılarımla