نجوم المشاركات

بسم الله الرحمن الرحيم وبه نستعين المرفق التالى تطبيقا لنص فقرة من قانون أردت وضعه هنا للإفادة تقبلوا وافر تقديرى واحترامى **** وجزاكم الله خيرا إجماليات أكثر من قيمة لنفس الاسماء المماثلة بالمصنف.xlsb.rar

السلام عليكم اسمحو لي بالمداخلة لوجود التباس طريقة السؤال توحي ان المسألة جمع وطرح والمطلوب حقيقة اعداد ما عدا الاجازات استخدم الدالة DCount بدلا من DSum واستبدل id في الاكواد اعلاه الذي تفضل بها اخونا الوزير استبدلها بالقسم

السلام عليكم بعد التقسيم : التحديث سيكون نوعين اما على الواجهات واما على الجداول فالتعديل على الجداول حساس جدا ويستلزم غالبا وجودك على جهاز العميل وان كنت بعيدا يجب ايقاف العمل على البرنامج ثم يرسلون لك نسخة من قاعدة البيانات وبعد اجراء التعديلات تعيدها اليهم اما التعديل على الواجهات فهو مرن ويكفي ان ترسل لهم نسخة من الواجهات المعدلة لاستبدالها بالنسخة السابقة

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

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

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

وسيكتمل المنتدى إن شاء الله بتواجدك بيننا فأنت قمة وهامة في هذا المجال تقبل وافر تقديري واحترامي

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

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

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

وعليكم السلام ورحمة الله وبركاته قم بتعديل كود الفتح الخاص بك الى : DoCmd.OpenForm "Realisation", , , "[Opérateur]=" & Me.cboUser.Column(0) وقم بتحويل حقل Opérateur الى مربع نص بدل الكومبو لانك لن تحتاجه عند تعطيله ثم اضف في القيمة الافتراضية للحقل:Opérateur =[Forms]![frmlogin]![cboUser] ثم من خصائص بيانات النص اجعل الحقل ممكن = لا ، مؤمن = نعم الشكر والتقدير للاستاذ عبد الفتاح كيرة على هذا الشرح الرائع :: تحياتي waz-Realisation.rar

وعليكم السلام احمد عدلت على الملف المرفق..جرب و خبرنا اسم المستخدم user1 و كلمة المرور 111 تحياتي Login Form.zip

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

السلام عليكم ورحمة الله وبركاته من الله علي بطريقة لعمل Tool bar او Ribbon Bar مثل البرامج الاحترافية وهي كالتالي وأسأل الله ان تفيد الجميع عمل Tab control في رأس انموذج ثم اضافة التبويبات حسب التصنيف الذي ترغب فيه مثلا تبويب للعملاء وتضيف اليه جميع الازرار الخاصة بالنماذج والتقارير ثم تبويب اخر للموردين وتضيف اليه كذلك ما تريد من ازرار ثم بعد الانتهاء من اضافة التبويبات المطلوبة تذهب الي خصائص الTab Control وتذهب الي خاصية Back style وتجعلها Transparent وبدلا من الازرار التقليدية يمكنك اضافة صورة واضافة امر لها عند النقر ولاضافة خاصية اخري يمكنك جعل المؤشر عند المرور علي الصورة ان يظهر شكل اليد لتكون افضل شكلا مرفق مثال ومدرج به موديول خاص بتغيير شكل المؤشر لشكل اليد عند المرور علي الصورة اي استفسار انا تحت امر الجميع مع خالص الشكر لاعضاء المنتدي المحترمين واسال الله ان ينفع بهذا العمل وان يجعله خالص لوجهه الكريم مرفق المثال Test.rar

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

شاشة الدخول تاخد بيانتها من صفحة الصلاحيات لو محتاج تغير شاشة الدخول وممكن مسح كل ما بداخل الملف ووضع شيتاتك مع الحفاظ على صفحة الصلاحيات اما اذا كنت تريد الطريقة اليك الشرح داخل السلسلة للفيجوال بيسك http://www.officena.net/ib/topic/65629-سلسلة-دروس-الفيجوال-بيسك-6-والاكسيل-من-علي-مصطبة-ياسر-العربي/ اما اذا كان الموضوع شاق عليك ممكن اعملك الشاشة بالشكل اللي تحتاجه وكلمة المرور للملف التي تحتاجها حتى تحميه من الفتح مستقل انظر اولا للموضوع لتعرف الفكرة وبعدها قرر تقبل تحياتي

