moamen salem

جزاك الله خير الجزاء وربنا يبارك ف يعلمك واهلك ومالك

السلام عليكم

*** بالتكلفة المطلوية ***
المطلوب  
*عدد الصفوف اللي بتظهر في صفحة البحث مثلا 80 سجل فقط والباقي يقسم علي صفحات
*الغاء زر الانتر لإدخال
*الضغط علي انتر بدل من الضغط علي اضافة بند
*رابط تسلسلي
*تصدير pdf
*عمل تقرير بحث مرن بناءا على الحقول المختارة
بمعني البحث في رقم الفاتورة او او اسم المورد او التاريخ
بالتكلفة المطلوية

شكرا لمحاولة حضرتك ونتمني نجد طريقة ان شاء الله

من اكتر المشاكل اختلاف الخطوط عند نقل الملف الي العميل

ف لقيت عندي ملف من زمان لتغيير نوع الخط تقريبا كنت نزلته من هنا والله اعلم 

المهم عدلت عليه بحيث نقدر نختار نوع الخط بدون ما مندخل لوضع التصميم او نتقيد بخط واحد

تغيير نوع الخط.rar

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

بحث.rar

يعني حضرتك عايز تقرير بين تاريحين ؟

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

الافضل سيب مرفق للمشكلة 

وفي الغالب المشكلة في الحدث اللي حضرتك حاطه

4 ساعات مضت, الحلبي said:

اخى @safari

الملف شغال تمام التمام ممكن يكون برنامج رار عندك مش شغال وعايز يتحمل من تانى

الاستاذ/ @moamen salem

المثال الذى ارفته جميل جدا جزاك الله كل خير وجعله فى ميزان حسناتك

بس عايز اعرف ما فائدة الكود التانى " on key down "

 

عشان لما تتنقل بمفاتيح الاسهم تحت وفوق ميعملش فلترة 

الكود انا واخده من الموقع وليس من تصميمي 

44 دقائق مضت, safari said:

السلام عليكم ورحمة الله

محتاج مساعدتكم ضرورى 

ازاى اقدر ابحث عن اسم صنف فى حقل اسم الاصناف فى فاتورة بيع 

يعنى اكتب اى حرف من اسم الصنف يفلتر الكومبو بوكس و يجيبه و يسجل فى الحقل 

مرفق قاعدة البيانات للتعديل و سهولة الشرح نموذج الفاتورة اسمه   invhead

test.rar 183.64 kB · 2 downloads

نفس الفكرة تقريبا 

بحث باي جزء في القائمة المنسدلة.rar

2 ساعات مضت, moatazfawzy83 said:

ابغى خبرتكم فى الاكسيس انا واحد جديد في برنامج الاكسيس واعمل فى ورشه طباعه ملابس وبحاول اصمم قاعده بيانات لعملى ولكن بعد تسجيلى للبيانات العملاء والمنتجات لما عايز اعمل رصيد للعميل مش عارف اجيبها ازاى 

تجربه 1.accdb 896 kB · 0 downloads

تم اضافة جدول جديد يدمج كلا من المبيعات والدفعات

تجربه 1.accdb

منذ ساعه, عمر طاهر said:

السلام عليكم

ارجوا التعديل  ليعمل الاستعلام بشرطين 

ولكم شكر

test.accdb 836 kB · 0 downloads

اتفضل

test.accdb

في 8‏/2‏/2022 at 01:12, abouelhassan said:

انا رافع الملف على جوجل درايف ويعمل تمام 

بارك الله فيك اخي الكريم استاذى الحبيب لقلبى

لو تكرمت هل لو حطيت البرنامج علي جوجل درايف بيشتغل عادي ولا بيعمل مشكلة مع المزامنة سواء شغلته من جهاز واحد او جهازين

12 ساعات مضت, moamen salem said:

واقترح تاني هيكون اكثر واقعية 

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

تم بحمد لله الوصول الي حل المشكلة 

وما زال استاذنا صاحب الفكرة والكود مبدع كالعادة

1- تسجيل اسم الحقل كما هو بالجدول وليس الاسم البرمجي في النموذج

2- الغاء تسجيل مصدر النموذج 

تتبع جميع حركات المستخدم 1.01.rar

واقترح تاني هيكون اكثر واقعية 

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

منذ ساعه, Amr Ashraf said:

يعنى خلاص حليت الموضوع عندك ولا محتاج منى تدخل ؟

شكرا جزيلا يا استاذنا 

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

دا تطبيق للفكرة الاخيرة

تتبع جميع حركات المستخدم.rar

3 دقائق مضت, Amr Ashraf said:

هوا بالفعل لا يسجل اضافة سجلات هو فقط يسجل التعديلات على السجلات الموجودة بالفعل , ممكن تصورلى تقصد ايه من المثال الجديد

للاسف يا استاذي كان بيسجل عندي حركة السجل حتي لو جديد عشان كدة عملت الفكر الاخيرة 

وبجد من اقوي الافكار اللي قابلتني في الاكسس

49 دقائق مضت, Amr Ashraf said:

السادة الافاضل .. بالنسبة لمشكلة عدم عمل الكود على النموذج الفرعى Subform تم حلها بدون تعديل فى الموديول .. شرح الحل

