jjafferr

انت تجبره على هذا 🙂 جرب Dim FORAMOUNT As double جعفر

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

السلام عليكم اخي Ezril 🙂 ومرحبا بك بيننا مرة اخرى 🙂 للإستفادة من المنتدى ، رجاء قراءة قوانين المنتدى: اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة ورجاء ، عند وضع كود ، اتبع الخطوات التالية ، حتى يكون الكود مقروء بطريقة صحيحة : . ثم الصق الكود في النافذة التالية . جعفر

في الرابط شرح اوسع لإستعمال الامر Like كإستعلام ، ولكن يمكن استعماله بكود اخوي ابو جودي : جعفر

وعليكم السلام 🙂 السؤال جدا مبهم ، فيا ريت شرح اكثر ، ومثال 🙂 جعفر

وعليكم السلام 🙂 اعطينا مثال او اثنين لوسمحت 🙂 جعفر

واقعا ، المحترفين يستخدمون Select case 🙂

السلام عليكم 🙂 ومال سرعة 🙂 on error goto err_Handler DoCmd.FindRecord Me.booknamex, acEntire, False, , True, acCurrent, True .. Exit_Handler: Exit sub err_Handler: if err.number=2137 then msgbox "يا رجال حست وحست وما لقيت بو تدور عليه" resume next else msgbox err.number & vbcrlf & err.description resume Exit_Handler endif جعفر

وعليكم السلام 🙂 اذا قصدك بالخلفية ، عمل علامة مائية WaterMark ، فنعم ممكن عن طريق ملفين pdf ، وفي المرفق ملف نص txt فيه جميع الاوامر الممكن استعمالها مع البرنامج pdftk المرفق 🙂 جعفر

شكرا جزيلا اخوي موسى 🙂 بالفعل انزلته ، والظاهر انه هو نفس الخط 🙂 الهمة الهمة ، وفي انتظار اسم الموقع اذا ممكن 🙂 جعفر

شكرا جزيلا اخوي ابوخليل ، وانا استعملت نفس التقرير ، ولكن كنت اريد اعمل الهندسة العكسية 🙂 الاخ منتصر ما اخبرنا كيف توصل لعمل اوامر الخطوط والدوائر في تقاريره (Line , Circle)، فأنا احاول التوصل لهذا العمل ، والخط هذا فيه خطوط مستقيمة و ربع دوائر ، فهو سهل في تفكيكه وعمل الخطوط والدوائر له 🙂 في التقارير ، يمكننا عمل صورة مائية WaterMark والتي تكون خلف الحقول ، ولكن اذا كان التقرير عبارة عن صور ، فالصور المائية لن تظهر ، لهذا السبب فطريقة الاخ منتصر هي الطريقة الوحيدة التي تأتي على بالي ، لأننا لا يمكننا عمل النص بزاوية 45 درجة في الاكسس !! جعفر

في المرة القادمة ، بخلي البخور شغال على طول ، علشان يصير تراود افكار بيننا (طبعا انت عرفت المقصود 😅) عندك خبر ان الكثير من برامج الوندوز لاتزال تعمل بأوامر DOS ، والكثير من البرامج ، لهذا السبب ، لما ابحث عن برنامج خارجي علشان يعمل لي شيء مكمل للاكسس ، ابحث عن البرنامج اللي يمكن التحكم به عن طريق اوامر DOS ، مثل https://www.irfanview.net/ 🙂 جعفر

السلام عليكم 🙂 محتاج اعرف نوع الخط المجوّف المكتوب باللون الازرق في الصور التالية ، ومن اي موقع يمكن انزاله 🙂 . . شكرا 🙂 جعفر

السلام عليكم 🙂 في المشاركة الاولى ، تم اضافة خاصية القراءة من مسار المسميات باللغة العربية ، بتحويل الاسم/المسار الى صيغة 8.3 🙂 جعفر

السلام عليكم 🙂 في زمن Dos والوندوز قبل 95 ، جميع البرامج كانت ملتزمة بأن طول اسم البرنامج/الملف لا يتجاوز 8 احرف ، وصيغة البرنامج/الملف هي 3 احرف ، لذا فهي معروفة 8.3 او الاسم القصير Short FileName 🙂 في هذه الايام ، 99% من البرامج تتعامل مع Unicode (الحروف الغير انجليزية) ، ولكن لا تزال هناك بعض البرامج اللي لا تتعامل مع Unicode ، مما يجعلنا لا نستطيع استعمالها اذا كان اسم الملف او المجلد مكتوب باللغة العربية ، هذا المرفق مثال على ذلك !! حتى نستطيع التعامل مع مسميات الملفات و المجلدات باللغة العربية ، مع البرامج التي لا تدعم اللغة العربية ، يمكننا ان نغيّر صيغة الملف/المسار الى صيغة 8.3 بإستعمال هذه الدالة ، وسيعمل البرنامج : Function get8_3FullFileName(F_or_F As Integer, ByVal sFullFileName As String) As String ' ' Convert the normal path to the old DOS 8.3 path ' this solves the problem of spaces in the path ' and reading Unicode names ' ' F_or_F : File or Folder ' 1= File ' 2= Folder ' Dim FSO As Object: Set FSO = CreateObject("Scripting.FileSystemObject") If F_or_F = 1 Then get8_3FullFileName = FSO.GetFile(sFullFileName).ShortPath Else get8_3FullFileName = FSO.GetFolder(sFullFileName).ShortPath End If Debug.Print "Original File Path: " & sFullFileName Debug.Print "8.3 File Path: " & get8_3FullFileName End Function . نناديها بإرسال المسار اليها ، هكذا : a_FILE = get8_3FullFileName(1, "D:\1Jaffer_Work\1Officena.net\Combine_PDF_Files_2\ملف1" & "\" & "a.pdf") او a_FILE = get8_3FullFileName(1, Application.CurrentProject.Path & "\" & "ملف1" & "\" & "a.pdf") النتيجة D:\1JAFFE~1\1OFFIC~1.NET\COMBIN~1\10DFB~1\a.pdf او اصل المسار D:\1Jaffer_Work\Samples\sound files\sound files\عمل رائع.WAV والنتيجة D:\1JAFFE~1\Samples\SOUNDF~1\SOUNDF~1\FE9C~1.WAV . جعفر

