Access SQL   ›   ACCESS SORULARI VE ÖRNEK UYGULAMALARI   ›   ACCESS SORULARI   ›   Sekme Denetimi Içerisinde Sayfalar Arası Alt Forma Veri Aktarımı Kaydı

Sekme Denetimi Içerisinde Sayfalar Arası Alt Forma Veri Aktarımı Kaydı
neco_can
Yeni Üye 15-40

*
Kayıt Tarihi: 18.08.2014
Toplam 9 konu açtı.
Toplam 31 yorum yaptı.
Toplam 0 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2007 TR,
Beğeniler: 5 / 1
#1
access-sql-9  10-02-2021, 16:50 (En son düzenleme: 10-02-2021, 16:51 neco_can.)
Merhaba, "FRM_Policeler_Detay" adında bir formum bulunmaktadır. 
Bu form içerisinde sekme denetimi ekledim "tabContacts"
Bu sekme denetimi içerisinde "Police_Detay" sehmesinde veriler bulunmaktadır. Bu verileri bir buton yardımı ile "Kacan_isler" sayfasındaki "FRM_Policeler_Detay_Kacan_isler_Alt" formuna kaydetmek istiyorum bir haftadır açıp okumadığım konu kalmadı yardımlarınız için şimdiden çok  teşekkür ederim.  

örnek aşagıdaki gibidir.


Eklenti Dosyaları
.rar   Program - Kopya.rar (Boyut: 70,48 KB / İndirilme: 63)



  Bul
  Alıntı
Bu mesajı beğenenler:
onur_can
Kıdemli Üye >1000

*
Kayıt Tarihi: 01.01.2009
Toplam 151 konu açtı.
Toplam 5.511 yorum yaptı.
Toplam 261 puanı bulunmakta.
Beğeniler: 10 / 76
#2
11-02-2021, 12:30
Merhaba sn neco_can,
Uygulamanız görsel olarak puanı yüksek, fakat işleyiş bakımından zayıf. sebebine gelince MS Access ilişkisel bir veritabanı sistemidir. Yani bu platformda tasarlayacağınız uygulamada kullandığınız tablolar arasında bir şekilde bir ilişki olmalıdır. (Sizin uygulamanızda olması şart eğer olmazsa işi yokuşa sürmüş olursunuz, Mercedesle gideceğiniz yolu 124 le gidersiniz.). Fakat şöyle bir durum var, bir çok uygulamada rastladım. Uygulamada tek tablo var ve bir çok alan var. Bu durumda kullanıcı tüm bilgilerini bu tek tablo üzerinden veri tabanına giriyor. Bu gibi uygulamada fazla çaba gerektirmeden oluşturuluyor. Diğer yandan baktığımda ise bu tür uygulamaların MS Access'te yapılmasına gerek olmadığını düşünüyorum. Neden mi? Çünkü tek tabloda oluşturduğunuz uygulamaları MS Excel fazlasıyla yetecektir. Gerek yok MS Access'te yapmaya. Eğer uygulamanızda bulunan tabloların birbiriyle ilişkilendirmesini sağlarsanız işiniz oldukça kolay, Siz kayıt yaptıkça Kaçan İşler otomatik olarak alt forma kaydedilecektir. Eğer ilişkiler konusunu incelemek isterseniz aşağıdaki linklere göz atıp bilgi edinebilirsiniz.
Tablo İlişkileri-1
Tablo İlişkileri-2



  Bul
  Alıntı
Bu mesajı beğenenler: neco_can
neco_can
Yeni Üye 15-40

*
Kayıt Tarihi: 18.08.2014
Toplam 9 konu açtı.
Toplam 31 yorum yaptı.
Toplam 0 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2007 TR,
Beğeniler: 5 / 1
#3
11-02-2021, 15:17
hocam kıymetli görüşleriniz için çok teşekkür ederim. Tablolar arası ilişkileri sorgular üzerinden kurmaktayım. Projem aslında geniş kapsamlı bir takip programı. Projemin hepsini paylaşmak istemediğim için diğer alanların çoğunu silerek ekleme yaptım. Excel bu işlemleri yaparken çok zorlanmakta çünkü çok fazla veri kaydı var milyona yanın.

