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

السلام عليكم هذه مشاركة مع اساتذتي الاعزاء i2m-1.rar

وعليكم السلام يمكنك ذلك بهذه المعادلة بعد ادخال وكتابة كود الصنف سيتم احضار اسم الصنف وكذلك بمعادلة أخرى إيجاد سعر الصنف =IFERROR(VLOOKUP($C12,'الصنف والسعر'!$A$2:$D$2100,2,0),"") فاتورة جديدة8.xls

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

تفضل التعديل و ستكون النتجية في الجدول الارقام.accdb بالإمكان الاستغناء عن ازار = و جعل النتيجة عن النقر على النمذج او اي مكان تريده

لأن العمود رقمي لو أردت ان تظهر المعادة يجب ان تحول الحقل الى نص تفضل هذا التعديل فقط على النموذج الارقام.accdb

بما انك لم تقم برفع ملف موضح به المطلوب بكل دقة ... فكان عليك استخدام خاصية البحث بالمنتدى فبه طلبك - تفضل تحويل ملف الاكسيل الى تنفيذى ثم تنصيب الملف بالصور

هل هذا ماتقصده؟ الارقام.accdb

تفضل اخي الكرم هذا مثال لـ OpenForm مع تحديد خصائص وشروط DoCmd.OpenForm _ FormName:="Form1", _ WhereCondition:="[ID] = " & Me.ID, _ DataMode:=acFormEdit, _ WindowMode:=acDialog ' FormName اسم النموذج ' FormName:="Form1", _ ' WhereCondition الفلتر او الشروط ' WhereCondition:="[ID] = " & Me.ID, _ ' DataMode وضع التحرير ' DataMode:=acFormEdit, _ ' WindowMode وضع النافذة ' WindowMode:=acDialog تحياتي

بعد إذن صديقي بن علية طبعا تفضل أخي الكريم هذه فكرتي في تنفيذ المطلوب في شيت 2 ولكن أنصح بوضع الرقم الأكبر 10 تحت خانة الطول والرقم الأصغر 8 تحت خانة العرض حتى تحصل على أفضل النتائج بالتوفيق mas_cut_draw.xlsb

المشكلة في رقم الصف الذي يجلب بياناته ويضعها على الزر لاحظ هذا السطر Controls("C" & I).Caption = SH.Range("b" & I ) يجلب الصفوف من 1 إلى 20 من العمود B مع ملاحظة أن الأصناف تبدأ من الصف 3 لذلك ينبغي إضافة 2 ليصبح الكود Controls("C" & I).Caption = SH.Range("b" & I + 2) ونفس الشيء في هذا السطر Controls("Command" & I).Caption = SH.Range("g" & I ) وينبغي إضافة 1 لأن صف العنوان غير مطلوب ليصبح الكود Controls("Command" & I).Caption = SH.Range("g" & I + 1) بالتوفيق

يمكنك الاستفادة من هذا الموضوع

تفضل هذه طريقة اخرى اعتقد انها اوضح من السابقة UP_Database1.rar تحياتي

جرب هذا برنامج الصادر والوارد.zip

وهذ صفحة من برمجة @أ / محمد صالح اضغط هنا للدخول بإختصار شديد الإحتراف و الإبداع ليس له نهاية مع الأستاذ محمد صالح ماشاء الله لا قوة إلا بالله

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

وهذه ايضا في حالة زيادة الربح على الفترة وليس على التراكمي كما في مثال استاذي @husamwahabجزاه الله خيرا الربح التراكمي معمول في البنوك على ما اعتقد i2m - Copy.accdb

اشكرك استاذ / @أ / محمد صالح اشكرك جدا جدا جدا وجزاك الله خير على الاهتمام بعد غد ان شاء الله سوف اذهب بنفسى الى الفروع التى تستخدم التاتش واقوم بالخطوات التى قمت حضرتك بشرحها تشغيل on screen keyboard في وينوز 7 وسوف اتيك بالنتيجة كل الاحترام والتقدير لشخكم الكريم