شكرا أستاذ خليل و أستاذ عبد الفتاح

أكرمك الله أخى الأستاذ صالح و بارك فيك

جزاك الله خيرا أستاذ عبد الفتاح

السلام عليكم انا اشتغل على ( برنامج ادارة المتدربين ) وانا مبتدئ في الاكسس وحاولت ولم افلح اذا ممكن من اعضاء المنتدى مساعدتي في بعض الامور 1- البحث بالشهر بطرقتين ا- (عن المتدربين الجدد) ب - (عن المتدربين الجدد + المتدربين اللذين لم ينتهي تدريبهم) 2- يوجد خلايا فارغة في حقل StartDate كيف يمكن تفاديها 3- النموذج (program1) احصائية عدد المتدربين لكل شهر (المتدربين الجدد + المتدربين اللذين لم ينتهي تدريبهم) تقبلوا تحياتي qq2010.rar

جزاك الله كل خير

السلام عليكم قم بضغط المرفق ببرنامج الضغط WinRar قبل الرفع

هذ ملف قمت بعمله من خلال متابعتي لهذا المنتدى ومواضيعه الشيقة قمت بهذا العمل البسيط الذي هو قطرة في بحر علمكم ارجو اعطائي رأيكم بالعمل واتمنى ان يكون ذا فائدة لبعض الاخوان واخذا ً بنصيحة الاستاذ ياسر خليل أبو البراء الرقم السري هو 11111 قاعدة بيانات المدرسة 1.rar

وعليكم السلام ورحمة الله وبركاته نعم اخي ابو خليل ،،، لبس علي الموضوع كما تفضلت انا ظننت انه اراد حساااب الحقول النصية زادك الله علما اخي العزيز :: تحياتي

وعليكم السلام ورحمة الله وبركاته لاستخدام النموذج: =DSum("[FieldNm]","[tblName]","[id]=" & "'" & [id] & "'") حيث Id ايضا حقل نصي وهنا جمع حقل نصي و Id رقم =DSum("[FieldNm]","[tblName]","[id]=" & [id]) هنا للاستعلام: Expr:DSum("[FieldNm]","[tblName]","[id]=" & "'" & [id] & "'") Expr:DSum("[FieldNm]","[tblName]","[id]=" & [id]) بنفس الطريقة تستطيع استخدام Dlookup واي شي احنا في الخدمة اخي بو نادر :: تحياتي

الأخ العزيزبوب2016 بعد السلام عليكم مشكور لدعائك . انت لم تثقل بالأسئلة ولا شيئ نحن هنا فى المنتدى نساعد بقدر استطاعتنا وللدعابة عبدالبارى ده لقب العيلة الراجل دة مات من يجى 100 سنه ربنا يخلهولى ازاى

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

مجهود رائع اخي الكريم عامر ياسر وطالما اسمك يضم ياسر يبقي ربنا هيكرمك اخر كرم حبيت اسهل عليك بعض الامور في ترحيل البيانات خصوصا البيانات ذات الاعمدة كبيرة العددوعملت لك مثال يبسط ليك الترحيل في كام سطر كدا صغيرين بدل ماا تكتب لكل خليه سطر وتاخد مجال كبير في الكود وفي مسج الخلايا والوقت الكود Private Sub CommandButton1_Click() Dim LR As Long Dim I As Long LR = Cells(Rows.Count, 1).End(xlUp).Row + 1 For I = 1 To 20 Application.ScreenUpdating = False Cells(LR, I).Value = Me.Controls("TextBox" & I).Value Me.Controls("TextBox" & I) = "" Next Application.ScreenUpdating = True End Sub الكود بسيط باذن الله عبارة عن حلقة تكرارية من 1 الى 20 بعدد الاعمدة وعدد التكست بوكس وبدل ما نكتب ارقام الاعمدة وارقام التكست بوكس نكتفى بوضع المتغير I وهو يقوم بالمطلوب وهو الترحيل من 1 الى 20 ترحيل.rar