اذا قمت بمناداة الموديول عند حدث بعد التحديث لحقول النموذج الفرعى فما سيتم انه سيقوم بالحاق نفس السجل متكرر بنفس عدد التعديلات وبالتالى اذا قمنا ب4 تعديلات فإن اول 3 تعديلات سيتم تكرارهم 4 مرات والتعديل الاخير لن يتم تكراره وذلك لأن القيم المخزنة هى قيم السجل بالكامل وليس حقل واحد وبالتالى عند الحاقها بالجدول سيقوم بتقسيم السجل الى سطور وبهذا يتم التكرار .. انظر للمثال

كما تلاحظ تم تكرار التعديل الاول مرتين والثانى لم يتم تكراره لأن ليس هناك تعديلات بعده

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

مرفق التعديل على مرفق الاستاذ @moamen salem , انظر التعديل @عمر ضاحى

 

Dynamic Audit Trail + Subforms - Amr Ashraf v3.0.accdb 792 kB · 1 download

ممتاز ما شاء الله 

ولكن انا عندي اقتراح بسيط 

ان لو السجل جديد ما ينشئ اي شئ لو السجل قديم ينشئ التغيرات عادي

شايف كدة افضل وخاصة ان كدة الجدول هيحتوي علي عدد هائل من الحقول وخاصة الخاصة بالمخازن

3 ساعات مضت, Amr Ashraf said:

لأن الحقل ID عندك String او حقل نصى ولكن فى الموديول ID متعرف As Long وبالتالى الموديول بيتوقع لما يتم تمرير ID من النموذج انه هيكون رقم وليس حروف وارقام وبالتالى بيطلعلك الخطأ Type Mismatch ان الID متعرف كمتغير رقمى ولكن اللى بيطلع من النموذج متغير نصى . فهمت ؟ حل الموضوع كالتالى .. يتم تعديل الموديول ليقبل النص والرقم

Public Function WriteAudit(frm As Form, StrID As String) As Boolean
On Error GoTo err_WriteAudit

    Dim ctlC As Control
    Dim strSQL As String
    Dim bOK As Boolean
   
   
   
    bOK = False
    
   DoCmd.SetWarnings False
    
    ' For each control.
    For Each ctlC In frm.Controls
        If TypeOf ctlC Is TextBox Or TypeOf ctlC Is ComboBox Then
            If ctlC.Value <> ctlC.OldValue Or IsNull(ctlC.OldValue) Then
                If Not IsNull(ctlC.Value) Then
                    strSQL = "INSERT INTO tblAudit ( ID, FieldChanged, FieldChangedFrom, FieldChangedTo, User, DateofHit, FrmName , FrmRcrdSrc  ) " & _
                           " SELECT '" & StrID & "', " & _
                           "'" & ctlC.Name & "', " & _
                           "'" & ctlC.OldValue & "', " & _
                           "'" & ctlC.Value & "', " & _
                           "'" & GetUserName_TSB & "', " & _
                           "'" & Now & "' , " & _
                           "'" & M & "', " & _
                           "'" & r & "'"

                    'Debug.Print strSQL
                    DoCmd.RunSQL strSQL
                End If
            End If
        End If
    Next ctlC
    
    WriteAudit = bOK
    
exit_WriteAudit:
    DoCmd.SetWarnings True
    Exit Function
    
err_WriteAudit:
    MsgBox Err.Description
    Resume exit_WriteAudit
    
End Function

لاحظ هذا السطر

قديم
Public Function WriteAudit(frm As Form, lngID As Long) As Boolean

بعد التعديل
  
Public Function WriteAudit(frm As Form, StrID As String) As Boolean

جرب ووافنى بالنتيجة

@Eng.Qassim لاحظ سبب المشكلة .

 

Dynamic Audit Trail - Amr Ashraf v2.0.accdb 760 kB · 3 downloads

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

المشكلة هنا في سند القبض للاسف الكود بيعطي رسالة خطأ

Dynamic Audit Trail - Amr Ashraf.rar

7 دقائق مضت, Amr Ashraf said:

لا شكر على واجب , لا تنسى موافاتنا بتحليلك للمشكلة .

المشكلة طلعت في الكود دا 

DoCmd.GoToRecord , , acNewRec
حاطه في حدث عند التحميل اول ما احذفه الامور تكون تمام ولما اخليه ترجع المشكلة تاني

9 دقائق مضت, Amr Ashraf said:

لا شكر على واجب , لا تنسى موافاتنا بتحليلك للمشكلة .

أحسنت كنت مستنى حد يذكرها .. ممكن تعديل الكود ليعمل فى الحالتين سأحاول عملها فى اقرب وقت ودمجها فى الموضوع .

الموضوع فى بالى من الاول بس مستنى المناقشات .

ان شاء الله تتوصل ليها ممكن نحط نفس الكود في حدث بعد تحديث للسجل في النموذج الفرعي وحضرتك اكيد عندك فكر احسن مني

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

لما سحبت النموذج اللي فيه المشكلة في قاعدة بيانات تاني فارغة وحذفت كل الاكواد اللي فيه اشتغل بدون مشكلة كدة تقريبا في بعض الاكواد متعارضة معاه هشوف كدة ان شاء الله وشكرا جدا علي المعلومة دي 

دي بعض الرسائل اللي بتظهر 

وفي بعض النماذج اشتغل بدون مشكلة

ما شاء الله عاشت ايدك فوق الممتاز 

ولكن عندي سؤال لما استورد الوحدات النمطية للبرنامج بتاعي مش شغال الا علي الجداول االي حضرتك عملتها اما اي جدول خاص بيا مش شغال مع العمل ان جدول تسجيل التغيرات استورته لبرنامجي كما هو