Hamdi Edlbi-khalf

هل جربت المرفق الأخير؟ لقد سببت نسخة ٢٠٠٧ بعض المشاكل مع VBA ورد، جرب أوفيس ٢٠١٠ إن أحببت، أو انتظر حتى أغير الطريقة.

السلام عليكم لقد حملت مرفقكم الأخير و أعيد رفعه مع التجربة إذا لم يعمل لديك المرفق بالصورة المطلوبة فسأضع طريقة أخرى، مع أن الأمر يبدو لي غريباً. Ù�رض_5_بعد_اÙ�تعدÙ�Ù�.accdb

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

لا يحفظ وقدجربته في هذه اللحظة التي أكتب بها

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

بالتوفيق رجاءٌ موجه إلى المشرف مشكوراً غير مأمور. تغيير العنوان ليكون: أصغر قيمة في حقول ضمن السجل نفسه / سجل واحد أو حسب ما يرتئي حتى يكون العنوان معبراً يمكن للباحث الاستفادة من مضمون السؤال وعدم تكراره. وجزاكم الله كل خير.

السلام عليكم أرجو أن تجد في المرفق حاجتك Database1.accdb

السلام عليكم مبدئياً انظر المرفق بانتظار ملاحظاتكم Parameters.xlsx Log.accdb

السلام عليكم بعد إذن الأستاذ خالد في المرفق طريقتان باستخدام فانكشن في حال أردت عمل ما ترغب في الجدول مباشرة فلن تستفيد من الوحدة وسنقوم بعمل المعادلة المطلوبة. مبدئياً انظر المرفق وأعلمنا بالنتيجة Minimum.rar

السلام عليكم أخي الصديق حبذا لو أرفقت نموذجاً عن عملكم مع القليل من البيانات.

السلام عليكم أضفت كود منع تكرار رقم القرض ورقم حركة التعزيز بالتوفيق أخي العزيز قرض_5_بعد_التعديل.accdb

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

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

السلام عليكم عاين الملف وجربه إن كانت هناك ملاحظات فعلى الرحب والسعة، غداً -إن شاء الله - سأعدل الملف تلبية لملاحظاتكم إن وجدت.

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

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

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

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

جزاكم الله كل خير،وبارك الله بكم. يبدو أنها الطريقة الوحيدة.

السلام عليكم استبدل علامة الاقتباس المفردة بعلامتي اقتباس مفردة ، وليس بعلامة اقتباس مزدوجة واحدة. اجعل الفانكشن بالصورة التالية < RQ = Replace (Stro,"'",",,") > أعتذر فأنا أكتب من الموبايل الشكر للأستاذ أبو جودي لعل في مرفقه طريقة أخرى.

أخي العزيز أرجو أن تعالج النقص وفقاً للتعليق السابق فأنا الآن أكتب من الجوال. أعتذر مرة أخرى

أعتذر ينقص الفانكشن العبارة الافتتاحية public Function و العبارة Replace (STRO,"'","") لقد كتبتها على عجالة قبل انقطاع الكهرباء ..

Private Sub Worker_BeforeUpdate(Cancel As Integer) Set rs = Me.RecordsetClone Dim x As Integer Dim strSQL As String Dim intHow_Many As Integer strSQL = "[Worker]='" & RQ{Me.Worker) & "'" intHow_Many = DCount("*", "Table", strSQL) If intHow_Many > 0 Then DoCmd.OpenForm "Work" ElseIf intHow_Many = 0 Then End If السلام عليكم. عدل الكود بالصورة السابقة بعد إضافة الفانكشن التالي إلى موديول Public RQ(STRO) On Error Resume Next RQ = Repalce(STRO,"'") End Function المشكلة أن علامة التنصيص المفردة تحول العبارة إلى تعليق .

بالتوفيق أخي الحبيب

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