اذهب الي المحتوي
أوفيسنا

Foksh

الخبراء
  • Posts

    2,318
  • تاريخ الانضمام

  • تاريخ اخر زياره

  • Days Won

    85

كل منشورات العضو Foksh

  1. أخي الكريم أرجو منك التوضيح بشكل أوضح ما هو المطلوب
  2. لا اعلم اخي الكريم النسخة التي عندك اي إصدار 32 أو 64 ؟؟ على العموم انا عندي 2016 / 64 بت ، انسخ الكود وضعه في الزر وجرب بدون فتح القاعدة اذا لم تفتح معك
  3. تفضل أخي الكريم .. جرب هذا الكود في الزر الموجود في 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
  4. كلامك سليم 100000 % ، كل العذر منك استاذنا @سامي الحداد ، ولكني فعلاً لم اقم بتجربة المرفق وكنت اتصفح من الجوال هذا دليل ان الواحد مع التعب يحس الاسلاك في مخه تعمل ماس
  5. أسعدك الله في الدنيا والآخرة أخي الكريم ، بما أنك عضو جديد في منتدانا ، فأهلا وسهلا بك .. ارسال مرفق في الطلبات يسهل عليك وعلينا ايجاد الحل لأي مشكلة أو سؤال أو طلب .. فارسل الملف الذي تعمل عليه
  6. في سؤالك أخي الكريم لو وضعت مرفق لكان الأمر أسهل عليك وعلى من يحاول المساعدة ، على العموم جرب هذا الكود في حدث عند النقر ، مع الشرح في الكود . 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
  7. أستاذ خليفة ، الـ QR في مثالي سيقوم بإدراج البيانات عند قراءتها بجهاز الباركود - ( تمت التجربة عن طريق برنامج QR Reader من الجوال ) - على شكل AAAA,BBBB,CCCC,DDDD حيث AAAA,BBBB,CCCC,DDDD القيم التي تم حفظ الـ QR فيها. جرب بنفسك واخبرني بالنتيجة 🤗 ، ثم ان الكود سيقوم بتوزيع هذه القراءة الى مربعات النص التي تم تحديدها في الكود. ودمت 😊
  8. لتقييد البحث بنص محدد أعتقد أنه يجب وضع النص الذي تود البحث عنه بين علامتي تنصيص ، جرب البحث عن النص "" تنسيق حقل فى نموذج بناء على قيمه حقل اخر ستجد الكثير من النتائج ، وجرب هكذا "تنسيق حقل فى نموذج بناء على قيمه حقل اخر" ستجد انه جاء بهذا الموضوع حصراً 🤗
  9. اسعدك الله اخي المهندس @Eng.Qassim لا فرق بيننا صدقني ، الهدف ان النتيجة كانت سليمة منك أو مني أو من أي أستاذ في المنتدى 🥰
  10. الوسيط كأحد البرامج التي تدعم حفظ التقارير بصيغة Pdf ثم تحولها الى صورة مثل Irfan .. أو بأحدى الطرق التي ذكرها الأساتذة ، انا عن نفسي استخدم الطريقة التي أشار إليها الاستاذ خليفة و الاستاذ سامي الحداد
  11. لا أعتقد أنه من الممكن تحويل التقرير وحفظه بصيغة صورة JPG بدون وسيط 🤔
  12. أنصحك أخي بنشر الموضوع في القسم االمناسب هنا وجزاك الله خيراً على البرنامج ، ولكن أنصحك بعدة أمور كون البرنامج بمقابل مادي :- الإهتمام بالتصميم أولاً لتجذب من يرغب بشراء البرنامج . عدم وجود ميزة المستخدمين قد لا تكون فكرة صائبة لأن البرنامج من المحتمل ان يستخدمه العديد من الموظفين في المنشئة التجارية . بعد التفاصيل الأخرى كالرسالة التي تظهر عند اضافة ايداع ، أو اضافة صرف ( لا اعتقد لها داعي لتظهر كلما فتح النموذج ) . اتمنى لك التوفيق
  13. تفضل يا صديقي ، الكود بعد إجراء بعض التعديلات على كودي السابق وكود الأستاذ @سامي الحداد طبعاً يجب إضافة مكتبة "Microsoft Word XX.X Object Library" حيث XX.X هو إصدار مايكروسوفت أوفيس لديك Option Compare Database Option Explicit Option Base 1 Private Sub Command0_Click() CleanUpWordDocument End Sub Public Sub CleanUpWordDocument() Dim wdApp As Object Dim wdDoc As Object On Error Resume Next Set wdApp = GetObject(, "Word.Application") On Error GoTo 0 If wdApp Is Nothing Then Set wdApp = CreateObject("Word.Application") End If Set wdDoc = wdApp.Documents.Open(CurrentProject.Path & "\PDFs\" & Me.fileno.Value & ".docx") DeleteEmptyPages wdDoc wdDoc.Close True wdApp.Quit Set wdDoc = Nothing Set wdApp = Nothing MsgBox "تمت عملية حذف الصفحات الفارغة", vbInformation + vbMsgBoxRight, "تأكيد" End Sub Public Sub DeleteEmptyPages(wdDoc As Object) Dim i As Long Dim pageCount As Long Dim rng As Object pageCount = wdDoc.Range.ComputeStatistics(2) For i = pageCount To 1 Step -1 Set rng = wdDoc.GoTo(1, 1, i) If Len(Trim(rng.Text)) = 0 Then rng.Delete End If Next i End Sub 01010.accdb وأخبرني بالنتيجة
  14. الحمد لله تم ايجاد الحل المناسب ،، كود يقوم بتقسيم وتوزيع القيم الموجودة في الـ QR والتي تفصل بينها فاصلة "," على مربعات النص بعد تحديدها . والكود التالي كان هو الحل :- Private Sub cmdQR_Click() Dim txtBoxA As TextBox Dim txtBoxB As TextBox Dim txtBoxC As TextBox Dim txtBoxD As TextBox Set txtBoxA = txtContent Set txtBoxB = txtContent1 Set txtBoxC = txtContent2 Set txtBoxD = txtContent3 Dim qrText As String qrText = Nz(ReadQRCode.Value, "") Dim qrValues() As String qrValues = Split(qrText, ",") If UBound(qrValues) >= 3 Then txtBoxA.Value = qrValues(0) txtBoxB.Value = qrValues(1) txtBoxC.Value = qrValues(2) txtBoxD.Value = qrValues(3) 'هنا نستطيع إضافة أي إجراء Else MsgBox "Error QR code !" End If End Sub
  15. حالياً ليس لدي جهاز كمبيوتر ، لكن ليوم الغد إن شاء الله سأحاول ارفاق تجربة موثقة ، إن لم يسبقني أحد الاساتذة 😊
  16. يعني فرضياً ، تحديد اجازة عيد الفطر ، كيف ستكون ؟؟ ان كانت تبدأ من صباح الأربعاء 09/04/2024 ويشملها جمعة وسبت أيام عطلة افتراضية أيضاً 😉 ليس تعقيداً للأمور ولكن الاحتمالات واردة.
  17. استخدام الذكاء الاصطناعي يحتاج اسلوب شرح وتوضيح معطيات كثيرة حتى تصل المطلوب منه. وهو يعطيك النتائج حسب الشرح المقدم له ، وقد تحتاج لذكر الاحتمالات جميعها له حتى يتجاوب معك بالشكل المطلوب 😅
  18. قد يكون هذا الكود لا يتعامل مع الصفحات الفارغة والتي قد تحتوي على مسافات فارغة ، جرب هذا التعديل من شات جي بي تي Sub DeleteEmptyPages() Dim objWord As Object Dim objDoc As Object Dim i As Integer Set objWord = CreateObject("Word.Application") objWord.Visible = False ' Make Word invisible ' Open the document Set objDoc = objWord.Documents.Open(CurrentProject.Path & "\PDFs\" & Forms!SCANTOPDF!fileno.Value & ".docx") ' Delete empty pages For i = objDoc.content.ComputeStatistics(2) To 1 Step -1 If IsPageEmpty(objDoc, i) Then objDoc.GoTo What:=1, Which:=1, Count:=i objDoc.Range.Delete End If Next i ' Save and close the document objDoc.Save objDoc.Close ' Quit Word objWord.Quit ' Release the objects Set objWord = Nothing Set objDoc = Nothing End Sub Function IsPageEmpty(doc As Object, pageNumber As Integer) As Boolean ' Check if the specified page is empty or contains only whitespace characters Dim content As String ' Get the content of the page content = doc.Range(doc.GoTo(1, 1, pageNumber).Start, doc.GoTo(1, 1, pageNumber).End).Text ' Check if the content is empty or only contains whitespace characters IsPageEmpty = Trim(content) = "" End Function طبعاً لم تتم تجربته
×
×
  • اضف...

Important Information