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

نعم اخي وان كنت افضل ان يكون الحل مقدم من احد اساتذة الموقع او الخبراء الافاضل نعود للموضوع المطلوب نقل سجلات الطالب من جدول الى اخر عن طريق رقم الطالب والتأكد بعدم وجود حقول خاليه خلال عمليه النقل الفكرة على النحو التالي مع التأكيد بان الكود يمكن اختصاره في زر الامر نقل وضعنا الكود التالي Dim n As Integer n = IIf(IsNull([Text0]), 0, [Text0]) If DCount("*", "[Students]", "[ID]=" & n) = 0 Then Exit Sub Dim rst As Recordset Dim rs As Recordset Dim fld As Field Set rst = Me.RecordsetClone Set rs = CurrentDb.OpenRecordset("team") rst.FindFirst "[ID]=" & [Text0] For Each fld In rst.Fields If IsNull(fld.Value) Then MsgBox fld.Name DoCmd.OpenForm "frm_Stud", , , "[id]=" & [Text0] Exit Sub Else rs.AddNew rs.Fields(0) = rst.Fields(0) rs.Fields(1) = rst.Fields(1) rs.Fields(2) = rst.Fields(2) rs.Fields(3) = rst.Fields(3) rs.Fields(4) = rst.Fields(4) End If Next fld rs.Update rs.Close: rst.Close Set rs = Nothing: Set rst = Nothing السطر 1 و 2 و3 الغرض منها ايقاف تنفيذ الامر في حالة كون رقم الطالب غير صحيح او ان حقل البحث فارغ ويمكن استبدالها بامر معالجة الاخطاء الاسطر 4 و 5 و 6 حجز متغيرات اثنين مصدر سجلات وواحد حقل الاسطر 7 و 8 اسناد متغيرين الى مصدرهما السطر التاسع البحث عن رقم الطالب 10 و 11 عمل حلقة لفحص الحقول في السجل المطلوب نقلة 12 و 13 و 14 اضهار رسالة باسم الحقل الفارغ وفتح النموذج على بيانات الطالب لاستكمال الحقول الفارغة وانهاء الاجراء لحين استكمال البيانات يمكن الاستغناء عن سطر 12 من 15 الى 21 في حالة عدم وجود حقول فارغة انقل السجل كل حقل بمكانه المحدد ايضا ممكن اختصاره من 7 اسطر الى 3 اسطر طالما اسماء الحقول متطابقة باقي الاسطر لانهاء الشرط والحلقة الدوارة واغلاق مصدر السجلات ملاحظة جعلنا مصدر النموذج الخاص بتنفيذ الامر جدول الطالب بدون اضافة اي حقول وممكن الاستغناء عن الخطوة بجعل الربط والغاء الربط عن كريق الكود ولكن الامر ليس مهما الملف مرفق تحياتي النهر.accdb

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

حياك الله اخي الكريم نحن من بعدك في هذا المكان الطيب لكني أؤكد لك ما يللي كمحاسب يعمل في هذا المجال من 15 سنة بالاضافة الى العمل على الاكسس مع المحاسبة ومن خلال الاطلاع على قواعد بيانات عدة برامج كبيرة وشهيرة في الوطن العربي : 1- القيود المحاسبية هي الاساس في كل الاعمال المحاسبية ووجودها مع وجود الفواتير ضروري جدا جدا ولا يمكن الاعتماد على جدول الفواتير بدلا من جدول القيود فأحيانا تكتب فاتورة فيها 40 صنف مباع وتسجل في القيود المحاسبية على سطرين (سجلين) فقط 2- يوجد في برامج المحاسبة عدة واجهات ادخال (فواتير البيع - الشراء - مرتجع البيع - مرتجع الشراء - الادخال - الاخراج - المناقلة - سند اليومية - سند القبض -سند الدفع ) كل واحد من هؤلاء يرجع لك قيد مختلف عن الاخر ، لذلك الحل الامثل هو وجود جدول للقيود تصب فيه العمليات من كل نماذج المذكورة 3- اضف الى ذلك احيانا يختلف في الفاتورة طريقة التسديد او وجود حسومات يؤدي ذلك الى زيادة سجلات القيد ، بالاضافة الى اختلاف انماط هذه الفواتير 4- العدد الكبير للسجلات الموجودة في الجداول المذكورة سابقا سيؤدي حتما الى بطء كبير في الاستعلامات حين يقوم بجمع كل هذه العمليات لتحويلها لقيود اثناء عرضها

