Çok Alanlı Kopyala-yapıştır Uygulaması

1 2
08/09/2018, 10:13

notrino

(08/09/2018, 08:54)mehmetdemiral yazdı: Sorununuz ile ilgili bu konuya dönüş yapmamışsınız. Problem çözüldüyse bildirir misiniz?

Evet çözüldü, teşekkürler..
08/09/2018, 13:44

idrisy

Private Sub KomutDersKopyala_Click()
On Error GoTo Err_KomutDersKopyala_Click
'Kilit_Ac

   Dim IntSecim As Byte
   IntSecim = MsgBox("Kopyalama alanındaki tüm dersler SİLİNECEK" & vbCrLf & "ve yukardaki dersler eklenecek " & vbCrLf & "Devam etmek istediğinizden emin misiniz?" & vbCrLf & vbCrLf & "Yandaki Listeden istediğiniz dersleri tek tek ekleyebilirsiniz!", 52, "Dersler kopyalama alanına aktarılıyor...")
   
   If IntSecim = 6 Then
       Form_FormKurulDuyuruAltform.AllowAdditions = True
       DoCmd.SetWarnings False
       DoCmd.GoToControl ("FormKurulKopyalamaAlanı")
       DoCmd.DoMenuItem acFormBar, acEditMenu, 9, , acMenuVer70
       DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
       DoCmd.SetWarnings True
   
       DoCmd.GoToControl ("FormKurulDuyuruAltform")
       DoCmd.GoToRecord , , acFirst
       
       Dim x As Integer
       For x = 1 To Metin101 'Nz(DCount("KurulKayitNo", "TabloZümreGündem", "[KurulKayitNo]= " & Me.Liste_Dallar.Column(0, Me.Liste_Dallar.ListIndex)), 0)
           If Form_FormKurulDuyuruAltform.GündemNo = 0 Then
               Exit Sub
           Else
               DoCmd.GoToControl ("FormKurulKopyalamaAlanı")
               DoCmd.GoToRecord , , acNewRec
               Form_FormKurulKopyalamaAlanı.GündemNo.Value = Form_FormKurulDuyuruAltform.GündemNo.Value
               Form_FormKurulKopyalamaAlanı.GündemMaddeleri.Value = Form_FormKurulDuyuruAltform.GündemMaddeleri.Value
               DoCmd.GoToControl ("FormKurulDuyuruAltform")
               DoCmd.GoToRecord , , acNext
           End If
       Next
       Form_FormKurulDuyuruAltform.AllowAdditions = False
   End If
   
Exit_KomutDersKopyala_Click:
   Exit Sub
Err_KomutDersKopyala_Click:
   MsgBox "Kopyalama işlemi iptal edildi"
   Resume Exit_KomutDersKopyala_Click
 
End Sub

Private Sub KomutDersYapistir_Click()
On Error GoTo Err_KomutDersYapistir_Click
   Dim IntSecim As Byte
   Dim x, Y As Integer
   Y = Nz(DCount("GündemNo", "TabloKurulKopyalamaAlanı"), 0)
   Metin105 = Y
   IntSecim = MsgBox("Kopyalanan verileri Ekleyerek yapıştırmak için EVET'i," & vbCrLf & "Üzerine yapıştırmak için HAYIR'ı seçiniz." & vbCrLf & "Çıkmak için İPTAL'i seçiniz.", 51, "Kopyalanan Dersler Eklenecek")
   If IntSecim = 6 Then
       DoCmd.GoToControl ("FormKurulKopyalamaAlanı")
       DoCmd.GoToRecord , , acFirst
       
       Form_FormKurulDuyuruAltform.AllowAdditions = True
       'Nz(DLookup("KurulKayitNo", "TabloKurulKopyalamaAlanı"), 0)
       For x = 1 To Metin105 'Nz(DLookup("GündemNo", "TabloKurulKopyalamaAlanı"), 0)
           DoCmd.GoToControl ("FormKurulKopyalamaAlanı")
           If Form_FormKurulKopyalamaAlanı.GündemNo = 0 Then
               Exit Sub
           Else
               DoCmd.GoToControl ("FormKurulDuyuruAltform")
               DoCmd.GoToRecord , , acNewRec
               Form_FormKurulDuyuruAltform.GündemNo = Form_FormKurulKopyalamaAlanı.GündemNo
               Form_FormKurulDuyuruAltform.GündemMaddeleri.Value = Form_FormKurulKopyalamaAlanı.GündemMaddeleri.Value
               'Form_FormKurulDuyuruAltform.ZümreMetin.Value = Null 'Form_FormKurulKopyalamaAlanı.ZümreMetin.Value
              ' Form_FormKurulDuyuruAltform.ZümreKarar.Value = Null 'Form_FormKurulKopyalamaAlanı.ZümreKarar.Value
               
               DoCmd.GoToControl ("FormKurulKopyalamaAlanı")
               DoCmd.GoToRecord , , acNext
           End If
       Next
       Form_FormKurulDuyuruAltform.AllowAdditions = False
   ElseIf IntSecim = 7 Then
       DoCmd.SetWarnings False
       DoCmd.GoToControl ("FormKurulDuyuruAltform")
       DoCmd.DoMenuItem acFormBar, acEditMenu, 9, , acMenuVer70
       DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
       DoCmd.SetWarnings True
       
       DoCmd.GoToControl ("FormKurulKopyalamaAlanı")
       DoCmd.GoToRecord , , acFirst
       
       Form_FormKurulDuyuruAltform.AllowAdditions = True
       
       For x = 1 To Metin105 'Nz(DLookup("GündemNo", "TabloKurulKopyalamaAlanı"), 0)
           DoCmd.GoToControl ("FormKurulKopyalamaAlanı")
           
           If Form_FormKurulKopyalamaAlanı.GündemNo = 0 Then
               Exit Sub
           Else
               DoCmd.GoToControl ("FormKurulDuyuruAltform")
               DoCmd.GoToRecord , , acNewRec
               Form_FormKurulDuyuruAltform.GündemNo = Form_FormKurulKopyalamaAlanı.GündemNo
               Form_FormKurulDuyuruAltform.GündemMaddeleri.Value = Form_FormKurulKopyalamaAlanı.GündemMaddeleri.Value
               'Form_FormKurulDuyuruAltform.ZümreMetin.Value = Null 'Form_FormKurulKopyalamaAlanı.ZümreMetin.Value
               'Form_FormKurulDuyuruAltform.ZümreKarar.Value = Null 'Form_FormKurulKopyalamaAlanı.ZümreKarar.Value
               DoCmd.GoToControl ("FormKurulKopyalamaAlanı")
               DoCmd.GoToRecord , , acNext
               x = x + 1
           End If
       Next
       Form_FormKurulDuyuruAltform.AllowAdditions = False
   
   End If
Exit_KomutDersYapistir_Click:
   Exit Sub
Err_KomutDersYapistir_Click:
   MsgBox "Ders yapıştırma işlemi iptal edildi"
   Resume Exit_KomutDersYapistir_Click
End Sub
Kodlarını kendine uyarlayabilirsin
1 2