أحمد مبارك الحيقي

الأخ الكريم، فكرة التجميع في ملف موجودة بالفعل، وسبق وضعها من قبل الإخوة الكرام يوسف أحمد، ومدير الحلقة محمد ندا، وأبي رحمة جزاهم الله خيراً أجمعين. وقد كنت وعدت بتداول الملفات معهم أولاً بعد ترتيبها مبدئياً، ثم بإذن الله نضعها لسهولة المرجعية... شكراً لك، وبإ…

شكراً لكما، بارك الله فيكما ووزادنا وإياكما من فضله...

بارك الله فيك أخي، عملت هذا التعديل أرجو أن يكون فيه المطلوب... numbering.rar

جزاك الله خيراً، فائدة تشكر عليها... أعجبني كذلك ارتباطك بملفات المساعدة: مصدر أساسي يغفل عنه كثير من المبرمجين.

اللهم آمين... أسأل الله أن يتقبل دعاءك وأن يثيبك مثله... آمين. أخي إن كنت فهمت مرادك،فالاستعلام الفرعي يكون كالتالي: SELECT temp.num, temp.price, (select count(*) from test where [num]<[temp].[num]) AS serial FROM test AS temp ORDER BY temp.num والاستعلام الأخ…

أخي العزيز، أنت على الرحب والسعة، بارك الله فيك... قمت أخي بكتابة شرح مختصر لفكرة الاستعلام، فأرجو أن تكون واضحة، وإلا فلا تتردد في الاستفسار، فنحاول ما تيسر أو يحاول معنا الإخوان بإذن الله تعالى (ملحوظة: تحتاج إلى قليل من التأمل والتفكير من أجل فهم العبارات ف…

أخي هل ينفع هذا؟ numbering.rar

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

رقم الحلقة (40) الاستعلامات الفرعية SUBQUERIES الربط بين جدولين ليس هو الطريقة الوحيدة لإشراك أكثر من جدول في استعلام. توفر SQL ميزة مرنة للغاية من أجل الاستفادة من البيانات في أكثر من جدول لتنفيذ استعلام. هذه الميزة تتمثل في إمكانية تنفيذ استعلامات فرعية إلى …

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

أخي الكريم، أبدأ بالإجابة على الجزء الأخير من السؤال، إذ يمكن فك الضغط بنفس الطريقة لكن مع الأمر المناسب. أقصد بالطريقة أي استخدام نفس الدالة Shell من أي حدث مناسب في نموذج مثلاً: Shell "C:\Program Files\WinRAR\WinRAR.exe x d:\tets.rar test.txt d:\" الأمر المس…

السلام عليكــم ورحمـة الله وبركاتــه ،، أبدأ بشكر الأخ أبي مريم على هذه المشاركة الممتازة، وأرجو أن تسمح لي أخي الكريم ببعض الملحوظات التي لا تقلل من جودة الفكرة البتة، غير أني أحببت أن أشارك في النقاش ببعض التعليقات: أولاً: أود أن أعبر عن اعتراضي على العنوان،…

وعليكم السلام ورحمة الله وبركاته... يمكنك أخي استخدام الدالة Shell لتنفيذ الضغط باستخدام winrar مع المعاملات المناسبة... قمت بضغط ملف نصي اسمه test.txt في الـ d: إلى ملف test.rar في الـ d: كذلك باستخدام الكود التالي: Shell "C:\Program Files\WinRAR\WinRAR.exe a…

إذا كان لكل من اسم الصنف العربي واسمه الإنجليزي حقل مستقل في الجدول، فنبغي أن يكون لديك مربعا نص في النموذج وليس واحداً، مربع نص لكل حقل، وهكذا فلا إشكال. وعلى كل حال، هناك فكرة بسيطة هي الاعتماد على الحرف الأيمن من الاسم لتحديد لغة الاسم، فيصبح من السهل التأك…

من بعد شكر الإخوة الذين مهدوا الطريق، هذا حل باستخدام الاستعلامات فقط، لكن قد يكون بطيئاً مع عدد كبير من البيانات، أرجو التجربة إن كان الأداء مقبولاً. مرفق أيضاً تقرير للتوضيح... HAJ_1430_DATA.rar

وعليكم السلام ورحمة الله وبركاته... يمكنك أخي الدوران على كل الكائنات، مثل الكود التالي: Dim obj As AccessObject Dim tbl As DAO.TableDef For Each tbl In CurrentDb.TableDefs If tbl.Attributes = 0 Then DoCmd.TransferDatabase acExport, "Microsoft Access", "D:\Imp…

صحيح أخي الكريم، الكائن TempVars غير موجود في أكسس 2003. وقد وجدت ببحث سريع (لا أستخدم أكسس 2007 على الإطلاق) بأنه إضافة جديدة إلى أكسس 2007 من أجل تبادل البيانات النصية والرقمية بين إجراءات VBA والماكروات...

حاول أخي الكريم بالكود التالي (تعديل على كود كنت قد كتبته كمشاركة في موضوع للأخ ناصر المصاورة على ما أذكر): Dim A As New Access.Application A.OpenCurrentDatabase Acpath A.RunCommand acCmdVisualBasicEditor If A.VBE.ActiveVBProject.Protection = vbext_pp_none The…

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

وعليكم السلام ورحمة الله وبركاته ضع الكود التالي في حدث زر الأمر: Private Sub أمر6_Click() Dim app As Access.Application Set app = CreateObject("Access.Application") app.OpenCurrentDatabase (CurrentProject.Path & "\ser.mdb") app.DoCmd.OpenForm "serv", , , "num…