AccessTr.neT

Tam Versiyon: Filitreleme Örneği
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2
3 koşula göre sorgulama.

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

ALINTIDIR
tam aradığım bu örnekti. teşekkürler...
tanıdık geldi.
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?
teşekkürler
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
Sayfalar: 1 2