Filitreleme Örneği - Baskı Önizleme +- 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 |