سعيد صواب

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

السلام عليكم ورحمة الله .. اقتراحات وحلول مختلفة و رائعة. جزاكم الله خير معلمينا الأفاضل وزادكم من فضله وعلمه ... ===================== بصير طماع شوي واتفلسف . انا دائما افضل استخدام جمل 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

حياك الله اخي شاهد المرفق عدلت اسم الجدول الى tbl_tasks وحقل المتابعة الى f_tasks افتح نموذجج mainf444 وشاهد حدث عند التحميل بالتوفيق * للعلم انا ارفقته الساعة 6 مساء .. وعندما عدت الى المنتدى لم اجد ردي .. ftasks.rar

حياك الله وجدت لك هذا الموضوع وبإستخدامك لمربع البحث في اعلى المنتدى قد تجد غيره http://www.officena.net/ib/topic/19483-برنامج-مقاولات-هدية-للمنتدى-دعوة-لكل-الخبراء-والاعضاء/ بالتوفيق

حياك الله اخي الكريم فكرتي هي الحاق جميع الموظفين بالمسير وبعد ذلك تختار من استلم ومن لم يستلم شاهد المرفق في النموذج frm_salary ادخل التاريخ ثم اضغط على امر تنفيذ سيلحق جميع الموظفين الى جدول الرواتب ومن ثم يستعلم بناء على الشهر المدخل وبعدها بإمكانك التحديد بعلامة صح لمن استلم يوجد استعلام بإسم Notrecived يظهر لك من لم يستلم مع تحديد الشهر والسنة قمت بإنشاء علاقات بين الجداول ... لم يكن هناك علاقات هذه الفكرة مبدئيا وللحديث بقية بوضع الشروط قبل تنفيذ الحدث وما الى ذلك .. وهي يسيرة وبإمكانك عملها في حال رضيت عن الفكرة. جرب ووافنا بالتوفيق 240.2.الشهر الغير موجود.rar

شكرا جزيلا ارسلت لك تقييمي بس بدون زعل ههههههه زادك الله علما ونجاحا اخي الكريم

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

حياك الله اخي عمر شاهد المرفق وشاهد حدث بعد التحديث لمربع النص الغير منضم dateH "التاريخ الهجري" هنا انا اضفت مربع نص غير منضم لإدخال التاريخ الهجري .. والحقل الذي يحفظ الى الجدول هو expdate بالتوفيق trYit.rar

حياك الله استاذ كرار يبدو اني خلطت الأمور هو فعلا كذلك ... الذي خلط الأمور هو اني مهتم بنموذج البداية ويهمني ان تظهر الأيقونة بدل مفتاح الأكسس ولاحظ حتى لو اخترنا الأيقونة يدويا .. ان الوضع هو نفسه .. لا تتأثر ايقونة الملف نفسه ولكن تتأثر النماذج والتقارير . انت ترغب في تغيير ايقونة القاعدة نفسها .. يدويا كما ذكرت في الردود السابقة بعمل اختصار ومن ثم اختيار الايقونة طريقة اخرى عند التحزيم انا استخدم access developer extension وهو يسمح لك بإختيار ايقونه وينشئ عنك الإختصار على سطح المكتب وقائمة ابداء. في 2010 اعتقد لديك package solution يقوم بنفس المهمة . الموضوع هذا من اولة فيه لخبطه ههههههه. اعتذر بالتوفيق

حياكم الله اخواني مشاركة مع اخوي كرار شاهد الاستعلام q1 في المرفق وبعد ذلك بإمكانك التطبيق بنفس الطريقة الآن بإمكانك اختيار السنة من النموذج وطباعة التقرير rep1 المبني على الاستعلام q1 بالتوفيق RIT.rar

حياك الله استاذ كرار فعلا جربت على جهاز اخر وظهرت المشكلة .. ووجدت حل من MSDN لتفادي هذا الخطاء وهو في حال عدم وجود الخاصية ان يقوم بإنشائها . هنا الدالة Function AddAppProperty(strName As String, _ varType As Variant, varValue As Variant) As Integer Dim dbs As Object, prp As Variant Const conPropNotFoundError = 3270 Set dbs = CurrentDb On Error GoTo AddProp_Err dbs.Properties(strName) = varValue AddAppProperty = True AddProp_Bye: Exit Function AddProp_Err: If Err = conPropNotFoundError Then Set prp = dbs.CreateProperty(strName, varType, varValue) dbs.Properties.Append prp Resume Else AddAppProperty = False Resume AddProp_Bye End If End Function وهنا استدعائها تحت زر امر Dim intX As Integer Const DB_Text As Long = 10 ' هنا اسم البرنامج اذا رغبت في تغييره ' intX = AddAppProperty("AppTitle", DB_Text, "اسم البرنامج") intX = AddAppProperty("AppIcon", DB_Text, "C:\Users\dell\Desktop\NewSEtup\ssab.ico") CurrentDb.Properties("UseAppIconForFrmRpt") = 1 Application.RefreshTitleBar MsgBox "done" وهنا رابط الموضوع https://msdn.microsoft.com/en-us/library/bb256834(v=office.12).aspx ملاحظة : الصورة ممكن تكون بإمتداد bmp او ico بالتوفيق للجميع .

حياك الله اخي الكريم قبل ادخال البيانات الى الجدول قم بتحويلها للميلادي المستخدم يختار او يدخل من النموذج تاريخ هجري ... وعند الإختيار ومن احد الأحداث تحول التاريخ الى ميلادي .. وهكذا بحيث تدخل للجدول بالميلادي ويصبح التنبيه مبني على تايخ صحيح .. بالتوفيق