مساهمة مع الاساتذه الكرام .... جرب المرفق واعلمنا بالنتيجة الارقام.accdb

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

عفوا تم تعديل المرفق الارقام.accdb

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

استاذنا ومعلمنا / @أ / محمد صالح استاذى جميع الشاشات التى نمتلكها ليس لها لوحة مفاتيح touch keyboard ما ادرى من وين اشتروها هل ممكن فعل المطلوب على ما اشوف موضوع الشاشات مع المختصين جزاك الله كل خير اخى الكريم

الفكرة تكررت في موضوعات كثيرة ويجب أ ن نتعلم مما سبق

بارك الله فى حضرتك .. وجعله فى ميزان حسناتك

مبدع دائما استاذنا وسباق للمساعدة وشكرا لكم الشكر الجزيل استاذنا لايوجد خطأ في المثال الذي ذكرته والناتج هو 4 كما تفضلتم ولكن يظهر باللون الاخضر ربما يكون غير واضح استاذنا ممكن اضافة بسيطة من حضرتكم الكريم وهي ان الناتج يجب ان لايكون (صفر ) مثال العدد 21 الكبير نطرح منه 7 الصغير هنا حسب عملية الطرح العادي او باستخدام المعادلة سيكون الناتج (صفر )في هذه الحالة ارجو ان كان الناتج يساوي (صفر) يرجع العدد الى العدد الصغير وهو هنا العدد 7 حفظكم الله استاذنا ووفقكم

الناتج الذي قدمته ( 5 ) خطأ والصواب 4 لأن المتبقي من 524 بعد طرح الرقم 5 عدد 104 مرة يساوي 524 - 520 = 4 ويمكنك استعمال المعادلة التالية =MOD(A1,B1) حيث A1 بها الرقم الأكبر و B1 بها الرقم الأصغر وهذه المعادلة تقوم بجلب باقي قسمة الرقم الأول على الثاني بالتوفيق

شكراً لك اخي الحبيب تم حل المشكلة

رائع استاذنا محمد بارك الله فيك

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم Private Sub أمر0_Click() DoCmd.OpenForm "Z1", , , X1 = 0 Forms!Z1!X1 = 0 End Sub Private Sub أمر1_Click() DoCmd.OpenForm "Z1", , , X1 = 1 Forms!Z1!X1 = 1 End Sub Database1.accdb تحياتي

الأمر بسيط جدا أن تضيف شرطا إذا كانت الدرجة فارغة فالنتيجة فارغة يمكنك استعمال هذه المعادلة في D4 =IF(C4="","",IF(C4>=60,"ناجح","راسب")) بالتوفيق

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

تفضل هذه مشاركتي اضف ازارا اننشاء تقرير و ضع الشفرة التالية حدث عند النقر Dim ctlLabel As Control, ctlText As Control Dim intDataX As Integer, intDataY As Integer Dim intLabelX As Integer, intLabelY As Integer Dim db As DAO.Database Dim rs As DAO.Recordset intLabelX = 100 intLabelY = 100 intDataX = 1000 intDataY = 100 Set rpt = Application.CreateReport rpt.RecordSource = "TRANSFORM Sum(الخزينة.المداخيل) AS Sumمنالمداخيل SELECT الخزينة.البيان, الخزينة.التصنيف, Sum(الخزينة.المداخيل) AS [إجمالي المداخيل] FROM الخزينة GROUP BY الخزينة.البيان, الخزينة.التصنيف PIVOT الخزينة.[الفرع/المصلحة];" Set rs = CurrentDb.OpenRecordset("TRANSFORM Sum(الخزينة.المداخيل) AS Sumمنالمداخيل SELECT الخزينة.البيان, الخزينة.التصنيف, Sum(الخزينة.المداخيل) AS [إجمالي المداخيل] FROM الخزينة GROUP BY الخزينة.البيان, الخزينة.التصنيف PIVOT الخزينة.[الفرع/المصلحة];") Dim x, x2 As Integer For x = 0 To rs.Fields.Count - 1 Set ctlText = CreateReportControl(rpt.Name, acLabel, acPageHeader, , rs.Fields(x).Name, _ intDataX * x, 0, 555) ctlText.Name = rs.Fields(x).Name & x Set ctlText = CreateReportControl(rpt.Name, acTextBox, acDetail, , rs.Fields(x).Name, _ intDataX * x, 0, 555) ctlText.Name = rs.Fields(x).Name Next rs.Close Set rs = Nothing rpt.RecordSource = "الخزينة_Crosstab"

