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

تفضل: تم اضافة : 'remove the extra spaces on: x(j) = LTrim(x(j)) 'the Left x(j) = RTrim(x(j)) 'the Right Function Remove_Extras(myValue As String) As String Dim x() As String Dim j As Integer For j = 1 To 999 'remove all the extra characters at the end of the line If Right(myValue, 1) = Chr(7) Or _ Right(myValue, 1) = vbCr Or _ Right(myValue, 1) = vbLf Or _ Right(myValue, 1) = vbCrLf Then myValue = Mid(myValue, 1, Len(myValue) - 1) Else Exit For End If Next j 'now remove the empty lines myValue = Replace(myValue, Chr(7), vbCrLf) myValue = Replace(myValue, vbCr, vbCrLf) myValue = Replace(myValue, vbLf, vbCrLf) x = Split(myValue, vbCrLf) For j = 0 To UBound(x) 'remove the extra spaces on: x(j) = LTrim(x(j)) 'the Left x(j) = RTrim(x(j)) 'the Right If Len(x(j)) < 2 Then Else Remove_Extras = Remove_Extras & x(j) End If Next j Remove_Extras = Replace(Remove_Extras, Chr(11), vbCrLf) 'remove all VT characters End Function جعفر

الملف موجود ويعمل الكود .... انظر النموذج كما في الصورة وموقع الكود

برنامج الغاء وتمكين الشفت Shift.mdb

