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

المشكلة  أن علامة التنصيص المفردة تحول العبارة إلى تعليق .