03-07-22, 12:19 PM
السلام عليكم
اخواني كيف اقوم بتحديد صيغة التاريخ عند الضغط على زر الحفظ حيث يقوم بحفظ السجل بصيغة تاريخ محددة
على فرض ان TripDt هي التاريخ الذي اريد حفظه
جربت تغيير trim الى format ولم استطع اكمال الكود
اخواني كيف اقوم بتحديد صيغة التاريخ عند الضغط على زر الحفظ حيث يقوم بحفظ السجل بصيغة تاريخ محددة
على فرض ان 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