نجوم المشاركات

تفضل أخي .. فتح ملف خارجي.accdb

الحقل Me.txtDatetest هذا قيمته ثابتة ولا يمكنك تغييرها وهي تاريخ اليوم لذا انا وضعت القيمة مباشرة في الكود في الكود 15 ليوم الخميس فقط والذي = 5 اما اذا عملت تحضير يوم الجمعة فسيعطيك كباقي الايام انت لم تجعل شرطا على ايام العطل هل تريد الحقل Me.txtDatetest قابل للتعديل بان تكتب فيه تواريخ سابقة ؟

ثم اعطني خطوات العمل .. كما تجرب انت

شغلته اكثر من مرة وكلها يعطي نتائج صحيحة Private Sub cmdSetAll_Click() On Error GoTo Errw Dim i As Integer Dim Dday As Integer DoCmd.GoToRecord , , acFirst For i = 1 To Me.Recordset.RecordCount If (Me.Emp_ABSCENT) = True Or (Me.Vacation) = True Then Me.Dwam_Date = Date DoCmd.GoToRecord , , acNext GoTo nxfor End If Dday = Weekday(Date) If Dday = 5 Then Me.Dwam_Date = Date txtTimeIn.Value = "07:00" Me.txtTimeOut = "15:00" ElseIf Dday <> 5 Then Me.Dwam_Date = Date txtTimeIn.Value = "07:00" Me.txtTimeOut = "16:00" Else Me.txtTimeIn.Value = "" Me.txtTimeIn.Value = "" End If DoCmd.GoToRecord , , acNext nxfor: Next i Exit Sub Errw: MsgBox "لقد تم اعتماد الانصراف بنجاح", vbOKOnly End Sub

لكنه عندي ظاهر على كل حال استبدله بهذا التعديل On Error GoTo Errw Dim i As Integer Dim Dday As Integer DoCmd.GoToRecord , , acFirst For i = 1 To Me.Recordset.RecordCount If (Me.Emp_ABSCENT) = True Or (Me.Vacation) = True Then Me.Dwam_Date = Date DoCmd.GoToRecord , , acNext GoTo nxfor End If Dday = Weekday(Date) If Dday = 5 Then Me.Dwam_Date = Date txtTimeIn.Value = "07:00" Me.txtTimeOut = "15:00" ElseIf Dday <> 5 Then Me.Dwam_Date = Date txtTimeIn.Value = "07:00" Me.txtTimeOut = "16:00" Else Me.txtTimeIn.Value = "" Me.txtTimeIn.Value = "" End If DoCmd.GoToRecord , , acNext nxfor: Next i Exit Sub Errw: MsgBox "لقد تم اعتماد الانصراف بنجاح", vbOKOnly

جرب هذا ووافنا بالنتيجة 'On Error GoTo Errw Dim i As Integer Dim Dday As Integer DoCmd.GoToRecord , , acFirst For i = 1 To Me.Recordset.RecordCount - 1 If (Me.Emp_ABSCENT) = True Or (Me.Vacation) = True Then DoCmd.GoToRecord , , acNext GoTo nxfor End If Dday = Weekday(Date) If Dday = 5 Then Me.Dwam_Date = Date txtTimeIn.Value = "07:00" Me.txtTimeOut = "15:00" ElseIf Dday <> 5 Then Me.Dwam_Date = Date txtTimeIn.Value = "07:00" Me.txtTimeOut = "16:00" Else Me.txtTimeIn.Value = "" Me.txtTimeIn.Value = "" End If DoCmd.GoToRecord , , acNext nxfor: Next i Exit Sub 'Errw: MsgBox "لقد تم اعتماد الانصراف بنجاح", vbOKOnly

لعل القصد الحروف وتعديلها وليس التحريف بمعناه المتبادر

بعد أذن أبو جودي أعطيك فكرة أنا أعمل عليها أكثر من عشر سنوات ممتازة وعملية ويتطور البرنامج معاك ولا يقف عند حد معين الملف الوظيفي مرتبط مع الملفات الفرعية بعلاقة و بمفتاح أساسي . . أذاً لماذا لا تضع frm أخر على فورم البيانات الأساسية ومن خصائص frm تربط الحقول الرئسية و الحقول التابعه و تتحكم بالمصدر برمجياً . وتصمم لكل جدول فرعي نموذج مستقل و لكل نموذج زر مستقل على فورم البيانات الأساسية و الحدث بهذه الطريقة FRM2.SourceObject = "أسم النموذج" والمعيار للأستعلامات بهذه الطريقة - تأكد من تسمية frm [Forms]![FormUIRT]![frm].[Form]![text] - و تطبق الطريقة هذه على كل تصنيف بالبرنامج

السلام عليكم ورحمة الله اخى الكريم لا داعى للشكر فكلنا هنا لخدمة بعضنا البعض تفسير القائمة المنسدلة يتم تغيير الدرجات للتجربة حتى تكتمل نسبة العشرة بالمائة لآعلى درجات ممكنة و حتى يشمل اكبر شريجة من اجمالى الطلاب تم تغيير فى الكود لاظهار عدد الغياب و عدد الحضور و اجماليهم استبدل الكود المرفق بالملف بهذا الكود Sub CallData() Dim ws As Worksheet, Sh As Worksheet Dim LR As Long, Mada As String, Data As String Dim C As Range, Y As Range, x As Byte Dim p As Long, N As Double Dim a As Single, b As Single Set ws = Sheets("10%") Set Sh = Sheets("الدرجات") Application.ScreenUpdating = False ws.Range("C15:E34,H15:J34").ClearContents LR = WorksheetFunction.CountIf(Sh.Range("A2:A1000"), ">" & 0) + 1 Mada = ws.Range("C9").Text Select Case Mada Case Is = "اللغة العربية": Data = "عربــي" Case Is = "الرياضيات": Data = "رياضيـات" Case Is = "الدراسات الاجتماعية": Data = "دراسـات" Case Is = "العلـــوم": Data = "علــوم" Case Is = "اللغة الإنجليزية": Data = "انجليزي" Case Is = "التربية الدينية": Data = "ديــن" End Select For Each C In Sh.Range("A1:G1") If C.Text = Data Then x = C.Column a = WorksheetFunction.CountIf(Sh.Range(Sh.Cells(2, x), Sh.Cells(LR, x)), "غ") b = LR - a - 1 ws.Range("E12") = a ws.Range("H12") = b ws.Range("J12") = LR - 1 End If Next N = ws.Range("M9").Value For Each Y In Sh.Range(Sh.Cells(2, x), Sh.Cells(LR, x)) If Y.Value >= N And Y.Value <> "غ" Then p = p + 1 If p > 40 Then Exit Sub If p <= 20 Then ws.Cells(p + 14, 3) = Sh.Cells(Y.Row, 1) ws.Cells(p + 14, 4) = Sh.Cells(Y.Row, x) ws.Cells(p + 14, 5) = Sh.Cells(Y.Row, x) Else ws.Cells(p - 6, 8) = Sh.Cells(Y.Row, 1) ws.Cells(p - 6, 9) = Sh.Cells(Y.Row, x) ws.Cells(p - 6, 10) = Sh.Cells(Y.Row, x) End If End If Next Application.ScreenUpdating = True End Sub

تفضل مثالك بعد التمحيص عدلت على الحقل المذكور بحيث يظهر افتراضيا تاريخ اليوم ومع ذلك يمكنك التعديل عليه لتواريخ سابقة جرب حضور وانصراف موظفينV2011_v030.rar

يمكن اني وجدت ثغرة دعني اتأكد منها شوف لما تعمل تحضير وتظهر مشكلة التاريخ اعد النقر مرة اخرى وشوف هل تختفي المشكلة ؟

اصلا عند تحضير السجلات تنزل جميع التواريخ اللي اعمله انا : 1- احذف سجلات الحضور جميعها من الجدول 2- افتح نموذج التحضير وانقر على تحضير السجلات فتنزل جميع السجلات مع تاريخ اليوم 3- اشغل الكود ... الكود فقط يقفز عن السجلات محل الشرط المعنى ان التاريخ موجود فعلا .. فلماذا يتغير عندك؟

روتين عام يتم تمرير النص اليه ليقوم بعمل تعريه للنص من اى اشكال او رموز او حرف غير الاحرف العربية يعنى نقدر نقول مع هذا الروتين وداعا لكل حركات ورموز التشكيل If strString & "" = "" Then Exit Function Dim lngCtr As Long Dim intChar As Integer For lngCtr = 1 To Len(strString) intChar = AscW(Mid(strString, lngCtr, 1)) If intChar = 32 Or _ intChar >= 1569 And intChar <= 1594 Or _ intChar >= 1601 And intChar <= 1610 Or _ intChar >= 1648 And intChar <= 1649 Then StripSpCharsOnly = StripSpCharsOnly & ChrW(intChar) End If Next lngCtr StripSpCharsOnly = Trim(StripSpCharsOnly) ونفس الروتين مع بعض التعديلات لعمل مصفوفات لاستبدال حركات تشكيل مخصصة Public Function StripSpChars(strString As String) As String If strString & "" = "" Then Exit Function Dim lngCtr As Long Dim intChar As Integer For lngCtr = 1 To Len(strString) intChar = AscW(Mid(strString, lngCtr, 1)) If intChar = 32 Or _ intChar >= 1569 And intChar <= 1594 Or _ intChar >= 1601 And intChar <= 1610 Or _ intChar >= 1648 And intChar <= 1649 Then StripSpChars = StripSpChars & ChrW(intChar) End If Next lngCtr Dim itm As Variant For Each itm In Array(ChrW("1649")) StripSpChars = Replace(StripSpChars, CStr(itm), ChrW("1575")) Next For Each itm In Array(ChrW("1648") & ChrW("1604")) StripSpChars = Replace(StripSpChars, CStr(itm), ChrW("1575") & ChrW("1604")) Next For Each itm In Array(ChrW("1610") & ChrW("1648")) StripSpChars = Replace(StripSpChars, CStr(itm), ChrW("1610") & ChrW("1575")) Next For Each itm In Array(ChrW("1648")) StripSpChars = Replace(StripSpChars, CStr(itm), "") Next StripSpChars = Trim(StripSpChars) End Function

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

الفانك بتاعك دع حلو وطبعا شكرا على افكارك ومجهودك اولا ولكن انت اعتمدت على ازالة كل حركة يعنى لو مستقبلا حركة زادت مو عاملين حسابها بالكود راح تضل وما بتنحذف والفانك مكتوب فيه حجات بالعربى تعالى بقى نفكر بالمقلوب ايه رايك فى الفانك ده If strString & "" = "" Then Exit Function Dim lngCtr As Long Dim intChar As Integer For lngCtr = 1 To Len(strString) intChar = AscW(Mid(strString, lngCtr, 1)) If intChar = 32 Or _ intChar >= 1569 And intChar <= 1594 Or _ intChar >= 1601 And intChar <= 1610 Or _ intChar >= 1648 And intChar <= 1649 Then StripSpCharsOnly = StripSpCharsOnly & ChrW(intChar) End If Next lngCtr StripSpCharsOnly = Trim(StripSpCharsOnly) بالطريقة دى اى شئ غير حروف العربى ما راح يظل موجود طيب يبتفضل الحروف اللى بدنا نغيرها الحين راح نستخدم المصفوفات تبع الفانك حقك بس بترتيب معين وبحبة فهلوة Public Function StripSpChars(strString As String) As String If strString & "" = "" Then Exit Function Dim lngCtr As Long Dim intChar As Integer For lngCtr = 1 To Len(strString) intChar = AscW(Mid(strString, lngCtr, 1)) If intChar = 32 Or _ intChar >= 1569 And intChar <= 1594 Or _ intChar >= 1601 And intChar <= 1610 Or _ intChar >= 1648 And intChar <= 1649 Then StripSpChars = StripSpChars & ChrW(intChar) End If Next lngCtr Dim itm As Variant For Each itm In Array(ChrW("1649")) StripSpChars = Replace(StripSpChars, CStr(itm), ChrW("1575")) Next For Each itm In Array(ChrW("1648") & ChrW("1604")) StripSpChars = Replace(StripSpChars, CStr(itm), ChrW("1575") & ChrW("1604")) Next For Each itm In Array(ChrW("1610") & ChrW("1648")) StripSpChars = Replace(StripSpChars, CStr(itm), ChrW("1610") & ChrW("1575")) Next For Each itm In Array(ChrW("1648")) StripSpChars = Replace(StripSpChars, CStr(itm), "") Next StripSpChars = Trim(StripSpChars) End Function

