العمرى بن

بسم الله الرحمن الرحيم أخى الكريم أعد تصميم الإستعلام كما فى الملف المرفق ME.RAR

بسم الله والحمد لله والصلاة والسلام على رسول الله لقد أستبدلت النموذج Raccounts بالنموذجMaccounts ولعله يفى بالغرض hod3.rar

أخى الكريم أحسب أن هناك أخطاء فى تصميم القاعدة ففى الجدول TblAGE الحقول عدد سنوات الخدمة ويوم وشهر وسنة هى بيانات يمكن حسابها وبالتالى لا يجب أن تنشأ لها حقول ونفس الموضوع فى الجدول TblPermission الحقول مدة الأجازة ويوم وشهر وسنة هى بيانات يمكن حسابها وبالتالى…

ربما استطعت أرفاق الملف وهو نفس ملفك الأول مع إضافة الكود MOrphan.rar

أخى كل ما عليك هو أن تضيف حقل من نوعية "كائن OLE" ثم تلصق فيه الصور سواء فى الجدول أو فى النموذج

أخ مصلح جزاك الله خيراً وعذراً فهذه كانت أول مشاركة لى فى المنتدى سيدة هدى أحسن الله إليك بالنسبة للكود الأول هل غيرت السطر Me.Refresh إلى Me.Requery الكود كاملاً مرة أخرى Private Sub أمر18_Click() 'On Error Resume Next Dim dbs As Database, rst As Recordset, s…

جرب تغيير الدالة Format المستخدمة فى الحدث AfterUpdate من Format(tr, "dd/mm/yyyy", vbSunday, vbUseSystem) إلى Format(tr, "dd/mm/yyyy", vbSunday)

جرب أخى هذا الكود للدالة وجرب الأمرين وعسى أن Public Function date_avarage(ByVal y1 As Date, ByVal y2 As Date) As Date date_avarage = CDate(CLng((CLng(y1) + CLng(y2)) / 2)) 'date_avarage = (y1 + y2) / 2 End Function أو صحح ما كتبت أنت فى الإستعلام إلى ([تاريخ …

بالنسبة للسؤال الثانى أصعب من الأول الكود الأول يجب أن يغير فيه الأمر Me.Refresh إلى Me.Requery أما حل الجزء الثانى إذا كان الأول صح يمكن كتابة الكود التالى Private Sub الأمر18_Click() 'On Error Resume Next Dim dbs As Database, qrst As Recordset, rst As Record…

بالنسبة للسؤال الإول إذا كنت فهمت أنا سؤالك فهذا الكود قد يفى بالغرض Private Sub أمر18_Click() 'On Error Resume Next Dim dbs As Database, rst As Recordset, strsql As String Dim X As Long Set dbs = CurrentDb X = Forms![Rorphans]![orphan_count] strsql = "SELECT …