حنا نعوم

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

2 ردود في هذا الموضوع

لدي برنامج خاص بحساب ساعات عمل الموظفين

المطلوب انه عندما اريد ادخال ساعات حضور الموظف و ذهابه يوميا

انني مجبور ان ادخل التاريخ لكل موظف يدويا

ما هي الطريقة حتى ان يكون ادخال التاريخ تلقائيا عند اضافة اي بيانات خاصة بالموظف

ملاحظة : البرنامج مصمم على الاكسس وشكل البرنامج جدولي

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

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

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

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
زوار
This topic is now closed to further replies.

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .