Sub Ac kodundaki alttaki FORMAT(Tarih, 'dd.mm.yyyyy') böyle yapınca listboxta listelenmiyor.
Ekteki Listboxta tarih formatında nasıl gösteriltebilir?
Kod:
FORMAT(Tarih, 'dd.mm.yyyyy') Excelde böyle yapınca hata olmazken Accesste hata oluyor.Saygılar.
Kod:
.Open "Select id,FORMAT(Tarih, 'dd.mm.yyyyy') as Tarih,Ad,Soyad,Yas,Telefon From Tablo1 ", cn, , , 1PHP Kod:
Sub Ac()
With cn
If .State = adStateOpen Then
.Close
Set cn = Nothing
End If
End With
Set cn = CurrentProject.Connection
With rs
If .State = adStateOpen Then .Close
.CursorType = adOpenDynamic
.CursorLocation = 3
.LockType = adLockOptimistic
.Open "Select id,FORMAT(Tarih, 'dd.mm.yyyyy') as Tarih,Ad,Soyad,Yas,Telefon From Tablo1 ", cn, , , 1
End With
Lstbox.ColumnCount = 6
Lstbox.ColumnWidths = "2Cm;2Cm;3Cm;3Cm;3Cm;3Cm"
Lstbox.ColumnHeads = True
Set Lstbox.Recordset = rs
End Sub
