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

السلام عليكم ورحمة الله وبركاته 🙂 عندما يكون برنامج الاكسس يعمل ، وفجأة بدأ بإعطاء رسائل خطأ وبدون اي تعديل في البرنامج ، او عند عمل تعديل على البرنامج يُغلق الاكسس: . طريقة العمل: سيفتح البرنامج ، ويجب عليك غلقه ، الى ان لا يفتح تلقائيا مرة اخرى. ولكن ، يجب دائما اخذ الاحتياط وعمل نسخة من البرنامج قبل عمل هذه الخطوات. اقدم لكم شرح بسيط عن الموضوع: في الكثير من الاوقات ، لما نعمل الكود ، نقوم بتعديل وتغيير وتضبيط الكود عدة مرات ، ولكن الاكسس في بعض الاحيان يبقى محتفظ بالكود القديم في ذاكرته !! لذلك : 1. اثناء البرمجة ، وبشكل يومي اقوم بتشغيل هذا الملف المرفق ، 2. وقبل تسليم البرنامج الى الزبون ، اقوم بتشغيل الملف للمرة الاخيرة ، واجهز البرنامج لتسليمه الى الزبون وهذا هو الكود المعدل عن النسخة السابقة: Private Sub cmd_Decompile_Click() Dim MSAccPath As String Dim RegKey As String Dim WSHShell 'As Object Dim waitOnReturn As Boolean: waitOnReturn = True ' Get MSACCESS.exe directory from the Registry RegKey = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\" & _ "CurrentVersion\App Paths\MSACCESS.EXE\Path" Set WSHShell = CreateObject("WScript.Shell") ' Get parent directory MSAccPath = WSHShell.RegRead(RegKey) ' Decompile WSHShell.Run Chr(34) & MSAccPath & "MSACCESS.EXE" & Chr(34) & " " & Chr(34) & Me.str_File_Single & Chr(34) & " /decompile", , waitOnReturn ' compact WSHShell.Run Chr(34) & MSAccPath & "MSACCESS.EXE" & Chr(34) & " " & Chr(34) & Me.str_File_Single & Chr(34) & " /compact", , waitOnReturn ' cmd compile WSHShell.Run Chr(34) & MSAccPath & "MSACCESS.EXE" & Chr(34) & " " & Chr(34) & Me.str_File_Single & Chr(34) & " /cmd compile", , waitOnReturn ' compact WSHShell.Run Chr(34) & MSAccPath & "MSACCESS.EXE" & Chr(34) & " " & Chr(34) & Me.str_File_Single & Chr(34) & " /compact", , waitOnReturn ' Clear shell var Set WSHShell = Nothing End Sub جعفر Decompile_2.zip

وعليكم السلام 🙂 السؤال الاول هو: هل قسمت قاعدة بياناتك الى قسمين/ملفين : 1. ملف الجداول ، وجعلته على مجلد مشاركة ، 2. مجلد المشاركة ، هل اعطيت جميع المستخدمين صلاحية القراءة والكتابة فيه ، 3. ملف الواجهة ، والذي يحتوي على بقية كائنات البرنامج ، هل جعلت نسخة منه على كمبيوترات المستخدمين ، 4. ملف الواجهة ، هل ربطته بملف الجداول الموجود في مجلد المشاركة؟ جعفر

السلام عليكم 🙂 ايش رايك باستعمال الكود التالي ، وحذف احداث النقر الـ 56 الموجودة بالكود 🙂 ' date picker buttons Public Function dxx() DateClick (Right(Screen.ActiveControl.Name, 2)) End Function . . جعفر 1048.Officena DatePicker.mdb.zip

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

ماشاء الله عليك ياستاذ سليم عمل رائع وممتاز جزاكم الله خير الجزاء

