Kod:
DoCmd.GoToControl "Alan1"
DoCmd.RunCommand acCmdCopy
DoCmd.GoToRecord , , acNewRec
DoCmd.GoToControl "Alan1"
DoCmd.RunCommand acCmdPaste
DoCmd.GoToControl "Alan1"
DoCmd.RunCommand acCmdCopy
DoCmd.GoToRecord , , acNewRec
DoCmd.GoToControl "Alan1"
DoCmd.RunCommand acCmdPaste
Dim Accesstr_Alan1, Accesstr_Alan2 As String
Accesstr_Alan1 = Me.Alan1
Accesstr_Alan2 = Me.Alan2
DoCmd.GoToRecord , , acNewRec
Me.Alan1 = Accesstr_Alan1
Me.Alan2 = Accesstr_Alan2
Dim Accesstr_Alan1, Accesstr_Alan2 As String
Accesstr_Alan1 = Me.Alan1
Accesstr_Alan2 = Me.Alan2
DoCmd.GoToRecord , , acNewRec
Me.Alan1 = Accesstr_Alan1
Me.Alan2 = Accesstr_Alan2
(06/09/2018, 22:19)mehmetdemiral yazdı: Bu yöntemde işlem şu şekilde yapılıyor
1- Alan1'e git
2- Bu alanı belleğe kopyala
3- Yeni bir kayıt aç
4- Alan1'e git
5- Bellekteki kaydı buraya yapıştır
Bu yöntemde kayıtları tek tek kopyalamak zorundasınız. Ama değişkenlere atayarak istediğiniz kadar kaydı kopyalayabilirsiniz. Bunun için iki değişken açalım:
Kod:Dim Accesstr_Alan1, Accesstr_Alan2 As String
Şimdi de bu değişkenlere Alan1 ve ALan2 değerlerini aktaralım
Artık yeni kayıt açalımKod:Accesstr_Alan1 = Me.Alan1
Accesstr_Alan2 = Me.Alan2
Kod:DoCmd.GoToRecord , , acNewRec
Şimdi de değişkenlerdeki değerleri yeni alanlara yapıştıralım.
Kod:Me.Alan1 = Accesstr_Alan1
Me.Alan2 = Accesstr_Alan2
İşlem bu kadar. Toplu olarak çalışmanızdaki düğme kodu şöyle:
Kolay gelsin.Kod:Dim Accesstr_Alan1, Accesstr_Alan2 As String
Accesstr_Alan1 = Me.Alan1
Accesstr_Alan2 = Me.Alan2
DoCmd.GoToRecord , , acNewRec
Me.Alan1 = Accesstr_Alan1
Me.Alan2 = Accesstr_Alan2