سعيد صواب

شكرا استاذ رمهان .. حفظ الله الجميع

السلام عليكم ورحمة الله .. اقتراحات وحلول مختلفة و رائعة. جزاكم الله خير معلمينا الأفاضل وزادكم من فضله وعلمه ... ===================== بصير طماع شوي واتفلسف . انا دائما افضل استخدام جمل sql على recordset من تجربتي احسها اسرع لا املك معلومة ولكن مجرد احساس .... فهل احساسي في محله .. شاكر تجاوبكم .

السلام عليكم ورحمة الله وبركاته ... طابت اوقاتكم اخواني الكرام . احاول انشاء مجموعات بحيث يصبح بإمكاني اضافة اكثر من شخص لمجموعة معينة وكذلك الشخص ممكن يكون مضاف بأكثر من مجموعة. الطريقة مشابهه تماما لفكرة انشاء القروبات في تطبيق الواتس اب . المرفق يحتوي على ثلاث جداول .. tbl_contacts وهو جدول جهات الاتصال tbl_FavMain وهو جدول المجموعات . tbl_Favconn وهو جدول الربط بينهما .. يوجد نموذج وحيد ... frm_Groups . ====================== عند فتح النموذج احدد اكثر من اسم واضيفه ويقبل الإضافة .. ولكن عند المحاولة مرة اخرى يرفض . حيث يجب اغلاق النموذج ومن ثم فتحه.... واحيان اخرى لايقبل الإضافة . وهذا هو الكود المستخدم : Dim rs As DAO.Recordset Set rs = Me.RecordsetClone If Not (rs.EOF And rs.BOF) Then Do Until rs.EOF If rs!Cont_Selct = True Then DoCmd.SetWarnings False DoCmd.RunSQL "insert into tbl_favconn (fav_name,cont_id) values('" & Me.txtGroupSrch & "','" & rs!Cont_id & "' )" DoCmd.SetWarnings True rs.Edit rs!Cont_Selct = False rs.Update End If rs.MoveNext Loop MsgBox "done" rs.Close Set rs = Nothing End If End Sub ارجو التجربه ولو فيه اقتراح اخر وشكرا مقدما . Groups.rar

السلام عليكم ضع هذا السطر في الحدث الذي يناسبك Me.Text27 = DateDiff("d", Me.Text23, Me.Text25) بالتوفيق

حياك الله اخي الكريم استخدم دالة Dateadd لإضافة يوم للتاريخ الأول وبعدد السجلات التي تريد اضافتها مع استخدم احد دوال اللوب ... وهكذا اذا لم تتضح الصورة اضف مرفق للتعديل عليه. بالتوفيق

الله يسلمك ويخليك استاذ ابو خليل وتشرفت بالنقاش مع شخص له افضال كثيرة بعد فضل الله علي وعلى كثير غيري .

حياكم الله اساتذتنا الكرام الطريقة التقليدية ان يحتوي الكشف على جميع الأسماء .. يميز الحاضر بالتوقيع .. والغائب من لم يوقع في ذلك اليوم .. ولهذا اقترحت ان يكون الحقل في جدول comeIN .. ============= وهنا اقتراح اخر وهو في المرفق .. بإضافة حقل status إلى جدول الأسماء كما اشرت انت استاذ ابراهيم . وقمت كذلك بإنشاء جدول للإجازات . ===== واعتقد ان مطالعة المرفق اسهل من شرح الفكرة .. وعموما هذه الثلاث استعلامات التي تعتمدها الفكرة : strSQL = "select tblnames.* from tblnames where userid not in(select userid from tblcomin where tblcomin.datem=date())" بحيث يتم اختيار معرف الموظف من جدول الموظفين .. الذي لم يسجل في جدول الحضور لتاريخ اليوم وبالتالي يسجل غياب . strSQLB = "select tblnames.* from tblnames where userid in(SELECT Vac_tbl.id FROM Vac_tbl WHERE Vac_tbl.v_to >=Date())" وهنا يتم اختيار الموظف من جدول الموظفين .. الذي لم يسجل في جدول الحضور ومسجل في جدول الإجازات بشرط ان تاريخ نهاية اجازته اكبر او يساوي تاريخ اليوم . strSQL = "select tblnames.* from tblnames where userid in(select userid from tblcomin where tblcomin.datem=date())" وهنا يتم اختيار الموظف من جدول الموظفين ... الذي سجل حضوره بتاريخ اليوم .. ==== من بعدها يتم تحديث الحالة status في جدول الموظفين الى :: حاضر , غائب , مجاز . اتمنى ان تكون المساهمة مفيدة .. وبالتوفيق للجميع . db.rar

حياك الله اخي الكريم ارفق مثال بتنسيق 2010 لفهم الفكرة اكثر وليتسنى لأخوانك الإجابة. بالتوفيق

وهنا مثال آخر http://www.officena.net/ib/topic/67762-استخراج-رمز-المعالج-والماذر-بورد-ورقم-الهارد-ديسك-للحماية/?page=2#comment-444811

السلام عليكم ورحمة الله وبركاته .. حياك الله استاذنا الكبير ابو خليل . اول اقتراح خطر على بالي هو ان نضيف كلمة حقل مجاز الى جدو comein وتكون true ,false عند عمل اجازة للموظف تصبح true .. وعند المباشرة false وفي استعلام المتأخرين والغائبين يشترط ان تكون القيمة false وبالتالي لن يظهر ضمن المتأخرين والغائبين . وتشرفت بالرد على سؤال لمعلمنا القدير . وكل عام والجميع بخير واعذروني على الإنقطاع لضيق وقتي .

حياكم الله اخواني وجدت هذا الموضوع ولم اجربه لضيق وقتي والعذر منكم :: ولكن عسى ان يكن به فائده .. https://www.experts-exchange.com/questions/25609387/Set-regional-settings-in-Access-VBA-for-current-session.html وهناك امثلة اخرى .. فقط ضع هذا السطر في محرك بحث قوقل ms access vba code to change regional settings بالتوفيق

حياك الله اخي حسين يوجد خيارين الخيار الأول في حال ان النموذج مخصص للبحث فقط .. بالترتيب من خصائص النموذج === بيانات === السماح بالإضافة - عدلها من نعم الى لا . بذلك تستطيع البحث .. ولا تستطيع ادخال بيانات . الخيار الآخر وهو اذا كان النموذج يستخدم للبحث والإدخال ضع هذا الكود في زر امر التالي . On Error Resume Next Me.Refresh With Recordset If .AbsolutePosition = .RecordCount - 1 Then MsgBox "هذا هو الســجل الأخير", vbInformation + vbOKOnly, "تنبيه" Else DoCmd.GoToRecord , , acNext End If End With هذا والله اعلم بالتوفيق

جزاك الله خير اخي الكريم ولكن الموقع محظور لا أعلم هل هذه المشكلة لدي ام لدى الجميع فحبذا رفعه على موقع اخر لوتكرمت

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

حياك الله اخي الكريم هنا شئ استخدمه وان شاء الله يفيدك شاهد المرفق به نموذج alarm يفتح من يسار الشاشة بإمكانك تصغيرة او تكبيره فيما بعد. يوجد حدثين في النموذج .. حدث عند الفتح به كود فتح النموذج من زاوية الشاشة .. الكود الآخر وهو مهم ... وهو في حال كان المستخدم يتصفح الانترنت او منشغل ببرنامج اخر هنا النموذج يفتح في مقدمة البرامج المفتوحة .. الكود في حدث عند التحميل ... وهو معتمد على الوحدة النمطية MostTop.. بالتوفيق left_top window.rar