أبو عبدالله الحلوانى

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

نعم المشكلة كما هي والخطأ يظهر علي سطر كود العملية الحسابية تظهر رسالة تعارض الكتابة ملاحظة: قمت باستخلاص النموذج الذي به المشكلة والجدول والاستعلام المرتبط به بقاعدة فارغة لأرفقه بالموضوع ثم قمت بالتجربة فعمل الكود بدون أي مشاكل فهل هذا يعني أن المشكلة بالسرفر فقط !! آسف علي تعب حضرتك كنت أريد رفع مرفق ولكن الظاهر أني محتاج أرفع الجهاز كله 😀 🤔

لا Recordset تستعمل الاستعلام ولكن يوجد Recordset داخل الزر تستعمل جدول آخر مختلف تماما عن مصدر بيانات النموذج ولا حتي مرتبط به نعم نفس المشكلة

جزاكم الله عنا خيرا ولكن كما أسلفت سابقا أن النموذج واحد والزر الذي يتم من خلاله تعديل القيمة موجود علي نفس النموذج والكود المستخدم خلف الزر هو كود بسيط بهذا الشكل Me.EnzarKbl = Val(Nz(Me.EnzarKbl, 0)) + 1 فاعتقدت أنه لا يوجد جهات متعددة تعدل البيانات علي حسب ظني ولكن مصدر بيانات النموذج هو استعلام فهل يعتقد الأكسس أن الاستعلام داخل النموذج جهة والنموذج الذي يحوي الاستعلام جهة أخري!! سأطلع علي الموضوع الذي أشرتم اليه وأوافيكم بالنتائج ان شاء الله

شكرا علي اهتمامكم فعلا قد وجدت هذا من ضمن اقتراحات مايكروسوفت لحل المشكلة بهذا الرابط http://support.microsoft.com/kb/304181/ar ولكن لم يفلح معي أي من هذه الاقتراحات. يبدو أن المشكلة كما أظن بالنموذج المستمر ربما، وبانتظار رأي أساتذتني

بعد التجربة ظهرت معي هذه المشكلة

السلام عليكم ورحمة الله وبركاته أولا وصف الوضع: أعمل علي تطوير البرنامج الحالي الذي نعمل عليه لربطه بقاعدة بيانات SQL server - وأنا الآن أجرب علي سرفر المنزل وهو غير متصل بأي جهاز آخر حتي الآن الفورم الذي أجرب عليه تعديل بيانات فورم مستمر متصل بجدول علي السرفر الوهمي الذي أعمل عليه التجربة كانت عبارة عن رقم يتم تعديله من خلال الضغط علي الزر ثانيا المشكلة: تظهر رسالة تعارض بالكتابة - ولا أدري ما السبب رغم ان الكتابة كانت من فورم واحد وليست أكثر من فورم - وكذلك لا يوجد مستخدمين سواي الآن يستخدمون قاعدة البيانات ماسبب هذه المشكلة ؟؟!!! ملاحظة: قد وجدت هذا الكلام لاستاذنا أبو عمر في هذا الموضوع معلومة 1 : عند تحرير بيانات في جدول قاعدة بيانات SQL مرتبط بواسطة استخدام ODBC ، لا تؤمن قاعدة البيانات اكسيس السجلات، ولكن، تتحكم قاعدة بيانات SQL في التأمين . وفي هذه الحالة تتصرف قاعدة البيانات اكسيس دوماً كأن إعداد تأمين السجلات بلا تأمين هو المحدد . وبما أنني حديث عهد بالتعامل مع الـ SQL server لم أفهم جيدا هذا الكلام وكذلك لا أعرف كيف يمكنني تغير اعدادات ال SQL server لأتمكن من تجاوز هذه المشكلة - مع العلم أن باقي النماذج التي أتحكم من خلالها في ادخال البيانات تعمل بشكل جيد ولكنها ليست نماذج مستمرة فهل المشكلة بالنموذج المستمر أم ماذا؟!!!!!!! أفيدونا أفادكم الله وجزاكم الله عنا خيرا

للفصل بين الاسطر النصية في كود يجب وضع & + مسافة + (_ الزائدة السفلية). المسافة مهمة للغاية بين الـ ( & ) و ( _ )

يبدو أننا كنا نكتب الرد في وقت واحد 😀

