AlwaZeeR

تفضل اخي أبو زاهر التعديل: تم تعديل امر الخيارات Abu Zaher.rar

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

هل تقصد عدم التكرار عند الإضافة؟؟؟ وكيف تريد عدم التعديل على الجدول؟ لم افهم ما تقصد وكل عام وانتم بخير

السلام عليكم ورحمة الله وبركاته وكل عام وانتم بخير بعد اذن اخي كناري وتعديلا بسييطا على كود الإضافة تفضل اخي أبو زاهر DoCmd.RunSQL "INSERT INTO a_tlbia_Hr ( ID_Sanf, Price_Bought, Atarih2, Rjmfatwra ) " & _ " SELECT Alsnaf.ID_Sanf, Alsnaf.Price_Bought, Alsnaf.Atarih2, Rjmfatwra " & _ " FROM Alsnaf " & _ " WHERE (((Alsnaf.Atarih2)>=[Forms]![خيار_الطلبيه]![t]));"

لا نقوم بإدخال الرتبة في إجازة الموظف الرتبة من ضمن البيانات الأساسية مثل الاسم والرقم الوظيفي يجب ان تعبأ الرتبة في الجدول الاساسي وعند عمل تقرير الإجازة يتم استدعاء الحقل الخاص برقم الرتبة ويتم الفرز في التقرير ارفق مثالا ان صعب عليك الامر

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

جربتها على اوفيس 2007 و 2016 ولم تعمل تحتاج اصدار اعلى 🙂

وعليكم السلام ورحمة الله وبركاته نزلت المرفق الخاص بك: صراحة تهت وماني عارف شو المطلوب انت ماذا تقصد بالجدول المرتبط؟؟؟ الجدول المرتبط في قواعد البيانات يعني من قاعدة بيانات أخرى (Be) ما رأيك ان تحدد المطلوب خطوة خطوة وليكن طلب طلب وعند الوصول للطلب الأول ننتقل للثاني وحبذا لو يتم تسمية الجداول والاستعلامات بحروف انجليزية وتسمية عربية افضل لك للمستقبل بمعنى : انت مسمي جدول: قاعدة البيانات/ لماذا لا تسميه مثلاً : MjlesBayanTbl اختصار لمعنى جدول بيانات المجلس وهكذااااا رتب امورك وسوف تصل الى ما تصبو اليه تحياتي لك عزيزي

تفضل عزيزي بنفس الطريقة التي ذكرتها لك سابقا اضغط تكوين يتم تكوين جدولك وعند وجوده تظهر لك رسالة تخبرك ان الجدول موجود وتم تكوينه واذا كان غير موجود وضغطت الشيت يخبرك بان الجدول غير موجود ويجب تكوينه db100.rar

وعليكم السلام ورحمة الله وبركاته في وحدة نمطية جديدة ضع هذا الكود: Public Function ObjExist(ObjName As String) As Boolean ObjExist = False If DCount("[Name]", "MSysObjects", "[Name] = '" & ObjName & "'") = 1 Then ObjExist = True End If End Function وتحت زر امر انشاء الجدول الخاص بك ضع: If ObjExist("اسم جدولك") Then '==== هنا شرط وجود الجدول MsgBox ("الجدول موجود") Else '==== هنا شرط بناء الجدول الخاص بك في حال عدم وجوده MsgBox ("تم انشاء الجدول") End If

وعليكم السلام ورحمة الله وبركاته أولا: تم تحويل c35 من نص الى رقم تم استخدام الجملة التالية: Daman: IIf([C35]=1,([الاجمالي]*1.125/100),([الاجمالي]*3.75/100)) في الاستعلام الداخلي لنموذج البيايانات33 مع تغيير ما يلزم للعمل والخزانة لضيق الوقت ... اكمل الالحاق بإضافة الحقول الجديدة في جدول البيانات تحياتي ‫شرط استعلام.rar

تفضل يا غالي With CurrentDb .Execute "UPDATE AfwtIar SET AfwtIar.Atarih =#" & Format([x], "dd/mm/yyyy") & "#" & "WHERE AfwtIar.Rjmfatwra ='" & Me!Rjmfatwra & "'" .Execute "UPDATE Hrakatsanf SET Hrakatsanf.Atarih =# " & Format([x], "dd/mm/yyyy") & "#" & "WHERE Hrakatsanf.Rjmfatwra ='" & Me!Rjmfatwra & "'" .Execute "UPDATE HRR SET HRR.Atarih = # " & Format([x], "dd/mm/yyyy") & "#" & "WHERE HRR.Rjmfatwra ='" & Me!Rjmfatwra & "'" End With

