Forma Butonla Çağrılan Yeni Formdan Bilgi Çekmek.

(09/02/2020, 03:46)Oğuz Türkyılmaz yazdı: CurrentDb.Execute " insert into T_0_MemberAccount " & _
                  " ( UyeNo, IslemTuru, Tutar, Tarih ) values " & _
                  " ( " & Me.txtUyeNo & ", '" & Me.txtUyeAdiSoyadi & "','" & Me.txtTarih & "', CCur('" & Me.txtTutar & "'))"

alan türü tarih ise Clng kullanmanız daha uygun olur tarih uzun sayıya çevrilip öyle eklenir

CurrentDb.Execute " insert into T_0_MemberAccount " & _

                  " ( UyeNo, IslemTuru, Tutar, Tarih ) values " & _

                  " ( " & Me.txtUyeNo & ", '" & Me.txtUyeAdiSoyadi & "', " & clng(Me.txtTarih) & ", CCur('" & Me.txtTutar & "'))"

gibi

(09/02/2020, 03:46)Oğuz Türkyılmaz yazdı: Forms("F_0_MemberAccount").Controls("txtTarih") = ""

sorunuzun diğer kısımlarını anlamadım?
txttarih alanını boşaltmak için Null yada "" kullanılabilir ben "" kullandığımda sorun çıkarmamıştı.

(09/02/2020, 03:46)Oğuz Türkyılmaz yazdı: Function BilgiAl()
DoCmd.OpenForm "F_0_MemberAccount" ', , , , acFormAdd
Forms("F_0_MemberAccount").Controls("txtUyeNo") = Form_SF_1AF.Controls("txtUyeNo")
Forms("F_0_MemberAccount").Controls("txtUyeAdiSoyadi") = Form_SF_1AF.Controls("txtUyeAdiSoyadi")
Forms("F_0_MemberAccount").Controls("txtIslemTuru") = "" 'Form_SF_1AF.Controls("UyeNo")
Forms("F_0_MemberAccount").Controls("txtTutar") = "" 'Form_SF_1AF.Controls("UyeAdiSoyadi")
Forms("F_0_MemberAccount").Controls("txtTarih") = ""

End Function

yerine

Function BilgiAl()

DoCmd.OpenForm "F_0_MemberTaransferAccount"

With Form_F_0_MemberTaransferAccount

    .txtUyeNo = Form_SF_1AF.Controls("UyeNo")

    .txtUyeAdiSoyadi = Form_SF_1AF.Controls("UyeAdiSoyadi")

    .txtIslemTuru = "" 

    .txtTutar = "" 

    .txtTarih = ""

End With

End Function

şeklinde kullanılabilir

(09/02/2020, 10:36)berduş yazdı:

(09/02/2020, 03:46)Oğuz Türkyılmaz yazdı: CurrentDb.Execute " insert into T_0_MemberAccount " & _
                  " ( UyeNo, IslemTuru, Tutar, Tarih ) values " & _
                  " ( " & Me.txtUyeNo & ", '" & Me.txtUyeAdiSoyadi & "','" & Me.txtTarih & "', CCur('" & Me.txtTutar & "'))"

alan türü tarih ise Clng kullanmanız daha uygun olur tarih uzun sayıya çevrilip öyle eklenir

CurrentDb.Execute " insert into T_0_MemberAccount " & _

                  " ( UyeNo, IslemTuru, Tutar, Tarih ) values " & _

                  " ( " & Me.txtUyeNo & ", '" & Me.txtUyeAdiSoyadi & "', " & clng(Me.txtTarih) & ", CCur('" & Me.txtTutar & "'))"

gibi

Kodu asagidaki sekilde duzenledim, 

Private Sub btnKaydet_Click()
CurrentDb.Execute " insert into T_0_MemberAccount " & _
                  " ( UyeNo, IslemTuru, Tarih, Tutar ) values " & _
                  " ( " & Me.txtUyeNo & ", '" & Me.txtIslemTuru & "','" & Me.txtTarih & "', CCur('" & Me.txtTutar & "'))"
End Sub

sabah islem turu alanina isimlerin gelmesinin sebebi insert into 2.satirda adisoyadi hanesi kullanmisiz ( yada siz bu hatayi gormemi istediniz )
bunu txtIslem turu ile degistirip 
Tarih ve tutar alanlarinin sirasini degistirince  tarihide elle girdigimde sorun ortadan kalkti. sikintiyi cozdum geceyarisi dikkatim dagilmis.

Sizin cevabinizi simdi okudum ve Me,txtTarih  bolumunu  " & clng(Me.txtTarih) & ", ile degistirince hata verdi o yuzden burada kullanmadim.

iliskisiz Tarih alanina elle degildeTarih formatinda nasil giris yapilabilir adli yeni konu acacagim 3 farkli yontem denedim olmadi, Tekrar tesekkurler iyi pazarlar dilerim,

Halil Bey son mesajinizi simdi gordum hemen bakip uygulayip donus yaparim bu kod dahada kisa olmus. Biraz daha sizi ugrastirirsam tek satirda cozeceksiniz korkarim

çalışmanızın son halini ekleyip sorunları tek tek yazın inceleyelim