نجوم المشاركات

Generate PDF Dahy VBA Skills fun موضوعنا النهاردة موضوع شيق مدخل للدرس الثالث للفورم التفاعلي وفي نفس الوقت ها نتعرف فيه علي أدوات ها توفر الوقت والمجهود لشريحة كبيرة تستخدم قالب معين مثل الموارد البشرية لما ترسل طلبات التوظيف المالية لمطابقات كشوف الحساب للموردين واحنا داخلين علي موسم الجرد الختامي والبنوك او الشركات او المواقع التي ترسل رسائل دورية وما الي ذلك انا اخترت المثال علي شئون الموظفين وطلبات التوظيف وهانتعرف علي كيفية التعديل علي النموذج Word عن طريق الفورم عناصر الدرس ملف Templet word القالب المستخدم اداة Microsoft Outlook 16.0 Object Library أداة Microsoft Word 16.0 Object Library ونتعلم مع بعض VBA Dynamic Code وكيفية عمل ملف PDF وارساله بالايميل الشرح نقوم بإضافة الأدوات في الفيجوال كما يلي من Tools نختار References Microsoft Outlook 16.0 Object Library اضافة أداة Microsoft Word 16.0 Object Library تحديد مسار القالب كما يلي شفت + كليك يمين علي ملف الوورد ثم نختار Copy as Path حسب موقع الملف علي جهازك انا عندي في برتيشن F "\F:\GeneratePDF\Template_Contract.docx" تحديد مسار حفظ ملفات PDF الذي يحفظها البرنامج F:\Generate and Preview طبعا يلي مش عارف يغير في الكود يقوم بحفظ الملف المرفق علي برتيشين الFبعد فك الضغط مباشرة . ملف الورد يلي نستخدمه كقالب ولاحظ المسميات يلي انت ظللتها بالاصفر نفس مسميات الليبل ف الفورم وضعتها بين علامتي ##لانها بيانات متغيرة سيتم اضافاتها من الفورم لاحظ معي عند استدعاء الملف بالورد شاهد النتيجة البرنامج اضاف البيانات المظلله بشكل تلقائي الوظيفة الثانية للبرنامج اني ببعت الملف بالايميل من البرنامج لتوفير الوقت والوظيفة في حالة التقارير الدورية او النشرات او حسب استخدام الفرد الذي يحتاج ارسال عدد كبير في نفس الوقت مع ملاحظة انه بشكل تلقائي بياخد الايميل من الفورم ويضيف اسم الموضوع والمرفقات كما بالكود بشكل تلقائي طبعا الشرح موجز لاهم العناصر انا برفق مع الشرح مثال عملي منه للشرح ومنه نستفيد منه او من الافكار يلي فيه وبكون منتظر حد يسال عن اي شئ داخل الملف بصدر رحب لكن للاسف كعادتنا نحفظ في الارشيف علي اية حال الملف بالمرفقات واي استفسار لا تترد كلنا بنتعلم مع بعض شارك وتفاعل انت تسال وذلك يسال واخر يجيب وكلنا هانستفيد الدرس القادم ان شاء الله هاشرح الاكواد ونتعرف علي كود الحغظ والتعديل والبحث الديناميكي لضمان عمل الملف اتبع الشرح السابق في اضافة الادوات ومسار الملف وبالتوفيق للجميع ولا تنسونا من دعائكم بظهر الغيب بصلاح الحال GeneratePDF.rar

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

السلام عليكم ورحمة الله للتوضيح فقط، الدالة Sqr لم تقبل الحساب من ناتج الصيغة وتظهر خطأ لهذا قمت بوضع ناتج الصيغة في متغير جديد T (مثلا) ثم تطبيق الدالة Sqr على القيمة T ويكون الكود بالتالي على الشكل: Function aretrangel(A As Currency, B As Currency, C As Currency) As Currency S = (A + B + C) / 2 T = S * (S - A) * (S - B) * (S - C) aretrangel = Math.Sqr(T) End Function أو هكذا (دون استعمال الدالة Sqr): Function aretrangel(A As Currency, B As Currency, C As Currency) As Currency S = (A + B + C) / 2 aretrangel = (S * (S - A) * (S - B) * (S - C)) ^ 0.5 End Function

شكرا جزيلا اخواني حصلت الطريقة وتفضلوا المرفق الجديد zaMove&CopyFiles&folders.mdb

