Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
03/11/2008 01:14
Konu Sahibi
nihatkr
Yorumlar
7
Okunma
4821
Konuyu Oyla:
  • Derecelendirme: 2/5 - 1 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 2/5 - 1 oy
Kullanici Avatari

nihatkr

Ofis 2007-2003-2010
Onursal Üye
814
29/10/2008
272
İstanbul
Ofis 2007
03/09/2016,04:40
3 koşula göre sorgulama.

sitede daha önce sorulan sorular sonucunda hazırlanmış bir örnek

ALINTIDIR


Ek Dosyalar
.rar   Seçme-aktarma.rar(Dosya Boyutu: 34,94 KB / İndirme Sayısı: 652)

Kullanici Avatari

mimerd

Üye
Üye
 42
9
2
30/10/2008
0
İstanbul
05/01/2010,15:20
tam aradığım bu örnekti. teşekkürler...



Kullanici Avatari

nekeba

Üye
Üye
 37
18
4
30/10/2008
0
Eskişehir
18/11/2015,17:43
tanıdık geldi.



Kullanici Avatari

myAccess

Destek Ekibi
Destek
TA.... OR....
53
29/10/2008
0
Bursa
Ofis 2010 64 Bit
Dün,23:18
Nihat Hocam çok teşekkürler.
Bir şey sormak istiyorum. "Aktar" işlemine basıldığında sürekli yeni seçim yapılmasa dahi aktarmaya devam ediyor. Alt formdaki bilgilerin tekrarsız olması sağlanabilir mi?


Sorgulanmayan bir hayat, yaşanmaya değmez.

Kullanici Avatari

ittihat

Üye
Üye
 41
1
0
03/12/2008
0
Aksaray
Ofis 2003
03/12/2008,14:56
teşekkürler



Kullanici Avatari

halimalcin

Aktif Üye
Aktif Üye
HA.... AL....
 42
71
9
28/12/2009
0
İstanbul
Ofis 2003
10/11/2017,18:40
selam bende buna benzer bir işlem yapmak istiyorum ama bu örnekteki aktar butonundaki şu kodda hata veriyor


Dim strPoz As String
Dim row As Integer
Dim rst As New ADODB.Recordset [[[ hata veren satır ]]]
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


AccessTr.neT | Hayal edebiliyorsanız yaparsınız...


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü Kayıtlarda Yapılan Değişiklikleri Gözlemleme (Log Tutma) Örneği Taruz 29 15.969 07/05/2018, 11:53
Son Yorum: romanci
  Resim Zoom yapma ve küçültme örneği mehmetdemiral 6 4.309 27/11/2017, 14:54
Son Yorum: elektrikci
  Md5 Şifreleme Örneği serkandiker 0 396 10/07/2017, 12:32
Son Yorum: serkandiker
  Farklı bir buton örneği Puletin 6 4.917 03/05/2017, 22:54
Son Yorum: huzun_bulutu
  MsSql Server ADO Bağlantı Örneği alpeki99 2 937 07/12/2016, 22:27
Son Yorum: ozguryasin

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