السلام عليكم 🙂 المرفق يحتوي على النسختين mdb و accdb ، ويعمل على النواتين 32بت و 64 بت 🙂 النسخة السابقة: عندما يعطي برنامج الاكسس اخطاء - النسخة رقم 3 - قسم الأكسيس Access - أوفيسنا (officena.net) بعض الاوقات عند تشغيل برنامج اكسس ، نجد انه يغلق بدون سبب ، بمثل هذه الرسالة: . او يُظهر اخطاء ، مثل هذه الرسائل وغيرها : . . . هذا معناه ان برنامجك يحتاج تنظيف من الاخطاء التي فيه ، او يحتاج الى استعادة حيويته مرة اخرى ، بالتنظيف والصيانة 🙂 وعادة نقوم بهذا العمل على برنامج الواجهات FE ، ولكن برنامج الجداول BE يستفيد منه كذلك. نافذة البرنامج : . 1. نختار الملف ، سواء mdb او accdb ، اما ملفات mde و accde ، فلن تستفيد من Decompile/Compile ، ولكنها ستستفيد من الضغط والاصلاح ، وعمل نسخ اضافية ، 2. اذا البرنامج فيه كلمة سر (ليس كلمة سر المستخدمين ، ولا كلمة سر الكود VBE) ، فيمكنك كتابة كلمة السر هنا ، وسيقوم البرنامج بحفظه/نسخه في ذاكرة الكمبيوتر ، وتستطيع استعمال الالصاق Ctl+v عندما يسألك البرنامج ، كما يقوم البرنامج بإستخدامه في فتح برنامجك لمراجعة الاخطاء. اذن هناك خطوة يمكن للبرنامج ان يستخدم كلمة السر مباشرة ، وهناك خطوة يجب عليك ادخال كلمة السر عن طريق اللصق Ctl+v ، تم إضافة ميزة عمل النسخ الاحتياطية لبرنامجك ، بحيث تحفظ نسخة من برنامجك بعد التنظيف ، في المجلد الذي تختاره ، ويكون الحفظ المسلسل هكذا : . يعني بدل ان تحفظ نسخة من برنامجك بطرقك الخاصة ، تستطيع وبعد تعديل برنامجك ، ان تتأكد انه خالي من الشوائب ، ويعمل نسخه منه تلقائيا 🙂 وهناك عدة طرق لإختيار مجلد الحفظ: 3. حفظ الملف في نفس مجلد البرنامج ، 4. اختار المجلد ، وبعد اختياره ، تستطيع ان تنقر على الزر 9 ليقوم البرنامج بحفظ هذا المجلد/المسار في البرنامج للمرات القادمة ، 5. اول مسار تريد حفظه هو: استعمل الخطوة 4 في فتح المجلد الرئيسي لحفظ النسخ الاحتياطية (واذا ما كان عندك ، فقم بعمله من الآن) ، ثم احفظ المجلد/المسار بالزر 9. وبعدها ، البرنامج تلقائيا يختار هذا المجلد (اذا قمت بحفظه بواسطة الزر 9) كلما فتحت البرنامج ، اي انه اول سجل في الجدول ، 6. عن طريق الخطوة 4 ، تستطيع حفظ اي عدد من المجلدات ، ولاحقا تستطيع ان تختار هذا المجلد لحفظ النسخة الاحتياطية فيه ، 7. عدم عمل نسخ احتياطية ، للأسف الشديد 😞 8. عند اختيار اي من الاختيارات اعلاه ، سيضع البرنامج مسار مجلد النسخ الاحتياطية هنا ، 11. الآن نطلب من البرنامج ان يقوم بعمله ، بالخطوات التالية : أ. يحفظ نسخة من البرنامج وقبل مساسه (حتى اذا لا قدر الله وحصلت مشكلة في العمل ، يمكنك الرجوع لهذه النسخة) ، ويقوم البرنامج بعمل النسخة في مجلد برنامجك ، بإضافة bak_ في نهاية اسم الملف ، كما في الصورة ، واذا احتجت لإستعمال الملف لاحقا ، فقط قم بحذف bak_ وسيعمل البرنامج : ب. ضغط واصلاح : لما تحذف سجلات من برنامجك ، فإن البرنامج يعطي اشارة الى الجدول بإخفائه ، ولا يقوم بحذفه إلا بعد الضغط والاصلاح ، عند عمل فهرسة لحقول في الجدول ، فإن البرنامج يحتاج الى ضغط واصلاح حتى يقوم بترتيب اعدادات الفهرسة ، عند العمل على البرنامج لفترة طويلة بإضافات وتعديل وحذف ، فالبرنامج يحتاج الى ضغط واصلاح لإعادة ترتيب الفهرسة لسرعة عمل البرنامج ، قد يتم خطأ في تسجيل سجل ، ربما بسبب انطفاء الكهرباء ، او اغلاق الكمبيوتر وبدون اغلاق البرنامج ، وهذا السجل يجعل الجدول لا يعمل بطريقة صحيحة ، والضغط والاصلاح يحل هذه الاشكالية ، البرنامج عبارة عن ملف في الكمبيوتر ، ولما تعمل البرنامج ، فإن الكمبيوتر يحفظ البرنامج على المكان الفارغ من القرص الصلب ، ولما تضيف سجلات جديدة ويكبر حجم البرنامج ، فقد يحفظ الكمبيوتر الجزء الجديد في مكان آخر على القرص الصلب ، مكان غير ملاصق للجزء الاصل (وهذه طريقة حفظ الكمبيوتر للملفات) ، وبهذه الطريقة يصبح الملف موجدا على اجزاء مختلفة من القرص الصلب ، مما يجعل البرنامج ابطأ ، ولما تعمل ضغط واصلاح ، فإن الاكسس يقوم بحساب المساحة المطلوبة للبرنامج ، ثم يقوم بعمل برنامج جديد في مكان جديد على القرص الصلب ، وينسخ البرنامج اليه ، مما يجعل البرنامج اسرع ، بالاضافة الى امور اخرى لا يتم حلها إلا بالضغط والاصلاح ، الضغط والاصلاح لا علاقة له بالكود ، ولا يقوم بفحصه. ج. Decompile : لما نكتب الكود ، الاكسس يحتفظ بكل سطر بلغة P-Code الخاصة بمايكروسوفت (والتي تُستخدم لبعض البرامج الاخرى كذلك) ، وعند تنفيذ الكود ، فالاكسس ينفذ كود لغة P-Code ، وفي بعض الاحيان من كثرة التعديلات على الكود ، فإنه لا يتم تحديث P-Code بطريقة صحيحة ، فينتج عنه رسائل اخطاء اكسس ولا يعمل البرنامج بطريقة صحيحة ، وعند عمل Decompile ، فالاكسس يحذف كود P-Code القديم ، ويسجل فيه كود جديد من VBA ، مما يجعل البرنامج اصغر في الحجم زيادة في الكفائة. د. Compile : بهذه الطريقة ، نتأكد من عدم وجود اخطاء في الكود ، وبقايا ومخلفات ، مثل: لما نحذف كائنات في النموذج/التقرير ، ولا نحذف الحدث الخاص بها ، فالكود يجب حذفة ، لعدم وجود الحدث الي يستعمله ، لما نحذف كائن في النموذج/التقرير ، وفي الكود نكون قد اعطيناه قيمة ، فيجب حذف المسمى من الكود ، عند كتابة كود بطريقة غير صحيحة وغير مكتملة ، فيجب تصحيحها ، وهذه الخطوه مهم لتحويل البرنامج الى mde او accde . يحاول البرنامج القيام بهذا العمل لبرنامجك ، ولكنه اذا لم يستطيع ويحصل على اخطاء ، فإنه يخبرك بهذا ، ويخبرك مكان الخطأ في الكود ، سواء وحدة نمطية او نموذج او تقرير ، ويعطيك مثل الرسالة التالية ، والتي اذا اخترت نعم ، فيوقف البرنامج ، . ويأخذك لبرنامجك الى نافذة الكود VBE ، ثم يجب عليك ان تعمل التالي يدويا: . وتُصلح الاخطاء التي في برنامجك ، الى ان لا يعطي برنامجك اخطاء اخرى ، وبعدها تستطيع ان ترجع الى البرنامج ليقوم جميع الخطوات مرة اخرى. هـ. اذا اشتغلت خطوات البرنامج وبدون اخطاء ، فهنا يقوم البرنامج بعمل نسخة احتياطية من برنامجك ، وبالتسلسل الصحيح ، وفي المجلد الذي اخترته. 12. البرنامج يخبرك عن الخطوات التي تمت 🙂 جعفر Decompile_4.accdb..zip Decompile_4.mdb..zip Decompile_4.2.accdb.zip

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

