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

السلام عليكم هذا الكود المستعمل: 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)

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

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

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

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

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

السلام عليكم ورحمة الله وبركاته عزيزي ابو زاهر المرفق الذي ارفقته في مشاركتك الاخيرة لم ينزل عندي لذا اشتغلت لك على المرفق الاول تفضل ووافني بالنتيجة طبعا انا لا استخدم RS ووو كثيرا فقط اعمل على Sql :: تحياتي Jard-waz.rar

هذا سهل و إن شاء الله الحل عندي أصلي المغرب في المسجد و أعود

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

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

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

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

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

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

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

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

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

السلام عليكم تفضل التعديل أخي الكريم و هذا هو الكود المستخدم: On Error Resume Next Dim strpath As String Dim PathImg As String strpath = CurrentProject.Path & "\Scans\StPic" If Len(Dir(strpath, vbDirectory)) = 0 Then MkDir (strpath) End If Dim fpath As Variant With Application.FileDialog(3) .Title = "اختر صورة الشخص" .Filters.Clear .Filters.Add "صورة", "*.jpg" .AllowMultiSelect = False .InitialFileName = "" If .Show = -1 Then PathImg = .SelectedItems(1) End If End With FileCopy PathImg, strpath & "\Pic" & Me.txt_StID & ".jpg" Me.St_Pic = strpath & "\Pic" & Me.txt_StID & ".jpg" Desktop.rar

السلام عليكم ورحمة الله استخدم هذا الكود 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

ممتاز

تفضل ملفك و به المطلوب 899999999999999999999999.rar

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

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

السلام عليكم ورجمة الله وبركاته ملف بسيط رغم الطلبات الكثيرة هذا الملف اكسل يقوم بتحويل قاعدة البيانات الى وورد وهو جميل أي يسهل عليك العناك وخاصة عند نسخ قاعدة بيانات من اكسل الى الوررد يستغرق وقت وخاصة عند لصقه في الوورد تكون قاعدة البيانات قد اختلطت مثل هذه الصورة : ولكن عند التغير معليك الا نسخ الأكواد وثم ارفاقها في اي ملف اكسل لديك و أتمنى أن يعجبكم هذا الملف المتواضع أخوكم في الله المبرمج مناد سفيان Copy_excel_to_word.rar

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

معلومات يجب معرفتها قبل الإستمرار في القراءة 1- ما هي المتغيرات variables ؟ أحياناً نحتاج استخدام رمز معين كرمز فقط وليس عنصر ( PHP ) قابل للتنفيذ . مثلاً إن أردت استخدام علامة (‘) كجزء من نص وليس رمز برمجي يتم تنفيذه, فمن الطبيعي

نعلم جميعاً أن لكل متغير مجال محدد ( PHP VARIABLE SCOPES ) ولا يمكن استخدام المتغير إلا في نطاقه, ونعرف أن المتغيرات الشاملة ( PHP GLOBAL VARIABLES ) لا يمكن استخدامها داخل الدوال إلا باستخدام كلمة global . لكن ماذا إذا أردت استخدام المتغيرات الشاملة كوسيط لدالة function argumentt . يمكن تمرير المتغيرات الشاملة كوسائط للدوال باستخدام مرجع reference للمتغير وليس استخدام المتغير نفسه عن طريق وضع علامة & قبل وسائط الدالة. كما تعلم أنه يمكن تمرير قيم الوسائط للدالة ( php passing arguments by value ) وهذه الطريقة تستخدم الوسائط دون تغيير قيمتها الأصلية أنظر الكود التالي شرح الكود : 1- في السطر رقم 2 قمنا بتعريف الدالة fix_names ومررنا إليها المتغيرات n1,n2,n3 2- في السطر رقم 3,4,5 قمنا بتطبيق الدالة ( PHP UCFIRST ) التي ستقوم بتحويل الأحرف الأولى لقيم المتغيرات إلى أحرف كبيرة. 3- في السطر رقم 6 طلبنا طباعة قيم المتغيرات بعد التحويل. 4- في السطر رقم 8,9,10 قمنا بتعريف المتغيرات a1,a2,a3 . 5- ثم في السطر رقم 11 قمنا بتطبيق الدالة fix_names على هذه المتغيرات, فيتم طباعة المتغيرات مع تغيير الأحرف الأولى لها . 6- أما في اسطر رقم 13 قمنا بطباعة المتغيرات a1,a2,a3 فتكون النتيجة هي القيم الأصلية دون تغيير. بالتالي تمرير قيم الوسائط إلى الدوال يحافظ على قيم الوسائط دون تغيير , على عكس تمرير الوسائط بالمرجعية ( Passing By reference ) أنظر الكود التالي شرح الكود 1- في السطر رقم 2 قمنا بإنشاء دالة ( PHP FUNCTIONS ) وهي fix_names باستخدام الوسائط arguments وهي n1, n2,n3 بالإضافة إلى وضع & قبل كل وسيط. هذه الدالة تقوم بتحويل الحرف الأول لأي متغير من النوع string إلى حرف كبير Capital letter باستخدام الدالة مسبقة الإعداد في بي إتش بي ( PHP UCFIRST ). 2- ثم في السطر رقم 8,9,10 قمنا بتعريف ثلاثة متغيرات a1 , a2, a3 لتنفيذ الدالة fix_names عليهم 3- ثم في السطر رقم 11 قمنا باستدعاء الدالة fix_names وتم تمرير الثلاثة متغيرات كوسائط لهذه الدالة, فقامت الدالة بتحويل الحرف الأول ولكن حتى هذه اللحظة لن يتم طباعة النتيجة لأننا لم نطلب الطباعة داخل الدالة في الأساس. 4- ثم في السطر رقم 12 طلبنا طباعة المتغيرات الثلاث باستخدام echo , فكانت النتيجة واحدة مما يوضح أن تمرير الوسائط للدوال بالمرجعية يقوم بتغيير القيمة الأصلية لها على عكس تمرير قيم الوسائط. أيضاً من الاستخدامات المفيدة لتمرير الماغيرات بالمرجعية, هو استخدامها مع جملة ( PHP Foreach As ). فكما نعلم أن جملة foreach as تقوم بعمل التكرار الحلقي على قيم المصفوفات بحيث يتم تخصيص كل قيمة لمتغير ثم الاستفادة من هذا المتغير فيما بعد, لكن دون التأثير على القيم الأصلية داخل المصفوفة. ماذا إن أردت تغيير القيم الأصلية للمصفوفة عند استخدام foreach as ؟ نعلم جميعاً أن جملة foreach as تكتب بهذه الصيغة : الآن إذا أردنا تغيير القيم الأصلية للمصفوفة يجب علينا تمرير القيم بالمرجعية عن طريقة إضافة علام ( & ) قبل value$ كما يظهر في الصيغة التالية : لتوضيح الفكرة سنقوم بعمل مصفوفة لمجموعة من الأسماء تبدأ بالأحرف الكبيرة ثم سنمرر هذه الاسماء بالمرجعية إلى جملة foreach as لتحويل حالة جميع الأحرف إلى الأحرف الكبيرة الأن عن إضافة علامة ( & ) إلى القيمة عند كتابة جملة foreach as سيتم عمل مرجع ( Reference ) للقيم الأصلية داخل المصفوفة , وبالتالي عند تطبيق الدالة ()strtoupper سيتم تحويل حالة جميع الأحرف إلى أحرف كبيرة. تحميل الملف : foreach_pass_by_reference.zip

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

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