dilerim işinize yarar
Not: yalnız accounts tablosundan Uyeadı alanını sildim gereksiz olduğundan

(09/02/2020, 00:12)berduş yazdı: dilerim işinize yarar
Not: yalnız accounts tablosundan Uyeadı alanını sildim gereksiz olduğundan

Ellerinize saglik Soyle bir durum olusuyor sadece formdan kaydetmeden ciktigimda formun tablosuna bos kayit atiyor.
1.si Bunu nasil engellerim

2.cift tikladiktan sonra forma bilgiler cekildiginde  txtIslemTuru.SetFocus kodunu hangi yordama yazmaliyim ki cursor islem turu alanina odaklansin, guncelleme oncesi sonrasi ekleme oncesi ve sonrasi olay yordamlarina yazdim olmadi. Modulde bile denedim

3.Ben bu tarz forma bilgiyi cekme islemini bir cok farkli formda uygulayacagim. Farkli bir form daki ayni islemi modulde nasil kodlayabilirim. Bir yontemi var mi yoksa sizin kodun altina yazmaya devam mi edecegim veya 2 kodun arasina  nasil bir baglac kod yazacagim.

Option Compare Database
Public UyeNoLng As Long
Public UyeAdStr As String
Function BilgiAl()
DoCmd.OpenForm "F_0_MemberAccount", , , , acFormAdd
DoCmd.GoToRecord , , acNewRec
Forms("F_0_MemberAccount").Controls("txtUyeNo") = UyeNoLng
Forms("F_0_MemberAccount").Controls("txtUyeAdiSoyadi") = UyeAdStr
kodunun devamina

DoCmd.OpenForm "F_10_xxxxForm", , , , acFormAdd

DoCmd.GoToRecord , , acNewRec
Forms("F_10_xxxxForm").Controls("txtUyeNo") = UyeNoLng
Forms("F_10_xxxxForm").Controls("txtUyeAdiSoyadi") = UyeAdStr

End Function

yazmam yeterli olacakmi ?

Affiniza siginarak Cok soru sordum ozur dilerim.

Sayın Oğuz Türkyılmaz bazı formlarda değişiklikler yapıldı. İnceler misin?

Güncellenmiş dosya

Halil Bey ellerinize saglik cok az kodla hallolmus gibi tek sikinti onuda yeni farkettim islem turu alaninda Uyelerin ad ve soyadlari cikiyor gozden kacirmisiz ikimizde ( borc alacak yerine ). 
Birde siz konuya ilk gonderdigim tablo ve formlarda uygulamayi yaptiniz ben yazdiginiz kodlari programin son haline adapte ediyorum. Son seklinde T_0_MemberAccount ve F_0_MemberAccount olan tablo ve forma ben tarih alaninida eklemis ve yazdiginiz kodlarida:

tarih alani icin 

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


ve 

Option Compare Database

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


seklinde kirmizi bolumleri ekleyerek revize etmistim. Tarih alaninida iliskisiz hale getirdikten sonra

yaptigim islem sonuclari T_0_MemberAccount tablosuna 21.22.23 Islemid lerde  tutarlar hic cikmadan asagidaki sekilde yansidi. Tarih alanini ekledigimde nerede yanlis yaptim acaba? Tarih alaninin tipinin farkli olmasindan yada kodda yanlis siralama ile    eklenmesinden mi kaynaklaniyor. Sonucta kodu nasil revize edeyim ?

(09/02/2020, 02:05)userx yazdı: Sayın Oğuz Türkyılmaz bazı formlarda değişiklikler yapıldı. İnceler misin?

Sn.Userx emekleriniz icin tesekkur ederim 1.mesajda belirttigim gibi baska uygulamalarimda Birlesik Giris Kutusu ile bende sizinki gibi uygulama yapabiliyorum.Ama bu denetimi kullanmak istemiyorum o yuzden konuyu acmistim. Halil beyin cozumu ile halloldu tekrar tesekkur ederim.