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

Forma Butonla Çağrılan Yeni Formdan Bilgi Çekmek. - Baskı Önizleme

+- 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ığı: Forma Butonla Çağrılan Yeni Formdan Bilgi Çekmek. (/konu-forma-butonla-cagrilan-yeni-formdan-bilgi-cekmek.html)

Sayfalar: 1 2 3 4 5 6

Cvp: Forma Butonla Çağrılan Yeni Formdan Bilgi Çekmek. - berduş - 09/02/2020

(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

Cvp: Forma Butonla Çağrılan Yeni Formdan Bilgi Çekmek. - berduş - 09/02/2020

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

Cvp: Forma Butonla Çağrılan Yeni Formdan Bilgi Çekmek. - berduş - 09/02/2020

(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

Cvp: Forma Butonla Çağrılan Yeni Formdan Bilgi Çekmek. - Oğuz Türkyılmaz - 09/02/2020

(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,

Cvp: Forma Butonla Çağrılan Yeni Formdan Bilgi Çekmek. - Oğuz Türkyılmaz - 09/02/2020

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

Cvp: Forma Butonla Çağrılan Yeni Formdan Bilgi Çekmek. - berduş - 09/02/2020

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