30-12-2021, 22:49 (En son düzenleme: 30-12-2021, 23:39 kamil_55.)
sn.dsezgin, sn.Taruz'un yaptığı bu harika çalışmadan biz de uygulamamızda yararlandık ellerine sağlık. Bu çalışmayı birden fazla alana uygulayabilir miyiz acaba, eğer bu mümkünse kodlamayı nasıl yapmalıyız?
alan = "[PARTİ_1]" & "[parti_2]" gibi çoğaltmak istediğimizde diğer kodlar nasıl oluşturulmalı acaba? teşekkürler.
..................
şöyle denedik; ilk alan araması için sn.Taruz'un kodlarının bitimine end If ile devam ettirip sonraki alanlar için aynı kodları aldık ve alan isimlerini değiştirerek uyguladık birden fazla sütunda arama yapılabiliyor.
(30-12-2021, 22:49)kamil_55 demiş ki: sn.dsezgin, sn.Taruz'un yaptığı bu harika çalışmadan biz de uygulamamızda yararlandık ellerine sağlık. Bu çalışmayı birden fazla alana uygulayabilir miyiz acaba, eğer bu mümkünse kodlamayı nasıl yapmalıyız?
alan = "[PARTİ_1]" & "[parti_2]" gibi çoğaltmak istediğimizde diğer kodlar nasıl oluşturulmalı acaba? teşekkürler.
..................
şöyle denedik; ilk alan araması için sn.Taruz'un kodlarının bitimine end If ile devam ettirip sonraki alanlar için aynı kodları aldık ve alan isimlerini değiştirerek uyguladık birden fazla sütunda arama yapılabiliyor.
Visual Basic
Sub TrzRenkliArama()
Dim alan(1)AsString
Dim Kelime AsString
Dim textkaynak(1)AsString
Const yildiz = "*"
If Me.altform.Form.Dirty Then Form.Dirty =False
If IsNull(arama)Then'Me.arama arama kutusun adýdýr.
If Me.altform.Form.FilterOn Then'altform , alt formunuzun adýdýr.
Me.altform.Form.FilterOn =False
EndIf
Me.altform.Form.renkligoster0.Visible = 0
Me.altform.Form.renkligoster1.Visible = 0
Else
alan(0)= "[Adi]" 'aramanýn yapýlacaðý alan adý ile deðiþtirilecek
alan(1)= "[Soyad]" 'aramanýn yapýlacaðý alan Soyad ile deðiþtirilecek
Kelime = arama
Me.altform.Form.Filter = alan(0) & " Like'" & yildiz & Kelime & yildiz & "' or " & alan(1) & " Like '" & yildiz & Kelime & yildiz & "'"
30-03-2022, 13:15 (En son düzenleme: 30-03-2022, 13:16 runonur.)
Merhaba,
Taruz'a yapmış olduğu çalışma için çok teşekkürler. Bu yöntemi ekteki uygulamamda kullandım. Arama sonucunda oluşan filtre üzerinden "Rotaya Ekle" düğmesine bastığımda yan taraftaki listbox'a Lokasyon textbox'ındaki veri yerine filtre için oluşturulan html satır kopyalanmakta.
Lokasyon alanınındaki gerçek veriyi kopyalamak için nasıl bir yol izlemeliyiz?
Taruz'a yapmış olduğu çalışma için çok teşekkürler. Bu yöntemi ekteki uygulamamda kullandım. Arama sonucunda oluşan filtre üzerinden "Rotaya Ekle" düğmesine bastığımda yan taraftaki listbox'a Lokasyon textbox'ındaki veri yerine filtre için oluşturulan html satır kopyalanmakta.
Lokasyon alanınındaki gerçek veriyi kopyalamak için nasıl bir yol izlemeliyiz?
Kendi sorumu çözdüm. Şöyle ki; filtre için kullanılan textbox haricinde aynı alanı içeren gizli bir textbox oluşturdum. Rotaya ekle düğmesine basıldığında gizli textbox taki veriyi listbox'a ekliyor.
Ekte düzgün çalışan halini de yükledim.