حاجة من باب المرح لتسهيل استخدامك ضيفتلك وظائف تتحكم في اليوز فورم اضافة اسم مش موجود في القائمة ترتيب الاسماء حذف اسم من القائمة لو تتكرر ادخاله من ليست الاسماء دبل كليك لاي اسم هاتحذفه من القائمة جرب ويارب تكون فيها التسير لعملك Fawzy 10.xlsm

https://www.gulf-up.com/odd5hccnoyl3

عليكم السلام والرحمة تفضل هذه المحاولة Private Sub Form_BeforeUpdate(Cancel As Integer) If MsgBox("Do You Want To Save Data", 4, "Confirm Save") <> 6 Then DoCmd.RunCommand acCmdUndo DoCmd.CancelEvent End If End Sub

جزاك الله خيرا و حفظك الله انا دائما اقولها و سوف اضل اقولها خاوة خاوة إلى الابد

شكرا لك على الرد .. لكن المفروض يبقى مثلا اول 18 اسم دول يبقى لجنة 1 وال 18 لجنة 2 وهكذا

السلام عليكم استاذ @abouelhassan سؤال لو سمحت؟ هل هذا سجل اليومية او دفتر اليومية للحسابات وهل انت محاسب اكون ممنون منك على الاجابة تحياتي لك

شكرا جزيلا اخي احمد سعد على البرنامج ، ان شاء الله الاعضاء يستفيدوا منه 🙂 جعفر

السلام عليكم الصوره التاليه قم بالغاء التاشير على الشيك بوكس واضغط اوك واعمل رستارت للجهاز ثم بعد الرستارت افتح ملفك وابلغنا بالنتيجه بالتوفيق

وما عساي أن أفعل معك؟ .. تأكد من مسميات الصناديق ومصدرها وتنسيقها كذلك الصندوقين المطلوب لصقهما في نموذج التفاصيل وليس الأب/الرئيس. عند خروج رسالة الخطأ ، التقط صورة للشاشة وبها الرسالة ، كذلك بعد انهاء الرسالة وأنت واقف على السطر المظلل مرر الفأرة على المتغيرات لتعرف المشكلة في أي متغير. موفق أخي.

تفضل اخي =SIERREUR(INDEX(Sheet1!A$2:A$50;PETITE.VALEUR(SI($D$1=Sheet1!$D$2:$D$50;LIGNE(Sheet1!$A$2:$A$50)-1);LIGNE(Sheet1!B1)));"") نقل بيانات.xlsx

لم أنتبه أن لديك حقل الأيام في الفرعي .. أضفته لك "+1" ستعرف سببه عند مشاهدتك لسجل التفاصيل رقم 3 ، إذا أردته صفرا فعدل في استعلام مصدر النموذج بالتبديل في المعادلة من +1 إلى +0 الفرق بين تاريخين بالأيام_02.accdb

تفضل اخي قد تم اضافة شيت جديد يتضمن جميع المواد مع اسماء الاساتدة يتم جلب البيانات من خلاله بحيث عند اختيار مادة معينة يتم اظهار أسماء أساتذة تلك المادة فقط في عمود الأستاذ كما يمكنك إضافة أو تعديل الأسماء بداخل الجدول سيتم إظهارها تلقائيا بالقوائم في عمود الأستاذ مثال لإختيار أساتذة مادة اللغة العربية رابط التحميل https://www.mediafire.com/file/7j6dil06ulnhbr2/RGF_SMAINI+MH.xls/file

اخي ابو ماجد بالاضافة ملف الاستاذ ابو احمد هذا مجموع في النموذج الفرعي تحياتي الفرق بين تاريخين بالأيام.accdb

شكرا استاذ @ahmedsaadzeed وهذا الملف لمن اراد الاطلاع عليه والباسورد لليوزرين 123 بالتوفيق SCAN.rar

https://www.gulf-up.com/oddf49qg3u7f/SCAN.rar

مثال آخر .. جربه مع الإعتذار للزملاء لأني لم أطلع على أمثلتهم ورفعت مثالي بناءً على مشاركة السائل الأخيرة. الفرق بين تاريخين بالأيام_01.accdb

بعد اذن ا مجدي التعديل بالمرفقات فورم بحث برقم الجلوس وبه إضافة وتعديل 2وحذف.xlsm

