Filitreleme Örneği
Tarih
03/11/2008 01:14
Konu Sahibi
nihatkr
Yorumlar
7
Okunma
4146
Konuyu Oyla:
  • Derecelendirme: 2/5 - 1 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 2/5 - 1 oy



nihatkr
Ofis 2007-2003-2010
Kullanici Avatari
Onursal
814
29/10/2008
272
İstanbul
Ofis 2007
03/09/2016,04:40
Sponsor Reklam
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ı: 645)
Cevapla

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

nekeba
Üye
Kullanici Avatari
Üye
18
4
30/10/2008
0
Eskişehir
18/11/2015,17:43
Sponsor Reklam
tanıdık geldi.
Cevapla

myAccess
Hesap Aktif Değil
Kullanici Avatari
Aktivasyon Bekleyen
27
29/10/2008
Bursa
Ofis 2003
09/10/2011,19:24
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?
Cevapla

ittihat
Üye
Kullanici Avatari
Üye
1
0
03/12/2008
0
Aksaray
Ofis 2003
03/12/2008,14:56
Sponsor Reklam
teşekkürler
Cevapla

halimalcin
Aktif Üye
Kullanici Avatari
Aktif Üye
H.... A....
71
9
28/12/2009
0
İstanbul
Ofis 2003
21/11/2016,14:56
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...
Cevapla


Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  MsSql Server ADO Bağlantı Örneği alpeki99 2 287 07/12/2016, 22:27 ozguryasin
  Tree View Menu örneği mehmetdemiral 30 8.704 15/11/2016, 15:32 orderyazbim
Çözüldü Kayıtlarda Yapılan Değişiklikleri Gözlemleme (Log Tutma) Örneği Taruz 28 12.349 08/11/2016, 15:01 ozanakkaya
  öğrenci takip örneği herdogan 12 8.432 12/06/2016, 00:16 taha58
  içinde bir çok örneği barındıran access örnekleri cuneyt 24 12.057 21/01/2016, 11:56 memetinal


Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya