ابوخليل

بما ان العنوان حضور وانصراف استمع نصيحتي المختصرة اقدمها لك على طبق من ذهب آتمنى ان يستفيد منه كل من يمر من هنا ربما لن تطبقها الآن ولكن احتفظ بها عندما تريد عمل برنامج جديد للحضور والانصراف هذا التوجيه طبقا للبرامج العالمية : ويمكن التوسع فيه بحدود ضيقة 1- عمود واحد للحضور والانصراف ( تاريخ كامل ) يقابله الدالة : NOW 2- عمود لرقم الفترة ( رقمي ) 3- عمود لنوع التوقيع ( حضور / انصراف ) رقمي يتم التطبيق عبر البصمة او قارىء الباركود بالنسبة لبطاقة الباركود فيمكن ان يميز البرنامج بين الفترات من خلال البطاقة الممررة ، التوسع هو ان يكون عمود للحضور وآخر للانصراف من اجل تسهيل التعامل مع الاستعلام ، وهنا يتم الاستغناء عن عمود نوع التوقيع .

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

تفضل ملاحظات : حاول تقلل من الأكواد والاحداث قدر المستطاع اتعب قليلا على التسميات ... مثلا sum1 ، sum2 ... الخ لاحظ عند التعامل معه داخل الكود اضطررنا الى وضع علامتي تنصيص على sum لكي يعتبرها اكسس كلمة نصية وليست الدالة التي يعرفها ايضا ينطبق هذا على حقل (S) فهذا الحرف يرمز الى الدقائق عند اكسس ... حتى حقل AAAA ليس له معنى المهم ان المبرمج يتعب لينتقي تسمية مختصرة قصيرة يفهم منها وظيفة الحقل Private Sub GenerateDate() Dim x, xx As Integer Dim n As Integer Dim sName As String Dim vsr As Double Dim rs As Recordset Call Reset Set rs = CurrentDb.OpenRecordset("AAA") rs.MoveFirst Do While Not rs.EOF x = rs!id Me("DDDD" & x).Caption = rs!NM Me("D" & x).Caption = rs!id Me("S" & x) = rs!sr Me("Sum" & x) = DSum("Day" & x, "table_BAIN") rs.MoveNext Loop For x = 1 To 50 If Me("D" & x).Caption = "" Then Me("s" & x).Width = 0 Me("DDDD" & x).Width = 0 Me("D" & x).Width = 0 Me("day" & x).Width = 0 Me("SUM" & x).Width = 0 End If Next Me.Requery For xx = 1 To 50 If Me("s" & xx) = Me("Sum" & xx) Then Me("Day" & xx).ForeColor = RGB(255, 255, 255) Me("Sum" & xx).ForeColor = RGB(255, 255, 255) Me("s" & xx).ForeColor = RGB(255, 255, 255) Me("s" & xx).BackColor = RGB(255, 64, 61) Me("Day" & xx).BackColor = RGB(255, 64, 61) Me("Sum" & xx).BackColor = RGB(255, 64, 61) End If Next Reset Set rs = Nothing End Sub AA2.rar

شكرا اخي على الايضاح وانا لن اقلب الموضوع الى منتدى فقهي ولكن من اجل نصل معك لما يناسب نشاطك صاحب العقار هو حر بما يملك وحر في طرح ما يرى من خيارات وتنحصر على النحو التالي : 1- ايجار سنوي ثابت .. سواء كانت المدة سنة او اكثر 2- ايجار سنوي يتزايد كل سنة ( بنسبة محددة يتفق عليها الطرفان ) اذا مدة الايجار سنة واحدة فقط في العقد .. هنا يكون المستأجر بالخيار اما دفع الزيادة والاستمرار .. او الخروج 3- ايجار لعدة سنوات في العقد .. هنا يجب ان تحدد القيمة الكلية ويتم تقسيمها على مبالغ متساوية تدفع على فترات يتفق عليها . نرجع لمشروعك : ارى ان البند1 والبند2 لا تتوافق مع ما تم تصميمة في المرفق الذي رفعته ‘ وتتفق فقط مع البند3 زبدة الموضوع : اشرح طبيعة عملك على الارض .. اقصد العمل الورقي او كنت تستخدم وورد او اكسل بالتفصيل .. والنتائج المطلوبة أي (المدخلات/ المخرجات) وستجد ان شاء الله من يساعدك بافضل مما كنت تأمل

اعتذر عن الفهم الخاطىء مثال على العبارات التي توحي باكثر من معنى

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

