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
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
formu açmak için hangi komutu kullanıyorsunuz?
(30/04/2019, 14:24)haliliyas yazdı: [ -> ]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
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
sizin çalışmanıza uyarlarsak
Private Sub Form_Load()
Me.Metin17.SetFocus
DoCmd.RunCommand acCmdPaste
DoCmd.ApplyFilter , "[Alan] = '" & Me.Metin17.Text & "'"
End Sub