sayyın @
berduş maliesef olmadı son kodunuz.
(12/01/2020, 15:52)ozanakkaya yazdı: [ -> ]inceleyiniz, forma 2 adet metin kutusu ekledim. txtSoyadAra ve txtAdAra metin kutularının değiştiğinde olayına kod eklendi,
Sub Ara kodunda düzenleme yapıldı.
Denedim ve sonuç olumlu.
Şöyle deneyeceğim 2 adet eklediğiniz textboxu silip 2 adet değişken ekleyeyim en üst kod satırında Global olarak bakalım nasıl olacak.inşallah olur böyle çünkü fazladan textbox eklemek istemiyorum abey.
(12/01/2020, 19:17)feraz yazdı: [ -> ] (12/01/2020, 15:52)ozanakkaya yazdı: [ -> ]inceleyiniz, forma 2 adet metin kutusu ekledim. txtSoyadAra ve txtAdAra metin kutularının değiştiğinde olayına kod eklendi,
Sub Ara kodunda düzenleme yapıldı.
Denedim ve sonuç olumlu.
Şöyle deneyeceğim 2 adet eklediğiniz textboxu silip 2 adet değişken ekleyeyim en üst kod satırında Global olarak bakalım nasıl olacak.inşallah olur böyle çünkü fazladan textbox eklemek istemiyorum abey.
Sayın @
ozanakkaya 2 adet eklediğiniz textboxları sildim ve global adlanda değşken ekleyip denedim ve sorun çözüldü.Bir tane daha Yas adında textbox ekledim ve sorunsuz çalıştı 3 adet arama textboxu için.Teşekkürler.
Sizede teşekkürler @
berduş
Eklediğim kod;
Dim txtAdAra_gecici, txtSoyadAra_gecici, txtYasAra_gecici
Değişen kodlar;
If Not IsNull(txtAdAra_gecici) Then strSQL = strSQL & " and Ad like '%" & txtAdAra_gecici & "%'"
If Not IsNull(txtSoyadAra_gecici) Then strSQL = strSQL & " and Soyad like '%" & txtSoyadAra_gecici & "%'"
If Not IsNull(txtYasAra_gecici) Then strSQL = strSQL & " and Yas like '%" & txtYasAra_gecici & "%'"
Option Compare Database
Dim rs As New ADODB.Recordset
Dim cn As New ADODB.Connection
Dim strSQL As String
Dim txtAdAra_gecici, txtSoyadAra_gecici, txtYasAra_gecici
Sub Ara()
'On Error Resume Next
With cn
If .State = adStateOpen Then
.Close
Set cn = Nothing
End If
End With
Set cn = CurrentProject.Connection
strSQL = "Select id,FORMAT(Tarih, 'dd.mm.yyyy') as Tarih,Ad,Soyad,Yas,format(Telefon,'(###) ### ## ##')as Telefon From Tablo1 where Not IsNull(id)"
If Not IsNull(txtAdAra_gecici) Then strSQL = strSQL & " and Ad like '%" & txtAdAra_gecici & "%'"
If Not IsNull(txtSoyadAra_gecici) Then strSQL = strSQL & " and Soyad like '%" & txtSoyadAra_gecici & "%'"
If Not IsNull(txtYasAra_gecici) Then strSQL = strSQL & " and Yas like '%" & txtYasAra_gecici & "%'"
With rs
If .State = adStateOpen Then .Close
.CursorType = adOpenDynamic
.CursorLocation = 3
.LockType = adLockOptimistic
.Open strSQL, cn, , , 1
End With
Lstbox.ColumnCount = 6
Lstbox.ColumnWidths = "2Cm;2Cm;3Cm;3Cm;3Cm;3Cm"
Lstbox.ColumnHeads = True
Set Lstbox.Recordset = rs
End Sub
Private Sub txtAdAra_Change()
txtAdAra_gecici = Me.txtAdAra.Text
Call Ara
End Sub
Private Sub txtSoyadAra_Change()
txtSoyadAra_gecici = Me.txtSoyadAra.Text
Call Ara
End Sub
Private Sub txtYasArama_Change()
txtYasAra_gecici = Me.txtYasArama.Text
Call Ara
End Sub
Güzel yöntem)
Şöyle birseyi de dendeneyebilir misiniz? bilgisayar erişimim olmadığından deneyemedim
Ilk mesajdaki çalışmanız için ara fonksiyonunun en başına aşağıdaki kodu ekler misiniz
Screen.ActiveControl.value=Screen.ActiveControl.text
Screen.ActiveControl.SelStart=len(Screen.ActiveControl.value)
Geriye kalan tüm kodlar ilk mesajınızdaki gibi kalacak
(12/01/2020, 19:56)berduş yazdı: [ -> ]Güzel yöntem)
Şöyle birseyi de dendeneyebilir misiniz? bilgisayar erişimim olmadığından deneyemedim
Ilk mesajdaki çalışmanız için ara fonksiyonunun en başına aşağıdaki kodu ekler misiniz
Screen.ActiveControl.value=Screen.ActiveControl.text
Screen.ActiveControl.SelStart=len(Screen.ActiveControl.value)
Geriye kalan tüm kodlar ilk mesajınızdaki gibi kalacak
Böyle çok süper oldu
Kodların açıklamasını yazabilir misiniz?
SelStart ne olduğunu biliyorum fakat burdaki kullanma amacını anlayamadım.
Screen bunuda anlayamadım acaba exceldeki application.screenupdate gibi birşey mi?
Screen.ActiveControl odaklanilmis aktif nesneyi gosterir, aktif nesnenin değerini metin değerine eşler böylece value değeri text değerine eşit olur
screen komutunun anlamini ben de tam olarak bilmiyorum ama sanki ekranda görünen nesneler için kullanılıyor gibi geldi biraz zorlama bir yorum
Alttaki kodu önlem olarak eklemiştim belki o kod olmadan bile çalışır: imleci aktif nesnenin belirtilen konumuna taşır biz tüm metni aldığımızdan en sona aldı
Not: ilk kodu kullanırken dikkatli olmalısınız metin kutusu herhangi bir tablo alanıyla ilişkili olmadığından burada sorun çıkarmayabilir ama başka bir alanla iliskiliyse yada ctrl+z de sorun cikarir