[hannileo]

السلام عليكم 

اخواني كيف اقوم بتحديد صيغة التاريخ عند الضغط على زر الحفظ حيث يقوم بحفظ السجل بصيغة تاريخ محددة


على فرض ان TripDt هي التاريخ الذي اريد حفظه 


جربت تغيير trim الى format ولم استطع اكمال الكود

كود :

For i = 1 To Lst.ListItems.count
   
   CN.Execute "insert into TblTrip([TNo],[CustID],[Custname],[TripDt],[TripReq],[PassNo],[TrpGo],[TrpFrom1],[TrpTo1],[TrpCome],[TrpFrom2],[TrpTo2],[Dest],[PlnDt],[PlnTime],[TrpNote],[RegDt])" & _
              "values (" & _
               "'" & Trim$(Lst.ListItems(i).Text) & "'," & "'" & Trim$(Lst.ListItems(i).SubItems(1)) & "'," & "'" & Trim$(Lst.ListItems(i).SubItems(2)) & "'," & _
               "'" & Format(Lst.ListItems(i).SubItems(3)) & "'," & "'" & Trim$(Lst.ListItems(i).SubItems(4)) & "'," & _
               "'" & Trim$(Lst.ListItems(i).SubItems(5)) & "'," & _
               "'" & Trim$(Lst.ListItems(i).SubItems(6)) & "'," & _
               "'" & Trim$(Lst.ListItems(i).SubItems(7)) & "'," & _
               "'" & Trim$(Lst.ListItems(i).SubItems(8)) & "'," & _
               "'" & Trim$(Lst.ListItems(i).SubItems(9)) & "'," & _
               "'" & Trim$(Lst.ListItems(i).SubItems(10)) & "'," & _
               "'" & Trim$(Lst.ListItems(i).SubItems(11)) & "'," & _
               "'" & Trim$(Lst.ListItems(i).SubItems(12)) & "'," & _
               "'" & Trim$(Lst.ListItems(i).SubItems(13)) & "'," & _
               "'" & Trim$(Lst.ListItems(i).SubItems(14)) & "'," & _
               "'" & Trim$(Lst.ListItems(i).SubItems(15)) & "'," & _
               "'" & Trim$(Lst.ListItems(i).SubItems(16)) & "')"
   DoEvents