كتبت رد مطول ونصيحة بتجنب عمليات الالجاق كلما امكننا ذلك وان قاعدة البيانات المثالية لا تتكرر فيها البيانات ويمكن تحقيق كل ذلك بواسطة الاستعلامات وربط الاستعلامات بشكل صحيح يغني عن كثير من عمليات الالحاق ولكن تراجعت بعد مشاهدت ردك استاذنا الفاضل عبد الله ⬇️ والحمد لله انني تداركت الامر في الوقت المناسب قالت العرب : قَطَعَت جَهِيزَةُ قَولَ كُلّ خَطِيبِ تحياتي

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

بسم الله الرحمن الرحيم اولاً الشكر كل الشكر الى اساتذتى الكرام الذى بفضلهم وصل المشروع الى هذا الحد وبالاخص : استاذ : جعفر لك جزيل الشكر استاذ : ابو عبدالله لك جزيل الشكر استاذ : شيفان لك جزيل الشكر استاذ : ابو خليل لك جزيل الشكر شرح العمل ببساطة يقوم المستخدم باختيار الالوان التى يريدها من نموذج color وتطبق على جميع البرنامج فقط قم باستدعاء هذه الداله فى حدث عند التحميل Call Color_V(Me) وسوف تقوم هى بضبط الاعدادات قم بستدعاء الوحدات النمطية والجدول الخاص بالتخزين الاكواد و النموذج الى برنامجك دون تعديل ويتوفر بالاصدارين لـ2010 و لـ2003 ونتمنى من اساتذنا ان يقوموا بتعديله حتى يصبح برنامج كبرنامج مسقط التقارير او القلعة ولا اسألكم سوي الدعاء Color 2010.zip Color2003.zip

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

جرب المرفق يمكن يناسبك db2.accdb

السلام عليكم ورحمه الله وبركاته مشاركه مع اخى واستاذى ووالدى الحبيب @مبرمج سابق جزاه الله عنا كل خير 💐🌹 وعلى الرغم باننى لست احد الاساتذه فقد احببت مشاركتكم للتعلم والاستفاده فقد مزجت بين كود معلمى ووالدى الحبيب وبين الكود السابق بالمثال لرغبه الاخ السائل الكود التالى والمرفق بالمثال Private Sub Command2_Click() Dim n As Integer n = IIf(IsNull([Text0]), 0, [Text0]) If DCount("*", "[Students]", "[ID]=" & n) = 0 Then MsgBox "هذا القيد غير موجود": Exit Sub Dim rst As Recordset Dim fld As Field Set rst = Me.RecordsetClone rst.FindFirst "[ID]=" & [n] For Each fld In rst.Fields If IsNull(fld.Value) Then MsgBox fld.Name DoCmd.OpenForm "frm_Stud", , , "[id]=" & [n] Exit Sub End If Next fld DoCmd.SetWarnings False DoCmd.RunSQL "INSERT INTO Team ( ID, Fullname, tel, Degree, class ) " & vbCrLf & _ "SELECT Students.ID, Students.Fullname, Students.tel, Students.Degree, Students.class " & vbCrLf & _ "FROM Students " & vbCrLf & _ "WHERE (((Students.ID)=[Forms]![Form]![Text0]));" DoCmd.SetWarnings True Me.Text0 = "" Me.Text0.SetFocus End Sub وتعديل بسيط ع كود معلمى ووالدى الحبيب جزاه الله عنا كل خير وهو اخراج جزء الاضافه لما بعد فحص الحقول Private Sub Command2_Click() Dim n As Integer n = IIf(IsNull([Text0]), 0, [Text0]) If DCount("*", "[Students]", "[ID]=" & n) = 0 Then Exit Sub Dim rst As Recordset Dim rs As Recordset Dim fld As Field Set rst = Me.RecordsetClone Set rs = CurrentDb.OpenRecordset("team") rst.FindFirst "[ID]=" & [Text0] For Each fld In rst.Fields If IsNull(fld.Value) Then MsgBox fld.Name DoCmd.OpenForm "frm_Stud", , , "[id]=" & [Text0] Exit Sub End If Next fld rs.AddNew rs.Fields(0) = rst.Fields(0) rs.Fields(1) = rst.Fields(1) rs.Fields(2) = rst.Fields(2) rs.Fields(3) = rst.Fields(3) rs.Fields(4) = rst.Fields(4) rs.Update rs.Close: rst.Close Set rs = Nothing: Set rst = Nothing End Sub تقبلوا تحياتى ومرورى Example_1.accdb

