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

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

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

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

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

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

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

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

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

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

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

تفضل test_UP2.mdb

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

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

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

تفضل عزيزي ابن بلدي وقلت لك سابقاً: دعنا نبدأ من هذه النقطة... قصدت من ذلك ان تتابع معي كي نصل الى برنامج رائع لبيع الخبز ولا حاجة للانتظار والسهر فقط غير تاريخ الجهاز يدويا وجرب بخصوص اسماء الصنف: عملت لك استعلام يظهر اسماء الاصناف كتابة :: تفضل هذا تعديل جديد BridSale.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

شكرا على مرورك الحلو أخي 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

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

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

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

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

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

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

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

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

و لتحويل المعادلات لارفام نضيف جزء جديد 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 قضي الأمر ....... ...........