أبو آدم

اخي العزيز استخدم format الوقت كما يلي Late: (Format(([حضور]-[ساعة الحضور]),"hh:nn:ss")) و يلزمك ان تتعامل مع اوقات الحضور التي تقل عن الموعد المحدد للموظف

تفضل Me.Exp_Date = DateAdd("d", Me.dates_of_storage, [Date])

مرفق ملف مصور Capture.rar

أخي العزيز يلزم اولا ان تغير اسم مربع النص في النموذج ليختلف عن اسم مصدر الحقل فبدل info استخدم tinfo انشيئ مربع نص بدون مصدر Unbound باسم Text12 (مثلا ) بعنوان "عدد الاحرف المسموح به" ( ويمكن ان تجعله مخفي ) اذا شئت خلف حدث عند التغيير On Change لمربع النص tinfo ضع الكود التالي Me.Text12.Value = CurrentDb.TableDefs("T1").Fields("info").Size Me.tee = Me.Text12.Value - Len([tinfo].Text) If Me.tee = 0 Then MsgBox "No more characters allowed!" و راقب النتائج شكرا و الله من وراء القصد .....

حياك الله أخي العزيز ، هذا واجبنا بنقل ما علمنا الله اليكم لاستخدام الالوان للتنبيهات البصرية للنتائج يمكنك استخدام الكود التالي لتغيير لون النص ( وذلك بعد انتهاء الفلترة ) و اجعله بعد كود إظهار العدد ، لاي مربع نص في النموذج Me.txtCountMatches.Value = DCount("CustomerID", "tblCustomer", strFilter) Me.Text5.ForeColor = vbRed و لتغير لون خلفية النص Me.Text2.BackColor = vbYellow ولتغير لون إطار مربع النص Me.Text5.BorderColor = vbRed من الالوان المتاحة vbBlack vbRed vbYellow vbGreen vbCyan vbBlue vbMagenta vbWhite

أخي العزيز تم التعديل كنت تستخدم الحدث الخطأ تم اضافة الكود للحدث المناسب ... تفضل Private Sub DateOfBirth_AfterUpdate() ''عذرا سيتم التعديل استخدام حدث خاطئ 'Me.strAge = Age([DateOfBirth]) & " سنه " & " و " & AgeMonths([DateOfBirth]) & " شهر" End Sub Private Sub Form_Current() '' هنا تم التعديل Nart Lebzo 05/04/2018 If Not IsNull(DateOfBirth) Then ' To avoid error messages when the date field is empty ... لتجنب رسائل الخطأ عندما يكون حقل تاريخ الميلاد فارغا Me.strAge = Age([DateOfBirth]) & " سنه " & " و " & AgeMonths([DateOfBirth]) & " شهر" End If End Sub تركت لك ملاحظات التعديل حسب ما اعتدنا عليه يتم التطبيق و التأكد من النتائج ... .......................................... تفضل أخي العزيز التطبيق معدلاً ... باسم جديد للملف حتى لا تختلط المرفقات .. شكرا و الله من وراء القصد .... UP_NA_Calculate age.accdb

إخوتي الفضلاء التطبيق المرفق هو لما تفضل به الأخ العزيز حيث يتم ترقيم السندات حسب رقم تسلسلي يتم توليده من توليفة السنة و الشهر و رقم تسلسلي ( من ثلاث خانات 000 ) ، مأخوذة من التاريخ الذي يتم ادخاله ( تاريخ السند ) ، و حيث يتم مراعاة ما تم تسجيله من تسلسلات لذلك الشهر من السنة و صرف رقم جديد ، أو صرف رقم 001 للشهر و السنة . عند و جود اي ثغرة في التسلسل يتم التنبيه برسالة ، ويمكن بعدها اضافة كود لتنفيذ اي اجراء لازم هنا تركت ثغرة في تسلسلات شهر 4 . 2018 لتفعيل التدقيق و الرسالة في حال تنفيذ التطبيق كما هو من الصعب حدوث ثغرة ما لم يتم العبث بالجدول مباشرة أو عند الغاء سجل راجيا ان يكون التطبيق مناسبا و وافيا للفكرة التي طرحت و الله من وراء القصد .... NA_Sequence of Bond Numbers.accdb

