Skip to main content

AccessTr.neT


Filitreleme Örneği

Filitreleme Örneği

#1
3 koşula göre sorgulama.

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

ALINTIDIR
.rar Seçme-aktarma.rar (Dosya Boyutu: 34,94 KB | İndirme Sayısı: 672)
FX-Etopla
Liste Kutusu Oluşturma
Cevapla
#2
tam aradığım bu örnekti. teşekkürler...
Cevapla
#3
tanıdık geldi.
Son Düzenleme: 04/11/2008, 11:46, Düzenleyen: nekeba.
Cevapla
#4
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.
Cevapla
#5
teşekkürler
Cevapla
#6
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

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da