جرب هذا التعديل الملف (1).xlsb

اجعل الكود داخل الاستعلام واجعل الاستعلام مصدر سجلات التقرير وفقط (هذا كل شيء)

حسب علمي لا ينصح بذلك، على كل جرب الملف على جهاز آخر ربما تلاحظ الفرق

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

تفضل أخ الكريم هناك مشكلة بدمج الخلايا مع الماكرو هناك بعض التعديلات على دمج الخلايا يرجى أخذها بعين الإعتبار لاحظ أيضاً أني تركت صفحة العميل الأول سمير.. عدد أقل من الصفحات مشكلة إضافة شيت باسم عميل جديد لم تحل بعد، طبعاً يمكن حلها إذا أردت Master.xlsm

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

اضافة لمشاركة الاستاذ محمد طريقة اخرى اعمل المعيار مباشرة في امر فتح التقرير DoCmd.OpenReport "letter", acViewPreview, WhereCondition:="[zabon] like '" & [tt1] & "*'" letter.accdb

تفضل: Private Sub Form_BeforeUpdate(Cancel As Integer) If DCount("الرقم", "Données _sur- les- élèves", "[الاسم] = '" & الاسم & "' And [اللقب] = '" & اللقب & "' And [رقم التسجيل] ='" & رقم التسجيل & "'") > 0 Then Cancel = True MsgBox "هذا الشخص موجود", vbCritical, "عملية خاطئة" End If End Sub الشهادة المدرسية للقدامى.accdb

letter.rar

السلام عليكم ضع نفس المعيار المستخدم في النموذج الفرعي في الاستعلام Like [forms]![conform_shM]![tt1] & "*" تحياتي

