منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - بخصوص صيغة التاريخ عند الحفظ في قاعدة البيانات

السلام عليكم

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

على فرض ان 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

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

hannileo