أبا عمر

أحسن _ربي _ إليك هذا ما كنت أريده أسأل _ الله _ في عليائه أن يرضى عنك

أشكر لك أخلاقك العالية أستاذي أبو خليل والشيء بالشيء يذكر قرأت لك موضوع يخص الفائدة البنكية فأشكرك وأبو آدم على ردكما الذي أسأل الله عز وجل أن يرفع به قدركما في الدنيا والآخرة

وهل من طريقة لمعرفة التسمية التوضيحية المقابلة لإسم الحقل حيث عندي إسم الجدول وإسم الحقل مثل هذا الكود الذي لم أستطع تطبيقه CurrentDb.TableDefs([TabName]).Fields([FildName]).Properties(["caption"])

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

أخي الحبيب لا يشترط أن يكون كل الجداول تبدأ ID لكن الكود الموجود تحت زر الإغلاق لا بد أن تغيره حسب معرف كل جدول وبالنسبة لعدم عمل البرنامج ما هي رسالة الخطأ التي تظهر

تفضل أخي الكريم هذا نموذج لبرنامج به أدوات إدارية ممكن تستخدمها في أي برنامج لك وتم تطبيق المطلوب عليه كلمة المرور وإسم المستخدم 1 أو Admin أدوات إدارية.rar

Public Function WriteAudit(frm As Form, lngID As Long) As Boolean On Error GoTo err_WriteAudit Dim ctlC As Control Dim strSQL As String Dim bOK As Boolean Dim stbl As String Dim field As String bOK = False stbl = frm.RecordSource 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,stable, DateofHit,user1) " & _ " SELECT " & lngID & " , " & _ "'" & ctlC.name & "', " & _ "'" & ctlC.OldValue & "', " & _ "'" & ctlC.Value & "', " & _ "'" & GetUserName_TSB & "', " & _ "'" & stbl & "', " & _ "'" & Now & "'," & _ "'" & DLookup("[username]", "fbi") & "'" '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 بعد إذن إستاذي الفاضل أبو خليل " أعتذر إبتداءا وإنتهاءا " على تدخلي بهذه المشاركة أخي الفاضل يوسف يمكن عمل ما تفضلت به إن كان عندك في برنامجك نظام لصلاحيات المستخدمين فكل ما عليك فعله هو إضافة حقل وليكن user1 في جدول tblAudit حيث يشير user1 الى إسم المستخدم الذي دخل الى البرنامج والذي سيقوم بإجراء التعديل طبعاً بعدها تعدل على الكود كما هو موضح مع مراعاة تعديل ما هو باللون الأخضر حسب برنامجك و طبعاً هذا الجزء ("'" & DLookup("[username]", "fbi") & "'") يستدعي إسم المستخدم من إستعلام ويقوم بإلحاقه بجدول tblAudit أرجو أن أكون قد أفدت وأعود وأعتذر لأستاذي أبو خليل لأنه لا لمثلي أن يتقدم على مثله لكن ما دفعني هو تقيم إجابتي حيث كنت سأطرح نفس السؤال .

أستاذي الآن شغال تمام ويظهر السجلات التي تم التعديل عليها بنجاح سواء في النموذج الرئيسي أو الفرعي لكن لوحظ أن إسم الحقل الذي تم العديل عليه يظهر في جدول التعديلات بإسمه المستخدم في الكود " إسم الحقل " فهل من طريقة لإظهار التسمية التوضيحية للحقل مع " إسم الحقل " جزاك_ الله_ خيرا

مشكور أستاذي الفاضل جزاك_الله_خيرا وجعله ربي في موازين حسناتك يوم تلقاه وهو راض سبحانه

أستاذي الحبيب أبو خليل لو عندي نموذج وبه نموذج فرعي "عبارة عن نماذج مستمرة " كيف يمكن تطبيق هذه الفكرة حيث قمت بتجربتها وتمام في النموج الرئيسي لكن الفرعي لا يتأثر أحسن_الله_إليك

أستاذي أين الكود الذي تقصده "فقط انسخ الكود الموجود داخل النموذج وألصقه داخل نماذجك " هل هو الكود المجود داخل زر الخروج

شكر_الله_لك أستاذي أبو خليل

