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

السلام عليكم هذا الكود المستعمل: On Error Resume Next Dim Rs As DAO.Recordset Set Rs = Forms!frm_ajrd!SubSales.Form.RecordsetClone Dim Rc As Integer, x As Integer x = 0 Rc = Rs.RecordCount If Rc > 0 Then Rs.MoveFirst Do Until Rs.EOF If Rs!Rajmsanf = Rajmsanf Then Rs.Edit Rs!Alkmiah = Rs!Alkmiah + Alkmiah Rs.Update Rajmsanf = Null Alkmiah = Null Exit Sub End If Rs.MoveNext Loop End If Rs.AddNew Rs!Rajmsanf = Rajmsanf Rs!Alkmiah = Alkmiah Rs!äæÚåÇ = "ÇáÌÑÏ" Rs!Almwka = Almwka Rs.Update Rajmsanf = Null Almwka = Null Alkmiah = Null Undo و هذا المرفق بعد التعديل إن شاء الله يعجبك الحل. 777799.rar

السلام عليكم إطلع على هذا الموضوع إن شاء الله تجد به الحل

السلام عليكم ورحمة الله وبركاته اليوم سأقدم لكم ملف بسيط ومفيد وهي قراءة ملف اكسل و ارجوا أن ينال اعجباكم وشكرا أحوكم في الله المبرمج : مناد سفيان الجزائر. اكسل يتكلم.rar

آمين يا رب العالمين و إن شاء الله أجمعين فقط إريد أن أنوه إلى شيء و هو كثر الإقتباس فالرجاء عند إقتباس مشاركة عدم إقتباسها كاملة و الإكتفاء بإقتباس الأسطر التي تريد الرد عليها مثلما فعل صديقي العزيز @AlwaZeeR لكي لا تطول المشاركة أكثر من اللازم.

احسنت صديقي صالح ،،، حل رائع والحمد لله على كل شيء :: تحياتي لكم جميعا

هو الحل بكله بيعحبني غصبا عني الله يجزيك كل خير استاذنا وحبيبنا @صالح حمادي الف الف شكر اليك والشكر موصول لاخونا واستاذنا@AlwaZeeR الله يبارك فيه بذل الكثير والشكر لاستاذنا @ابو ياسين المشولي ما قصر بذل جهد ولكل من حاول فيه الف الف تحيه اليكم اخواني الكرام اسعدكم الله

تفضل .. test_UP3.mdb

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

ضع هذا الكود في وحدة نمطية: Public Sub SetFntName(strFName As TextBox) Rem: استبدل خط ايريل بالخط الذي تريد strFName.FontName = "Arial" End Sub يتم الاستدعاء هكذا: Call SetFntName(TxtName)

السلام عليكم : في موضوع سابق بخصوص الغاء الحفظ التلقائي للنماذج (الرئيسية والفرعية)وجدت كود ممتاز جدا تفضل به الاستاذ ابو خليل حيث عندما تخرج من النموذج يسأل اذا كنت تريد الحفظ او لا في حالة نعم : سيتم حفظ البيانات الجديدة للنموذج الرئيسي والفرعي في حالة لا : لن يتم حفظ البيانات للنموذج الرئيسي او الفرعي ....................... الي هنا الكود ممتاز جدا ................................ السؤال : هل يمكن اضافة علي الكود بحيث اذا تم التعديل علي البيانات المحفوظة مسبقا تظهر نفس الرسالة حيث ان الكود يعمل فقط عند اضافة بيانات جديدة test_UP2.mdb

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

نعم يمكنه التكلم بكل اللغات

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

الحمد لله الذي أنعم علينا و منا علينا بالحل الصواب

آه كم أنت محظوظ أخي ابوزاهر لأن موضوعك دخل في أحد عمالقة الأكسس @AlwaZeeR

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

