jjafferr

وعليكم السلام 🙂 عملتها بطريقة تختلف ، عن طريق التنسيق الشرطي: في النموذج fy اضفت حقل مخفي غير مربوط بمصدر بيانات ، اسميته tmp_yyy وفي التنسيق الشرطي للحقل yyy استعملت : . بينما في النموذج fx ، وعلى حدث الحالي ، ارسل قيمة الحقل الذي انقر عليه ، الى الحقل tmp_yyy في النموذج fy : Private Sub Form_Current() On Error GoTo err_Form_Current Me.Parent!fy!tmp_yyy = Me.xxx Exit_Form_Current: Exit Sub err_Form_Current: If Err.Number = 2455 Then 'could not see othe Form on startup Resume Next Else MsgBox Err.Number & vbCrLf & Err.Description End If End Sub جعفر 1470.fxy.accdb.zip

مع ان هذا يُعتبر مخالف لقوانين المنتدى: 21. يُمنع منعا باتا الإجابة على سؤالك أو أي حوار فني على الخاص أو إلى بريدك الخاص، الفائدة يجب أن تعم. ولكننا سننظر له على ان نتائج هذه المساعدة سوف تستفيد منها في تنقيح برنامجك ، وستلخص لنا النتيجة هنا ، حتى يستفيد الجميع من ذلك 🙂 جعفر

رجاء لما تستطيع ان تجعل الاداة تعمل barcodex.ocx على النواتين 32 بت و 64 بت ، رجاء تخبرنا الطريقة حتى نستفيد كذلك 🙂

تم تعديل المرفق في الرابط التالي ، وبه الخط (الذي يجب وضعه في مجلد الخطوط في الوندوز C:\Windows\Fonts) والمرفق يحتوي على مثال بصيغة mdb جعفر

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

جوابي كان لمشكلتك ، وهو لذلك اعطيتك حل ، وهو في الرابط ، والطريقة في استعمال الخط (code 3 de 9) ، وهو يعمل على النواتين. هذه ليست حل ، وانت محظوظ ان عملائك يسمحون لك بهذا العمل المكلف لهم !! جعفر

صحيح اني ما استعمل Adobe Acrobat Reader ، ولكني استخدم Foxit PDF Reader والظاهر انهم الاثنين يؤدون العمل ، ويسمحون بإظهار الملف في المتصفح في النموذج . جعفر

انا انزلت الملف من الرابط اعلاه ، ووضعت بعض ملفات pdf حسب الاسماء الموجودة في البرنامج ، واشتغلت الملفات 🙂 ولا يوجد عندي Acrobat Reader في الكمبيوتر 🙂 جعفر

وعليكم السلام 🙂 صحيح انك تستطيع تسجيل هذه الاداة وبدون اخطاء في الاوفيس 64بت ، ولكنها لم تعمل معي !! رجاء مراجعة الرابط ، حيث تم مناقشة الموضوع ، والحل جعفر

كلنا في الانتظار ، مو بس اخوي ابوخليل 🙂 جعفر

وعليكم السلام 🙂 بالاضافة الى فتح ملف pdf خارج الاكسس ، يمكننا فتح الملف داخل نموذج الاكسس ، ويكون اسرع في التحميل: . و جعفر

1. قصدك توسيط عمودي. لا اعرف كيف يمكن ان يتم هذا ، 2. قمت بعمل توضيح اكثر في المشاركة السابقة: . جعفر

اخواني الاعزاء 🙂 رجاء قراءة ما كتبته في الرابط الذي ذكرته ، فهو خاص للمبرمجين مثلي ومثلكم : ولكن وللأسف الشديد ، فأنا ارى ان 99.99% من البرامج ، يتم حذف هذه القائمة وعدم تفعيلها ، والسبب ان المستخدم يستطيع ان يدخل في تصميم النموذج من خلال هذه الاوامر(في الدائرة الحمراء) : . لا تخفي القائمة كاملة ، واجعل المستخدم يستفيد منها ، واستخدم على الاقل هذه القوائم المختصرة : . او . وللتقرير . فهذه القوائم لا تسمح للمستخدم في الدخول في تصميم البرنامج ، ولكنه يعطيه قوة جبارة في الاكسس والتي لا توجد في بعض اقوى برامج الويب ، ان تعمل الفرز والتصفية وبدون برمجة 🙂 في برامجي اثقف واخبر المستخدم عن هذه الميزة ، ولا احتاج الى برمجتها ، ويأتيني احد المستخدمين لاحقا وبإفتخار بأنه استطاع الوصول الى سجل معين طلبه منه رئيسه (يحتاج الى تصفية عدة حقول وفرز) ، باستخدام القوائم بعد ان فشل بقية اصدقائة المستخدمين في الوصول لهذا السجل بالطرق العادية. وفي الرابط اعلاه ، فيه قاعدة بيانات مرفقة بإسم myRight_Click.mdb ، وفيها هذه القوائم جاهزة ، ولا يحتاج لك برمجة ، فقط اتبع الخطوات (بالصور من الرابط) لإستيرادها لبرنامجك من البرنامج المرفق. رجاء اجعلوا برنامجكم يبرز ، واعطوا الاكسس حقه ، ولا تحذفوا القوائم المختصرة 🙂 جعفر

المعلومة كاملة هنا جعفر

شكرا جزيلا على المعلومة 🙂 جعفر

شكرا على التوضيح ، بس لوسمحت تعمل الخطوات الاخرى كذلك (المذكورة اعلاه). جعفر

وعليكم السلام 🙂 تفضل ، هذه احد الطرق لأخونا @Amr Ashraf جعفر

