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

Derecelendirme: 2/5 - 1 oy
nihatkr

nihatkr

Onursal Üye
 89
 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



mimerd

mimerd

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



nekeba

nekeba

Üye
 38
 6
 23
 30/10/2008
0
 Eskişehir
 
 
 09/04/2019,16:49
tanıdık geldi.



myAccess

myAccess

Destek
Ta.... Or....
 10
 55
 29/10/2008
0
 Bursa
 
 Ofis 2010 64 Bit
 20/09/2018,18:23
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.

ittihat

ittihat

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



halimalcin

halimalcin

Aktif Üye
Ha.... Al....
 43
 9
 71
 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
  İsim ve Soyismi ayırarak farklı kutulara yazma örneği mehmetdemiral 9 6.084 09/03/2019, 11:18
Son Yorum: haliliyas
Çözüldü Kayıtlarda Yapılan Değişiklikleri Gözlemleme (Log Tutma) Örneği Taruz 29 17.400 07/05/2018, 11:53
Son Yorum: romanci
  Resim Zoom yapma ve küçültme örneği mehmetdemiral 6 4.695 27/11/2017, 14:54
Son Yorum: elektrikci
  Md5 Şifreleme Örneği serkandiker 0 607 10/07/2017, 12:32
Son Yorum: serkandiker
  Farklı bir buton örneği Puletin 6 5.320 03/05/2017, 22:54
Son Yorum: huzun_bulutu

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