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

وعليكم السلام ورحمة الله وبركاته إخوتي أجمعين... والله يا جماعة، لست أدري ما أقول! هناك الحرج الشديد بسبب أن كلماتكم أكبر مني بالتأكيد، وهناك السرور لهذه المشاعر الطيبة بالتأكيد كذلك... على كل حال، هذه تضيف مسؤولية أخرى، وخطر آخر على النية؛ أسأل الله أن يطهر ق…

جرب أخي الكود مرة أخرى كالتالي: Private Static Function xx() 'On Error Resume Next Dim result As Integer, FileName As String, FileName2 As String, dbc As DAO.Database With Application.FileDialog(msoFileDialogFilePicker) .Filters.Clear .Title = "حدد القاعدة الم…

قمت كذلك بتحميل الملفات، وسوف أنتظر ملحوظات أخي صايل ثم أطرح ملحوظاتي إن شاء الله...

وعليكم السلام ورحمة الله وبركاته... توجد يا أخي أكثر من طريقة لتحقيق المطلوب، لكن أكثرها مباشرة واختصاراً وبساطة هي استخدام معاملات الطريقة OpenReport في الكائن DoCmd... لاحظ انك ستستخدم استعلاماً واحداً فقط كمصدر للتقرير، ثم ستختلف شروط الاستعلام حسبما تمرره …

وعليكم السلام ورحمة الله... أخي الكريم، أرجو أن يكون ما في الملف المرفق هو مطلوبك... في انتظار الرد... أخوك أحمد Cows.rar

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

أنضم إلى الأخ صايل عزام في الرأي بأن التصميم الحالي غير مناسب، وفي الاستعداد للمشاركة في أي نقاش...

وإياكم جزى الله خيراً إخوتي جميعاً... بالنسبة للنصيحة، فأحيل إلى نصيحة مقتضبة سريعة كنت قد كتبتها في إحدى المشاركات، على الرابط التالي: /index.php?showtopic=187966&view=findpost&p=944016 بإذن الله، أفصل أكثر إن يسر الله الوقت والقدرة، ربما في جزء ثانٍ من هذه ا…

تم التعديل أخي الكريم بواسطة الاستعلام qryUpdateIngaz كما في الملف المرفق... الانجاز.rar

أيضاً، من بعد رأي لإخوة الكرام، جرب أن تعدل الإعلان عن دالة الـAPI باستبعاد آخر قوسين كما في الملف المرفق... نقل وارشف فايلات.rar

نعم أخي الكريم، الطريقة التالية أسرع بكثير عندي... هل هي كذلك عندك؟ Private Sub cmdProcess_Click() Dim rs As DAO.Recordset Dim i As Integer Dim intCount As Integer Dim rsTemp As DAO.Recordset Set rsTemp = CurrentDb.OpenRecordset("sec", dbOpenDynaset) Set rs = …

هذا حل ممكن اخي الكريم، بواسطة الكود التالي: Private Sub cmdProcess_Click() Dim rs As DAO.Recordset Dim i As Integer Dim intCount As Integer Set rs = Me.RecordsetClone DoCmd.SetWarnings False With rs .MoveFirst While Not .EOF intCount = .Fields("[set to]") - .…

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

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

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

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

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

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

الأخت الكريمة، ربما ليس هناك في المنتدى نقاش يتناول نظام محاسبة، لكن أنصحك جداً بالكتاب التالي، إن استطعت الحصول عليه من المكتبات: برمجة نظام المحاسبة العامة باستخدام أكسس 2003 هذا الكتاب متوفر بإصدارات أكسس 2000، 2003، و2007، ويحوي -على ما أذكر- قسماً لشرح مب…

لنفترض أخي العزيز أن هذه الدالة في وحدة نمطية module: Public Function Rep_01(intAcc As Integer, datFrom As Date, datTo As Date, strOmlaName As String) As Boolean DoCmd.RunSQL "INSERT INTO Rep_DaftrOstaz_02 ( Tarikh, Mokafea_M, Mokafea_D, ACC ) SELECT ACC00_ALL…