جزاكم_ الله _خيرا أستاذي أبا خليل

1- أستاذي الفاضل Bluemind جزاك_ ربي _خيرا . 2- أستاذي الفاضل أبو آدم جزاك_ ربي_ خيراً . 3- وبخصوص طلبك وندعوا لأبي آدم بدعوة طيبة بظهر الغيب لك ما طلبت وزيادة _والله _ المستعان 4- سأحاول تطبيق ما تفضلت به وأوافيك بالنتيجة .

السلام عليكم ورحمة الله وبركاته كيف حالكم إخواني الكرام أسأل_ الله_في عليائه أن يرضى عنكم أجمعين هذا الكود Form.AllowEdits = False خاص بمنع التعديل على النموذج فهل من إضافه عليه لإستثناء عنصر تحكم مثلا مربع تحرير وسرد حيث الكود يقوم بمنع التعديل على كامل النموذج . جزاكم _ الله _ خيراً

جزاك_الله_خيراً على ما تقوم به أستاذي الفاضل

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

السلام عليكم ورحمة الله وبركاته يمكنك مراجعة هذه الروابط ففيها شرح تفصيلي الرابط الأول الرابط الثاني وهذا الرابط لبرنامج للأستاذ محمد فؤاد تركي لعله ينفعك Warehouses__System.rar

أخي الحبيب أبو خليل جزاك _ الله _ خيراً على البرنامج الذي نفعني به _ الله _ كثيراً ثم إني وجدت أثناء بحثي عن هذا الموضوع شرح ممتاز للأستاذ ناصر المصاروة هذا رابطه لعله ينفع أحد الإخوان من هنا

مشكورين إخواني الكرام تم التوصل الى الحل فضل الله ثم بفضل الأخت زهرة جزاها_ الله_ خيرا وكل من ساهم من الإخوان الأفاضل أبو خليل وأبو آدم قد يكون السبب لديك انت في جهازك او انك لم تقم بتنزيل برنامج الفيجول بيسك 6 لأن اداة MSFLXGRD ليست من ضمن ادوات الأكسيس بل هي خاصة ببرنامج الفيجول بيسك 6 عموما حمل المجلد الذي به هذه الأدوات جميعها والخاصة بالـ MSFLXGRD في مجلد النظام C:\Windows\system32 ثم بعد ذلك قم بتسجيل اداة MSFLXGRD.OCX MSFLXGRD.rar

أخي الحبيب أبو خليل تم التسجيل بنجاح لكن نفس المشكلة قائمة " الكائن غير موجود في عنصر التحكم "

أخي الكريم أبو آدم مشكلتي الآن تتلخص في الآداة MsFlexGrid وكيفية تسجيلها لكي تعمل مع الأكسس وقد بحث عنها وتوصلت لمرجع خاص بها إسمه msflxgrd.ocx ووضعته في system23 ولكن لم يعمل معي أرجوا إفادتي المرجع في المرفقات جزاك _ الله _ خيراً msflxgrd.zip

أخي الحبيب أبو آدم جزاك_ ربي_ جنته على ردك وإهتمامك قمت بالاطلاع على الصورة المرفقة من قبلكم وما قمت بتحديده بها موجود عندي وأيضا تطلع نفس الرسالة ثم أني إطلعت على رابط الفريق العربي للبرمجة ونفس المشكلة قائما أرجو أن تشرحها لي بشيء من التفصيل إن لم يكن فيها إثقال عليك أحسن_الله_إليك

السلام عليكم ورحمة الله وبركاته إخواني قمت بتحميل المثال المرفق من أحد المنتديات وهو للأستاذ الفاضل أسامة المقدم على ما أذكر جزاه_ الله _خيرا ولكن عند فتح البرنامج يعطي رسالة " الكائن غير موجود في عنصر التحكم هذا " ما حل هذا المشكلة بالتفصيل جزاكم _ الله _ خيرا المثال SendEmail.rar Bin.rar 6.1.0.9212__dhtmled.zip

اللهم آمين جزاكم_ الله_ خيرا أستاذي الفاضل تم التحميل وجاري معاينة المرفق لعل فيه ما أريد وسأوافيك بالنتيجة