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

السلام عليكم هذه مشاركة مع اساتذتي الاعزاء 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,"ناجح","راسب")) بالتوفيق

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

تفضل واخبرنا بالنتائج 15 - CopieQ.accdb

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

وعليكم السلام انسخ هذا السبروتين لديك ..عند تشغيل التقرير كل مرة يأخذ قيمه من الاستعلام الجدولي قم بتسمية حقول التقرير بأسماء مثل Field1,Field2 الخ ...لان اسم الحقل في الكود هو Field واجعلها مثلا سبعة حقول Dim ReportLabel(7) As String Sub CreateReportQuery() On Error GoTo Err_CreateQuery Dim db As DAO.Database Dim rs As DAO.Recordset Dim qdf As DAO.QueryDef Dim fld As DAO.Field Dim indexx As Integer Dim FieldList As String Dim strSQL As String Dim i As Integer Set db = CurrentDb Set qdf = db.QueryDefs("qryReductionByPhysician_Crosstab") indexx = 0 For Each fld In qdf.Fields If fld.Type >= 1 And fld.Type <= 8 Or fld.Type = 10 Then FieldList = FieldList & "[" & fld.Name & "] as Field" & indexx & ", " ReportLabel(indexx) = fld.Name End If ' MsgBox Label(indexx) indexx = indexx + 1 Next fld For i = indexx To 7 FieldList = FieldList & "null as Field" & i & "," Next i FieldList = Left(FieldList, Len(FieldList) - 1) strSQL = "Select " & FieldList & " From qryReductionByPhysician_Crosstab" db.QueryDefs.Delete "qryCrossTabReport" Set qdf = db.CreateQueryDef("qryCrossTabReport", strSQL) Exit_CreateQuery: Exit Sub Err_CreateQuery: If Err.Number = 3265 Then '*** if the error is the query is missing Resume Next '*** then skip the delete line and resume on the next line Else MsgBox Err.Description '*** write out the error and exit the sub Resume Exit_CreateQuery End If End Sub ثم قم بأستدعائه من حدث عند فتح التقرير وضع الكود التالي Dim i As Integer For i = 0 To 7 ReportLabel(i) = "" Next i Call CreateReportQuery في راس التقرير قم بوضع مربعات نص ..مثلا سبعة كعدد الحقول واجعل مصدر السجلات =filllabel(0) ,=filllabel(1) وهكذا ثم انسخ الكود التالي Function FillLabel(LabelNumber As Integer) As String FillLabel = Nz(ReportLabel(LabelNumber), "") End Function بالتوفيق ان شاء الله

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

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

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

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

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

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

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

بالفعل أخي الكريم يمكن إظهار وإخفاء شريط الصيغة والأفضل من وجهة نظري هو اخفاء المعادلة و ما تفرقش إظهار أو إخفاء شريط الصيغة فيكون الكود بعد التعديل وبعد إضافة كلمة مرور لحماية الشيت هكذا Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.HasFormula Then Selection.Locked = True Selection.FormulaHidden = True ActiveSheet.Protect Password:="mas123" Else ActiveSheet.Unprotect Password:="mas123" End If End Sub ويعني الكود السابق إذا كانت النطاق يحتوي على معادلة يتم حماية وإخفاء المعادلة في الخلية ثم حماية ورقة العمل بكلمة مرور هي mas123 وإلا فيلغي الحماية التي تم تنفيذها في جواب الشرط الأول أخوكم محمد صالح

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

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

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

بالنسبة لظهور الحروف العربية كرموز غريبة في ايميل الياهو مثلا يوجد أسفل كل رسالة مجموعة من الأزرار وهي deleete * replay *forward * spam * move ويوجد أسفل هذه الأزرار قائمة مكتوب فيها select message encooding اختر utf-8 وإذا لم تضبط معك اختر windows-1256 حيث أن الترميز الأول هو الترميز العالمي والثاني هو ترميز اللغة العربية كلامي هنا على الياهو كلاسيك أما بالنسبة للياهو الجديد فيوجد قائمة في صورة زر في أعلى الرسالة more options ومنه اختار encooding أخبرني هل حلت المشكلة بعد هذه المحاولات أم لا أخوك محمد صالح

أخي ياسر موضوع ظهور اللغة العربية المنسوخة من 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