uygulamada bi kaç düzenleme

[dreamymost]

arkadaşlar kücük bi uygulama yapıyorum bazı bölümler beni astı sizin yardımlarınızı istiyorum acces veri tabanlı uygulama buna listbox ekleyemedim birde tarih kısmını veri tabanına kaydettiremedim yardımcı olurmusunuz.

 

[modalı]

Sayın dreamymost,

Listbox1 adlı liste ekleyin ve:

Private Sub UserForm_Initialize()
Set AdoCN = CreateObject("ADODB.Connection")
   Dosya_Yolu = ThisWorkbook.Path & "\KİŞİLER.mdb"
   AdoCN.Provider = "Microsoft.Jet.OLEDB.4.0"
   AdoCN.ConnectionString = Dosya_Yolu
   AdoCN.Open
       '===========================
       Set rs = CreateObject("ADODB.recordset")
       Tanimlanan = "SELECT * FROM [KİŞİLER]"
       rs.Open Tanimlanan, AdoCN, 1, 3

ListBox1.ColumnCount = rs.Fields.Count

Do While Not rs.EOF
  ListBox1.AddItem
  ListBox1.List(i, 0) = (rs.Fields("Kimlik"))
  ListBox1.List(i, 1) = IIf(rs.Fields("isteyen_servis") = "", "BOŞ", rs.Fields("isteyen_servis"))
  ListBox1.List(i, 2) = IIf(rs.Fields("unite") = "", " ", (rs.Fields("unite")))
  ListBox1.List(i, 3) = IIf(rs.Fields("yapilacak_is") = "", " ", rs.Fields("yapilacak_is"))
  ListBox1.List(i, 4) = IIf(rs.Fields("tarih") = "", 0, rs.Fields("tarih"))
  ListBox1.List(i, 5) = IIf(rs.Fields("saat") = "", 0, rs.Fields("saat"))
  
  i = i + 1
  
  rs.MoveNext
Loop
'Close the database and clean-up.
rs.Close

Set rs = Nothing
Set AdoCN = Nothing
End Sub

Tarih kaydında sorun yok kaydediyor.