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

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

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

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

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

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

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

اذن تريد هذا العمل ان يتم تحت امر حفظ في النموذج الذي قمت بذكره؟؟؟ سهلة وبسيطة فقط اعد الاكواد الخاصة بك تحت زر الادراج ، ثم ضع الاكواد الخاصة بي انا تحت زر حفظ :: تحياتي

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

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

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

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

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

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

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

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

السلام عليكم تفضل التعديل أخي الكريم و هذا هو الكود المستخدم: 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

ممتاز

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

تفضل ملفك و به المطلوب 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 وبالتالي ستحصل على إمكانيات غير محدودة لإضافة التفاعل في صفحات موقعك.

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

معلومات يجب معرفتها قبل الإستمرار في القراءة 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 هذا هو الجزء الاول

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

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