Option Compare Database Option Explicit ' >>> By Nart Lebzo For www.officena.net ... 05/04/2018 Private Sub Form_Load() Me.txtSearch.BackColor = vbYellow Me.txtSearch.SetFocus End Sub Private Sub txtSearch_Change() Dim strFilter As String Dim sSearch As String On Error Resume Next If Me.txtSearch.Text <> "" Then sSearch = Me.txtSearch.Text strFilter = "[CompanyName] Like '*" & sSearch & "*'" strFilter = strFilter & " OR [ContactName] Like '*" & sSearch & "*'" strFilter = strFilter & " OR [City] Like '*" & sSearch & "*'" strFilter = strFilter & " OR [Address] Like '*" & sSearch & "*'" Me.Filter = strFilter Me.FilterOn = True Me.txtCountMatches.Value = DCount("CustomerID", "tblCustomer", strFilter) Else Me.Filter = "" Me.FilterOn = False End If With Me.txtSearch .SetFocus .SelStart = Len(Me.txtSearch.Text) End With End Sub Private Sub txtSearch_Click() Me.txtSearch.SetFocus Me.txtSearch.Text = "" Me.Requery With Me.txtSearch .SetFocus End With End Sub و الله من وراء القصد ....... أخي العزيز جعلت البحث ( الفلترة ) ضمن أربعة حقول يمكن ان تكون أقل أو أكثر ... يمكنك التعديل عليها كما تشاء ... و قد جعلته بسيطا قدر الإمكان جرب المرفق ، ... فصلته ... تفصيل حسب طلبك ، يفترض ان يكون وافياً بإذن الله و الله من وراء القصد .... NA_FilterWhileTyping.accdb

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

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

أخي العزيز على كل حال اليك اقتراحي sDate حقل التاريخ ، Text0 حقل إظهار الكود للسنة و الشهر ، Text6 حقل رقم السند الحالي حسب التاريخ المدخل في الحقل sDate Private Sub tDate_Exit(Cancel As Integer) 'By Nart Lebzo For www.officena.net '04/04/2018 Dim sCount, sMin, sMax, sGap Me.Text0 = Format(Left(tDate, 10), "yymm") sCount = DCount("[strNum]", "tblTest", "[strNum] like '" & Me.Text0 & "*'") ' Strings sMin = DMin("[strNum]", "tblTest", "[strNum] like '" & Me.Text0 & "*'") sMax = DMax("[strNum]", "tblTest", "[strNum] like '" & Me.Text0 & "*'") sGap = Right(sMax, 3) - Right(sMin, 3) + 1 Me.Text6 = sMax + 1 If sCount = 0 Then Me.Text6 = Me.Text0 & "001" End If If sGap > sCount Then MsgBox " There is a gap in the sequence of bond numbers " & vbNewLine & " -- " _ & vbNewLine & "هناك ثغرة في تسلسل أرقام السندات ", , " Attention -- تنبيه " End If End Sub و الله من وراء القصد ...

أخي جابر الطلب قيد التنفيذ مبدئيا ... و لكن هناك اشكال في مسألة الرغبة ؟؟ ارى ان نترك الامر محوسبا ضمن الكود ، اما اذا تركنا الخيار للمستخدم بادخال ارقام السندات و حصلت فجوة في الارقام 1 و 2 و 3 و 5 و 8 و 9 فما مصير الارقام الناقصة ؟؟؟ او اذا حدث خطأ في استخدام نمط الكود فبدلا من 1804005 أدخل 184005 ؟؟؟ ما رأيك ... ؟؟؟