الكود بعد تعديل شرط الكمية Private Sub ListBox1_Click() Application.ScreenUpdating = False Application.EnableEvents = False Application.Calculation = xlCalculationManual LR = Sheet1.Range("C" & Rows.Count).End(xlUp).Row + 1 For YYY = 0 To ListBox1.ListCount If ListBox1.Selected(YYY) = True Then If Me.TextBox3 = "" Then MsgBox "Please enter the quantity": Me.TextBox3.SetFocus: Exit Sub Range("F" & LR).Value = Me.TextBox3.Value Range("D" & LR).Value = ListBox1.List(YYY, 0) Range("B" & LR).Value = ListBox1.List(YYY, 1) Range("C" & LR).Value = ListBox1.List(YYY, 2) Range("E" & LR).Value = ListBox1.List(YYY, 3) Range("A" & LR).Value = ListBox1.List(YYY, 4) Range("G" & LR).Value = Format(ListBox1.List(YYY, 3) * Me.TextBox3.Value, "0.00") 'ListBox1.Visible = True 'ListBox2.Visible = True 'ListBox3.Visible = True TextBox1 = "" TextBox2 = "" TextBox3 = "" End If Next YYY Application.ScreenUpdating = True Application.EnableEvents = True Application.Calculation = xlCalculationAutomatic End Sub

أخي بن علية حاجي الدالة سليمة وتقبل وسأرفق لك ملف الدالهحساب مثلثات_1.xlsx Function ARETRANGEL(A As Currency, B As Currency, C As Currency) As Currency S = (A + B + C) / 2 ARETRANGEL = Math.Sqr(S * (S - A) * (S - B) * (S - C)) End Function

حياك الله الشكر لله

أساتذتي الأعزاء.. من خلال تبحري في الإكسيل.. وجدت هذه المعادلة فأحببت أن أشارككم فيها علها أن تنفعنا وتنفعكم وتفتح لكم آفاق كثيرة. lookup-to-left.rar

وعليكم السلام 🙂 ضع هذا الكود في احداث النموذج وسيؤدي العمل : Option Compare Database Option Explicit Dim Goto_L As Boolean ' Private Sub Form_ApplyFilter(Cancel As Integer, ApplyType As Integer) If ApplyType = 1 Then Goto_L = True End If End Sub Private Sub Form_Current() If Goto_L = True Then DoCmd.GoToRecord , , acLast Goto_L = False End If End Sub . . جعفر New Microsoft Access Database.zip

على النعمه انت 100 الميه وشكلك بتقول كلام كبير قوى بس انا ولا فاهم اى شئ .. أعذرنى الله اعلم بحالى لو انا قدرت افهم قليلا المشكلة مش فى قاعدة الاكسس ولا الاكتيف اكس اللى فى المكتبات الداخليه للاكسس مطلقا المشكلة ان الملف الدفعى نفسه اللى يسجل مكتبات الـ Dll الخارجية التى يتم الاستعانه بها هو الذى يعمل بالاصدار NET Framework 4.6 افتح الملف الدفعى باسم Register فى المرفق من المجلد Tools انا استخدمت هذا السطر لتسجيل المكتبات C:\Windows\Microsoft.NET\Framework\v4.0.30319\regasm.exe وذلك لتفادى كل المشكل التى واجهتها بشبح الاصدار الاول حى يعمل على انطمة 7 و 10 و 11 >> 32 /64 لا تبدأ بالاعتراض اصبر وتريس احمد ربنا انك لم تشارك فى هذا الموضوع الشبح اسال اللى حضر واللى قرأ واللى اغمى عليه من عدم النوم بالايام والليالى