لم يظهر لان ليس له مقابل في جدول المكاتب وبما ان الموظفين ليس لهم مكاتب فنعوض عن القيمة بصفر اضف صفر الى جدول المكاتب tblSchoolOffice كما في الصورة

طيب شوف الفانك ده .... Public Function cleantxt(txt As String) As String For Each itm In Array(ChrW("1649"), ChrW("1648")) txt = Replace(txt, CStr(itm), "ا") Next For Each itm In Array("َ", "ً", "ُ", "ٌ", "ِ", "ٍ", "ْ", "ّ", "ـ", ChrW("1761"), ChrW("1755"), ChrW("1619"), ChrW("1623"), ChrW("1750"), ChrW("1630"), ChrW("1762"), ChrW("1751"), ChrW("1765"), ChrW("1766") _ , ChrW("1754"), ChrW("1620")) txt = Replace(txt, CStr(itm), "") Next cleantxt = txt End Function

هذا ليس تحريف الله يرضى عليك الفعل (طغى) ومشتقاته يطغى، أطغى..) آخره ألف مقصورة على صورة الياء وفقًا للقاعدة ،فأصل الألف ياءٌ ؛ لأنه من الطغيان . وقد جاء الفعل ومشتقاته على هذا النحو في القرآن الكريم إلا موضعًا واحدًا هو قوله تعالى في الآية الحاديةَ عشْرةَ من سورة الحاقة:" إنَّا لمَّا طغَا الماءُ حملناكُم في الجَاريَة) فرُسِمت الألفُ قائمةً على خلاف قاعدتها،وذلك لتناسُبِ اللفظ مع المعنى؛ فامتدادُ الألف وارتفاعُه هكذا مناسبٌ للصورةِ التعبيرية من طغيان الماء وارتفاعِه ليُغرقَ الكافرين من قوم نوح ، وما كان طغيانُ الماءِ هكذا إلا بإرادة المولى-سبحانه-وقدرتِه،فناسب ارتفاعَ الماءِ ارتفاعُ الألف. أما استعمالُ الفعل( طغى) في بقية المواضع فقد جاء في سياق الحديث عن طغيان البشر،فهو طغيان مَقدورٌ عليه،مُحاطٌ به،مُحبَطٌ أثرُه،فناسبَه رسمُ الألفِ على صورة الياء على أصل القاعدة. والمراد تسهيل استخدام البحث فقط وليس التحريف

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

كده مجاني ...🙄 طيب بس اشيك على بعض التشكيل ... .... ابشر ....

لأن الحركات الموجودة في الرسم العثماني للمطبعة لا يفهمها الكمبيوتر .... ولكن انظر هل هذا هو المطلوب ,,,,,

المرفق غير كامل , الشرح غير واضح , ومع ذلك جرب المرفق هل هو المطلوب .؟ reglemen1-Amr.rar

شكرا لك اخي تم عمل المطلوب

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

السلام عليكم ورحمة الله ضع الكود التالى فى حدث الورقة Private Sub Worksheet_Change(ByVal Target As Range) Dim LR As Long LR = Range("B" & Rows.Count).End(3).Row + 1 If Not Intersect(Target, Range("B8:B" & LR)) Is Nothing Then Range("B8:O" & LR).Sort key1:=Range("B8"), order1:=xlDescending End If End Sub

السلام عليكم اخي الفاضل Eng.Qassim اين الخطأ 1000629010391300 الخطأ ان الرقم اللي انا نسخته سنة الميلاد كان 1001129010391300 معلش خطأ اللصق مني انما الكود سليم اعد لصق الرقم الصحيح هتلاقي كله تمام

السلام عليكم ورحمة الله تم انشاء خلية منسدلة و هى الخلية M9 ليتسنى لك اختيار الدرجة التى تحقق المطلوب من عدد ال 10% اليك الملف كود لاستدعاء نسبة العشرة في المية.xls