بما انك لا تريد رفع ملف على حسب ما فهمت منك تريد ان تضع اي قيمة تنطبق على الشرط فتقوم باخفاء الصف جرب هذا الماكرو لعله يفيدك اكتب القيمة في الخلية k2 وغير المدى الذي تريده ان ينفذ عليه Private Sub Worksheet_Change(ByVal Target As Range) Application.ScreenUpdating = False Dim target As String target = Range("k2").Address If Target.Address = target Then Dim cell As Range For Each cell In Range("a1:g6") If cell.Value < 50 Then cell.EntireRow.Hidden = True Else cell.EntireRow.Hidden = False End If Next cell End If Application.ScreenUpdating = True End Sub

@biskraشكراً لك هذا هو مثل المطلوب لقد جربته عندى وماشي الحال وشكرا لك مره اخرى ولكل الزملاء المحترمين

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

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

أحسنت استاذ عبد اللطيف عمل رائع بارك الله فيك ورحم الله والديك

تعديل بالنسبة للغة الأجنبيىة كل شيء تمام (لا مشاكل في الاسطر الفارغة) بالنسبة للغة العربيى هناك مشكلة بالصفوف الفارعة (ولا أعرف طريقة حلها) List_box52.xlsm

أفادك الأخ محمد جزاه الله خيراً.

قصدك البحث بمعيار أو أكثر، في المثال المرفق سوف تجد ما تبحث عنه، DatasheetLikeFilter 2(1).zip

وعليكم السلام ورحمة الله وبركاته حياك الله اخي الحبيب ابوعبدالله الفكرة اخي ابوعبدالله كالتالي 1 - فتح قاعدة البيانات في وضع الخاص 2 - إزالة كلمة المرور 3 - تحويل قاعدة البيانات من accdb الى accde 4 - تعيين كلمة مرور من جديد لكلتا القاعدتين accdb و accde هذا الموديل للخطوات 1 ، 2 ، 4 Public Sub Set_Pass(sDBName As String, soLdPass As String, Optional sNewPass As String = "") Dim db As DAO.Database On Error GoTo Err: Set db = OpenDatabase(sDBName, True, False, ";PWD=" & soLdPass) db.NewPassword soLdPass, sNewPass Exit Sub Err: Resume Next End Sub وهذا الكود في زر امر لتنفيذ جميع الخطوات Dim app As New Access.Application Dim DB_Full_Name As String Dim DB_Directory As String Dim oLdPass As String, NewPass As String oLdPass = 777 '1 And 2 Set_Pass Me.DB_File, oLdPass, oLdPass Set_Pass Me.DB_File, oLdPass, "" DB_Full_Name = Me.DB_File DB_Directory = Mid(DB_Full_Name, 1, Len(DB_Full_Name) - 6) & ".accde" '3 app.SysCmd 603, DB_Full_Name, DB_Directory '4 oLdPass = "" NewPass = 777 Set_Pass Me.DB_File, oLdPass, NewPass Set_Pass DB_Directory, oLdPass, NewPass تحياتي

وعليكم السلام اختنا الكريمة الموضوع مكانه قسم الاكسل وليس هنا .. هناك ستجدين المساعدة من الأعضاء والخبراء صحيح انه يمكن تطبيق مشروع على أكسل وفي الوقت نفسه يمكن تطبيقه على أكسس الا ان الفرق شاسع في بيئة العمل بين كل منهما . ان اردت الانتقال الى اكسس وتطبيق مشروعك عليه يجب عليك التقيد بالتالي : 1- البداية من الصفر في تعلم اكسس 2- نسيان بيئة اكسل .

هذا البرنامج تعبت عليه منذ ما يقارب 3 اشهر .. ارجوا ان تستفيدوا منه .. ولا ارغب سوى بالدعاء لي بالصلاح والهدايه .. واي استفسار انا جاهز به ان شاء الله .. اخوكم اسماعيل .. Customers.rar

يعمل عادي لم ألاحظ وجود تقريرين عند فتح التقرير من النموذج