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

اقسم باللع العلي العظيم مقدرش ازعل استاذي مني ابدا لكن ربي اعلم بحالي يكفي اني اقولك اننا هنا في مشاكل في الشغل بسبب الظروف اللي حضرتك عارفها ولحد الان والله مستني مساعدتك في برنامج الرواتب اللي والله والله مسبب لي مشكلة كبيرة لكن عارف انك مشغول بس بغض النظر عن اي شئ ارجوك بالله عليك ما تزعلي مني اخي الكريم الفاضل @kkhalifa1960

هدية مشروع صيدلية متكامل كنت قد سويته لصديق ويعمل عنده للحين. طبعاً هناك آراء وتوجيهات . فقلبي وعقلي يتسع للجميع . واليكم المرفق https://www.mediafire.com/file/r06g7b7zwdqkq7q/Tariq+Farmacy.rar/file

حياك الله وجزاك الله كل خير اخى الغالى والمعلم الفاضل خليفة

طيب جربي هذا ......... lab20242.accdb

<><><><><><><> lab20242.accdb

في موضوع آخر هناك دوال لتأخذ تاريخين بداية ونهاية ثم ترجع المدة على شكل سنة شهر يوم أما هذه الدالة تأخذ أيام فقط وتحولها إلى سنة شهر يوم، وهنا الدالة تفترض أن تاريخ البداية دائما هو بداية دورة الـ 400 سنة مثل: 1، 401، 801، 1201، 1601، 2001 وهكذا. Function FixVal(inVal As Double, MinVal As Double, MaxVal As Double) As Double FixVal = inVal If inVal < MinVal Then FixVal = MinVal If inVal > MaxVal Then FixVal = MaxVal End Function Function Days2Period(ByVal Days As Long) As String Dim CurCal As VbCalendar Dim Gr2: Gr2 = Array(0, 31, 59, 90, 120, 151, 181, 212, 243, 273, 304, 334, 365, 396) Dim yy As Long, mm As Integer, dd As Integer Dim Cyc400 As Long, Cyc100 As Long, Cyc004 As Long, Cyc001 As Long Dim mmDays As Double, Leap As Byte CurCal = Calendar Calendar = vbCalGreg Cyc400 = Fix(Days / 146097): Days = Days - Cyc400 * 146097 Cyc100 = FixVal(Fix(Days / 36524), 0, 3): Days = Days - Cyc100 * 36524 Cyc004 = FixVal(Fix(Days / 1461), 0, 24): Days = Days - Cyc004 * 1461 Cyc001 = FixVal(Fix(Days / 365), 0, 3): Days = Days - Cyc001 * 365 yy = Cyc400 * 400 + Cyc100 * 100 + Cyc004 * 4 + Cyc001 mm = FixVal(Round(Days / 29.5, 0), 0, 11) Leap = Day(DateSerial(yy + 1, 3, 0)) - 28 mmDays = Gr2(mm) + IIf(mm > 1, Leap, 0) Do While mmDays > Days mm = mm - 1 mmDays = Gr2(mm) + IIf(mm > 1, Leap, 0) Loop dd = Days - mmDays Days2Period = Format(yy, "00") & "-" & Format(mm, "00") & "-" & Format(dd, "00") Calendar = CurCal End Function Days_to_Year_Month_Day_01.xlsm

أحسنت أستاذنا الكريم بارك الله فيك وزادك الله من فضله موضوع قيم جعله الله فى ميزان حسناتك

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

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

تابع هذه المشاركة لطرق وامثلة لحلقات التكرار

طيب اعمل مثلا زر امر وضع فيه هذه الشيفرة <<<<<<<<<>>>>>>>> Dim db As DAO.Database Dim qdf As DAO.QueryDef Dim strSQL As String Set db = CurrentDb Dim mov_st As String Dim rst As Recordset Set rst = CurrentDb.OpenRecordset("SELECT TAB3.HNO, TAB3.SUB_ID, DCount(""ID"",""TAB3"",""[HNO] ="" & [HNO] & "" and [SUB_ID] ="" & [SUB_ID] & """") AS Expr1, TAB3.CHEK, TAB3.ID, DCount(""ID"",""TAB3"",""[HNO] ="" & [HNO] & """") AS Expr2 " & _ " FROM TAB3;") rst.MoveFirst mov_st = rst!ID Do While Not rst.EOF If rst!Expr2 > rst!Expr1 And rst!Expr1 = 1 And rst!Expr2 > 2 Then rst.Edit rst!CHEK = True rst.Update ElseIf rst!Expr2 > rst!Expr1 And rst!Expr1 = 1 And rst!ID > mov_st Then rst.Edit rst!CHEK = True rst.Update Else End If mov_st = rst!ID rst.MoveNext Loop rst.Close Me.Refresh strSQL = "SELECT TAB3.ID, TAB3.MNO, TAB3.TNO, TAB3.HNO, TAB3.SUB_ID, TAB3.CHEK FROM TAB3 WHERE (((TAB3.CHEK)=True)) " 'db.QueryDefs.Delete "kanory" Set qdf = db.CreateQueryDef("kanory", strSQL) MsgBox "يتم الان فتح استعلام الاخطاء ", vbInformation + vbMsgBoxRight + vbOKOnly, "ملاحظة" DoCmd.OpenQuery "kanory", acNormal, acEdit

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

مرفق لكم نموذج يتم فيه التحريك لاعلى واسفل مثل scroll bar المطلوب التحريك افقى يمينا ويسارا move.accdb

مشاركةً مع استاذ @Foksh تفضل أستاذ @tiger wanted محاولتي . move-1.rar

مساهمة خارجية ، قم بتجربة هذه الفكرة Move_Frm.accdb

وعليكم السلام ورحمه الله وبركاته

يوجد ملف لأم القرى باسم: EventsCalendar_20070118.rar تم رفع الملف هنا لتمام الاستفادة EventsCalendar_20070118.xlsm

تم التعديل وتصحيح هفوة اكتشفتها بالصدفة. اختر هذه المشاركة كأفضل إجابة بعد إلغاء الاختيار الأسبق. التكرار في اللجان_06.xlsm

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