Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
30/04/2010 00:09
Konu Sahibi
myAccess
Yorumlar
7
Okunma
3828
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy
Kullanici Avatari

myAccess

Destek Ekibi
Destek
TA.... OR....
 54
 10
 29/10/2008
0
 Bursa
 
 Ofis 2010 64 Bit
 14/09/2018,11:31
Çözüldü 
Merhaba,
Örnek dosyadaki gibi alt forma aktarma işlemi yaptırmak istiyorum. Ama bendeki veri tabanında 19 sütun var. Aşağıdaki kodu nasıl değiştirirsem aktarma işlemini yaptırabilirim.
Yardımlarınız için teşekkürler.


Dim strPoz As String
Dim row As Integer
Dim rst As New ADODB.Recordset
Dim x As Integer

rst.Open "tblTemp", CurrentProject.Connection, adOpenDynamic, adLockOptimistic

For x = 0 To Me.Liste0.ItemsSelected.Count - 1
row = Me.Liste0.ItemsSelected(x)
rst.AddNew
rst(0) = Nz(Me.Liste0.Column(0, row), "")
rst(1) = Nz(Me.Liste0.Column(1, row), "")
rst(2) = Nz(Me.Liste0.Column(2, row), "")
rst(3) = Nz(Me.Liste0.Column(3, row), "")
rst(4) = Nz(Me.Liste0.Column(4, row), "")
If Me.Liste0.Column(5, row) <> "" Then
rst(5) = Me.Liste0.Column(5, row)
End If
If Me.Liste0.Column(6, row) <> "" Then
rst(6) = Me.Liste0.Column(6, row)
End If
rst(7) = Nz(Me.Liste0.Column(7, row), "")
rst(8) = Nz(Me.Liste0.Column(8, row), "")
rst.Update
Next x

rst.Close

Me.Alt54.Form.Requery
End Sub


Ek Dosyalar
.zip   Seçme-aktarma_Seruz .zip(Dosya Boyutu: 63,67 KB / İndirme Sayısı: 6)
Sorgulanmayan bir hayat, yaşanmaya değmez.

Kullanici Avatari

ozanakkaya

sledgeab
Kurucu
OZ.... AK....
 40
 11.248
 465
 29/01/2008
 Denizli
 Memur
 Ofis 2010 32 Bit
 Bugün,01:15
Çözüldü 
doğru yanıt verilebilmesi için sendeki veritabanını görmemiz gerekiyor.


"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 

Kullanici Avatari

myAccess

Destek Ekibi
Destek
TA.... OR....
 54
 10
 29/10/2008
0
 Bursa
 
 Ofis 2010 64 Bit
 14/09/2018,11:31
Çözüldü 
Sn sledgeab

Veritabanını ekledim. Daha önceki örnekte 8 sütun vardı. Benim çalıştığıma uyarladım. Benim uygulamamda 19 sütun var. Bu nedenle olacak herhalde, aktarma işleminde Temp. tablosuna tüm filtrelenen veriler aktarılamıyor.
Yardımlarınız için teşekkür ederim.


Ek Dosyalar
.zip   myAccess v2.zip(Dosya Boyutu: 25,28 KB / İndirme Sayısı: 6)
Sorgulanmayan bir hayat, yaşanmaya değmez.

Kullanici Avatari

ozanakkaya

sledgeab
Kurucu
OZ.... AK....
 40
 11.248
 465
 29/01/2008
 Denizli
 Memur
 Ofis 2010 32 Bit
 Bugün,01:15
Çözüldü 
aktar butonuna aşağıdaki kodu ekle

Kod:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
Dim strPoz As String
Dim row As Integer
Dim rst As New ADODB.Recordset
Dim x As Integer

rst.Open "tblTemp", CurrentProject.Connection, adOpenDynamic, adLockOptimistic

For x = 0 To Me.Liste0.ItemsSelected.Count - 1
    row = Me.Liste0.ItemsSelected(x)
        rst.AddNew
            rst(0) = Nz(Me.Liste0.Column(0, row), "")
            rst(1) = Nz(Me.Liste0.Column(1, row), "")
            rst(2) = Nz(Me.Liste0.Column(2, row), "")
            rst(3) = Nz(Me.Liste0.Column(3, row), "")
            rst(4) = Nz(Me.Liste0.Column(4, row), "")
            rst(5) = Nz(Me.Liste0.Column(7, row), "")
            rst(6) = Nz(Me.Liste0.Column(7, row), "")
            rst(7) = Nz(Me.Liste0.Column(7, row), "")
            rst(8) = Nz(Me.Liste0.Column(8, row), "")
            rst(9) = Nz(Me.Liste0.Column(9, row), "")
            rst(10) = Nz(Me.Liste0.Column(10, row), "")
            rst(11) = Nz(Me.Liste0.Column(11, row), "")
            rst(12) = Nz(Me.Liste0.Column(12, row), "")
            rst(13) = Nz(Me.Liste0.Column(13, row), "")
            rst(14) = Nz(Me.Liste0.Column(14, row), "")
            rst(15) = Nz(Me.Liste0.Column(15, row), "")
            rst(16) = Nz(Me.Liste0.Column(16, row), "")
            rst(17) = Nz(Me.Liste0.Column(17, row), "")
            rst(18) = Nz(Me.Liste0.Column(18, row), "")
        rst.Update
Next x

rst.Close

Me.Alt54.Form.Requery


"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 

Kullanici Avatari

myAccess

Destek Ekibi
Destek
TA.... OR....
 54
 10
 29/10/2008
0
 Bursa
 
 Ofis 2010 64 Bit
 14/09/2018,11:31
Çözüldü 
Hocam, çok teşekkür ederim. uyguladım (ekte) elinize sağlık.
İlave forma: Akratılan-Temp tablosu sürekli dolu kalıyordu, bunun için; form açıldığında sorguyu otomatik çalıştır ve her yeni arama başlangıcında silteyi otomatik temizle ekledim.
Saygılarımla.


Ek Dosyalar
.zip   çoklu arama- ADODB.Recordset.zip(Dosya Boyutu: 62,96 KB / İndirme Sayısı: 14)
Sorgulanmayan bir hayat, yaşanmaya değmez.

Kullanici Avatari

assenucler

Aktif Üye
Aktif Üye*
A..... SE.... ŞE....
 2.056
 125
 31/10/2008
63
 İstanbul
 
 -
 13/08/2018,19:49
Çözüldü 
Emek ve katkılarınız için teşekkürler...




Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü Yıla Göre Aylık Toplu Ve Yıla Göre Aylık Listbox Filtreli Rapor shephard 4 77 10 saat önce
Son Yorum: shephard
Çözüldü Liste Kutusu Eksik İsleç Hatası hey 19 317 16/09/2018, 18:38
Son Yorum: hey
Çözüldü Form Da Yapmış Olduğum Hesaplama İşlemi #tür! Hatası Veriyor kursun 3 147 15/09/2018, 21:10
Son Yorum: kursun
Çözüldü Etiket Adını Kalıcı Olarak Butonla İle Değiştirme sertac76 12 201 14/09/2018, 15:14
Son Yorum: sertac76
Çözüldü Form'a Seçilen Kriterlere Göre Veri Getirmek enotr 9 324 28/08/2018, 08:59
Son Yorum: enotr

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