Skip to main content

AccessTr.neT


Formdaki Kaydı Farklı Formda Yeniden Kayıt

Formdaki Kaydı Farklı Formda Yeniden Kayıt

Çözüldü #1
sorunum şöyle [frm-atölyekayıtı] formunda yaptığım kaydı [frm-montajlar] formunda listeledikten sonra seçtiğim kaydı [frm-montajkaydı] formunda açıp bu form üzerinde montaj kaydı olarak kayıt yapmak istiyorum. bu konuda yardımlarınızı bekliyorum.
.rar DENEME1571.rar (Dosya Boyutu: 1,91 MB | İndirme Sayısı: 5)
Cevapla
#2
Merhaba,

"Frm_Montajlar" isimli formdaki butonun tıklandığında olayındaki kod 

Visual Basic Code
Private Sub btnmontaj_Click()

On Error GoTo Err_btnmontaj_Click

     Dim stDocName As String
     Dim stLinkCriteria As String
     
     
     Dim Varmi As String
     
     Varmi = Nz(DLookup("Idmtj", "Tbl_Montajlar", "[atly_ID]=" & [montajlarlistesi]), 0)
     

     
     If Varmi = 0 Then
     
    DoCmd.SetWarnings False
    DoCmd.RunSQL "INSERT INTO Tbl_Montajlar ( atly_ID, Carikod, Adi, Soyadi, Satici, Telefon1, Telefon2, Telefon3 ) SELECT Tbl_Atolye.atly_ID, Tbl_Atolye.Carikod, Tbl_Atolye.Adi, Tbl_Atolye.Soyadi, Tbl_Atolye.Satici, Tbl_Atolye.Telefon1, Tbl_Atolye.Telefon2, Tbl_Atolye.Telefon3 FROM Tbl_Atolye WHERE (((Tbl_Atolye.atly_ID)=[Formlar]![Frm_Montajlar]![montajlarlistesi]));"
    DoCmd.RunSQL "INSERT INTO Tbl_Montajayrinti ( Idmtj, BORÇ, ÖDEME, KALAN, [Odeme Sekli], [Hesap No], [Montaj Tarihi], [Ödeme Açıklama], Turu ) SELECT Tbl_Montajlar.Idmtj, Tbl_Atolyeayrinti.BORÇ, Tbl_Atolyeayrinti.ÖDEME, Tbl_Atolyeayrinti.KALAN, Tbl_Atolyeayrinti.[Odeme Sekli], Tbl_Atolyeayrinti.[Hesap No], Tbl_Atolyeayrinti.[Montaj Tarihi], Tbl_Atolyeayrinti.[Ödeme Açıklama], Tbl_Atolyeayrinti.Turu FROM (Tbl_Atolye INNER JOIN Tbl_Atolyeayrinti ON Tbl_Atolye.atly_ID = Tbl_Atolyeayrinti.atly_ID) INNER JOIN Tbl_Montajlar ON Tbl_Atolye.atly_ID = Tbl_Montajlar.atly_ID WHERE (((Tbl_Atolyeayrinti.atly_ID)=[Formlar]![Frm_Montajlar]![montajlarlistesi]));"
    DoCmd.RunSQL "INSERT INTO Tbl_Montajurunler ( Stor, T_stor, Zebra, [Double], M_jaluzi, [A_ jaluzi], Plicell, Silhouette, Ribbon, D_Perde, Kruvaze, T_Toplama, J_Kanat, Kanat, Bracol, Renso, Sarkıt, P_Tül, Guneslik, Farba, B_Perde, İ_Perde, İ_Balon, Katlama, Biriz, Ayrıntı, ıdayrıntı ) SELECT Tbl_Atolyeurunler.Stor, Tbl_Atolyeurunler.T_stor, Tbl_Atolyeurunler.Zebra, Tbl_Atolyeurunler.Double, Tbl_Atolyeurunler.M_jaluzi, Tbl_Atolyeurunler.[A_ jaluzi], Tbl_Atolyeurunler.Plicell, Tbl_Atolyeurunler.Silhouette, Tbl_Atolyeurunler.Ribbon, Tbl_Atolyeurunler.D_Perde, Tbl_Atolyeurunler.Kruvaze, Tbl_Atolyeurunler.T_Toplama, Tbl_Atolyeurunler.J_Kanat, Tbl_Atolyeurunler.Kanat, Tbl_Atolyeurunler.Bracol, Tbl_Atolyeurunler.Renso, Tbl_Atolyeurunler.Sarkıt, Tbl_Atolyeurunler.P_Tül, Tbl_Atolyeurunler.Guneslik, Tbl_Atolyeurunler.Farba, Tbl_Atolyeurunler.B_Perde, Tbl_Atolyeurunler.İ_Perde, Tbl_Atolyeurunler.İ_Balon, Tbl_Atolyeurunler.Katlama, Tbl_Atolyeurunler.Biriz, Tbl_Atolyeurunler.Ayrıntı, Tbl_Montajayrinti.ıdayrıntı" & _