لا يوجد في كود زر تنفيذ المعادلة أي مسح للبيانات فقط وضع المعادلة وتحويلها إلى قيم With ws lr = .Cells(Rows.Count, 4).End(xlUp).Row .Range("h5:h" & lr).Formula = "=D5*J5*I5" .Range("h5:h" & lr).Value = .Range("h5:h" & lr).Value End With ولو بها بيانات ماذا تكون المعادلة ؟ نص فارغ مثلا

المشكلة كانت في تكرار اسم الدالة في الموديولين وفي أحد النماذج وتحديد الجدول مصدر كل نموذج تفضل هذا التعديل MAS_CHARVAL بطريقتين.accdb

جرب المرفق مستحقات العاملين 1.xlsm

إذا كان برنامج واتس اب للكمبيوتر مثبتا على جهازك يمكنك استخدام هذا الكود Shell "explorer.exe ""whatsapp://send?phone=" & mynumber & "&text=" & mymessage & """", vbNormalFocus حيث mynumber متغير يحمل الرقم مع مفتاح الدولة ومتغير mymessage يحمل نص الرسالة هذا أفضل من هيبرلينك بإذن الله

جرب هذه المعادلة بتغيير بسيط على معادلة أ / علي =IF(COUNTIFS($B$2:$B$200,B2,$C$2:$C$200,C2)>1,"OK","") بالتوفيق data search1.xlsx

جزاكم الله كل خير جميعا. وأحب أن أبشركم بأني في طريقي للانتهاء من برمجة أقصر واسرع كود للتفقيط (54 سطر برمجي) متعدد اللغات ويمكن تخصيصه لجميع العملات وموافق لقواعد اللغة العربية واللغة الإنجليزية. ولكن نظرا لاهتمامي بلغة الويب قمت بعمله أولا في هذه الصفحة أونلاين https://www.mr-mas.com/p/tafqeet.html وجاري تحويله ليعمل على فيجوال بيسك للتطبيقات vba تابعونا

برنامج تكويد المواد والأصناف خاص ببرامج المستودعات والمخازن السلام عليكم ورحمة الله وبركاته بسم الله الرحمن الرحمن الرحيم والصلاة والسلام على أشرف المرسلين.. أتمنى من الله أن يكون الجميع في أتم الصحة وأحسن حال حبيت اليوم أقدم موضوع خفيف في إعتقادي أنه مهم لبرامج المخازن والمستودعات فيما يتعلق بموضوع تكويد الأصناف والتي تختلف من مستودع لأخر ومن نظام لأخر. ولكن يبقى المفهوم واحد وهو إعطاء رمز أو رقم أو تركيبه من حروف وأرقام تكون مميزة لكل صنف أو مادة بالمستودع بحيث لا يتكرر هذا الرقم وأيضا لا يكون عشوائي بحيث يمكن الربط بين المواد بمجموعات. شرح الاستخدام والبرنامج موجود في المرفقات وأي إنتقادات أو إقتراحات تساعد على تطوير البرنامج أو الفكرة أرجو تزويدي بيها والبرنامج هو فكرة مصغرة ومبسطة أمل أن تلقى إعجباكم ويعمل على تطويرها أخوانا وخبرائنا في المنتدى. Items Coding System.rar

تحديث للمرفق: تم إضافة إمكانية التعديل على الأكواد Items Coding System V2.rar

الدرس الثالث: استخدام جهاز قارئ الباركود في الإكسيل كثير من الناس يعتقد أن استخدام جهاز قراءة الباركود يحتاج نظام وأجهزة خاصة للتعامل معه، ولكن الأمر أبسط مما كنت أتوقعه، في ا لدرس الأول حللنا عقدة تكوين شريط الباركود ، لم يبق لدينا إلا أن نربطه في قاعدة البيانات في الإكسيل. كل ما عليك هو التالي: 1- طباعة ملصقات الباركود على ورقة A4. 2- بناء قاعدة البيانات في الإكسيل. 3- بناء صفحة الإدخال في الإكسيل. بالنسبة لآلية عمل جهاز القارئ يكون لو بعملتين هما: كتابة الكود ثم enter. فلذلك ينتقل مؤشر الماوس إلى السطر التالي. ولكي نجعل المؤشر يبقى في مكانه نقوم بحماية الصفحة (انظر الشرح في الملف المرفق) لا أعتقد أنكم تحتاجود درس آخر .. لأننا وصلنا إلى الفكرة ومبرووووك عليكم التعامل مع الباركود. barcode reading.rar

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

الدرس الأول: مولد الباركود أول خطوة لمعرفة كيفية قراءة الباركود هو طريقة توليدها ومن ثم ربطها بالبرنامج. تختلف صياغة الباركود نظراً للكود الذي يتبعه والتي تحدد معايير رسم وقراءة رموز الباركود، مثل كود 93 و كود 39 وكود 128، ولهذا السبب يشتكي البعض من عدم تمكنه من قراءة رموز الباركود، ولهذا في هذا الدرس سنعتمد على كود 128 وكود QR لأنهما الأكثر شيوعاً وتقبل معظم الأجهزة.. هناك برامج ومواقع كثيرة تقوم بتوليد الباركود، ونحن في هذا الدرس قمنا بتوليد الباركود عن طريق موقع خارجي من خلال المرفق التالي. barcode generator.rar

أخي ياسر وجدت في البرنامج الموجود بالرابط السابق مشاكل في عملية الفك فقمت برفع البرنامج والسيريال والتعريب على رابط جديد هذا هو من هنــــــأ عذرا عن التأخير

ايه الحلاوة دي يا عم ياسر شرح واف بس أنصحك باستعمال برنامج هذا موقع البرنامج موقع البرنامج وهذا رابط للتحميل من هنــــــا وقولي ايه رأيك

تسلم أخي من كل سوء كل عام أنتم بخير

شكرا على مرورك اخي سالم أسعدني مرورك على موقعي المتواضع

أخي ياسر موضوع ظهور اللغة العربية المنسوخة من vbe تحتاج فقط لنسخ ولصق النص في المفكرة notepad ثم نسخه منها إلى الموقع وقد تم علاجها في أوفيس 2010 هذا من أوفيس 2010 Private Sub Worksheet_SelectionChange(ByVal Target As Range) MsgBox "عربي" End Sub وهذا بعد نسخه في المفكرة ونسخه من المفكرة إلى هنا Private Sub Worksheet_SelectionChange(ByVal Target As Range) MsgBox "عربي" End Sub

إضافة بسيطة على كلام أخي ابو اسامة يتم وضع الكود السابق في حدث عند تغير التحديد في ورقة العمل فيصبح الكود Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.HasFormula Then Application.DisplayFormulaBar = False ActiveSheet.Protect Else Application.DisplayFormulaBar = True ActiveSheet.Unprotect End If End Sub وكل عام أنتم بخير بمناسبة شهر رمضان الكريم أخوكم محمد صالح

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