ادخال التاريخ تلقائيا

استخدم هذا الكود أرجو ان يكون مفيدا و اذا احتجت للشرح لن ابخل عليك به

Private Sub Form_Open(Cancel As Integer)Dim LateBills As DatabaseDim rstBillDate As dao.Recordset   Set LateBills = CurrentDbSet rstBillDate = LateBills.OpenRecordset("Bill_date")id = DaterstBillDate.Index = "PrimaryKey"rstBillDate.Seek "=", idIf rstBillDate.NoMatch ThenrstBillDate.AddNewrstBillDate!Bill_date = DaterstBillDate.UpdateEnd IfrstBillDate.CloseEnd Sub

يقوم هذا الكود بالبحث عن تاريخ اليوم الحالي و في حال لم يجده يقوم باضافته تلقائيا طبعا يجب مراعاة تغيير أسماء الجداول و الحقول لكي تتناسب مع الجداول و الحقول التي لديك في قاعدة البيانات