Kaçan işleri normalde aşağıdaki komutla halledip diğer tabloya kaydedebiliyordum. 
Visual Basic
  1. On Error GoTo hata
  2. Dim sql As String
  3. sql = "insert into TBL_Kacan_Policeler(txt_Musteri,txt_PoliceNo,txt_Muta,txt_AcenteKod,txt_SigortaliTCKVKN,txt_SigortaEttirenTCKVKN,txt_Durum,txt_Surec,txt_Oncelik,txt_TanzimTarihi,txt_PoliceBasTarihi,txt_PoliceBitisTarihi,txt_Sirket,txt_SaticiSicil,txt_PortfoyYoneticisi,txt_YeniPoliceNo,txt_EskiPoliceNo,txt_RiskBedeli,txt_BrutPrim,txt_Komisyon,txt_DainiMurtehin,txt_Faaliyet,txt_TarifeAdi,txt_TarifeKodu,txt_Uavt,txt_Aciklama,txt_Kacma_Nedeni) Values('" & Me.txt_Musteri & "', '" & Me.txt_PoliceNo & "', '" & Me.txt_Muta & "', '" & Me.txt_AcenteKod & "', '" & Me.txt_SigortaliTCKVKN & "', '" & Me.txt_SigortaEttirenTCKVKN & "', '" & Me.txt_Durum & "', '" & Me.txt_Surec & "', '" & Me.txt_Oncelik & "', '" & Me.txt_TanzimTarihi & "', '" & Me.txt_PoliceBasTarihi & "', '" & Me.txt_PoliceBitisTarihi & "', '" & Me.txt_Sirket & "', '" & Me.txt_SaticiSicil & "', '" & Me.txt_PortfoyYoneticisi & "', '" & Me.txt_YeniPoliceNo & "', '" & Me.txt_EskiPoliceNo & "', " _
  4. & "'" & Me.txt_RiskBedeli & "', '" & Me.txt_BrutPrim & "', '" & Me.txt_Komisyon & "', '" & Me.txt_DainiMurtehin & "', '" & Me.txt_Faaliyet & "', '" & Me.txt_TarifeAdi & "', '" & Me.txt_TarifeKodu & "', '" & Me.txt_Uavt & "', '" & Me.txt_Aciklama & "', '" & Me.txt_Kacma_Nedeni & "');"
  5. DoCmd.RunSQL sql
  6. MsgBox "Kaçan İşlere Başarı İle Aktarıldı."
  7. cikis:
  8. Exit Sub
  9. hata:
  10. MsgBox "Hata Ekleme Yapılamadı"
  11. Resume cikis



sayfa koyup yan yana kaçan işleri görmek istediğimde işlemi yapamadım.  aşağıdaki yapıyı tam oluşturamadım. 
poliçe seçip yan tarafa geçip kaçan işlere kaydet dediğimde oraya almasını istiyorum çünkü kaçan işler kısmına açıklama vb. alanları eklemem gerekiyor. Alt form olsa yapabilirim ama sayfa olunca yapamadım. Destekleriniz için çok teşekkür ederim.

[Kacan_isler].[Detay_Kacan_isler].Form.Recordset.AddNew
[Kacan_isler].[Detay_Kacan_isler].Form![txt_musteri] = Me.txt_musteri
..
..
..



  Bul
  Alıntı
Bu mesajı beğenenler:
onur_can
Kıdemli Üye >1000

*
Kayıt Tarihi: 01.01.2009
Toplam 151 konu açtı.
Toplam 5.511 yorum yaptı.
Toplam 261 puanı bulunmakta.
Beğeniler: 10 / 76
#4
11-02-2021, 23:19
Şöyle yapabilirsiniz. siz altformla yine yapın anaform üzerinde altformu yaptıktan sonra sekme denetiminde hangi sayfaya taşıyacaksanız alt formunuzu kesin bu sayfaya yapıştırın. Aynı sonucu verecektir.



  Bul
  Alıntı
Bu mesajı beğenenler: neco_can
ekremer1969
Önemli Üye 200-300

*
Kayıt Tarihi: 17.12.2014
Toplam 49 konu açtı.
Toplam 219 yorum yaptı.
Toplam 52 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2010 TR,
Beğeniler: 1 / 5
#5
12-02-2021, 16:32 (En son düzenleme: 12-02-2021, 16:41 ekremer1969.)
Yazdığınız ekleme kodunda (insert ile başlayan) sütun sayıları eşit değil ve bazı değerler kaçan işler tablosunda mevcut olmadığından hata veriyordu. Bir kısmını düzelttim ve "kaçan işler" tablosuna aktar butonunu ilk sayfaya aldım. Burada istediğiniz kayda gidip bu tuş yardımıyla "kaçan işler" tablosuna gönderebilirsiniz. Ancak daha üzerinde çalışılması lazım. Çok fazla sütun olduğundan ve işinize vakıf olmadığımdan hangileri kaçan işler tablosuna kaydedilmeli bilmiyorum. Bir alan için de dönüştürme türü hatası veriyor alan tiplerini inceleyip bulunabilir.


Eklenti Dosyaları
.rar   Program - Kopya.rar (Boyut: 82,21 KB / İndirilme: 45)



  Bul
  Alıntı
Bu mesajı beğenenler: neco_can
neco_can
Yeni Üye 15-40

*
Kayıt Tarihi: 18.08.2014
Toplam 9 konu açtı.
Toplam 31 yorum yaptı.
Toplam 0 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2007 TR,
Beğeniler: 5 / 1
#6
12-02-2021, 17:52
(12-02-2021, 16:32)ekremer1969 demiş ki: Yazdığınız ekleme kodunda (insert ile başlayan) sütun sayıları eşit değil ve bazı değerler kaçan işler tablosunda mevcut olmadığından hata veriyordu. Bir kısmını düzelttim ve "kaçan işler" tablosuna aktar butonunu ilk sayfaya aldım. Burada istediğiniz kayda gidip bu tuş yardımıyla "kaçan işler" tablosuna gönderebilirsiniz. Ancak daha üzerinde çalışılması lazım. Çok fazla sütun olduğundan ve işinize vakıf olmadığımdan hangileri kaçan işler tablosuna kaydedilmeli bilmiyorum. Bir alan için de dönüştürme türü hatası veriyor alan tiplerini inceleyip bulunabilir.

Hocam Desteğiniz için çok teşekküre ederim. 

Farklı bir yol ile işlemi yaptım. Bazen gerçekten çok basit düşünmek sorunu çözüyor Smile 

öncelikle kaçan işlerin altındaki metin kutusunu ilişkisiz yaptım. ve veri alanına şu komutu yazdım "=Nz([Formlar]![FRM_Policeler_Detay]![txt_Musteri];"Müşteri Ünvanı")"

Ardından "Kaçan işlere ekle butonu "tıklandığında" kısmına aşağıdaki sql ekledim sorunsuz çalıştı Smile


Visual Basic
  1. Private Sub KacanEkle_Click()
  2. On Error GoTo hata
  3. Dim sql As String
  4. sql = "insert into TBL_Kacan_isler(txt_Musteri) Values('" & Me.txt_Musteri & "');"
  5. DoCmd.RunSQL sql
  6. MsgBox "Kaçan İşlere Başarı İle Aktarıldı."
  7. cikis:
  8. Exit Sub
  9. hata:
  10. MsgBox "Hata Ekleme Yapılamadı"
  11. Resume cikis
  12. End Sub





  Bul
  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  [TABLO] Excel Aktarımı kahramanselim 6 193 06-04-2024, 21:11
Son Mesaj: kahramanselim
  Access Formu üzerinden Sql Server Tabloya Nasıl Veri Kaydı Yapılır karacahil 4 204 15-02-2024, 12:10
Son Mesaj: halily
  [VBA] Tablolar Arası Dağılım benuva 1 197 09-02-2024, 00:56
Son Mesaj: halily
  [VBA] Rapora Veri Aktarımı zimbit 15 302 19-01-2024, 02:10
Son Mesaj: zimbit
access-sql-18 [VBA] Veritabanları Arası şartlı Tablo Kopyalama BeyTor 5 257 22-07-2023, 00:29
Son Mesaj: dsezgin
  Toplu .csv, .xlsx, .xls, .xml Dosya Aktarımı Yapmak adnnfrm 2 242 22-06-2023, 19:04
Son Mesaj: dsezgin
  [FORM] Forma Arama Ekleyemedim :( finishim 16 537 16-05-2023, 12:44
Son Mesaj: finishim
  Alt Forma Veri Girmek krem 2 219 21-12-2022, 19:15
Son Mesaj: kerrem

Foruma Git:


Bu konuyu görüntüleyen kullanıcı(lar): 1 Ziyaretçi