Skip to main content

AccessTr.neT M.



Yapıştır Ve Filtrele

Yapıştır Ve Filtrele

Çözüldü #1
Son Düzenleme: 30/04/2019, 13:50, Düzenleyen: serdem48.
baska bir programdan kopya yaptığım veriyi (örneğin: 107/3) form yüklendiğinde olayına ilişkisiz metin kutusu (Metin1)'ye yapıştırıp Alan kısmından filtreleme yaparak form filtresi yapmak istiyorum. Denedim ancak yapamadım. mümkünmüdür. aşagıdaki kodu denedim. olmuyor.


Private Sub Form_Load()

Me.Metin1.SetFocus
DoCmd.RunCommand acCmdPaste

Form.Filter = "[Alan] = '" & Me.Metin1 & "'"
Form.FilterOn = True
Me.Metin1.SetFocus

End Sub

Cevapla
#2
Projelerimde çok kullandığım aşağıdaki ögneği kendi ihtiyacına göre uyarlarsın.
İstediğin kadar kriter kullanabilirsin. Burada dikkat edilmesi gereken nokta filtreyi uygulamak istediğin tablodaki alan ile filtreyi belirttin tip ayni olmalı, yani tablodaki alan metin ise belirttiğin tip de metin olmalı. Benim aşağıdaki örnekte veriler hep metin. Eğer sendeki veri sayı ise çift tırnağın önündeki ve arkasındaki tek tırnakları kaldır.

Private Sub filtre_uygula()
    On Error Resume Next
    Dim kriter As String
    
    If Nz(Me.cmbYon, "") <> "" Then
        kriter = kriter & "[YoneticiID] = '" & Me.cmbYon & "' AND "
    End If

    If Nz(Me.cmbProje, "") <> "" Then
        kriter = kriter & "[ProjeID] = '" & Me.cmbProje & "' AND "
    End If
   
    If Nz(Me.cmbProjeTipi, "") <> "" Then
        kriter = kriter & "[Proje Tipi] = '" & Me.cmbProjeTipi & "' AND "
    End If
    
    If Nz(Me.cmbProjeAdi, "") <> "" Then
        kriter = kriter & "[Proje Isim] = '" & Me.cmbProjeAdi & "' AND "
    End If
    
    If kriter <> "" Then
        kriter = Left(kriter, Len(kriter) - 5) 'en sağadaki fazladan AND alma
        Me.Filter = kriter
        Me.FilterOn = True
    Else
        Me.Filter = ""
        Me.FilterOn = False
    End If
End Sub

Mesajlarımızı Türkçe yazım kurallarına uygun yazalım.
Emeğe saygı gösterelim, bir teşekkürü çok görmeyelim.
Cevapla
...........
#3
formu açmak için hangi komutu kullanıyorsunuz?

Cevapla
#4
Son Düzenleme: 30/04/2019, 14:29, Düzenleyen: serdem48.
(30/04/2019 14:24)haliliyas Adlı Kullanıcıdan Alıntı: formu açmak için hangi komutu kullanıyorsunuz?
Netcad cizim programından direkt Access dosyasının linki ile prpgram çalışıyor. açılış formu tanımladığım sayfa direkt olarak açılıyor. burada benim tanımladığım bir metin kutusuna netcad den kopya aldığı ada parsel ile bir filtre uygulayıp formu ilgili ada parselin kaydını filtrelemek istiyorum.

örnek bir çalışmam var denediğim.  ancak başarısız oldum

.rar Filtrele.rar (Dosya Boyutu: 44,72 KB | İndirme Sayısı: 3)
Cevapla
...........
#5
form yüklendi olayının kodu:
Private Sub Form_Load()
Me.txtFiltre.SetFocus
DoCmd.RunCommand acCmdPaste
DoCmd.ApplyFilter , "strCity = '" & Me.txtFiltre.Text & "'"
End Sub

Cevapla
#6
sizin çalışmanıza uyarlarsak
Private Sub Form_Load()
Me.Metin17.SetFocus
DoCmd.RunCommand acCmdPaste
DoCmd.ApplyFilter , "[Alan] = '" & Me.Metin17.Text & "'"
End Sub

Cevapla
...........

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

Yorum yapmak için üye olmanız gerekiyor

ya da