kaser906

وعليكم السلام ورحمة الله وبركاتة ماشاء الله عليك أخوي ابو علي مطوع الاكسس لكل شي يعني تكتب شعر واحنا ما نعرف 😎 على كذا ابي قصيده من قصايدك لمحبوبي وتعرف القصيدة اللي ابيها 😍

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

تفضل ::بالتوفيق:: إذا كنت ترى أن هذه المشاركة مفيدة فلا تنسى التقيم PDF FILE906.rar

وعليكم السلام ورحمة الله وبركاتة لو تتذكر كنت اخبرتك ان هذه الطريقة ستدخلك في متاهات كثير عموماً تفضل On Error Resume Next Fr = Null Fr = DLookup("مسلسل", "people", "مسلسل =" & text) On Error GoTo 0 If (IsNull(Me![Fr])) Then Me![ok] = False ::بالتوفيق:: إذا كنت ترى أن هذه المشاركة مفيدة فلا تنسى التقيم __father_66-906.mdb

وعليكم السلام ورحمة الله وبركاتة بالنسبة للطلب الاول كان ل نفس السؤال ةاجابني عليه الاستاذ @jjafferr على الرابط التالي الطلب الثاني استخدم هذا السطر للتصدير لكن سيسألك عن مكان الحفظ DoCmd.OutputTo acOutputReport, "أسم التقرير ", acFormatPDF, , True, , , acExportQualityPrint ::بالتوفيق:: إذا كنت ترى أن هذه المشاركة مفيدة فلا تنسى التقيم

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

يقولون لايفتى ومال في المدينة ما دام الاستاذ @jjafferr دخل على الموضوع فيجب علينا ان نصمت فكرتي عن الموضوع تتلخص بالتالي عندما سألت السؤال في مشاركتك الأولى كان يخطر في بالي نفس الحل الذي قدمه لك الاخ @AlwaZeeR وهو يعتمد نفس المبدأ الوقوف على كل سجل بالنموذج وبما ان هذه الطريقة لا تريدها دعنا نترك التعامل مع الحقل غير المنظم الموجود بالنموذج ونقوم ونتعامل معه مباشرة عن طريق الاستعلام لاستخلاص نفس النتيجة لذلك سنقوم بعمل جدول مؤقت بأسم Table1_Temp ونعمل زر أمر بالنموذج ونضع خلفه هذا الكود Private Sub cmd_Click() DoCmd.SetWarnings False DoCmd.RunSQL "DELETE Table1_Temp.* " & vbCrLf & _ "FROM Table1_Temp;" DoCmd.RunSQL "INSERT INTO Table1_Temp ( name11, frequency ) " & _ " SELECT Table1.name11, Count(Table1.ID) AS CountfromID " & _ " FROM Table1 LEFT JOIN Table1_Temp ON Table1.ID = Table1_Temp.ID " & _ " GROUP BY Table1.name11;" DoCmd.RunSQL "UPDATE Table1 INNER JOIN Table1_Temp ON Table1.name11" & _ "= Table1_Temp.name11 SET Table1.frequency = [Table1_Temp]![frequency];" Me.Refresh End Sub ::بالتوفيق:: إذا كنت ترى أن هذه المشاركة مفيدة فلا تنسى التقيم Database88-906.rar

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

وعليكم السلام ورحمة الله وبركاتة نعم ممكن ذلك بعدة طرق بقى وضع المثال لوضع الحل المناسب ::بالتوفق:: اذا كنت ترى ان هذه المشاركة مفدة فلا تنسى التقم

راجع الرابط التالي تجد به شرح للاضافة والحذف والتعديل عن طريق زر الأمر

