(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