فقط أضف معلومات الاتصال بهذا الشكل Set chkDb = OpenDatabase(Application.CurrentProject.Path & "\Btbl.accdb",,,"MS Access;PWD=0")

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

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

اجعل مصدر الحقل الذي يسمي المبلغ الكلي هذه الدالة =Nz(Dlookup("[المبلغ المتبقي]";"[اسم الجدول المصدر]";"ID=" & [ID]-1);[المبلغ الكلي]) جرب هذا ووافنا بالنتائج

لمعرفة الحقول المنقولة من جدول farez الي جدول all اليك هذه الفكرة ربما تفيدك قم بانشاء حقلين بجدول all أحدهم يسمي fromTbl والآخر يسمي atDate قم بتحديث قيمة الحقل الأول باسم أو حرف مميز أو حتي رقم معين يدل علي أن الحقل تم استقباله من جدول وقم بتحديث الحقل الثاني بالوقت الحالي لعملية التحديث أو الالحاق هذه المعلومة ربما تحتاج اليها فيما بعد. ملحوظة: اسماء الحقول اختيارية وليست اجبارية 😀 يمكنك تسميتها بأي اسم تريد. هذا وبالله التوفيق

فكرة جميلة والأجمل أنها منكم ولكن تلك الصورة هل هي فزاعة لأن لا يقوم أحد بتحميل المرفق أم هي كما قال أستاذنا الكريم أبو خليل تعبير عن الانبثاق؟!! عودا أحمد أبا جودي

ان كان ما فهمت من كلامك صحيحا فضع هذا الكود عند التحميل للتقرير الذي تريد هذا الكود سيعمل علي ترتيب السجلات تصاعديا وفقا للحقل الذي تريد ومن ثم يمكنك طباعة التقرير كيفما تشاء Me.OrderBy = "Feild Name" 'اكتب اسم الحقل المراد الترتيب علي أساسه هذا كل شىء جرب ووافنا بالنتائج ولا تنسنا من دعوة بظهر الغيب

وعليكم السلام ورحمة الله وبركاته من فضلك قم بتشغيل البرنامج الذي هو بامتداد accde المحزوم داخل الـ Smart Install بدون تسطيب ولا شئ. وانظر هل تحدث نفس المشكلة أم لا؟ وفي غالب ظني أن المشكلة هنا داخل هذا البرنامج جرب ووافنا بالنتائج.

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

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

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

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

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

وعليكم السلام ورحمة الله وبركاته جرب هذا لعله يوافي ما تريد Private Sub Form_Open(Cancel As Integer) i = 101 Me.pr = "loading ..." End Sub Private Sub Form_Timer() i = i - 1 Me("sq" & i).Visible = True If i > 0 Then If Not CurrentProject.AllForms("A").IsLoaded Then DoCmd.OpenForm "A" End If ' Static intCount As Integer intCount = intCount - 1 If intCount Then Me.pr = "loading " & Abs(intCount) & "%" End If Else DoCmd.Close acForm, Me.Name End If End Sub تمنياتي بالتوفيق

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

اولا أود أن اعتذر عن الخطأ الغير مقصود بالمشاركة السابقة وقد قمت بالتعديل داخل المشاركة حيث أني ذكرت منادة الكود هكذا Call Add_New(me.Name,"your tabel name") وهذا سيحدث خطأ عند التشغيل. والكود الصحيح هو هذا Call Add_New(me,"your tabel name") ثانيا خبرتي بالـ sql تكاد تكون معدومة ولكن يمكن اجراء ما تريد من خلال الاستعلامات بدون علاقة بين الجداول. وسأبحث لك عن طريقة لفعل هذا من خلال الـ sql ان شاء الله وجدت لك هذا الشرح باللغة العربية تابع لعله يفيدك ملاحظة: لعمل علاقة رأس بأطراف يجب أن يكون المفتاح بالجدول الرأس مفتاح فريد غير مكرر ويكون المفتاح الفرعي بالجدول الأطراف من نفس نوع بيانات الجدول الرأس (يعني لو كان المفتاح الأساسي بالجدول الرأس رقم يجب أن يكون المفتاح الفرعي بجدول الأطراف رقم أيضا وهكذا..) أدري أنك تعلم هذه المعلومة ولكن أذكرها لعله ينتفع بها أحدا ما مر من هنا يوما. تمنياتي بالتوفيق.