هل كتابة هذا الكود صحيحه (1;Textbox3.value= Ceiling (Textbox1 × 5\100

السلام عليكم من المعروف أن وحدة القياس في كائنات الأكسس هي Twip و كل 1 سنتيمتر يساوي 566.9291338583 تويب لذلك استعمل الشكل التالي: h*566.9291338583 بحيث h هو الطول بالسنتيمتر

استعمل خاصية البحث في المنتدى سوف تجد العديد من المواضيع حول جلب الصورة من الماسح الضوئي

استاذنا الفاضل AlwaZeer ممكن تطبيق ماتفضلت به على المثال المرفق testfont.mdb

العفو اخي ابو عبدالرحمن لا اعرف دالة افضل من Trim لحذف المسافات حيث انها تقوم بحذف المسافات في بداية الجملة و في نهاية الجملة و تقوم بحذف اي مسافة زائدة عن مسافة واحدة بين كلمات الجملة اما حول اضافة النقطة يمكنك استخدام الدالة CONCATENATE و يكون الحل لجملة البسملة التي ذكرتها هنا =CONCATENATE(TRIM(A1);".") هذا الحل على قدر فهمي و الله اعلم

لكن في الفرعي يتم الاضافة ايضاً بدون تحذير نعم في حال عمل اضافة على النموذج الرئيسي اما لو اردت الاضافة على النموذج الفرعي فقط فلا يظهر تحذير

الاخ sandanet لكن في الفرعي يتم التعديل بدون تحذير

تفضل test_UP2.mdb

اخوانى جمعه مباركه عليكوا ان شاء الله اخوانى فى نموذج الاصناف Names اريد فى مربع النص ان يعرض اخر كود للاصناف فى حالة اضافة الاكواد يدوي حتى لا يكون هناك مشكلة فى تكرار رسالة ان هذا الكود مكرر قاعدة بيانات.rar

=Dmax("Category_Code";"Items") قاعدة بيانات2.rar

ممكن اخي معالي الوزير تطبيق المثال لم افهم

السلام عليكم جميعا اليكم كيفية انشاء نسخة احتياطية من اي ملف اكسيل مربوط بالملف الاصلي عن طريق كود في الفيجوال بيسك في فولدر محدد . شرح مميز للكود ===================================================== رابط تحميل الكود جاهز https://www.file-upload.com/c60bffhuli9q لمشاهدة الفيديو https://www.youtube.com/watch?v=lYS5tHxKsGY

تفضل عزيزي ابن بلدي وقلت لك سابقاً: دعنا نبدأ من هذه النقطة... قصدت من ذلك ان تتابع معي كي نصل الى برنامج رائع لبيع الخبز ولا حاجة للانتظار والسهر فقط غير تاريخ الجهاز يدويا وجرب بخصوص اسماء الصنف: عملت لك استعلام يظهر اسماء الاصناف كتابة :: تفضل هذا تعديل جديد BridSale.rar

تفضل أخى طلبات 2 - Copy.xlsm

السلام عليكم ورحمة الله استخدم هذا الكود Sub PrintPages() Dim i As Integer, j As Integer i = Range("D3").Value j = Range("E3").Value If i < 1 Or j < 1 Then Exit Sub ActiveSheet.PrintOut from:=i, to:=j, Copies:=1 End Sub

ممتاز

اتفضل القي نظرتا الى مصدر التقرير وجروف في التقرير و خط فواصل الصفحات DB.accdb

ميل البرنامج ولكن سأل اكثر من زميل على الرابط و لم ترد او ملف التحميل ،، اين هو ؟ فأنا ايضا لم اجده

السلام عليكم ورحمة الله وبركاته معكم المبرمج مناد سفيان من الجزائر اليوم سوف أهديكم ملف جميل جدا أودت أن أشارككم فيها دمتم في رعاية الله و حفظه Excel-Animations.rar

الهدف من هذا الدرس هو توفير مقدمة سهلة متكاملة ودقيقة للغة PHP، الدرس يبدأ من الصفر لكنه يتطلب منك أن يكون لديك معرفة جيدة بلغة HTML، إن كنت لا تعرف HTML فعليك أن تبدأ بدرس HTML. PHP يمكن استخدامها في الكثير من الحالات، لإنشاء المنتديات، الاستفتاءات، المتاجر، بوابات للرسائل النصية القصيرة، قوائم بريدية وغير ذلك، الحد الوحيد لما يمكنك فعله في PHP هو خيالك، PHP ليست صعبة لكن تذكر أنها أكثر تطوراً وتطلباً من HTML لذلك الصبر عند تعلمها ضروري.. هذا الدرس لا يمكنه تعليمك كل شيء، لذلك المطلوب منك أن تشارك وتجرب بنفسك، إن احتجت لمساعدة فننصحك بزيارة المنتديات للحصول على دعم، في المنتديات ستلتقي بخبراء يمكنهم مساعدتك بالتلميحات والمقترحات والنصائح. ما المطلوب؟ نفترض أنك تملك محرراً نصياً وتعرف كيف تستخدمه. بعد ذلك أنت بحاجة لحاسوب أو مزود يمكنه تشغيل PHP، على النقيض من HTML وCSS لغة البرمجة PHP لا تتأثر بأي متصفح يستخدمه زوار موقعك بل بنوع المزود الذي يستضيف موقعك، لأن PHP هي تقنية من جهة المزود. في الدروس القليلة القادمة ستتعلم كيف تعمل PHP وكيف تعد حاسوبك لتشغيلها، بعد ذلك ستتعلم وظائفها وطرقها. عندما تنتهي من هذا الدرس، ستتمكن من البرمجة باستخدام PHP وبالتالي ستحصل على إمكانيات غير محدودة لإضافة التفاعل في صفحات موقعك.

شكرا على مرورك الحلو أخي ali

PHP IF STATEMENT ) أو (إذا) من أدوات الشرط الغير حلقية ( Non-looping conditional ) , وتستخدم لفحص تحقق شرط معين بحيث إن كانت إجابة الفحص هي نعم true يتم تنفيذ عملية معينة , أما إن كانت خطأ تقوم بإنهاء العملية أو تنفيذ عملية أخري. صيغة جملة if يتم كتابة جملة if بهذا الشكل ا كان حسابك البنكي bank_balance$ رصيده أقل من 1000 دج أو أياً كانت عملتك , فستقوم بإيداع مبلغ 1000 دجmoney$ , فيتم كتابة البرنامج بهذا الشكل وإذا كانت قيمة رصيدك أكبر من 1000 سيقوم بتجاوز العملية واستكمال البرنامج. أما إذا أردت تنفيذ عملية أخري في حالة عدم تحقق الشرط , أي الجواب (لا) false يجب أن تستخدم جملة else (غير ذلك). وبهذا يمكن طباعة جملة تفيد بأن الرصيد الموجود كافي إذا كان الرصيد أكبر من 1000 بهذا الشكل ماذا إن كنت تريد سحب مبلغ في حالة عدم تحقق الشرط, أي أن الرصيد أكبر من 1000 , فيمكنك وضع شرط آخر بحيث إذا كان الرصيد الموجود أكبر من أو يساوي 2000 ستقوم بسحب مبلغ 500 دج with_draw$ بهذا الشكل يمكنك إضافة إي عدد من جملة elseif , ولكن إن كان العدد سيكون كثيراً للغاية يمكنك إستبدال elseif بـ ( PHP SWITCH STATEMENT ). علامة الاستفهام الشرطية ? يمكن استبدال جملة if بالمعامل الاستفهامي ? ( CONDITIONAL QUESTION MARK ) في حالات الشرط الصغيرة أو التي لا تحتاج إلا سطر واحد في الكود السابق نسأل , هل كمية الوقود أقل من أو تساوي 1 ؟ , فإذا كانت الإجابة نعم true سيتم طباعة السلسلة النصية (string) “املأ خزان الوقود” , وإذا كانت الإجابة لا false سيتم طباعة “يوجد وقود كافي”. ويمكن تخصيص نتيجة الشرط إلي متغير enough$

ممتاز جدا و لمن لديه الواجهة الانجليزية Insert Object Text ثم اختيار الملفات التي تريد دمجها

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

بالطبع توجد طريقة وهي : من تبويب إدراج ستجد خيار إدراج كائن ومنه ستجد خيار من ملف نصي سيظهر مربع لتحديد الملفات المراد دمجها قم باختيارها وستتم عملية دمج جميع الملفات المحددة

ممتاز جدا جزاك الله خيرا

شكرا علي المجهود

اشكرك مقدما هل يصلح للعمل مع ضريبة القيمة المضافة فى مصر وهل ممكن رايط التحميل - وهل يمكن التعديل علية (مفتوح المصدر) تحياتى

و لتحويل المعادلات لارفام نضيف جزء جديد Sub SplitSpecificSheet_onefile() Dim xPath As String xPath = Application.ActiveWorkbook.Path Application.ScreenUpdating = False Application.DisplayAlerts = False Sheets(Array("Sheet1", "Sheet2")).Select Sheets(Array("Sheet1", "Sheet2")).Copy For k = 1 To ActiveWorkbook.Sheets.Count ActiveWorkbook.Sheets(k).Activate Cells.Select Application.CutCopyMode = False Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Next k Application.ActiveWorkbook.SaveAs Filename:=xPath & "\" & "officena" & ".xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled Application.ActiveWorkbook.Close False Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub

برنامج المتابع للمخازن والموردين والعملاء اخى الفاضل هذ البرنامج هديه لك وشكرا على انتظارك البرنامج مرفوع هلى جزئين وشكر على انتظارك ولتشغيل البرنامج يمكنك مراسلتى على الرسائل الخاصه او على الرقم التالى 01119695088 &01113339522 هذا هو الجزء الاول

السلام عليكم ورحمة الله وبركاته جزاكم ربي خيراً إخواني تم التوصل الى الحل وكان كما يلي برجاء الإطلاع عليه من الإخوه وإن كان هناك حل أفضل يطرح حذف سجل من ورقة البيانات.rar

إسدال مربع التحرير والسرد .... combo box drop down في النموذج الخاص بادخال البيانات وعند الوصول لمربع التحرير والسرد نحتاج احيانا ان تنسدل محتويات المربع فورا دون الضغط على مؤشر المربع... !! لمحة جمالية واحترافية وملفتة لنظر المستخدم. استخدم الكود التالي : Private Sub cboName_GotFocus() Me!cboName.DropDown End Sub قضي الأمر ....... ...........

أخي العزيز إلى جانب الحل الذي تفضل به أخي عامر يوجد حل آخر وهو تحديد نطاق الخلايا التي تريد أن تكتب فيها صفر على يسار الرقم ثم اختيار تنسيق TEXT لهذه الخلايا وبذلك سيسمح لك بما تريد وفى حالة الكتابة بنمط العربي أو الإنجليزي . تحياتي أبو عبدالله