عملت تغيير على الكود ليصبح: Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer) Dim i As Integer, UB As Integer Dim x() As String Dim L As Single, T As Single, W As Single, H As Single x = Split(Me.Ev, Chr(13)) UB = UBound(x) If UB = 0 Then Exit Sub L = Me.Ev.Left T = Me.Ev.Top W = Me.Ev.Width H = (Me.Ev.FontSize + 4) * 20 'convert Font size Points to Twips, but the number 4 can be adjusted For i = 1 To UB T = T + H Me.Line (L, T)-(W, T), vbRed 'vbBlack Next i End Sub . والسطر المهم فيه هو ، نأخذ الارتفاع على حسب حجم الخط * 20 (لتحويل حجم الخط الى twips) ، فلا يجب تغيير هذه المتغيرات ، بينما يمكنك تغيير الرقم 4 حسب الحاجة (مع ان تجاربي يتضح منها انه لا يتغير كذلك) : H = (Me.Ev.FontSize + 4) * 20 'convert Font size Points to Twips, but the number 4 can be adjusted . والنتيجة : . او . وحتى اذا جعلنا الخط يساوي 18 نقطة . النتيجة . ونعم ، لتغيير اللون الى اللون الاسود ، بدل vbRed استعمل vbBlack 🙂 جعفر 1468.1.Lines in Report.accdb.zip

وعليكم السلام 🙂 اخي محمد ، ضع عملك في البرنامج او هنا ، حتى نخبرك اين الخطأ ، فهذه الطريقة افضل للتعلم من مجرد حصولك على جواب 🙂 جعفر

شكرا على جميل كلماتك 🙂 نعم الدالة mod_Draw_Box_Lines ليس لها دور الآن. جعفر

وعليكم السلام 🙂 اللي فهمته من كلامك ، انه اذا احد الاحداثيات ما موجودة ، فما مفروض يعطينا رابط : Hyperlink only =IIf(IsNull([N]) Or IsNull([E]),"","#https://www.google.com/maps/place/" & [N] & " " & [E]) Hyperlink Area =IIf(IsNull([N]) Or IsNull([E]),"",[Area] & "#https://www.google.com/maps/place/" & [N] & " " & [E]) جعفر

وعليكم السلام 🙂 اهلا بك اخي مهاب في اول مشاركة لك في المنتدى 🙂 للإستفادة القصوى من المنتدى ، رجاء قوانين المنتدى: اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة انا لا علم لي بـ SQL Server ، ولكني سأنظر للموضوع من ناحية الاكسس 🙂 1. رجاء تشرح كيف تقوم بهذا العمل ، واذا الشرح يكون بالصور كذلك ، يكون احسن 🙂 2. مؤقتا ، رجاء اعمل زر في النموذج الذي تعمل له التصفية ، وعلى حدث نقر الزر ، اكتب هذه الاسطر (نريد نشوف اللي الكمبيوتر يشوفه) : debug.print me.[اسم الحقل العربي] msgbox me.[اسم الحقل العربي] debug.print me.filter msgbox me.filter 3. اعمل فلتر لحقل نص باللغة الانجليزية ثم انقر الزر #2 ، ثم اعمل فلتر لحقل اللغة العربية وانقر الزر #2 ، 4. اعمل صورة من الشاشة للرسائل ، ثم ادخل في الكود واعمل صورة من الشاشة للبيانات الموجودة في اسفل نافذة الكود ، في نافذة immediate ، ويمكنك فتح النافذة هكذا بالضغط على الزرين Ctrl+G جعفر

السلام عليكم 🙂 هذا الاستعلام ، ينادي الدالة Add_Ev ونرسل لها قيم التقييم بالتسلسل (بسبب ان اسماء حقولك باللغة العربية ، للأسف نرى ان اسماء الحقول متلخبطة ، بينما ارسلت الحقول بالتسلسل) . وهذه هي الدالة تقوم بعمل القيم تحت بعضها البعض: Function Add_Ev(E1, E2, E3, E4, E5) As String Dim LineBreaker As String LineBreaker = Chr(13) '1 If Len(E1 & "") <> 0 Then Add_Ev = E1 End If '2 If Len(E2 & "") <> 0 Then Add_Ev = Add_Ev & Chr(13) & E2 End If '3 If Len(E3 & "") <> 0 Then Add_Ev = Add_Ev & Chr(13) & E3 End If '4 If Len(E4 & "") <> 0 Then Add_Ev = Add_Ev & Chr(13) & E4 End If '5 If Len(E5 & "") <> 0 Then Add_Ev = Add_Ev & Chr(13) & E5 End If End Function . التقرير 2 يظهر بهذه الطريقة ، وبدون اي اكواد في التقرير ، وهذا ما اقترحته عليك سابقا . اما التقرير التالي ، فالخطوط بين القييمات تأتي من الكود . وهذا هو الكود : Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer) Dim i As Integer Dim x() As String Dim L As Single, T As Single, W As Single, H As Single L = Me.Ev.Left T = Me.Ev.Top W = Me.Ev.Width H = Me.Ev.Height x = Split(Me.Ev, Chr(13)) For i = 1 To UBound(x) T = T + H Me.Line (L, T)-(W, T), vbBlack Next i End Sub جعفر 1468.Lines in Report.accdb.zip

اخي ramadaneng رجاء الالتزام بقوانين المنتدى : اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة 1. يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية الرابط به برامج تنزيل من هاكرس ، وليست من الشركة صاحبة البرنامج.

ايه يا ابو جودي ، اشمعنى الاستاذ عمرو يحصل على باقة ورد جميلة وكبيرة ، وهو صحيح انه يستاهل 🥰 بس اشمعنى يعني 😁 جعفر