Farklı forumda bulunan veriyi başka bir formda bulunan alana aktarmak

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

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.

İnceleyiniz....

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 ?

(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 & "'"

kodunu aşağıdaki ile değiştir.

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

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