Foksh

بارك الله فيك أخي وصديقي @الحلبي ، ده من زوء حضرتك يا دكتور

رابط الموقع الرسمي

اخي الكريم الفرز حاجة بسيطة لو كانت المعطيات واضحة ، يعني الفرز على أي أساس 😅 أو على أي حقل سيتم الفرز ؟؟؟ وارفق مثال ليتم النطبيق عليه 😊

ولا يهمك أخي @سامي الحداد ، علمت ذلك ، وأعلم أنها لم تفُتك هذه النقطة . وإنما كان تعليقي بشكل عام

متابعة مع أخي الأستاذ @سامي الحداد ، لا زيادة عنه :- لإتمام العملية المطلوبة ، يجب أن يكون لديك الملف udceng.exe وهو ضروري لنجاح عملية حفظ التقرير على شكل صورة من الرابط التالي ، , والسبب وجود مكتبة خاصةبواسطة البرنامج . ثم يكون أمامك خياران اثنان . وضع الملف الذي تم تحميله من الرابط أعلاه حسب المسار الظاهر لديك في جهازك كما في النقطة رقم 2 . أو اختيار مسار الملف ( ويفضل أن يكون بجانب قاعدة البيانات التي تعمل عليها ) بشكل يدوي كما في النقطة 3 . والنقطة 1 هي إن كان إصدار الأوفيس لديك 32 فلا مشكلة فيها ، وأن كانت النسخة 64 ، فسيكون عليك تعديل الكود إلى التالي :- Private Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _ (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _ ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

أخي الكريم هناك مواضيع كثيرة تحدثت عن نفس المشكلة . راجع هذا الموضوع ، لعله يفيدك 😊 .

متابعة جميلة وذكية أخونا @hassan123 🤗

اشكرك على هذا التعليق اختنا @Lamyaa ، لكن الكود الذي ادرجته وجب ان يتحقق من عدد القيم في الباركود اضافة الى ذلك انه يتعامل مع القيم الفارغة في أحد خانات القراءة التي تم بناء الـ QR عليها . وفعلاً كود حضرتك يحقق نفس الغاية تقريباً 😊

العفو أخي الكريم . أسعدني ذلك

الخطأ بداية في اسم الجدول أخي الكريم ،، لاحظ أن الاسم يحتوي على مسافات بين الكلمات . فإما أن تغير اسم الجدول بدون مسافات أو تستخدم علامات الإقتباص [] أيضاً لاحظت أن أسطر الكود طويلة جداً ولم يتم تقسيمها بشكل صحيح ، فتم اعادة تقسيمها لأسطر تسمح بقراءة وتعديل الاستعلام بسلاسة . * ولإدراج أي كود في المشاركة ، حاول استخدام هذه الإشارة . جرب هذا الكود بعد التعديل Dim strSQL As String strSQL = "SELECT [these and dissertations].student_id, [these and dissertations].data_commencement, [these and dissertations].written_exam, [these and dissertations].oral_exam, " & _ "[these and dissertations].[Supervisor name], [these and dissertations].council_number, [these and dissertations].adminis_matter, [these and dissertations].end_courses, " & _ "[these and dissertations].end_study, [these and dissertations].remainder, [these and dissertations].extension_reguest, [these and dissertations].extension1, " & _ "[these and dissertations].extension_number1, [these and dissertations].extension_letter1, [these and dissertations].end_extension1, [these and dissertations].remainder1, " & _ "[these and dissertations].extension_reguest1, [these and dissertations].Extension2, [these and dissertations].extension_number2, [these and dissertations].extension_letter2, " & _ "[these and dissertations].end_extension2, [these and dissertations].Remainder2, [these and dissertations].extension_reguest2, [these and dissertations].Extension3, " & _ "[these and dissertations].extension_number3, [these and dissertations].extension_letter3, [these and dissertations].end_extension3, [these and dissertations].Remainder3, " & _ "[these and dissertations].extension_reguest3, [these and dissertations].message_deliver, [these and dissertations].number_rectifier, [these and dissertations].history_rectifier, " & _ "[these and dissertations].complete_rectifier, [these and dissertations].name_rectifier1, [these and dissertations].the_unversity1, [these and dissertations].books_number1, " & _ "[these and dissertations].history_book1, [these and dissertations].receiving_rectifier1, [these and dissertations].name_rectifier2, [these and dissertations].the_unversity2, " & _ "[these and dissertations].books_number2, [these and dissertations].history_book2, [these and dissertations].receiving_rectifier2, [these and dissertations].discussion_committee, " & _ "[these and dissertations].discussion_date, [these and dissertations].course_rate, [these and dissertations].first_search, [these and dissertations].second_search, " & _ "[these and dissertations].discussion_panel1, [these and dissertations].the_second, [these and dissertations].final_rate, [these and dissertations].Note " & _ "FROM [these and dissertations] " & _ "WHERE ((([these and dissertations].student_id)=" & Forms!Form1!student_id & "));" If DCount("*", "[these and dissertations]", "student_id=" & Forms!Form1!student_id) > 0 Then DoCmd.OpenForm "Form3" Forms!Form3.RecordSource = strSQL Else DoCmd.OpenForm "Form3", , , , acFormAdd Forms!Form3!student_id = Forms!Form1!student_id End If طبعاً متأكد أنك ستجد خطأ في النتيجة ، اخبرني بالنتيجة

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

أخي الكريم أرجو منك التوضيح بشكل أوضح ما هو المطلوب

لا اعلم اخي الكريم النسخة التي عندك اي إصدار 32 أو 64 ؟؟ على العموم انا عندي 2016 / 64 بت ، انسخ الكود وضعه في الزر وجرب بدون فتح القاعدة اذا لم تفتح معك

تفضل أخي الكريم .. جرب هذا الكود في الزر الموجود في Form1 ، وأعلمني بالنتيجة . انا بالنسبة لي اعتمدت على مصدر سجلات النموذج Form2 مع إجراء شرط إضافي ليتم المطلوب ، وقد يكون هناك أساليب أخرى عند الأساتذة Dim strSQL As String strSQL = "SELECT grades.id, grades.student_id, grades.material_symbol, grades.average_course1, grades.failing_materials1, grades.passed_materials, grades.course_result123, grades.failling_course2, grades.second_course1_2, grades.another_rate1_2, grades.improve_rate1, grades.improve_rate2, grades.improve_rate3, grades.improve_rate4, grades.final_rate, grades.mark_student, grades.are_agraduate, grades.note, [mateials studies].Sum, [mateials studies].sum2 " & _ "FROM [mateials studies] INNER JOIN grades ON [mateials studies].material_symbol = grades.material_symbol " & _ "WHERE (((grades.student_id)=" & Forms!Form1!student_id & "));" If DCount("*", "grades", "student_id=" & Forms!Form1!student_id) > 0 Then DoCmd.OpenForm "Form2" Forms!Form2.RecordSource = strSQL Else DoCmd.OpenForm "Form2", , , , acFormAdd Forms!Form2!student_id = Forms!Form1!student_id End If وهذا المرفق بعد التعديل :- system1.zip

بعد الإفطار إن شاء الله أخي الكريم..

اضغط الملف اخي الكريم ، أو ارفق النموذجين فقط ان أمكن .

كلامك سليم 100000 % ، كل العذر منك استاذنا @سامي الحداد ، ولكني فعلاً لم اقم بتجربة المرفق وكنت اتصفح من الجوال هذا دليل ان الواحد مع التعب يحس الاسلاك في مخه تعمل ماس

أسعدك الله في الدنيا والآخرة أخي الكريم ، بما أنك عضو جديد في منتدانا ، فأهلا وسهلا بك .. ارسال مرفق في الطلبات يسهل عليك وعلينا ايجاد الحل لأي مشكلة أو سؤال أو طلب .. فارسل الملف الذي تعمل عليه

في سؤالك أخي الكريم لو وضعت مرفق لكان الأمر أسهل عليك وعلى من يحاول المساعدة ، على العموم جرب هذا الكود في حدث عند النقر ، مع الشرح في الكود . Private Sub btnOpenForm2_Click() Dim stLinkCriteria As String Dim stDocName As String Dim stStudentID As String ' تخزين قيمة student_id في متغير stStudentID = Me.student_id ' تحديد الشكل الذي سنفتحه stDocName = "Form2" ' تحقق مما إذا كان هناك سجل موجود في Form2 يحمل نفس قيمة student_id stLinkCriteria = "[student_id] = '" & stStudentID & "'" If DCount("*", "Form2", stLinkCriteria) > 0 Then ' إذا وجد السجل، افتحه وعرض السجل الموجود DoCmd.OpenForm stDocName, , , stLinkCriteria Else ' إذا لم يجد السجل، أضف سجل جديد واملأ باقي الحقول DoCmd.OpenForm stDocName, , , , acFormAdd, , stStudentID End If End Sub

اخي @gamal gamal ، تم الحل بتجربة اخونا @abouelhassan .

اطرح الحل هنا اخي الكريم حتى يستفيد منه الجميع 🤗

Unblock أقصد اخي الكريم او راجع هذا الموضوع قد يفيدك 😅

اضغط على قاعدة البيانات زر الماوس اليمين واختر UNLOCK .

أستاذ خليفة ، الـ QR في مثالي سيقوم بإدراج البيانات عند قراءتها بجهاز الباركود - ( تمت التجربة عن طريق برنامج QR Reader من الجوال ) - على شكل AAAA,BBBB,CCCC,DDDD حيث AAAA,BBBB,CCCC,DDDD القيم التي تم حفظ الـ QR فيها. جرب بنفسك واخبرني بالنتيجة 🤗 ، ثم ان الكود سيقوم بتوزيع هذه القراءة الى مربعات النص التي تم تحديدها في الكود. ودمت 😊

لتقييد البحث بنص محدد أعتقد أنه يجب وضع النص الذي تود البحث عنه بين علامتي تنصيص ، جرب البحث عن النص "" تنسيق حقل فى نموذج بناء على قيمه حقل اخر ستجد الكثير من النتائج ، وجرب هكذا "تنسيق حقل فى نموذج بناء على قيمه حقل اخر" ستجد انه جاء بهذا الموضوع حصراً 🤗