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

1 2
(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..
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
Çok Alanlı Kopyala-yapıştır Uygulaması

notrino

idrisy