الاخوة الكرام أعضاء هذا المنتدي الكبير و الغني بالمعلومات مرفق ملف شاشة دخول مع كلمة سر و صلاحيات للمستخدمين امكانية تحديد الصفحة التي يعمل عليها كل مستخدم مع عدم مشاهدة باقي الصفحات اخفاء الصفحات و اظهارها اسم الدخول ahmed كلمة المرور 1234 أسم المرور للمسؤول khaled كلمة المرور 1111 ارجوا أن ينال قبولكم Login.rar

لاحظ معي جيدا هذا المثال فرضا لدينا جدول اسمه tbl1 و به حقل اسمه adress و نريد حساب عدد سجلات هذا الجدول بالإعتماد على قيم الحقل adress و وضع النتيجة في t الحالة الأولى (المطابقة التامة لقيمة الحقل): Me.t = DCount("*", "tbl1", "[adress] like '" & Me.g & "'") الثانية (ينتهي بــ): Me.t = DCount("*", "tbl1", "[adress] like '*" & Me.g & "'") الثالثة(يتضمن): Me.t = DCount("*", "tbl1", "[adress] like '*" & Me.g & "*'") الرابعة(يبدأ بــ): Me.t = DCount("*", "tbl1", "[adress] like '" & Me.g & "*'") مع العلم أن me.g هو مربع نص نضع فيه القيمة المراد البحث عنها.

لأ دانتا تمسك الشيشا بقى..أيوه كده شغل الفهامة.. عموما أنا مجهز الكود بس كنت مستنى أشوفك هتعمل ايه ولو إنى كنت عاوزك تكتبه بالمرّه. لأ دانتا تمسك الشيشا بقى..أيوه كده شغل الفهامة.. عموما أنا مجهز الكود بس كنت مستنى أشوفك هتعمل ايه ولو إنى كنت عاوزك تكتبه بالمرّه.

بعد اذن استاذى واخى الحبيب الاستاذ على واثراء للموضوع خل بكود اخر نسخة من هايبر لينك.xlsm

المزه بعد ما اشوف التعب عليك 🙂 جعفر

ما فهمت !! ليش اجرب على جدول بدون مفتاح والطلب هو استخراج او ارجاع اسم مفتاح رئيسي موجود داخل جدول واذا الجدول ما فيه مفتاح من وين يبي يجيبه ؟ اكيد سيرجع خطأ ، ونحن يمكننا التعامل معه من اقصر الطرق On Error GoTo PrimErr: MsgBox CurrentDb.TableDefs("tbl1").Indexes("PrimaryKey").Fields(0).Name PriErr: Exit Sub PrimErr: MsgBox "لا يوجد مفتاح أساسي للجدول" Resume PriErr عندها يمكن ان نضيف استفسار وسطرا اذا نرغب باضافة المفتاح هذا الذي عندي .. بارك الله فيك

تفضل اخى الكريم ومن فضلك لابد من التفاعل والمشاركة الإيجابية مع جميع الأعضاء وأتمنى من الله التوفيق لك دائما هايبر لينك - 1.xlsm

تفضل حساب المخزون.xlsx

تمام ساقوم بالتفيذ في اقرب فرصه .. باذن الله يكون هنا بحد اقصى بكره الصباح تحياتي

انا اقصد ان الدفعات تكتب في البيان دفعه فاحنا حنسجل 12000 بيانها دفعه ومن راح نسدد البيان بيع كل حسب قيمته لكن كيف اسجل 2000 ؟ اقترح نسجلها سجل جديد وبيان "رصيد" لكي نحتفظ بسجل الدفعه 12000 زي ماهو ؟

اخوي الغالي ابو جود ... كل شي موجود ولكن التجربة خير برهان .. db1.mdb

لانه يفترض ان المفتاح موجود ومش كدا بس برضه يشترط ان اسمه primarykey وهذا يحدث نادرا فليس دائما يوجد مفتاح اساسي وباسم primarykey تحياتي

تمام الان : 1. هل تريد العمل على نفس الملف وبالجدول all ( لاحظ ان تمييز العميل بالاسم حيث لايوجد كود حساب ) 2. لو على العميل 10000 فواتير ودفع 12000 ؟ هنا كيف نسجل ال 12000 وكيف نسجل 2000 رصيد له تحياتي