السلام عليكم ممتاز استاذ عامر

الأخ الكريم بوب2016 بعد السلام عليكم تم تنفيذ المطلوب لا تنسانا بصالح الدعاء abo_abary_تصميم شيت معدل1.rar

اخي الكريم حدد العمود اعمل بحث واستبدال ضع كما بالصورة البحث عن البوينت دي (.) واستبدالها بدي (/)

أخي الكريم عامر ياسر إثراءً للموضوع .. كنت قد قدمت من فترة موضوع بنفس الفكرة على الرابط التالي الرابط من هنا وقمت بعمل بعض التعديلات ليتناسب الكود مع ملفك .. إليك الكود التالي ويوضع في موديول عادي Sub SplitList() 'تعريف المتغيرات Dim shSource As Worksheet, shTarget As Worksheet Dim rList As Range, rListA As Range, rListB As Range Dim hCount As Long, tCount As Long Const colNum As Integer = 5 'عدد أعمدة النطاق المراد عمل إنشطار له 'تعيين ورقة العمل المصدر التي تحتوي القائمة الرئيسية وورقة العمل الهدف Set shSource = Sheets("البيانات") Set shTarget = Sheets("الناجحون") 'تعيين النطاق الذي يحتوي على القائمة المراد شطرها Set rList = shSource.Range("A5:A" & shSource.Cells(Rows.Count, "B").End(xlUp).Row) 'تعيين بداية النطاق للشطر الأول من القائمة Set rListA = shTarget.Range("A5") 'تعيين بداية النطاق للشطر الثاني من القائمة Set rListB = rListA.Offset(, colNum) 'تعيين قيمة المتغير ليساوي عدد خلايا النطاق المصدر tCount = rList.Cells.Count 'تعيين قيمة للمتغير ليساوي تقريب قيمة قسمة المتغير السابق ÷ 2 hCount = Round(tCount / 2, 0) 'مسح النطاق الذي ستظهر فيه النتائج للشطر الأول والشطر الثاني shTarget.Range("A4:J10000").ClearContents 'وضع نتائج الشطر الأول rListA.Resize(hCount, colNum).Value = Range(rList(1).Address(External:=True) & ":" & rList(hCount).Address(External:=True)).Resize(hCount, colNum).Value 'وضع نتائج الشطر الثاني rListB.Resize(tCount - hCount, colNum).Value = Range(rList(hCount + 1).Address(External:=True) & ":" & rList(tCount).Address(External:=True)).Resize(hCount, colNum).Value MsgBox "Done ..." & vbNewLine & "Best Regards" & Chr(10) & "YasserKhalil", 64 End Sub تقبل تحياتي

بعد اذن الاخوة الكرام تفضل المرفق وبه طريقة تفعيل الماكرو بدون تتدخل من المستخدم وحماية للملف بكلمة مرور من الخارج ولا تفتح الا من داخل الشاشة الافتتاحية فقط مع فورم تسجيل الدخول ايضا كلمة المرور لفورم التسجيل اسم المستخدم Yasser كلمة المرور 123 كلمة مرور ملف الاكسيل المحمي 01097192367 تقبلو تحياتي اجبار الماكرو على العمل.rar

أستاذي الكبير ومعلمي الفاضل أبو تامر بارك الله فيك وجزيت خير الجزاء على هذه الدرر التي حرمنا منها كثيراً ولكن مشئية الله أرادت لنا الخير بعد طول انتظار جربت الملف المرفق واطلعت على الأكواد ووجدت أن اسم المصنف الحالي يدرج في قائمة الملفات ولتفادي المشكلة (حيث يتسبب في تهنيج برنامج الإكسيل) قمت بعمل إضافة بسيطة جداً لعدم إدراج اسم المصنف الحالي .. وذلك بعد سطر الحلقة التكرارية في الإجراء الفرعي المسمى Sub ListMy_Files(Path, Sub_Folder As Boolean) حيث قمت بإضافة السطر التالي If My_File.Name <> ThisWorkbook.Name Then ........... End If وذلك ما بين سطري الحلقة التكرارية For Each My_File In My_Source.Files ......... Next My_File وفي الإجراء المسئول عن عملية البحث عن الملف قمت بإضافة سطر في حالة لم يتم اختيار ملف من الخلية A2 File_Name = Range("A2") If IsEmpty(File_Name) Then MsgBox "No File To Search!", vbExclamation: Exit Sub تقبل وافر تقديري واحترامي

