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

serdem48

Üye
66354
 Belirtilmemiş
 2
 8
 23/09/2014
0
 
 
 
 Dün,11:00
Çö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

maytas

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

...........
halily

halily

Uzman
65596
ha....
 26
 1.286
 30/07/2014
215
 -
 
 Ofis 2019 64 Bit
 Bugün,10:47
formu açmak için hangi komutu kullanıyorsunuz?



serdem48

serdem48

Üye
66354
 Belirtilmemiş
 2
 8
 23/09/2014
0
 
 
 
 Dün,11:00
(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




...........
halily

halily

Uzman
65596
ha....
 26
 1.286
 30/07/2014
215
 -
 
 Ofis 2019 64 Bit
 Bugün,10:47
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



halily

halily

Uzman
65596
ha....
 26
 1.286
 30/07/2014
215
 -
 
 Ofis 2019 64 Bit
 Bugün,10:47
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 521 07/01/2019, 17:03
Son Yorum: ozanakkaya
Çözüldü Çok Alanlı Kopyala-yapıştır Uygulaması notrino 7 517 08/09/2018, 13:44
Son Yorum: idrisy
Çözüldü Revizyonlu Kopyala Yapıştır Uygulaması notrino 8 545 29/08/2018, 15:01
Son Yorum: notrino
Çözüldü kopyala yapıştır kodları brsknm 3 3.657 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.263 24/06/2010, 15:17
Son Yorum: Seruz

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