Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
01/09/2018 10:35
Konu Sahibi
notrino
Yorumlar
7
Okunma
412
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy
Kullanici Avatari

notrino

Aktif Üye*
 170
 602
 18/02/2016
31
 İzmir
 
 Ofis 2010 32 Bit
 27/01/2019,17:30
Çözüldü 
Merhabalar,

Ekli örneğimde butonun tıklama olayındaki kodlarda Tablo2 de sadece alan2 olur, alan3'ü silersem ve aşağıdaki kodu yazarsam gayet düzgün çalışıyor. Yani alan2'yi problemsiz bir şekilde kopyalayıp yeni kayda yapıştırıyor.

Bu kod:

Kod:
1
2
3
4
5
6
7
8
9
10
11
12
13
Dim AccessTr_EskiKimlik As Integer
Dim AccessTr_EskiAlan As String
Dim GRevizyon As Integer
AccessTr_EskiKimlik = Me.Kimlik
AccessTr_EskiAlan = Me.revizyon
DoCmd.GoToRecord , , acNewRec
Me.revizyon = AccessTr_EskiAlan
DoCmd.RunCommand acCmdSaveRecord
DoCmd.SetWarnings False
DoCmd.RunSQL "INSERT INTO Tablo2 ( alan2, Kimlik ) SELECT Tablo2.alan2, " & Me.Kimlik & " FROM Tablo2 WHERE (((Tablo2.Kimlik)= " & AccessTr_EskiKimlik & "));"
DoCmd.SetWarnings True
GRevizyon = Val(Mid(Me.revizyon, 2, Len(Me.revizyon)))
Me.revizyon = "R" & GRevizyon + 1


Ancak Tablo3'e alan3 eklediğimde, (ki ekli örneğim böyledir) ve kodları da ekli örneğimdeki gibi organize ettiğimde bir türlü iki alanı birden kopyalayıp yeni kayda yapıştıramıyorum.Kopyalanıp yapıştırılacak alan sayısının 2 ve daha fazla olması durumunda bu mesele nasıl çözülecek? Tşk.



Kullanici Avatari

mehmetdemiral

Uzman
Me.... De....
 54
 218
 4.926
 30/10/2008
 Samsun
 Öğretmen
 Ofis 2013 32 Bit
 23/02/2019,21:53
Bu formlar arasında birden çok kaydın başka bir kayda aktarılmasıyla ilgili yaklaşık 10 tane konu açtınız. Lütfen aynı türden konularınızı alt alta devam ettirir misiniz? Konu anarşisi yaşanıyor sitede. Bakıyorum her açtığınız konu aynı konunun aşamaları veya ilerleyişi biçiminde. Açıklar mısınız, neden böyle yapıyorsunuz?


İnadına, ille de Accesstr.net...

Kullanici Avatari

notrino

Aktif Üye*
 170
 602
 18/02/2016
31
 İzmir
 
 Ofis 2010 32 Bit
 27/01/2019,17:30
(01/09/2018 11:33)mehmetdemiral Adlı Kullanıcıdan Alıntı: Bu formlar arasında birden çok kaydın başka bir kayda aktarılmasıyla ilgili yaklaşık 10 tane konu açtınız. Lütfen aynı türden konularınızı alt alta devam ettirir misiniz? Konu anarşisi yaşanıyor sitede. Bakıyorum her açtığınız konu aynı konunun aşamaları veya ilerleyişi biçiminde. Açıklar mısınız, neden böyle yapıyorsunuz?

Dediğiniz şekilde bu başlık altında 10 tane konu açılmış değil. Açılan her konu bir meselenin çözümüne yöneliktir, genelde Ozan Bey ile yazıştığımız detaylarda bunlar mevcut, inceleyebilirsiniz. Bu örnekte de konu karmaşası yaratan bir detay göremiyorum. Şöyle ki;

Daha önceki çözüm Tablo2'de "tek bir alanın" kaydının kopyalanıp yapıştırılmasını içeriyordu. Ancak bu son gönderdiğim uygulama, Tablo2'de birden fazla alanın kopyalanıp yapıştırılmasının ne tarz bir Sql deyimiyle yapılması gerektiğini ifade ediyor. Buna benzer bir önceki konuda, Sql deyimiyle ilgili bir hata mesajı söz konusuydu, o hata mesajının çözümünü Ozan Bey bildirdi. Şimdiki mesele ise herhangi bir hata mesajı vermeyip, Tablo2'de birden fazla alan söz konusu olduğunda kopyala-yapıştır işleminin nasıl gerçekleşeceğidir. Yani bu son soru, hiç bir hata mesajı vermediği halde kopyala-yapıştır işlemi "yapmamaktadır." Bu nasıl çözülebilir araştırdığım bu..



Kullanici Avatari

notrino

Aktif Üye*
 170
 602
 18/02/2016
31
 İzmir
 
 Ofis 2010 32 Bit
 27/01/2019,17:30
Bu konuda bir çözüm var mıdır acaba?



Kullanici Avatari

mehmetdemiral

Uzman
Me.... De....
 54
 218
 4.926
 30/10/2008
 Samsun
 Öğretmen
 Ofis 2013 32 Bit
 23/02/2019,21:53
(05/09/2018 10:43)notrino Adlı Kullanıcıdan Alıntı: Bu konuda bir çözüm var mıdır acaba?

Evet var. Düğmenin olay yordamını şu şekilde düzeltin:

Kod:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub Komut13_Click()


Dim AccessTr_EskiKimlik As Integer
Dim AccessTr_EskiAlan As String

AccessTr_EskiKimlik = Me.Kimlik
AccessTr_EskiAlan = Me.alan

DoCmd.GoToRecord , , acNewRec

Me.alan = AccessTr_EskiAlan

DoCmd.RunCommand acCmdSaveRecord

DoCmd.SetWarnings False
DoCmd.RunSQL "INSERT INTO Tablo2 (alan3, alan2, Kimlik ) SELECT Tablo2.alan3,alan2, " & Me.Kimlik & " FROM Tablo2 WHERE (((Tablo2.Kimlik)= " & AccessTr_EskiKimlik & "));"

DoCmd.SetWarnings True

End Sub


İnadına, ille de Accesstr.net...

Kullanici Avatari

mehmetdemiral

Uzman
Me.... De....
 54
 218
 4.926
 30/10/2008
 Samsun
 Öğretmen
 Ofis 2013 32 Bit
 23/02/2019,21:53
Sorununuz ile ilgili bu konuya dönüş yapmamışsınız. Problem çözüldüyse bildirir misiniz?


İnadına, ille de Accesstr.net...


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü Excel Kargo Takip Uygulamasi Yardim ecan81 2 289 04/02/2019, 10:46
Son Yorum: ecan81
Çözüldü Web'e Aktarma Uygulaması notrino 2 173 23/01/2019, 17:20
Son Yorum: notrino
Çözüldü Kopyala Yapıştır Bora34 8 383 07/01/2019, 17:03
Son Yorum: ozanakkaya
Çözüldü Kaydetme Ve Silme Uygulaması notrino 3 293 25/12/2018, 12:48
Son Yorum: notrino
Çözüldü Formdan Rapora Filtre Uygulaması Nasıl Yapılır. Oğuz Türkyılmaz 25 748 23/11/2018, 09:56
Son Yorum: Oğuz Türkyılmaz

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2019 MyBB Group.