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) |
Cvp: Forma Butonla Çağrılan Yeni Formdan Bilgi Çekmek. - berduş - 09/02/2020 dilerim işinize yarar Not: yalnız accounts tablosundan Uyeadı alanını sildim gereksiz olduğundan Cvp: Forma Butonla Çağrılan Yeni Formdan Bilgi Çekmek. - Oğuz Türkyılmaz - 09/02/2020 (09/02/2020, 00:12)berduş yazdı: dilerim işinize yarar 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. Cvp: Forma Butonla Çağrılan Yeni Formdan Bilgi Çekmek. - userx - 09/02/2020 Sayın Oğuz Türkyılmaz bazı formlarda değişiklikler yapıldı. İnceler misin? Cvp: Forma Butonla Çağrılan Yeni Formdan Bilgi Çekmek. - berduş - 09/02/2020 Güncellenmiş dosya Cvp: Forma Butonla Çağrılan Yeni Formdan Bilgi Çekmek. - Oğuz Türkyılmaz - 09/02/2020 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 ? Cvp: Forma Butonla Çağrılan Yeni Formdan Bilgi Çekmek. - Oğuz Türkyılmaz - 09/02/2020 (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. |