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

Derecelendirme: 0/5 - 0 oy
Kullanici Avatari

notrino

Aktif Üye*
 170
 598
 18/02/2016
31
 İzmir
 
 Ofis 2010 32 Bit
 Bugün,18:59
Çö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....
 53
 218
 4.924
 30/10/2008
 Samsun
 Öğretmen
 Ofis 2013 32 Bit
 13/01/2019,02:55
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
 598
 18/02/2016
31
 İzmir
 
 Ofis 2010 32 Bit
 Bugün,18:59
(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
 598
 18/02/2016
31
 İzmir
 
 Ofis 2010 32 Bit
 Bugün,18:59
Bu konuda bir çözüm var mıdır acaba?



Kullanici Avatari

mehmetdemiral

Uzman
Me.... De....
 53
 218
 4.924
 30/10/2008
 Samsun
 Öğretmen
 Ofis 2013 32 Bit
 13/01/2019,02:55
(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....
 53
 218
 4.924
 30/10/2008
 Samsun
 Öğretmen
 Ofis 2013 32 Bit
 13/01/2019,02:55
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ü Kaydetme Ve Silme Uygulaması notrino 3 242 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 577 23/11/2018, 09:56
Son Yorum: Oğuz Türkyılmaz
Çözüldü Ad Ekleme Uygulaması notrino 5 235 09/11/2018, 12:40
Son Yorum: notrino
Çözüldü Yedekleme Ve Bakım Uygulaması Oğuz Türkyılmaz 18 451 06/11/2018, 10:59
Son Yorum: Oğuz Türkyılmaz
Çözüldü Access Uygulaması Tabloları, Hosting'e Koyma Ve Bağlantı Sağlama Mümkün Mü? alimadam 3 210 05/11/2018, 21:02
Son Yorum: alimadam

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