تمام استاذ محمد او هكذا DoCmd.RunSQL "ALTER TABLE yourtable ADD CONSTRAINT yourtable Primary Key(fld1, fld2)" لمنع التكرار على مستوى حقلين ولن يتم صنع المفتاحين الا اذا تحقق الشرط باحد امرين : اما ان يكون الجدول جديد او تكون البيانات محققة للشرط بحيث لا يوجد تكرار

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

تفضل If MsgBox("هل انت متأكد ؟ تريد حذف درجة المادة لجميع الطلاب ؟", _ vbQuestion + vbYesNo, _ "تحذير") = vbNo Then Exit Sub End If Dim i As Integer Dim rs As Recordset Dim x As String Set rs = Me.RecordsetClone rs.MoveLast rs.MoveFirst x = txt_nshat For i = 1 To rs.RecordCount rs.Edit rs.Fields(x) = Null rs.Update rs.MoveNext Next رصد الانشطة5.rar

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

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

الأوفيس عندي 10 32 بت ولكن الكود يعمل على جميع الاصدارات شريطة ان تتأكد من المكتبة الخاصة بمجموعة السجلات تكون موجودة جرب هذه التعديلات او احداهن 1- انظر في مكتبات البرنامج وقارن بين مثالك والمرفق المرفوع 2- ربما تغيير التسميات الى حروف انجليزية يجعل مثالك يعمل على كل حال ارفع نسخة من مثالك الذي تظهر به هذه الرسالة

هذه مشكلتك عندما بدأت بالتصميم لم تستشر اهل الخبرة حصر الوقت في حالة كان الحضور في يوم والانصراف في اليوم التالي لا يمكن تحقيقة الا من خلال التاريخ والوقت الكامل مثلا : الدخول : 01/03/2023 08:00:08 PM الخروج : 02/03/2023 01:05:28 AM هنا يمكنك ايجاد الفرق بين الوقتين بالساعات والدقائق والثواني

If IsNull([الادارة]) Or [الادارة] = 0 Then Undo MsgBox "لا يمكنك ترك الحقل فارغا" Exit Sub End If حاول ان تغلق النموذج بعد ان تترك حقل الإدارة فارغا ثم اذهب الى الجدول وانظر .. لن يتم حفظ السجل __bb-4 - Copy.accdb

اي المثالين تريد ؟ من خلال الجدول او من خلال الفورم ؟ وما الحقل الذي تريد التطبيق عليه ؟

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

الحمد لله

اليك الحل بطريقتين الطريقة الاولى من خلال حقول النموذج Dim ctl As Control For Each ctl In Me.Controls If ctl.ControlType = acComboBox Or ctl.ControlType = acTextBox Then If IsNull(ctl.Value) Or ctl.Value = 0 Then Undo MsgBox "لا يمكنك ترك احد الحقول فارغا" Exit Sub End If End If Next ctl والثانية من خلال حقول الجدول Select Case DataErr Case 2113 End Select Response = acDataErrContinue MsgBox "لطفا لا يمكنك ترك احد الحقول خاليا", vbOKOnly, "تنبيه!!" Exit Sub Downloads.rar

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

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

الله يحفظك استاذنا الكريم فكرة منع التكرار جميلة .. والذي جاء على بالي بعد تصفح المرفق ان جدول1 اصناف وجدول2 تفاصيل و كما تعلم التكرار مطلوب ولكني حقيقة وقفت حائرا امام جلب التاريخ .. وضع عندي علامة استفهام ؟ بل اجابتك الاخيرة هي افضل اجابة

ممكن ولكن هو تقرير واحد يظهر لك نتيجة التصفية اما مسدد او غير مسدد ويمكن تطبيق فكرتك في عمودين ضمن تقرير واحد ولكن بشرطين : 1- الفترة بين تاريخين تظهر في رأس التقرير 2- المجموع يكون رقم واحد سواء كان مسدد او غير مسدد وهذه غير عملية انك تطبع ورقة كاملة لا تحتوي الا على سطرين

تفضل Private Sub itemCode_AfterUpdate() Me.Refresh Dim rs As Recordset Dim strsql As String strsql = "SELECT Table1.* FROM Table1 WHERE Table1.[itemCode]=" & [Forms]![AdditemPerCode]![itemCode] Set rs = CurrentDb.OpenRecordset(strsql) Me.itemname = rs!itemname Me.itemdesc = rs!itemdesc Me.itemqty = rs!itemqty Me.dateee = rs!dateee End Sub Database3.accdb

انظر المرفق printRprt3.rar

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