" FROM ((Tbl_Atolye INNER JOIN Tbl_Montajlar ON Tbl_Atolye.atly_ID = Tbl_Montajlar.atly_ID) INNER JOIN Tbl_Montajayrinti ON Tbl_Montajlar.Idmtj = Tbl_Montajayrinti.Idmtj) INNER JOIN (Tbl_Atolyeayrinti INNER JOIN Tbl_Atolyeurunler ON Tbl_Atolyeayrinti.Idatay = Tbl_Atolyeurunler.Idatay) ON Tbl_Atolye.atly_ID = Tbl_Atolyeayrinti.atly_ID WHERE (((Tbl_Atolye.atly_ID)=[Formlar]![Frm_Montajlar]![montajlarlistesi]));"

    DoCmd.SetWarnings True
     
     End If
     
    DoCmd.OpenForm "Frm_Montajkayit", , , "[atly_ID]=" & [montajlarlistesi]
     
Exit_btnmontaj_Click:
        Exit Sub
        
Err_btnmontaj_Click:
      MsgBox Err.Description
      Resume Exit_btnmontaj_Click
              
 
End Sub

Şeklinde değiştirilmiştir.

Listeden veri seçip butonu tıkladığınızda, seçilen veriye ait atolye bilgilerinin tamamını Tbl_Montajlar, Tbl_Montajayrinti ve Tbl_Montajurunler tablolarına aktarır ve aktarılan veriye ait formu açar.

İnceleyip olumlu/olumsuz bildirimde bulununuz.
.rar montajveriaktar_sld.rar (Dosya Boyutu: 1,91 MB | İndirme Sayısı: 17)
Cevapla
#3
elinize sağlık tam istediğim gibi olmuş. montajlar listesinden montaja aktardığım müşterileri listeden kaldırabilirmiyim.
Son Düzenleme: 19/08/2017, 15:25, Düzenleyen: U.ALTUN. (Sebep: ilave bilgi)
Cevapla
#4
(19/08/2017 14:15)U.ALTUN Adlı Kullanıcıdan Alıntı: elinize sağlık tam istediğim gibi olmuş. montajlar listesinden montaja aktardığım müşterileri listeden kaldırabilirmiyim.

Tbl_Atölye ve Tbl_Atolyeayrinti tablolarından veri silinecek mi?
Cevapla
#5
(19/08/2017 18:16)ozanakkaya Adlı Kullanıcıdan Alıntı:
(19/08/2017 14:15)U.ALTUN Adlı Kullanıcıdan Alıntı: elinize sağlık tam istediğim gibi olmuş. montajlar listesinden montaja aktardığım müşterileri listeden kaldırabilirmiyim.

Tbl_Atölye ve Tbl_Atolyeayrinti tablolarından veri silinecek mi?
 
   hayır sadece listede montaja geçtiğini belirtip süzerek listede işlem olmayanlar kalsın.
Cevapla
#6
(19/08/2017 18:41)U.ALTUN Adlı Kullanıcıdan Alıntı:
(19/08/2017 18:16)ozanakkaya Adlı Kullanıcıdan Alıntı:
(19/08/2017 14:15)U.ALTUN Adlı Kullanıcıdan Alıntı: elinize sağlık tam istediğim gibi olmuş. montajlar listesinden montaja aktardığım müşterileri listeden kaldırabilirmiyim.

Tbl_Atölye ve Tbl_Atolyeayrinti tablolarından veri silinecek mi?
 
   hayır sadece listede montaja geçtiğini belirtip süzerek listede işlem olmayanlar kalsın.

Merhaba U.ALTUN;
Ekli örneği inceler misiniz?
Doğru anladıysam Frm_Montajlar formundaki liste kutusuna, sadece Tbl_Montajlar tablosuna aktarılmayanlar gelsin istiyorsunuz.
İyi çalışmalar.
.7z montajveriaktar_sld.7z (Dosya Boyutu: 1,82 MB | İndirme Sayısı: 6)
Son Düzenleme: 21/08/2017, 12:01, Düzenleyen: direnist.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task