شاهد هذا 90 بالمائة مما تريد آسف ليس هذا بل هذا

اذا كان مصدر التقرير استعلام فالمسألة يسيرة جدا ففي حقل جديد في الاستعلام تكتب هذا الكود باعتبار ان الحقل الذي يحمل القيمة -1 اسمه fld1 expr1:iif ([fld1]=-1;"غ";"") لاحظ انك ستجعل الحقل expr1 هو مصدر الـــ غ في التقرير

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

if me.frtxt<14 and me.frtxt>27 then msgbox"السلام عليكم و رحمة الله و بركاته" end if في مكان السطر الثاني تكتب الأمر الذي تريده

الاخ صلاح الصغير قائمة الفلدرات كانت لللتوضيح فقط من قبل الاخ aladdien ولكن عند اضافة اي ملف يظهر ففيي القائمة المنسلة

الاخ aladdien شاهد المرفق All Files.rar

السلام عليكم و رحمة الله و بركاته أخي. أخي لك جزيل الشكر على الملاحظات التي تقدمها. أعتقد أن الذي يعتمد على رقم الفاتورة لا يهمه أمر تسلسل الأرقام فهو ليس لديه مشكلة مع الترقيم التلقائي. أخي و أستاذي رمهان مشكور على المداخلة و يسرنا تعقيبك على هذه المواضيع فهذا يجعلنا نستفيد منك الكثير جزاك الله كل خير. بارك الله فيك على التعديل الذي أجريته فقد مكننا من تحسين الكود و عمل البرنامج. فقط أضيف هذا الكود لإخفاء الرسائل التحذيرية الخاصة بالحذف. DoCmd.SetWarnings False DoCmd.RunCommand acCmdDeleteRecord DoCmd.SetWarnings True ليصبح الشكل الجديد للبرنامج كما في المرفق: تعويض الترقيم التلقائي.rar

أخي الكريم سليمان أهلاً بك في المنتدى ونورت بين إخوانك وإن شاء الله تجد ما يسرك دائماً في المنتدى وفي التعامل مع إخوانك بالمنتدى تقبل تحياتي

أسعد الله صباحك و مساك أخي الحبيب سليمان أتمنى من الله تعالى أن تلقى كل ما تبتغيه في هذا المنتدى كما يمكننا الاستفادة من خبراتك وفقك الله أخوك أبو فراس

اخواني الكرام بعد التوكل على الله ثم الاستشارة وحسب رغبة بعض الاخوة نبداء على بركة الله هذه الدورة شروط الدورة: تقتصر الدورة على شرح الفيجول بيسك للتطبيقات VBA ولا علاقة للمعادلات بهذه الدورة لذا نرجو ان يقتصر السؤال والاستفسار حول الاكواد فقط. عدم إضافة عبارة الشكر (نشكر الجميع على تقدير الجهود) حتى لا يحتاج الموضوع الى تنقيح فإن أعجبك شرح أو رد يمكنك تقييمه من خيار أعجبني شكراً. ان يكون موعد الاستفسارات حول الجزء المطروح للشرح خلال 24 ساعة فقط ويتم الانتقال الى جزء أخر لتعميم الفائدة. سيكون الشرح بشقين كتابي ومرئي. على الاساتذة الذين يشاركون في الشرح اخذ الشرط الثالث بالاعتبار (مشكورين). * سيتم حذف أي مشاركة لا يتم التقيد فيها بالشروط. == تم نقل جميع مشاركات النقاش الى هنا =============================== دروس الدورة ============================= الدرس الاول1 الدرس الاول2 الدرس الثاني الدرس الثالث الدرس الرابع 1 الدرس الرابع 2 الدرس الرابع 3 اساسيات لغة VBA كلغة برمجة (نظري) الفصل الثالث ج1 الفصل الثالث ج2 اسئلة الدورة (الجزء الاول)

