jjafferr

وعليكم السلام 🙂 صحيح انك تستطيع تسجيل هذه الاداة وبدون اخطاء في الاوفيس 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. يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية الرابط به برامج تنزيل من هاكرس ، وليست من الشركة صاحبة البرنامج.

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

نعم ، هذه طريقة ، والمنتدى به الكثير من الطرق الاخرى مباشرة من الاكسس ، لإستيراد بيانات الاكسل الى الاكسس ، سواء من مجلد به ملفات اكسل مختلفة ، او من اوراق (sheet) مختلفة من نفس ملف الاكسل 🙂 المهم محتاجين نعرف ان هذا الملف/الورقة للقسم الفلاني ، سواء من اسم الملف او اسم الورقة ، وبدون المساس بالملف/الورقة ، وبرمجيا نسجل القسم في جدول الاكسس 🙂 جعفر

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

وعليكم السلام 🙂 يمكن اذا ناديناه بالاسم اللي يعرفوه الاعضاء @Amr Ashraf 🙂 وعصفورة قالت لي انه موسم الترقيات ، وهذه البداية ان شاء الله 🙂 اخي عمرو ، تستاهل هذا اللقب ، ولنا الشرف في العمل معك 🙂 جعفر

الله يخليك ، خليك جاهز علشان تقنع اللي ما هو مقتنع بطريقتي ، وما مقتنعين لأنها طويلة وبعدين نتحاسب 😁 جعفر

ولكن ، يمكن عمل تقرير هكذا : . والطريقة مثل هذا الرابط : . و جعفر

وعليكم السلام 🙂 انت تريد العمل على 4 اعمدة ، بينما عندي مثال لحقل واحد ، هنا جعفر

وعليكم السلام اخوي سامي 🙂 نظرت في الملف بشكل عام ، ومثل ما قال اخونا العود ابوخليل : جعفر

تفضل 🙂 Private Sub Npos_AfterUpdate() ' Dim strMsg As String, strTitle As String, MMM As String Dim ttt As Integer, intStyle As Integer ttt = Me.Npos ' TTT = InputBox("Enter number between 1 and 11") Select Case ttt Case 1 Me.[Last Situation] = Me.[Last Situation] & vbCrLf & "استعجال المورد بسرعة التوريد _تاريخ / / " Case 2 Me.[Last Situation] = Me.[Last Situation] & vbCrLf & "مراسلة المورد باستبدال المهمات المرفوضة _تاريخ / / " Case 3 Me.[Last Situation] = Me.[Last Situation] & vbCrLf & "مراسلة المورد بتوفير شهادات المطابقة الفنية _تاريخ / / " Case 4 Me.[Last Situation] = Me.[Last Situation] & vbCrLf & "مراسلة المورد بإصدار الرسومات التنفيذية _تاريخ / / " Case 5 Me.[Last Situation] = Me.[Last Situation] & vbCrLf & "مراسلة المورد بسداد التامين النهائي _تاريخ / / " Case 6 Me.[Last Situation] = Me.[Last Situation] & vbCrLf & "مراسلة المورد بتعديل طريقة الدفع _تاريخ / /" Case 7 Me.[Last Situation] = Me.[Last Situation] & vbCrLf & "انذار المورد بالشراء خصما من مستحقاته _تاريخ / /" Case 8 Me.[Last Situation] = Me.[Last Situation] & vbCrLf & "مراسلة المشروع بجاهزية المهمات _تاريخ / /" Case 9 Me.[Last Situation] = Me.[Last Situation] & vbCrLf & "تحويل من المخازن" Case 10 Me.[Last Situation] = Me.[Last Situation] & vbCrLf & "مراسلة المشروع بموافاتنا بالإضافات _تاريخ / /" Case 11 Me.[Last Situation] = Me.[Last Situation] & vbCrLf & "تم التوريد بالكامل _تاريخ / /" Case 12 Me.[Last Situation] = Me.[Last Situation] & vbCrLf & "تم التحويل للخارجيه" Case 13 Me.[Last Situation] = Me.[Last Situation] & vbCrLf & "تم إلغاء امر التوريد _تاريخ / / " Case 14 Me.[Last Situation] = Me.[Last Situation] & vbCrLf & "HOLD" Case 15 Me.[Last Situation] = Me.[Last Situation] & vbCrLf & "تم عمل تعاقد" Case 16 Me.[Last Situation] = Me.[Last Situation] & vbCrLf & "تم الارسال الى المركز الرئيسى بتاريخ" Case Else MsgBox ("برجاء إختيار رقم من القائمه") End Select Exit_Npos_AfterUpdate: Exit Sub Err_Npos_AfterUpdate: MsgBox Err.Description Resume Exit_Npos_AfterUpdate End Sub جعفر