Skip to main content

AccessTr.neT


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

Oğuz Türkyılmaz
Oğuz Türkyılmaz
31
3155

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

#25
(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
Cevapla
#26
(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ı.
Cevapla
#27
(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
Cevapla
#28
(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,
Access Çekirgesi 
[Resim: img-cray.gif]


Cevapla
#29
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
Access Çekirgesi 
[Resim: img-cray.gif]


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

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task