Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
30/04/2019 13:49
Konu Sahibi
serdem48
Yorumlar
7
Okunma
225
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy

serdem48

Üye
66354
 Belirtilmemiş
 2
 8
 23/09/2014
0
 
 
 
 17/05/2019,17:15
Çözüldü 
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.


Visual Basic Code
1
2
3
4
5
6
7
8
9
10
Private Sub Form_Load()

Me.Metin1.SetFocus
DoCmd.RunCommand acCmdPaste

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

End Sub



maytas

Uzman
1316
 53
 24
 540
 21/12/2008
178
 Bursa
 
 Ofis 2010 32 Bit
 01/05/2019,02:10
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.

haliliyas

Uzman
65596
Ha.... Ya....
 Belirtilmemiş
 23
 1.025
 30/07/2014
172
 -
 
 Ofis 2019 64 Bit
 Bugün,03:55
formu açmak için hangi komutu kullanıyorsunuz?



serdem48

Üye
66354
 Belirtilmemiş
 2
 8
 23/09/2014
0
 
 
 
 17/05/2019,17:15
(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



haliliyas

Uzman
65596
Ha.... Ya....
 Belirtilmemiş
 23
 1.025
 30/07/2014
172
 -
 
 Ofis 2019 64 Bit
 Bugün,03:55
form yüklendi olayının kodu:

Visual Basic Code
Private Sub Form_Load()
Me.txtFiltre.SetFocus
DoCmd.RunCommand acCmdPaste
DoCmd.ApplyFilter , "strCity = '" & Me.txtFiltre.Text & "'"
End Sub



haliliyas

Uzman
65596
Ha.... Ya....
 Belirtilmemiş
 23
 1.025
 30/07/2014
172
 -
 
 Ofis 2019 64 Bit
 Bugün,03:55
sizin çalışmanıza uyarlarsak

Visual Basic Code
Private Sub Form_Load()
Me.Metin17.SetFocus
DoCmd.RunCommand acCmdPaste
DoCmd.ApplyFilter , "[Alan] = '" & Me.Metin17.Text & "'"
End Sub




Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü Kopyala Yapıştır Bora34 8 437 07/01/2019, 17:03
Son Yorum: ozanakkaya
Çözüldü Çok Alanlı Kopyala-yapıştır Uygulaması notrino 7 449 08/09/2018, 13:44
Son Yorum: idrisy
Çözüldü Revizyonlu Kopyala Yapıştır Uygulaması notrino 8 473 29/08/2018, 15:01
Son Yorum: notrino
Çözüldü kopyala yapıştır kodları brsknm 3 3.545 27/07/2011, 14:07
Son Yorum: ozanakkaya
Çözüldü sürekli formda kes/kopyala ve yapıştır yöntemi ile kayıt girme dereza 7 3.188 24/06/2010, 15:17
Son Yorum: Seruz

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2019 MyBB Group.