أخي العزيز ان كنت قد احسنت الفهم عنك انت تريد ايقاف رسالة النظام المرتبطة بعدم وجود القيمة المضافة لمربع التحرير ضمن عناصر مصدر السجلات لتقوم بتفعيل نموذج اضافة القيمة الجديدة لمصدر السجلات لايقاف الرسالة اضف السطر التالي قبل كود تفعيل نموذج الاضافة Response = acDataErrContinue شكرا

أخي علاء المرفق كود حسب طلبك .... و يبقى عليك التطبيق حسب قاعدة بياناتك و تحليلك للأمر Sub StringDigits() '' By Nart Lebzo for Officena.net Dim Counter, d As Integer Dim MyString As String MyString = "30707212800148" For Counter = 1 To Len(MyString) 'do something for each Digit in string 'here is a msgbox for each Digit MsgBox Mid(MyString, Counter, 1) Next End Sub

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

إخوتي الفضلاء مشروع قيد العمل احببت ان اشاركه معكم حيث أعتقد أن مساعدة المستخدم في استخدام التطبيق بشكل صحيح مسألة مهمة و نتجنب من خلال ذلك كثيرا من المشاكل كما انني أعتقد ان الاشكال المتكررة من التنبيهات كرسائل التنبيه ( صندوق الرسائل ) تصبح روتينية لدى المستخدم حتى لا يعود مكترثا بها أجمع في جزء تفاعلي من النموذج منظومة التنبيه للأخطاء و رسائل النظام و الرسائل الموجهة للمستخدم بالاضافة للرسائل التوجيهية و المساعدة على الاستخدام في مكان واحد مع صور مساعدة و محددة لمستوى أهمية الرسالة ، تجلب انتباه المستخدم ، و هي بشكل جديد لافت للنظر و تقترن احيانا ( عند اللزوم ) بملفات صوتية . تقدمت بشكل جيد بالتطبيق و مازال قيد التنفيذ ... و لكنها مرحلة أحببت ان أشارككم بها مرفق ملف مصور و للحديث بقية ... و الله من وراء القصد Capture.rar

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

أخي طاهر ارسل لنا نص الرسالة

أخي محمد انا شخصيا لم أتعامل كثيرا مع التاريخ الهجري برمجيا ، و لا أعرف كيف عدلت التطبيق ولكن مبدئيا قم بتعديل مصدر الصف لمربع التحرير و السرد للشهر وهو اقتران رقم لترتيب الشهر مع اسمه و وافني بالنتيجة

و هناك تصميمات و افكار كثيرة حسب الحاجات

اخي محمد ظاهريا الحقل هة لاظهار الشهر ولكن ( اذا راجت الكودات و التصميم ) هو يحوي اليوم الذي يتم التعامل معه في التقويم و هو مهم للكودات و حركة الايام حبذا لو وضحت حاجتك لنتمكن جميعا من المساهمة في تحقيقها أخي طاهر الكائن المطلوب هو مربع النص الذي سيتم التعامل معه لتحديد التاريخ في نموذج خارج نموذج التقويم Public gtxtCalTarget As TextBox 'Text box to return the date from the calendar to. أخي محمد اليك تصميم و تطبيق أحدث لفكرة Date Picker يكون فيها الحقل الذي تعنيه ممثلا للشهر و هو مربع تحرير وسرد و أظنه يفي بحاجاتك بإذن الله و الله من وراء القصد .... NA_DatePicker.accdb

أخي الحبيب اختار اليوم > ضغط مزدوج > يظهر نموذج سجل المواعيد>إضغط على زر ( New Appt )> ثبت الموعد و الموضوع و الملاحظات>إضغط زر ( Save Appt )

جزاكم الله خيرا و شكرا على التشجيع و الكلمات الطيبة

ممكن تشرح لنا الفكرة و الحاجات كي نتمكن من المساهمة جميعا

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