السلام علكم ورحمة الله وبركاتة بمناسبة العودة الميمونة لاستاذي ومعلمي القدير الاستاذجعفر @jjafferr اقدم لكم هذه الهدية المتواضعه جدا تطبيق نظام الصلاحيات على ازرار التحكم نظام صلاحيات المستخدمين يقوم بالتحكم في صلاحيات المستخدم من حيث الاضافة والتعديل والحذف لكن عند تنفيذ احد هذه الاوامر عن طريق زر تحكم فأنه يتم تنفيذه دون الرجوع او الاتصال بالوحدات النمطية الخاصة بتطبيق نظام الصلاحيات لذا رأيت عمل هذاتعديل غلى نظام صلاحيات المستخدمين الذي قام بعمله الاستاذ مهند عبادي اذا لم تخذلني الذاكرة وقام بتطويره عدد من الاساتذة نسحه بعد نسخه قمت باضافة بعض الاكواد على ازرار التحكم والتي يمكن من خلالها تطبيق نظام الصلاحيات للمستخدمين على ازرار التحكم عن طريق الاتصال بالوحدة النمطية قبل تنفيذ الامر للتأكد من وجود صلاحية للاجراء المطلوب تنفيذه مثلا اذا كان المطلوب اضافة سجل عند التركيز على زر الامر يتم الاتصال بالوحدة النمطية للتأكد هل المستخدم لديه صلاحية اضافة سجلات اذا كان نعم يتم تنفيذ الامر واذا كان لا فيتم اظهار رسالة تفيده بأنه ليست لديه صلاحية لهذا الاجراء يوجد ايضا بالامثال بعض الاكواد لتأمين و الغاء تأمين الحقول دفعة واحدة اترككم مع المثال اترككم مع المثال اسم المستخدم لمسؤول النظام : 1 الباسورد:1 اسم المستخدم: 100 الباسورد: 100 Usrse.rar

وعليكم السلام ورحمة الله وبركاتة تفضل ::بالتوفيق:: إذا كنت ترى أن هذه المشاركة مفيدة فلا تنسى التقيم SJR tril7777KASeR906.rar

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

تفضل ::بالتوفيق:: ProgEmp181.18.rar

أخي الكريم لديك لبس في فهم الكود الريجستري يتم فيه تخزين القيم بعد تشفيرها اما معادلة الكود فتتم عن طريق استخراج رقم الهارد d جرب مااخبرتك به و وافنا بالنتائج ::بالتوفيق::

أخي الكريم أعتقد أني وجدت المشكلة حيث يكمنالسبب في أن الاستاذ / @أ / محمد صالح يستخدم استخراج رقم الهاردسك d وبعض الأجهزة يختلف بها أسم الهارد بعد تقسيمه فبعضهم يحمل الاسم e وبعضهم g الحل الاول أن تقوم باعادة تسمية الهارد الى d والحل الثاني أن تقوم بتغير اسم الهارد في الكود وتجعله حسب ما هو موجود في الجهاز والحل الأخير والأمثل باعتقادي ان تجعل المعادلة حسب رقم الهارد c ::بالتوفيق:: إذا كنت ترى أن هذه المشاركة مفيدة فلا تنسى التقييم

أخي الكريم لايوجد مشكلة اذا كان الـ windos 64 أو 32 تظهر المشكلة إذا كانت قاعدة البيانات مصممة Ms Access 32 وتم تشغيلها على 64 أو العكس ولم يتم تعريف المتغيرات لتعمل على الاصدارين ضع مرفقك هنا لتتم معاينته ::بالتوفيق:: إذا كنت ترى أن هذه المشاركة مفيدة فلا تنسى التقيم

ضع مرفق للمعاينة ::بالتوفيق::

وعليكم السلام ورحمة الله وبركاتة تأكد من تخفيض أمان الاكسس لعمل الاكواد ::بالتوفيق:: إذا كنت ترى أن هذه المشاركة مفيدة فلا تنسى التقيم

أخي الكريم التسمية العربيية في حد ذاتها ليست خطأ إذا كتبت بطريقة صحيحة فقط تصعب عملية كتابة الكود وقراءته وفهمه فمثلا قمت بكتابة الاحد-مادة1 والمفروض تعتمد كتابتها بالشرطة السفلية الاحد_مادة1 ايضا استحدام الكلمات المحجوزرة number نأتي لموضوعك يجب ان تضع مثال يعمل معه الكود لكي نحاول معرفة الخطأ في عدم عمله مع نموذج ورقة البيانات وضح ما هو دور نموذج Msq الغير موجود اصلا في المثال النموذج به خدث بعد التحديث لحقل الاحد من خلال دالة DLookup للحقول txtc txtc1 txtc2 وهذه الحقول غير موجود بالنموذج ولم تم تعريفها كمتغير لعلك عند تلافي الملاحظات المذكورة يعمل لديك الكود ::بالتوفيق:: إذا كنت ترى أن هذه المشاركة مفيدة فلا تنسى التقييم

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

استخدم هذه الطريقة على windos7 و windos10 مع Acciss 2007 و 2010 على اكثر من 10 اجهزة والنتيجة ممتازة :: بالتوفيق::

::بالتوفق::

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

هلا وضعت الطريقة لنستفيد منها ويستفيد منها بقية الاعضاء بارك الله فيك