بسم الله وعلى بركة الله نبدأ اول شئ ؟ خلينا نخلص الاشياء اللى راح تحتاج الى التجهيز بالأكسس بس علشان نقدر نفهم الموضوع من اخوانا الكرام ياللى فاهمينه صح واعذرونى وتحملونى فى الغياب والانقطاع المفاجئ والذى قد يكون متكرر فى الفترة المقبلة الى أن يأذن الله تعالى ويتمم شفاء والدى على خيـر هو وكل مريض هذا حمل الولد الوحيد لأبيه سوف اتابع بقدر الامكان اولا بصراحة دخلت على الفيديو الخاص بشرح الباش مهندس @Amr Sobhy الذى اشار اليه وهو مشكورا وضع معه مرفق يحتوى على قاعدة أكسس و مجلدات كثيرة بكل صدق مررت سريعا وان شاء الله لى إن أذن ربى لى عودة ولكن مبدئيا حتى افهم الموضوع جيدا سوف تدور نقاشات واستفسارات كثيرة وحتمية بعد التمعن جيدا فى الفيديو فقط قمت بتجربة قاعدة الاكسس والتى تحتاج تسجيل للمكتبة التى اخبرنا عتها الباش مهندس @Amr Sobhy سوف ارفق لكم القاعدة بتعديل بسيط حتى يمكن التسجيل للمكتبات واضافتها اليا من الملف الدفعى بمجرد فتح قاعدة البيانات كما قمنا بها مسبقا فى الجزء الأول ملاحظة هامة تم تعديل الملف الدفعى ليعمل كمسئول من تلقاء نفسه بمجرد فتح قاعدة بيانات الاكسس حتى يتمكن الجميع بما فيهم من ليس له دراية بطريقة تسجيل المكتبات بتشغيلها كمسئول متطلبات التشغيل : Framework الاصدار 4 ------------------------------------------------------------------------------- يمكن تحميل الملف الاتى هو يقوم بالتحديثات اللازمة سواء ويندوز 7 , 10 , 11 إذهب الى موقع التحميل : من هنا ( تحميل مباشر من mediafire .. من رفعي انا على حسابي الشخصي بالموقع ) ميزات برنامج All in one Runtimes: سهل الاستخدام و مفيد للغاية في تقليل الزمن الضروري للبحث عن الأدوات كلٍ على حدا. مجاني بشكل كامل و يقدم الكثير من الفائدة و يمكنه حمايتك من المواقع التي قد تصيب جهازك بفيروسات سيئة عند التحميل منها. يعمل بشكل ذكي حيث يقوم بتحديد ما يحتاجه حاسبك و لن يقوم بتثبيت كل الأدوات بشكل عشوائي. يقدم مجموعة كبيرة من الأدوات الضرورية في حاسبك و أهمها: .NET Framework 4.6 + Updates Java Runtime Environment 8 DirectX 9.0c Extra files General runtime files Microsoft Visual C++ Runtimes (v2005 – v2015) Microsoft Visual J# 2.0 SE Microsoft Silverlight 5 Shockwave Player 12 (Internet Explorer Plugin) ------------------------------------------------------------------------------- لكبر حجم المرفق تم تقسيمه على قسمين برجاء وضع القسمين معا فى نفس المسار ليتم فك الضغط بنجاح 626302988_VBA_ZatcaIntegrationV2.part1.rar 1345862990_VBA_ZatcaIntegrationV2.part2.rar

ارجع القيم الخالية الى 0 من خلال دالة NZ يعنى مثلا NZ([FieldNameA],0)*NZ([FieldNameB],0) وان تعذر عليكم التطبيق ضع مثالكم الذى يحتوى على تلك المشكلة

استبدل السطر التالي Range("F" & LR).Value = Me.TextBox3.Value بالشرط If Me.TextBox3 <> "" Then Range("F" & LR).Value = Me.TextBox3.Value Else MsgBox "Please enter the quantity" Me.TextBox3.SetFocus End If End Sub او If Me.TextBox3 = "" Then MsgBox "Please enter the quantity": Me.TextBox3.SetFocus: Exit Sub Range("F" & LR).Value = Me.TextBox3.Value

لا يوجد ملف بالرابط المذكور قم بضغط الملف وارفقه بالمنتدى مباشره بالتوفيق

مرحبا... المعادلة المستعملة في الكود لا أعرفها... أما التي أعرفها واكتشفتها مؤخرا هي معادلة "هيرون" والتي صيغتها : =SQRT(s*(s-a)*(s-b)*(s-c)) حيث: a، b، c هي أطوال أضلاع المثلث و s = (a + b + c)/2 وليس لي جواب آخر....

حسب فهمي للمطلوب يتم تنفيذ أمر الطباعة أولا ActiveSheet.PrintOut ثم سطر التصدير إلى. Pdf في نفس مسار ملف الاكسل باسم FileName.pdf الذي يمكن تغييره ActiveSheet.ExportAsFixedFormat xlTypePDF, ThisWorkbook.Path & "/" & "FileName.pdf", , , False بالتوفيق

شكرا اخ نظال لمساعدتك ولكن قد يكون خطأ مني في عدم التوضيح اكثر انا عندي برنامج يحتوي على 100 نموذج تقريبا فهل هناك كود يقوم بالمطلوب بدون تحديد اسم النموذج سواء في الفتح او الاغلاق يعني يقوم باغلاق النموذج المفتوح ويعاود فتحة بعد اغلاق النموذج الذي تم فتحة بدون تحديد اسماء النماذج يتبين لي بان الاغلاق ممكن لكن كيف يفتح اخر نموذج تم اغلاقة هذا مالا اعرفة