مشاركة مع أخي عمر 🙂 Status: IIf(Date()>=[nometprn] And Date()<=[DAu];"((مازال قيد الاجازة))";IIf(Date()>[DAu];"(( تم العودة من الاجازة))";"((الإجازة لم تبدأ بعد))")) 174971286_11.accdb

تفضل هذا طلبك أخي @naguib_3778 🙂 Private Sub Command1_Click() Dim s As String s = InputBox("أدخل الرقم السري", "", "123") If s = 123 Then '--------------------------------(إخفاء الريبون والنفجيشن بان) DoCmd.ShowToolbar "Ribbon", acToolbarNo ' Hide Navigation Pane: DoCmd.NavigateTo ("acnavigationcategoryobjecttype") DoCmd.RunCommand (acCmdWindowHide) End If End Sub Private Sub Command0_Click() Dim s As String s = InputBox("أدخل الرقم السري", "", "123") If s = 123 Then '--------------------------------(إضهار الريبون والنفجيشن بان) DoCmd.ShowToolbar "Ribbon", acToolbarYes Call DoCmd.SelectObject(acTable, , True) 'Unhide the navigation pane End If End Sub Hide Navigation Pane.accdb

طبعا انت بحاجة الى استعلام الحاق للاضافة البيانات الجدول القيود واستعلامي حذف والحاق عند تعديل الفاتورة واستعلام حذف القيد عند حذف الفاتورة

J43=VALUE(LEFT(I7,FIND("يومية",I7)-1)) J44=MID(I7,FIND(" و",I7)+2,FIND("ساعة",I7)-FIND(" و",I7)+2)

الموقع (2).xlsm

اهلا بك اخي @Moosak في الحقيقة لم اقصد بالحذف شيئا سوى عدم ارباك المنتدى بنفس الموضوع مرتين لإني طرحت نفس النموذج في المشاركة التالية وكان به ايضا مشكلة بسيطة في ادخال البيانات ،، اما بالنسبة لطريقتي لحل (مشكلة تقويم ام القرى) فكانت في استيراد موديول تقويم ام القرى ونموذج اختيار التواريخ واظن العمل الاصلى للاخت زهرة ،، بعدها جعلت جميع حقول التاريخ عبارة عن حقول نصية سواء في النموذج او الجدول بعدها يكون الادخال للجدول تمام بس واجهت مشكلة في الاستعلام عن مدخلات الشهر الحالي لنفس الايدي لايفرزها بشكل جيد الا اذا كان حقل التاريخ من اليسار لليمين ، شرحت هذا في مشاركتي الاخرى اما الفلترة بين تاريخين فكان يفرز بشكل جيد اذا كان التاريخ (نص ) من اليمين لليسار بدون مشاكل بالنسبة للفلترة والاستعلام والنموذج بنفسه فهو ايضا مبني اساسا على اساس مساعدة من اخواننا المحترفين عندما طرحت الموضوع في شهر رمضان الماضي ولكن اكتشفت مع العمل الفعلي للبرنامج في المدرسة اني كل فترة احتاج الى اضافات جديدة ،،، لاحرمناكم اساتذتنا الغالين والشكر موصول للاخوان @ابو جودي @ناقل @Eng.Qassim هذا مالدي الان بخصوص هذا النموذج ، واعتذر عن قلة افادتي للاخوان بسبب قلة خبرتي.. دمتم بود