وعليكم السلام 🙂 يمكنك عمل التالي: 1. تصدير التقرير الاول كملف A.pdf ، 2. تصدير التقرير الثاني كملف B.pdf ، 3. استعمال هذه الاداة لدمج الملفين : . جعفر

شوف يا ابو احمد ، علشان ما اضيع بين النموذج الفرعي والرئيسي ، ومكان الحقل ، ريحت عمري بالمسار الكامل 🙂 واعتقد بأنك وقعت في الفخ ، وقلبت المسار 😁 كنت اقدر اختصرها بالتالي : rs.FindFirst "[bookname] = '" & me.fbooksub!stry & "'" جعفر

وعليكم السلام 🙂 الاسهل استخدام المسار الكامل : rs.FindFirst "[bookname] = '" & Forms!fbookmain!fbooksub!stry & "'" جعفر

الدالة NZ ، ومعناه Null to Zero : NZ([Field_Name], Value to Replace) NZ([اسم الحقل], القيمة البديلة) مكان القيمة البديلة يمكن استعمال : المتعارف عليه استعمال الصفر 0 معادلة ، مثل 5*6 ، او [Field5]*[Quantity] ، او ... استعمال اوامر الاكسس مثل: Dlookup واخواتها ، او اي امر آخر مناداة دالة بإرسال قيم اليها ، واستعمال نتيجة الدالة في الحقل وفي الرابط التالي شرح بسيط جعفر

السلام عليكم 🙂 نعم طلبك واضح ، واجابتي هي مفصلة لطلبك 🙂 اذا الشيء اللي نريده موجود في اوامر الاكسس ، فممكن بكود سطر او اثنين ونحل الموضوع ، ولكن لما اللي نريده مو موجود في الاكسس ، فنضطر: يا نعمل له كود بأوامر الاكسس ، واما اذا اوامر الاكسس ما تفي بالمطلوب ، نضطر نستخدم دوال ومكتبات الوندوز ، وهذا اللي صاير مع طلبك 🙂 1. اذا قاعدة بياناتك كبيرة ، تقدر تضغطها وترفعها على احد مواقع الرفع ، ثم ترفق لنا الرابط هنا ، 2. من المواضيع اللي اعطيتك اعلاه ، انزل هذا المرفق https://www.officena.net/ib/applications/core/interface/file/attachment.php?id=150388 وفيه طلبك 100% وما فيه اي اضافات اخرى ، وكلمة السر فيه هي: 147 حسب ماهي موجودة في الجدول ، جربه واذا اشتغل كما يجب ، فما عليك إلا ان تعمل نسخ للاكواد اللي فيه ، وانقلها الى برنامجك ، مع تعديل على كلمة السر و كود زر فتح نافذة كلمة السر 🙂 جعفر

اخوي ابو جودي احسن الله عزاكم ولا اراكم الله مكروها فيمن تحبون ، إنا لله وإنا اليه راجعون خرج من هم الدنيا وغمها الى رب غفور رحيم فهنيئأ له ، هم السابقون ونحن اللاحقون ونسأل الله حسن الخاتمه

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

وعليكم السلام 🙂 اجعل البحث في المنتدى صديقا لك ، ففي المنتدى ما لذ وطاب 🙂 https://cse.google.ae/cse?cx=partner-pub-4958585055085854:7791406915&ie=UTF-8&q=dkinputbox&sa=Search هذه بعض نتائج البحث: جعفر

وعليكم السلام 🙂 خليني أسأل سؤال كلنا متفقين عليه: ما فائدة وجود حقل المرفقات في الجدول ، ما دام استخدامه وادخال الصور فيه يجعل حجم البرنامج يكبر كثيرا وقد يصل الى حجمه النهائي 2 جيجا ويتوقف البرنامج عن العمل!! والجواب: الاكسس يستعمله الهاوي والمحترف ، وكلٌ له طريقة في استعماله ، وميزة الاكسس انه بإمكانك عمل اي شيء تريد بعدة طرق ، فكما ان المحترف لا يستخدم حقل المرفقات 99% من الوقت ، ولكن قد يستعمله لإرفاق بعض الصور الصغيرة مثل شعار المؤسسة او إحمل برامجك داخل قاعدة بياناتك فمو واجب استعمال جميع الميزات اللي يعطينا البرنامج ، ولكن نستخدم اللي يناسبنا كهاوين او مبتدئين 🙂 جعفر

هذه روابط مواضيع من نفس رابط البحث الذي اعطيتك: . . . . جعفر