jjafferr

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

شكرا جزيلا اخوي ابوخليل ، وانا استعملت نفس التقرير ، ولكن كنت اريد اعمل الهندسة العكسية 🙂 الاخ منتصر ما اخبرنا كيف توصل لعمل اوامر الخطوط والدوائر في تقاريره (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% من الوقت ، ولكن قد يستعمله لإرفاق بعض الصور الصغيرة مثل شعار المؤسسة او إحمل برامجك داخل قاعدة بياناتك فمو واجب استعمال جميع الميزات اللي يعطينا البرنامج ، ولكن نستخدم اللي يناسبنا كهاوين او مبتدئين 🙂 جعفر

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

تفضل 🙂 1543.Print_Form_Records.accdb.zip

السلام عليكم 🙂 ممكن نستخدم اول رقم وآخر رقم ID ، والتقرير يكون بين هذين الرقمين ، او نستخدم حقل vDate اللي عمله اخوي ابوخليل ، بتغيير بسيط ، فبدل ان تكون قيمته الافتراضبة =Date ، نجعلها =Now حتى نحصل على الوقت بالثواني (حتى يتمكن المستخدم من طباعة مرات اخرى في اليوم) ، والتقرير يكون بين هذين التاريخين 🙂 هذا كود زر المعاينة ، واستخدمت متغير بمعرف Variant ، حتى اقدر استخدمه لأي نوع ، سواء رقم او نص او تاريخ : Private Sub Command37_Click() 'save the last Record If Me.Dirty = True Then Me.Dirty = False Dim rst As DAO.Recordset Dim rFirst As Variant, rLast As Variant Dim myWhere As String Set rst = Me.RecordsetClone 'ID: rst.MoveFirst: rFirst = rst!ID rst.MoveLast: rLast = rst!ID '1 'myWhere = myWhere & " ID>=" & rFirst 'myWhere = myWhere & " And " 'myWhere = myWhere & " ID<=" & rLast '2 myWhere = "ID Between " & rFirst & " And " & rLast 'vDate: 'rst.MoveFirst: rFirst = rst!vdate 'rst.MoveLast: rLast = rst!vdate '3 'myWhere = myWhere & " vDate>=#" & rFirst & "#" 'myWhere = myWhere & " And " 'myWhere = myWhere & " vDate<=#" & rLast & "#" '4 'myWhere = "vDate Between #" & rFirst & "# And #" & rLast & "#" DoCmd.OpenReport "Report1", acViewPreview, , myWhere End Sub جعفر 1543.Print_Form_Records.accdb.zip

وعليكم السلام 🙂 في ذيل النموذج ، في حقول المجاميع ، استخد التالي كمصدر لبيانات الحقل: مجموع نعم =Sum(IIf([mtwajd]=-1,1,0)) مجموع لا =Sum(IIf([mtwajd]=0,1,0)) جعفر

اخوي حمدي 🙂 رجاء ضع الكود بهذه الطريقة ، حتى يظهر الكود بالطريقة الصحيحة: . . جعفر

الحمدلله 🙂 جعفر

وعليكم السلام 🙂 في الواتساب ، للإنتقال للسطر التالي ، لا تستعمل vbcrlf او chr(10) او chr(13) ، وانما استعمل "%0a" وكذلك تم ترجمة هذه الجزئية من موقع الواتساب: https://faq.whatsapp.com/539178204879377/?locale=en_US يتيح لك WhatsApp تنسيق النص داخل رسائلك. يرجى ملاحظة أنه لا يوجد خيار لتعطيل هذه الميزة. مائل لجعل رسالتك مائلة ، ضع شرطة سفلية على جانبي النص: _نص_ بالخط العريض لجعل رسالتك غامقة ، ضع علامة النجمة على جانبي النص: *نص* يتوسطه خط لتخطي رسالتك ، ضع علامة تلدة على جانبي النص: ~ نص ~ مونوسبيس لفرد رسالتك ، ضع ثلاث علامات خلفية على جانبي النص: ```نص``` ملحوظة: بدلاً من ذلك ، يمكنك استخدام الاختصارات على Android و iPhone. Android: اضغط مع الاستمرار على النص الذي تدخله في حقل النص ، ثم اختر غامق أو مائل أو المزيد. انقر على "المزيد" لاختيار خط يتوسطه خط أو مسافة أحادية. iPhone: اضغط على النص الذي تدخله في حقل النص> تحديد أو تحديد الكل> B_I_U. ثم اختر Bold أو Italic أو Strikethrough أو Monospace. جعفر

اخ طاهر ، رجاء لا تكتب موضوع اثناء متابعتك مباريات كأس الخليج ، وإلا النتيجة انك تنسى المرفق 😁 جعفر

وعليكم السلام 🙂 بما انه يوجد في برنامجك ، فتستطيع الاستفادة منه 🙂 او تستطيع انزال هذا البرنامج: http://lebans.com/DownloadFiles/A2KMonthCalenderVer205.zip والشرح هنا: http://lebans.com/monthcalendar.htm انزل المرفق ، افتح البرنامج ، افتح النموذج ، ثم انقر نقر مزدوج على حقل التاريخ ، وسترى روزنامة التاريخ 🙂 جعفر تم انزال المرفق واضافته هنا A2KMonthCalenderVer205 (2).zip

للاسف الشديد ، محاولاتي فشلت ، وفتحت الملف عن طريق برنامج Hex ولم ارى في الملف غير اصفار !! يمكن احد الشباب يقدر يساعد