ابوخليل

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

لنبدأ مما انتهى الآخرون منه

السلام عليكم التعديل تم كالتالي : 1- وجدت خلل غير ملاحظ وهو تسمية متغير بنفس اسم حقل الاسم ... وهنا تظهر فائدة Option Explicit في رأس المحرر 2- حذفت جميع ما يخص انشاء المجلدات وحذفها ، واذا اردنا حذف الملف وبياناته التي في الجدول فأرى من الأفضل تخصيص زر خاص بها 3- المشكلة الحقيقية كانت في ادخال مجلد قاعدة البيانات ضمن المسار .. فقمت باستبعاده عن المسار اخيرا ازلت جميع المسافات في تسميات المجلدات .. للتنبيه فيما لو نقلت القاعدة بجانب مجلداتك Newfolder.rar

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

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

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

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

ملحوظة ملاحظة جميلة من الاستاذ @Foksh حول ازرار اختيار الشعبة .. ماذا لو استجد مستقبلا زيادة في الشعب لذا فالحل المرن المحكم هو استبدال الازرار بمربع تحرير يتم الاختيار منه تجدون ادناه تعديل على المرفق السابق TT3.rar

مستغر ب ليه؟ نحن رفقاء درب واكيد يوجد تزامن بين مخك ومخي تعقيب : من يتتبع مشاركاتي حول هذا الخصوص يلاحظ انني انهج هذالنهج وانصح بشدة باستخدام الجدول الواحد ما امكن ذلك ويسعدني ان تكون افكاري مشابهة لفكر قامة برمجية معتبرة .. الى درجة توحي بالاقتباس

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

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

مشاركة مع اخوتي .. تم تحقيق الفكرة مع مراعاة تغير نظام الحضور ( الشتوي / الصيفي) Public Function funTestTimes() On Error GoTo err_idt Dim idt As String idt = DLookup("[hour_no]", "[Ttime]", "[time_from] <=#" & Time() & "# And [time_to] >=#" & Time() & "# ") funTestTimes = idt err_exit: Exit Function err_idt: If idt = "" Then MsgBox "لا يوجد حصص في الوقت الحالي" Resume err_exit End If End Function TT2.rar

اخونا @شايب لا يرغب . 🏃‍♂️ وعند جهينة الخبر اليقين . دعوني اشق القربة 😳 .. سبق لأخينا شايب ان حصل على الترقية مرتين ونحن ننزل عند رغبة استاذنا .. ولا نزيد ..

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

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

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

شكرا لك استاذ محمد لنقلك الفائدة اعيد الحل مع معالجة احتمال التداخل او ما اسميتها بالثغرة Dim Date1, Date2, tstDate As Date Private Sub Cstart_BeforeUpdate(Cancel As Integer) tstDate = Me.Cstart Date1 = DMax("[Cstart]", "courses", "[num] =" & Me.num) Date2 = DMax("[Cend]", "courses", "[num] =" & Me.num) If (tstDate >= Date1) And (tstDate <= Date2) Then Cancel = True MsgBox "يوجد دورة مسجلة بهذا التاريخ " Me.Undo End If End Sub Private Sub Cend_BeforeUpdate(Cancel As Integer) If (Me.Cend >= Date1) Then Cancel = True MsgBox "يوجد دورة مسجلة بهذا التاريخ " Me.Undo End If End Sub دورات2.accdb

مشاركة مع احبتي واقتباس من ابي جودي لاحظ تغير مسميات الحقول في النموذج Private Sub Cstart_BeforeUpdate(Cancel As Integer) Dim Date1, Date2, tstDate As Date tstDate = Me.Cstart Date1 = DMax("[Cstart]", "courses", "[num] =" & Me.num) Date2 = DMax("[Cend]", "courses", "[num] =" & Me.num) If (tstDate >= Date1) And (tstDate <= Date2) Then Cancel = True: Me.Undo: MsgBox "nooooooooooo" End Sub

الموضوع مخالف لقواعد المشاركة 1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة 2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد. 3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال. 4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا..... 5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم. ومخالفة ذلك تعرض الموضوع للحذف. المخالفة تكررت من صاحب الموضوع يغلق ،،، احبتي واخص من يتصدى للإجابة .. نأمل الاهتمام بتنظيم المشاركات بما تتحقق معه المصلحة العامة ،، وتنبيه المشاركين حول ذلك

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

الموضوع مخالف لقواعد المشاركة 1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة 2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد. 3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال. 4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا..... 5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم. ومخالفة ذلك تعرض الموضوع للحذف

الموضوع مخالف لقواعد المشاركة ، يغلق ،،، 1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة 2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد. 3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال. 4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا..... 5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم. ومخالفة ذلك تعرض الموضوع للحذف

الموضوع مخالف لقواعد المشاركة ... يغلق ،،، 1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة 2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد. 3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال. 4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا..... 5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم. ومخالفة ذلك تعرض الموضوع للحذف

المشكلة لديك في تسمية الحقل عدل اسم الحقل N° في الجدول وايضا في النموذج الى Num مثلا ثم عدله ايضا في الكود

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