+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Örnekleri ve Uygulamaları (https://accesstr.net/forum-access-ornekleri-ve-uygulamalari.html)
+--- Konu Başlığı: Filitreleme Örneği (/konu-filitreleme-ornegi.html)
Sayfalar:
1
2
Filitreleme Örneği - nihatkr - 03/11/2008
3 koşula göre sorgulama.
sitede daha önce sorulan sorular sonucunda hazırlanmış bir örnek
ALINTIDIR
Cvp: Filitreleme Örneği - mimerd - 03/11/2008
tam aradığım bu örnekti. teşekkürler...
Cvp: Filitreleme Örneği - nekeba - 04/11/2008
tanıdık geldi.
Cvp: Filitreleme Örneği - myAccess - 05/11/2008
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?
Cvp: Filitreleme Örneği - ittihat - 03/12/2008
teşekkürler
Cvp: Filitreleme Örneği - halimalcin - 19/01/2010
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