Access SQL   ›   ACCESS SORULARI VE ÖRNEK UYGULAMALARI   ›   ACCESS SORULARI   ›   [FORM] Butonla Üstform ve Altform Arasında Veriaktarmak

[FORM] Butonla Üstform ve Altform Arasında Veriaktarmak
kifkif
Aktif Üye 40-100

*
Kayıt Tarihi: 28.05.2015
Toplam 15 konu açtı.
Toplam 64 yorum yaptı.
Toplam 0 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2010 TR,
Beğeniler: 0 / 1
#1
02-07-2015, 16:19
Arkadaşlar aşağıda resimde açıklama yaptım. Yardımcı olabilirseniz sevinirim.

Not: Orijinal form siteden alınmıştır ve kendime göre düzenlemeye çalışyorum. Emeğe saygı olarak açıklama ihtiyacı hissettim. Saygılar. V_SPIN


Eklenti Dosyaları
.rar   RVS.rar (Boyut: 323,81 KB / İndirilme: 64)
.png   Adsız.png (Boyut: 112,69 KB / İndirilme: 69)



  Bul
  Alıntı
Bu mesajı beğenenler:
kifkif
Aktif Üye 40-100

*
Kayıt Tarihi: 28.05.2015
Toplam 15 konu açtı.
Toplam 64 yorum yaptı.
Toplam 0 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2010 TR,
Beğeniler: 0 / 1
#2
06-07-2015, 09:47
Yardım edebilecek kimse yok mu ? en azından yol gösterecek tavsiyede bulunacak Smile



  Bul
  Alıntı
Bu mesajı beğenenler:
kifkif
Aktif Üye 40-100

*
Kayıt Tarihi: 28.05.2015
Toplam 15 konu açtı.
Toplam 64 yorum yaptı.
Toplam 0 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2010 TR,
Beğeniler: 0 / 1
#3
06-07-2015, 15:08
Şu şekilde bir kodlama yapıldı ama aktarma tam yapılmıyor, üst formlar asında iletişim kuruyor ama alt formlar aktarma yapamıyor. Aktar Butonunun Tıklanma olay yordamına aşağıdaki kodlama yapıldı:

Visual Basic
  1. End Sub
  2. Private Sub Komut14_Click()
  3.  
  4. If MsgBox("Bildirimi Servis Formuna aktarmak istiyor musunuz?", vbYesNo, "Aktarım Onay") = vbYes Then
  5. DoCmd.SetWarnings False
  6. DoCmd.RunSQL "INSERT INTO ServisGiris ( BildirimID, [Servis Tarihi], Şantiye, Perosnel, MakinaID ) SELECT ArızaBildirimAnaTablo.[Bildirim ID], ArızaBildirimAnaTablo.[Bildirim Tarihi], ArızaBildirimAnaTablo.Şantiye, ArızaBildirimAnaTablo.Personel, ArızaBildirimAnaTablo.[Makina ID] FROM ArızaBildirimAnaTablo WHERE (((ArızaBildirimAnaTablo.[Bildirim ID])=[Formlar]![BildirimServisAktarma]![Liste0]));"
  7. DoCmd.RunSQL "INSERT INTO ServisGirisAltForm ( [Bildirim ID], [Servis ID], [Parça Adı], [Bildirim Açıklaması], [Durumu] ) SELECT ArızaBildirimAltForm.[BildirimID], DLookUp('[Servis ID]','ServisGiris','[BildirimID]=' & [BildirimID]) AS X, ArızaBildirimAltForm.[MalzemeEkipman], ArızaBildirimAltForm.Aciklama, ArızaBildirimAltForm.Durumu FROM ArızaBildirimAltForm WHERE (((ArızaBildirimAltForm.[Bildirim ID])=[Formlar]![BildirimServisAktarma]![Liste0]));"
  8. DoCmd.SetWarnings True
  9. If MsgBox("Bildirim Servis Formuna aktarıldı, Bildirim silinsin mi?", vbYesNo, "Silme Onayı") = vbYes Then
  10. DoCmd.SetWarnings False
  11. DoCmd.RunSQL "Delete ArızaBildirimAnaTablo.[Bildirim ID] FROM ArızaBildirimAnaTablo WHERE (((ArızaBildirimAnaTablo.[Bildirim ID])=[Formlar]![BildirimServisAktarma]![Liste0]));"
  12. DoCmd.SetWarnings True
  13. End If
  14.  
  15. If MsgBox("Aktarım ve silme işlemi yapıldı Form açılsın mı?", vbYesNo, "Form Aç") = vbYes Then
  16. DoCmd.OpenForm "ServisGirisFormu", , , "[BildirimID]=" & [Liste0]
  17.  
  18. End If
  19. Me.Liste0.Requery
  20. End If




Eklenti Dosyaları
.png   Adsız.png (Boyut: 108,72 KB / İndirilme: 60)
.rar   RVS.rar (Boyut: 305,55 KB / İndirilme: 66)



  Bul
  Alıntı