تسلم حبيبي أبو ياسين ما انتبهت انو مشروط عموما بنحط الشرط على نفس الكود وهو يختار المناسب وزيادة الخير خيرين يا غالي :: تحياتي

تفضل عزيزي أبو زاهر: جرب هذا الكود With CurrentDb .Execute "UPDATE AfwtIar SET AfwtIar.Atarih =# " & Format([x], "dd/mm/yyyy") & "#" .Execute "UPDATE Hrakatsanf SET Hrakatsanf.Atarih =# " & Format([x], "dd/mm/yyyy") & "#" .Execute "UPDATE HRR SET HRR.Atarih = # " & Format([x], "dd/mm/yyyy") & "#" End With مع تغيير x لحقل التاريخ في النموذج

إضافة لما تفضل الأستاذ أبو ياسين DoCmd.TransferDatabase acExport, "Microsoft Access", CurrentDb().Name, acTable, "YourTable", "NewTable", True

يجب إضافة الحقل ha في الاستعلام الداخلي الخاص بالنموذج الفرعي Qwaz انظر الصورة:

جميل اخي الكريم في ميزان حسناتك ان شاء الله استمر

حياك الله أبو سعد يوجد كود قام بكتابته لك الأستاذ شيفان موجود تحت حدث بعد التحديث للخيارات الخاصة بك مدير ، وكيل ... الخ. وهو عبارة عن تحديد مكان مصدر البيانات في حال الضغط على خيار من الخيارات Private Sub choo_AfterUpdate() If Me.choo.Value = 0 Then Me.Qwaz.Form.RecordSource = "SELECT Tab1.name1, Tab1.wazefa, Tab1.salary FROM Tab1 " Else Me.Qwaz.Form.RecordSource = "SELECT Tab1.name1, Tab1.wazefa, Tab1.salary FROM Tab1 WHERE (((Tab1.wazefa) = [Forms]![manag]![choo])) WITH OWNERACCESS OPTION;" End If  DoCmd.Requery End Sub هذا هو الكود قبل إضافة الحقل الذي زدته انت وهو (ha) الان الكود هو نفسه مع إضافة الحقل السابق فيصبح كما يلي: Private Sub choo_AfterUpdate() If Me.choo.Value = 0 Then Me.Qwaz.Form.RecordSource = "SELECT QQwaz.name1, QQwaz.wazefa, QQwaz.salary,QQwaz.ha FROM QQwaz " Else Me.Qwaz.Form.RecordSource = "SELECT QQwaz.name1, QQwaz.wazefa, QQwaz.salary,QQwaz.ha FROM QQwaz WHERE (((QQwaz.wazefa) = [Forms]![manag]![choo])) WITH OWNERACCESS OPTION;" End If DoCmd.Requery End Sub لاحظ الفرق: QQwaz.ha

لانك قمت بإضافة حقل جديد (اختيار) لذلك عند الضغط على الخيار لا يظهر مصدره فتصبح غير مفعلة لابد من اضافته في مصدر البيانات â�«chooseAll_3.rar

طبعا تستطيع جرب وعاين جرب وعاين الى ان تصل الى التقرير الذي تريد طباعته بشكل جميل ومناسب تفضل : up_ بكشف الحساب00.rar

تفضل: قم بتعديل التقرير حسب حاجتك up_ بكشف 1الحساب0.rar

WSaturdays = DateDiff("ww", StartDate, EndDate, 1) WFridays = DateDiff("ww", StartDate, EndDate, 7) النتيجة صحيحة: على اعتبار اننا نستثني يومين في الأسبوع ولكن::::: انا مخطئ في وضع الأرقام : على اعتبار ان بداية الأسبوع هي السبت 1 ونهاية الأسبوع هي الجمعة 7

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

من الخصائص: قم بتحديد الحقول: من الخصائص اختر بيانات واجعلها : ممكن: لا تم تأمينه: نعم

بالتوفيق اخي الكريم نحن دائما في الخدمة بما يسمح لنا الوقت :: تحياتي