السلام عليكم مشاركة مع احبتي MsgBox CurrentDb.TableDefs("yourtable").Indexes("PrimaryKey").Fields(0).Name

اهاه اللي هي النوع والحجم type وهي تعود بارقام نوع البيانات وتقدر تبحث في مصادر الاكسس عن مدلول كل رقم مانوعه وللحصول على اسم النوع وتريح نفسك MsgBox tdf.Name & "=" & name_field.Name & " - " & TypeName(name_field.Type) & "...." & name_field.Size size حجم الحقل بالتوفيق

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

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

تدلل واصبح الان لديك اكثر من حل ومن طريقة الاكواد هى - على طريقة استاذى الجميل الأستاذ الرائع @essam rabea =Nz(IIf(IIf([t1]>[t2],[t1],[t2])>[t3],IIf([t1]>[t2],[t1],[t2]),[t3]),0) -على طريقة استاذى الجليل ومعلمى القدير المبجل الاستاذ @رمهان =Nz(IIf([t1]>[t2] And [t1]>[t3],[t1],IIf([t2]>[t1] And [t2]>[t3],[t2],[t3])),0)

دائما سباق الى الخير استاذ سليم عمل رائع وجزاكم الله خير

يستطيع عمل هذا باى طريقة هههههههههه يا استاذى العزيز @essam rabea ههههههههه نيابة عن اخونا الحبيب صاحب المسألة ارد انا عليك السؤال كانا واضحا وجود ثلاث حقول مختلفة يعني كل حقل مختلف عن اخر في نموذج معين واريد حقل رابع يضهر اكبر حقل من بين هذه الحقول على الله تكونوا فهمتوا (الاستاذ رمهان) (1).accdb

جرب هذا الملف في المرة المقبلة قم بتحميل ملف مختصر عما تريد ( من 10 الى 15 صف فقط) و ذلك للقدرة على مراقية عمل المعادلات من حهة ومن خهة ثانية تخفيفاُ لحجم الملف و اذا كان كل شيء كما تريد تقوم بتعميم المغادلات على كامل الملف الاصلي الاجابة في صفحة Salim Company_Tel.xlsm

سلمت يمينك استاذ على وجزاكم الله خير

تسلم يا هندسة وحشانى مشاركاتك جميل جدا بصراحه احسنتما ربنا ما يحرمنيش منكم ابدا

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

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

Function ramhan_days(fdate As Date, edate As Date, xday As Byte) For i = fdate To edate x = x + (Weekday(i) = xday) Next ramhan_days = -x End Function مشاركة مع اخي وعزيزي اباجودي مع اجمل التبريكات بالترقية بالتوفيق عدد ايام الاجازة الاسبوعية فى الشهر.accdb

شوف بقى هو فيه أى بيان عندك فى الجدول مكتوب بالتشكيل؟ اذا كان لأ طب ليه بتبحث بالتشكيل؟ عاوز كوبى وبست يبقى للنموذج كله مش حاجة عليه او خلى إعدادات النوذج الجديد كده: انا هنام بقى .. سلام Officna 4.zip

هنا نفس الفكرة ويمكن اختصار مشاركة الاستاذ عصام كالتالي وكتعبير في المربع المراد به النتيجة =IIf([t1]>[t2] And [t1]>[t3],[t1],IIf([t2]>[t1] And [t2]>[t3],[t2],[t3])) بالتوفيق

For i = 0 To CurrentDb.TableDefs("table1").Indexes.Count - 1 If CurrentDb.TableDefs("table1").Indexes(i).Primary Then MsgBox CurrentDb.TableDefs("table1").Indexes(i).Fields(0).Name End If next i تحياتي استاذ صالح

بيانات الوارد مختلفة عن المنصرف لذلك من الصف الاول حتى 107 الوارد (المصدر ورقة الوارد) باللون الأحمر و من 109 الى الاخر المنصرف (المصدر ورقة المنصرف ) باللون العادي هكذا انا فهمت ما تريده انت

