Access SQL   ›   ACCESS SORULARI VE ÖRNEK UYGULAMALARI   ›   ACCESS SORULARI   ›   [VBA] Sürekli Form Kopyalama Ve Yapıştırma Işlemleri

[VBA] Sürekli Form Kopyalama Ve Yapıştırma Işlemleri
benuva
Önemli Üye 300-400

*
Kayıt Tarihi: 28.08.2016
Toplam 82 konu açtı.
Toplam 352 yorum yaptı.
Toplam 5 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2016 TR,
Beğeniler: 0 / 0
#1
18-11-2021, 00:03 (En son düzenleme: 18-11-2021, 00:10 benuva.)
Merhaba,

Ekteki şekilde bir sürekli formum var ve bu formtaki SetAll düğmesine bastığımda tüm 1'den büyük olan Öngörü alanlarının Talep alanına kopyalanarak yapıştırılmasını istiyorum.

(Yapmak istediğim Copy Paste işlemi aslında) Formulle ayarlanan alanlara sistem elle değişiklik yapmaya izin vermediiğinden bu yolu izlemek istedim.

Öngörü alanı Metin formatında olduğundan Kopyalanmadan önce metin alanının sayıya çevrilmesi gerekebilir.

Konuyla ilgili bana yardımcı olursanız çok sevinirim.

Teşekkürler


Eklenti Dosyaları
.jpg   SetAll.JPG (Boyut: 27,42 KB / İndirilme: 23)



  Bul
  Alıntı
Bu mesajı beğenenler:
dsezgin
Forum Yöneticisi

*
Kayıt Tarihi: 24.03.2013
Toplam 26 konu açtı.
Toplam 8.735 yorum yaptı.
Toplam 969 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2013,
Beğeniler: 48 / 211
#2
18-11-2021, 04:00
Form tablo ilişkisi var ise güncelleme sorgusu ile yapılabilir.
Visual Basic
  1. UPDATE TabloAdı SET Talep=clng(nz(ÖnGörü,0)) WHERE (((ÖnGörü)>0))



Visual Basic
  1. Sub dugme_click()
  2. Dim kyt As Recordset
  3. Set kyt = CurrentDb.OpenRecordset("SELECT ÖnGörü, Talep FROM TabloAdi SET Talep=clng(nz(ÖnGörü,0)) WHERE (((ÖnGörü)>0)) ")
  4. If kyt.RecordCount = 0 Then Exit Sub
  5. Do Until kyt.EOF
  6. kyt.Update
  7. kyt!TALEP = kyt!ÖnGörü
  8. kyt.Update
  9. kyt.MoveNext
  10. Loop
  11. kyt.Close
  12. Set kyt = Nothing
  13. End Sub





Döngü

Visual Basic
  1. Private Sub SetAll_Click()
  2. Dim Sw As Long
  3. For Sw = 1 To Me.Recordset.RecordCount
  4.     Me.Talep = Nz(Me.ÖnGörü,0)
  5. DoCmd.GoToRecord , , acNext
  6. Next Sw
  7. End Sub


Access Fonksiyonlarının(Deyimler), Sorgu da kullanımı
Rapor veya-Pdf-Dosyalarını Birleştirme Uygulaması



  Website   Bul
  Alıntı
Bu mesajı beğenenler:
benuva
Önemli Üye 300-400

*
Kayıt Tarihi: 28.08.2016
Toplam 82 konu açtı.
Toplam 352 yorum yaptı.
Toplam 5 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2016 TR,
Beğeniler: 0 / 0
#3
18-11-2021, 12:55
@dSezgin hocam, beceremedim. Döngüyle yapılabilme imkanı olur mu acaba?



  Bul
  Alıntı
Bu mesajı beğenenler:
dsezgin
Forum Yöneticisi

*
Kayıt Tarihi: 24.03.2013
Toplam 26 konu açtı.
Toplam 8.735 yorum yaptı.
Toplam 969 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2013,
Beğeniler: 48 / 211
#4
18-11-2021, 13:17
(18-11-2021, 12:55)benuva demiş ki: @dSezgin hocam, beceremedim. Döngüyle yapılabilme imkanı olur mu acaba?

Örnek VT yüklerseniz yardımcı olmaya çalışırım.
Access Fonksiyonlarının(Deyimler), Sorgu da kullanımı
Rapor veya-Pdf-Dosyalarını Birleştirme Uygulaması



  Website   Bul
  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  [VBA] Sürekli Formda Combobox Güncelleme Sorunu benuva 6 195 20-11-2023, 11:56
Son Mesaj: benuva
  Sürekli Formda Kayda Uygun Resim Ekleme yahyamacit 2 127 18-11-2023, 10:56
Son Mesaj: yahyamacit
  [FORM] Pdf Içerik Kopyalama Ve Yapıtırma orderyazbim 2 252 26-10-2023, 15:39
Son Mesaj: serdem48
  Sürekli Formda Yeni Kayıt üstte Olsun hegu 4 188 05-10-2023, 20:55
Son Mesaj: hegu
access-sql-18 [VBA] Veritabanları Arası şartlı Tablo Kopyalama BeyTor 5 257 22-07-2023, 00:29
Son Mesaj: dsezgin
  Ana Menüden 2.form Açtığımda Form Görev çubuğuna Inmiyor. 32'den 64'e Geçiş Hatası OGUZTURKYILMAZ 3 250 13-04-2023, 23:39
Son Mesaj: OGUZTURKYILMAZ
  Tablodaki Alana Resim Kopyalama Erbil36 3 241 28-02-2023, 12:44
Son Mesaj: dsezgin
  [FORM] Sürekli Formda Belli Bir Sütundaki Satırları Tek Bir Metin Kutusunda Birleştirme dormin 4 216 18-01-2023, 14:29
Son Mesaj: dormin

Foruma Git:


Bu konuyu görüntüleyen kullanıcı(lar): 1 Ziyaretçi