PHP Kod:
If Not IsNull(Me.txtAdAra.Value) Then
If Not IsNull(Me.txtSoyadAra.Value) Then
F8 ile adım adım ilerleyince Textboxlara veri girdikçe Textbox değerleri boş olarak geliyor.
Mesela txtAdAra a herhangi bir değer yazıp arama yapınca bazen yazılan değeri tanımıyor galiba.
Ado ile bir Listbox ve Listview yapayım dedim Access olarak bir sürü hata oluyor.Excelde böyle bir hata olmadı şimdiye kadar.
Acaba Access neden isnull ve Len fonksiyonlarında hatalı oluyor?
Private Sub txtAdAra_Change()
Call Ara
End Sub
Private Sub txtSoyadAra_Change()
Call Ara
End Sub
Sub Ara()
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(Me.txtAdAra.Value) Then strSQL = strSQL & " and Ad like '%" & Me.txtAdAra.Value & "%'"
If Not IsNull(Me.txtSoyadAra.Value) Then strSQL = strSQL & " and Soyad like '%" & Me.txtSoyadAra.Value & "%'"
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