لكل مجتهد نصيب زادك الله علما ونفع بك الف الف مبروك استاذ @essam rabea

أسف تم تحميل الملف بدون الماكرو بالخطأ الملف الجديد alex_Wared.xlsm أسف لم انتبه الى ان الملف المرفوع بصيغة xlsx

جرب هذا الكود البيانات كثيرة عندك كان يحب رفع نموذج عن الملف ولبي الملف بكامله (لمعرفة كيفية عمل الكود بشكل مريح) Option Explicit Sub give_uniques() Dim m%: m = 6 Dim Ro_wared%, Ro_Mons% Dim wared As Worksheet: Set wared = Sheets("وارد") Dim Mons As Worksheet: Set Mons = Sheets("منصرف") Ro_wared = wared.Cells(Rows.Count, 1).End(3).Row Ro_Mons = Mons.Cells(Rows.Count, 1).End(3).Row Dim my_sh As Worksheet: Set my_sh = Sheets("salim") my_sh.Range("a6:f5000").ClearContents my_sh.Range("a6:f5000").Font.ColorIndex = xlAutomatic '================================== my_sh.Cells(m, 1).Resize(Ro_wared - 4, 3).Value = _ wared.Cells(5, 1).Resize(Ro_wared - 4, 3).Value my_sh.Cells(m, 4).Resize(Ro_wared - 4, 1).Value = _ wared.Cells(5, 4).Resize(Ro_wared - 4, 1).Value my_sh.Cells(m, 6).Resize(Ro_wared - 4, 1).Value = _ wared.Cells(5, 5).Resize(Ro_wared - 4, 1).Value my_sh.Cells(m, 1).Resize(Ro_wared - 4, 6).Font.ColorIndex = 3 m = Ro_wared + 3 '====================================== my_sh.Cells(m, 1).Resize(Ro_Mons - 4, 3).Value = _ Mons.Cells(5, 1).Resize(Ro_Mons - 4, 3).Value my_sh.Cells(m, 5).Resize(Ro_wared - 4, 1).Value = _ Mons.Cells(5, 4).Resize(Ro_Mons - 4, 1).Value my_sh.Cells(m, 6).Resize(Ro_Mons - 4, 1).Value = _ Mons.Cells(5, 5).Resize(Ro_Mons - 4, 1).Value End Sub الملف مرفق alex_Wared.xlsx

السلام عليكم ورحمة الله أخي الحبيب أبو حبيب، معذرة على هذا الخلل فقد قمت بتبسيط معادلات خلايا تاريخ البداية وتاريخ النهاية دون التركيز في صحة النتيجة... في الملف المرفق تم إضافة معادلة لتحديد رقم صف (انطلاقا من الصف 5) لتحقق الشرطين (رقم العامل بالخلية K4 وكود البرنامج بالخلية H19) مع التعديل على معادلات خلايا تاريخي البداية والنهاية باستبدال الدالة VLOOKUP بالدالة INDEX... أرجو أن تفي هذه التعديلات الغرض المطلوب... بن علية حاجي البرامج التدريبية للعاملين بحقول طارق 2018-2019.rar

تفضل أتمنى أن يكون هذا طلبك مخازن.accdb

الف مبروك اخ عصام زادك الله علما ونفع بك

الف الف مبروووووووووووك استاذى الغالى

عليكم السلام ورحمة الله وبركاته هذا فيديو فيه الشرح وهذا رابط التحميل أنواع الخطوط التي تستخدم لعمل الباركود https://drive.google.com/file/d/1l_vK

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

جرب هذا .... test 5 500.mdb

جرب هذا .... test 5 500.mdb

السلام عليكم للتجميع لا بد من استبعاد الموانع ، مثل التاريخ اليومي ومثل ترقيم السجلات تم التعديل انظر في مصدر بيانات التقرير db2.mdb