Bu mesajı beğenenler:
kifkif
Aktif Üye 40-100

*
Kayıt Tarihi: 28.05.2015
Toplam 15 konu açtı.
Toplam 64 yorum yaptı.
Toplam 0 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2010 TR,
Beğeniler: 0 / 1
#4
07-07-2015, 10:15
İhtiyacı olan olursa büyük kısmını hallettim kodlamanın, form ve tablo isimleri benzer olduğu için yanlış yazılmış: kodu şu şekilde yaptım:

Visual Basic
  1. Private Sub Komut14_Click()
  2.  
  3. If MsgBox("Bildirimi Servis Formuna aktarmak istiyor musunuz?", vbYesNo, "Aktarım Onay") = vbYes Then
  4. DoCmd.SetWarnings False
  5. DoCmd.RunSQL "INSERT INTO ServisGiris ( BildirimID, [Servis Tarihi], Şantiye, Perosnel, MakinaID ) SELECT ArızaBildirimAnaTablo.[Bildirim ID], ArızaBildirimAnaTablo.[Bildirim Tarihi], ArızaBildirimAnaTablo.Şantiye, ArızaBildirimAnaTablo.Personel, ArızaBildirimAnaTablo.[Makina ID] FROM ArızaBildirimAnaTablo WHERE (((ArızaBildirimAnaTablo.[Bildirim ID])=[Formlar]![BildirimServisAktarma]![Liste0]));"
  6. DoCmd.RunSQL "INSERT INTO ServisGirisAltForm ( [Bildirim ID], [Servis ID], [Parça Adı], [Bildirim Açıklaması], [Durumu] ) SELECT ArızaBildirimAltForm2.[Bildirim ID], DLookUp('[ServisID]','ServisGiris','[BildirimID]=' & [Bildirim ID]) AS X, DLookUp('[Makina Tam Adı]','YedekMakina','[Parça ID]=' & [Parça Adı]) AS Y, ArızaBildirimAltForm2.Açıklama, ArızaBildirimAltForm2.Durumu FROM ArızaBildirimAltForm2 WHERE (((ArızaBildirimAltForm2.[Bildirim ID])=[Formlar]![BildirimServisAktarma]![Liste0]));"
  7. DoCmd.SetWarnings True
  8. If MsgBox("Bildirim Servis Formuna aktarıldı, Bildirim silinsin mi?", vbYesNo, "Silme Onayı") = vbYes Then
  9. DoCmd.SetWarnings False
  10. DoCmd.RunSQL "Delete ArızaBildirimAnaTablo.[Bildirim ID] FROM ArızaBildirimAnaTablo WHERE (((ArızaBildirimAnaTablo.[Bildirim ID])=[Formlar]![BildirimServisAktarma]![Liste0]));"
  11. DoCmd.SetWarnings True
  12. End If
  13.  
  14. If MsgBox("Aktarım ve silme işlemi yapıldı Form açılsın mı?", vbYesNo, "Form Aç") = vbYes Then
  15. DoCmd.OpenForm "ServisGirisFormu", , , "[BildirimID]=" & [Liste0]
  16.  
  17. End If
  18. Me.Liste0.Requery
  19. End If



Yalnız Parça ID parametresi istiyor (Bildirim Servis Aktarma formunda Kaydı seçip aktar butonuna basınca.) Sanırım DlookUp kodlamasında hata yapıyorum yardım edebilirseniz çok sevinirim.MmMm



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


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  [SORGU] iki sayı arasında nasıl sorgu yapılır? 26092009 3 7.658 15-12-2024, 08:42
Son Mesaj: halil.tefci
  [SORGU] Iki Tablo Arasında Sorgu Ile Güncelleme Yapma yahyamacit 2 472 10-11-2023, 13:22
Son Mesaj: yahyamacit
access-sql-9 Altform Geçici Veri Eklenmesi Durumu alperalper 5 571 19-02-2023, 04:14
Son Mesaj: dsezgin
  [SORGU] Veriler Arasında Eşleşen Kelimeleri Bulma. Satir 5 538 18-02-2023, 15:27
Son Mesaj: celalll
  [VBA] Iki Tablo Arasında Eşleşmeyen Kayıtları Bulup Kayıttaki Dosyaları Ve Datayı Silme Mr.Midnight 3 617 22-11-2022, 15:09
Son Mesaj: alperalper
  Altform Verisine Göre Grafik Oluşturma Hk YENIFENER 2 570 16-11-2022, 11:25
Son Mesaj: dsezgin
access-sql-5 Access'te LıstboX Veya Altform Seçimine Göre Grafiğin Değişmesini Sağlamak. YENIFENER 19 2.008 14-11-2022, 09:48
Son Mesaj: YENIFENER
  Access Te Tabloya Eklenen Verileri Forma Konulan Bir Butonla Silme kursun 4 588 10-11-2022, 21:29
Son Mesaj: kursun

Foruma Git:


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