jjafferr

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

وعليكم السلام 🙂 تفضل ، هذه احد الطرق لأخونا @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 جعفر

وعليكم السلام 🙂 جرب هذا التعديل: بدلا عن = Me.[Last Situation] استعمل = Me.[Last Situation].oldvalue & vbCrLf & Me.[Last Situation].text او = Me.[Last Situation].oldvalue & vbCrLf & Me.[Last Situation] جعفر

يتم استيرادها من الملفات الموجودة مسبقاً اختصارا للوقت والجهد , ولكن قد تحتاج لبعض التهيئة والترتيب لاستيرادها للجدول الجديد. السلام عليكم 🙂 طبعا هناك عدة طرق لهذا العمل ، ويعتمد اذا عندك ملف واحد او عدة ملفات ، واذا كانت الملفات ستتكرر لاحقا ، وعليه يمكننا مساعدتك في استيراد اول ملف وتجهيز الجدول والكود للملفات التالية 🙂 جعفر

وعليكم السلام 🙂 واهلا وسهلا بك في المنتدى 🙂 للاستفادة القصوى من المنتدى ، رجاء قراءة قوانين المنتدى: اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة استخدم ="#https://www.google.com/maps/place/" & [N] & " " & [E] . هذا مثال عملته الآن ، مع مراعاة الحقلين من نوع HyperLink ، ومصدر البيانات من النموذج وليس الجدول : . والنتيجة . جعفر 1466.HyperLink URL.accdb.zip

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

السلام عليكم 🙂 اخي حسام شكرا على قاعدة البيانات 🙂 استعمل الكود التالي في كمعيار في حقل التاريخ ، حتى يأتيك بالسجل كاملا: (Select TOP 1 [XDate] FROM [tbl] AS TN WHERE [ID] = Forms![Form1]![ID] ORDER BY [XDate] desc) . والنتيجة جعفر Root4.zip

وعليكم السلام 🙂 سيدي الفاضل ، استعمل الطريقة الابسط والاسهل واللي انت تعرفها ، وهي بتفكيك الامر الى اوامر ابسط ، ثم اجمعها ، هذا: dim mySQL as string mySQL="[TBLibrary]![bookname]=Forms![FLibraryMain]![FLibrarySub].Form![bookname]" mySQL= mySQL & " And " mySQL= mySQL & "[TBLibrary]![Writer]=Forms![FLibraryMain]![FLibrarySub].Form![Writer]" 'اعمل التغيير المطلوب في هذا السطر فقط If DCount("*", "[TBLibrary]", mySQL) >= 1 Then وعلشان تتأكد ان المعادلة تعمل ، اوقف عمل السطر الثاني والثالث من المتغير mySQL بوضع علامة ' امام كل سطر ، وجرب 🙂 جعفر

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