السلام عليكم . اولا : اسف ان لم اوفق في طلبي . سوف احاول ان اوضح لنفرض نحن نريد جميع الكتب لنفس المؤلف وفي نفس الوقت لنفس دار النشر اي ندخل في text1 اسم المؤلف وفي text2 ندخل دار النشر . اي تحقق شرط (and) ومن الممكن زيادة عدد texts حسب عدد الاعمدة التي من الممكن ان تدخل في شرط البحث من خلالها . مع امكانية ان يكون احدى الحقول لاتحتوي على قيم . ثانيا : اذا كانت لديكم جدول اوسياق معين في اكمال الموضوع ارجو ان لاتغيره لاجلي تابع في طرح الموضوع حسب جدولك الى ان تصل الموضوع الذي استفسر عنه لاني وفي الاحوال سوف استمر في متابعة هذا الموضوع المفيد والشيق الى الاخير ان شاء الله اتمنى انني وفقت في طرح الموضوع .

بارك الله فيك و جزاك الله خيرا

طريقة ثانية : البحث في النموذج الفرعي نفرض أن لدينا مكتبة في جدول باسم Book تحوي اسم الكتاب والمؤلف والناشر وتاريخ النشر ونرغب في عمل مربع بحث مشترك بحيث عند الكتابة فيه يبحث في أي خانة مباشرة سواء كان اسم الكتاب أو المؤلف أو الناشر ... فالعمل على النحو التالي : 1) ننشئ جدولا باسم Book ونضمنه الحقول المطلوبة من اسم الكتاب والمؤلف والناشر ... إلخ. 2)ننشئ نموذجا مرتبطًا بالجدول (نماذج مستمرة) ونسميه FoBook. 3) ننشئ نموذجا آخر من جديد ثم طريقة عرض التصميم . 4) في رأس النموذج نضع مربعي نص الأول نسميه Text1 والآخر text2 5) في مربع النص text1 من الخصائص حدث عند التغيير نضع الكود التالي Dim x x = Text1.Text text2 = x Me.FoBook.Requery حيث text1 اسم مربع النص الأول و text2 اسم مربع النص الثاني وFobook هو اسم النموذج الذي تم عمله كما في الفقرة 2. 6) من خصائص مربع النص text2 تنسيق مرئي (لا). 7) في خانة التفصيل من هذا النموذج ندرج نموذج فرعي ونختار استخدام نموذج موجود ثم نختار نموذج FoBook. 8) نغلق النموذج ونقوم بحفظه باسم FoormBook 9) نعود للنموذج FoBook (الذي تم عمله في الفقرة 2) ومن خصائص النموذج بيانات مصدر السجل ثم نضغط على النقاط الثلاث ثم يطلب هل تريد عمل استعلام ثم موافق يفتح لك استعلام أدرج فيه حقول الجدول كافة. 10) وفي هذا الاستعلام ضع الكود التالي تحت كل حقل تريد البحث فيه في خانة معيار مع ملاحظة تدرجة في كل مرة في أو كما في المثال ثم اغلق واحفظ عملك Like "*" & [Forms]![Foormbook]![Text2] & "*" 11) ارجع إلى النموذج FoormBook واكتب في مربع النص الظاهر أمامك وتجد آليه البحث قد عملت.. أ والله الموفق طريقة البحث في النموذج الفرعي.rar

حيااك الله أبا آدم وسعدت بمرورك ولا نستغني بعد الله عن توجيهاتك

بسم الله ما شاء الله اخي حامل المسك انت حامل المسكين مسك الافكار و مسك الإبداع ما الفائدة من الحقل nz([book].[namebook];"**"] و احببت ان الفت نظرك الى الحقل namebook في النموذج لماذا لم تقفله منعا لاي تعديل !! ووفقك الله الى ما يحبه و يرضاه

السلام عليكم