حابب اتدخل فى الموضوع بعد اذن حضراتكم طبعا لكن انا عاوز لما احط اسم النموذج الفرعي ان يتم فتحه بنفس التنسيق غير اني قد واجهتني بعض المشاكل مع النماذج المرتبطه باستعلامات اخري فهل يمكنك شرح لنا الية العمل فى النموذج ؟

اتفضل واكيد عند استاذتي فكرة افضل واكثر روعة

متابعة للموضوع.. الأستاذ أبا جودي هل من جديد ؟

ابشر ان شاء الله سوف اقوم بالمراجعة والتحقيق واعود اليكم فى القريب العاجل

انظر الى المرفق test (2) (1).accdb

الحمد لله الذي بنعمته تتم الصالحات

السلام عليكم يمكنك استخدام المعادلة MROUND على فرض أن لديك رقم في الخلية B1 كما يمكنك من خلال تنسيق الخلايا جعل الخلية تحوي ثلاثة أرقام عشرية مثلاً =MROUND(B1;0.25)

وعليكم السلام ورحمة الله وبركاته .. جرب كده Amr..12-1-2022.accdb

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

السلام عليكم ورحمة الله وبركاته الموضوع هذا بدأ بسؤال الرابط التالي: http://www.officena.net/ib/topic/65783-البحث-عن-اي-جزء-من-الكلمة-عنوان-معدل/ ولكن لأني غيرت الكود وجعلته يبحث في اي عدد من الحقول في السجل ، لذا رأيت ان اجعل له موضوعا مستقلا يمكنك البحث عن اي جزء من الكلمة ، واذا اردت البحث عن كلمة اخرى في السجل او جزء منها ، فما عليك الا ان تضع (مسافة او / او *) بين الكلمات ، فسيعتبرها البرنامج على انها كلمة اخرى يجب البحث عنها. الشئ المهم في الكود هو طريقة إضافة حقول جديدة للبحث فيها: هذا اول حقل يتم البحث فيه fld = "[كلمات ارشادية]" لما نريد ان نضيف حقول إضافية للبحث فيها ، يجب ان يكون الكود كالتالي fld = fld & " & ' ' & " & "[موضوع الخطاب]" fld = fld & " & ' ' & " & "[my other field]" وكل ما عليك الآن هو ان تطبع وترى نتيجة بحثك: . ملاحظة مهمة: اذا كان برنامجك على الشبكة ، فلا تضع الكود على "حدث التغيير" (معناه ، كلما اضفت/حذفت حرف ، فارجع الى الجدول وخذ البيانات منه) ، لأنه سيجعل البرنامج جدا بطئ ، وانما استخدم زر البحث. جعفر 309.Search_as_you_Type_Multiple_Fields_jj.mdb.zip

السلام عليكم أخي الكريم الرمز الأول { } يستخدم في معادلات الصفيف وهو لايكتب مع المعادلة ، هو يتكون أوتوماتيكيا بعد الكتابة المعادلة وضغط Ctrl-Shift-Enter بدلا من Enter وحدها تجد شرح أوفي لهذه الخاصية علي الرابط http://office.microsoft.com/ar-sa/excel-help/HA010228458.aspx?pid=CH100648411025 الرمز الثاني [] يستخدم في الربط بين ملفات مختلفة فأنت تعرف مثلا أنك ممكن تجعل الخلية A1 في Sheet1 ترتبط بالخلية X71 مثلا في Sheet2 بمعني أنك إن وقفت علي الخلية A1 في Sheet1 ثم طبعت = ثم ذهبت بالماوس للخلية X71 مثلا في Sheet2 ثم Enter ستجد المعادلة في الخلية A1 في Sheet1 كالتالي =Sheet2!X71 وهذه العلامة ! التي أضيفت أوتوماتيكيا تدل الإكسل أن الرباط بين هذه الخلية وخلية في ورقة أخري من نفس الملف والآن إذا أعدنا نفس الحوار السابق للربط بين خليتين في ملفين مختلفين (بشرط يكونا مفتوحان كلاهما) ستجد المعادلة أشبه بــ =[Book1]Sheet2!X71 أي أن هذا الرمز [] الذي يضاف أوتوماتيكيا عن الربط بين ملفين يدل الإكسل أن الرباط بين هذه الخلية وخلية في ورقة أخري من ملف آخر غير اللي انت فيه