السلام عليكم تم النقل لقسم الاعلانات مع الشكر و التقدير

اخي الفاضل SHEREF ADEL ده الفكرة إلي انا أصلا اشتغلت عليها 1)تم استخراج مجموع إجمالي المخزون من شيت فاتورة من العمود كله على بشرط الإسم ووضعه في عمودz شيت داتا 2) تم استخراج مجموع الكمية من شيت فاتورة من العمود كله على بشرط الإسم ووضعه في شيت داتا عمود AA 3)كما جاء في طلبك الأول تم خصم مجموع الكمية لكل صنف من إجمالي المخزون الموجود في شيت فاتورة وضعه في شيت داتا عمود (رصيد آخر المدة ) وده مثال : كما جاء في طلبك الأخير نفس النتيجة المطلوبة التيجة: وعند إضافة أي صنف في شيت فاتورة موجود مسبقا في شيت داتا يتم جمع عمود الكمية والاجمالي تلقائيا ويترحل عندك على شيت داتا وده مثال على صنف فرشة سوفت قد قمت بإضافتها كما في الصورة وده النتيجة

وعليكم السلام أخي طارق 🙂 تم عمل المجاميع عن طريق الاستعلام "مجاميع" طبعا يتم تحديث المجموع بناءا على الفرز المبني على القوائم المنسدلة الثلاثة .. وكذلك التي عليها علامة صح كما هو موضح وفي حال أن القوائم المنسدلة فارغة فإنه يأتي بمجموع جميع النتائج الظاهرة جمع المبالغ التي امامها علامة صح.rar

السلام عليكم اخواني الاعزاء كود بسيط لمنع التكرار نحتاجة في معظم برامجنا مرفق قاعدة البيانات حدث قبل التحديث منع التكرار.accdb

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

تعديل على كود أستاذنا @مبرمج سابق ليوافق سؤالك 🙂 : Private Sub Form_BeforeUpdate(Cancel As Integer) Dim rs As Recordset Set rs = Me.RecordsetClone rs.FindFirst "[LockupFeildInTheTable] = " & Me.FeildInTheFormTxt If Not rs.NoMatch Then If MsgBox("هذه القيمة مكرره هل توافق على التكرار.", vbYesNo, "تنبيه") = vbNo Then Cancel = True End If Else End If rs.Close Set rs = Nothing End Sub

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

السلام عليكم .. لابد من التحية عند بدء أى مشاركة ,,, أقدم ملف اكسل يقوم بعرض صفحة جاهزة للطباعة فيها نتيجة العام الهجري مقابل الميلادي، والميلادي مقابل الهجري مع تحديد ايام العطلات الرسمية تــــم رفع الملف بدون ضغط وبدون حماية لإكتمال الإستفادة للجميع التقويم المفتوح 1901 - 3000 اصدار 11.xlsx

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

الأخ الغالي ياسر فتحي مشكور على إطرائك الذي لا أستحقه ..فهناك أعلام بالمنتدى إذا قارنا ما نقدمه إلى جانب ما يقدمونه لذهب ما قدمناه هباءً منثوراً .. وبعدين مفيش لايكات في اليوتيوب ليه ...شكلي هبطل أعمل فيديوهات !!!!! فيه لايكات يبقا فيه فيديوهات .. يا إما مش هنزل لكم حاجات