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

نفضل مثالك مطبق عليه المطلوب ........ Database1 (22).accdb

السلام عليكم و رحمة الله و بركاتة برنامج حساب الوزن من تصميمي حساب الوزن.xlsx

شكرا أخي @Foksh 🙂 طبعا تم تأسيس التصميم على النقطة التي ذكرتها .. لأن كل رقم مخصص له خط واحد ، وحسب ملاحظتي للنمط الذي في الهاتف أنه لا يقبل المرور على نفس النقطة مرتين .. 🙂 لكن في عالم البرمجة كل شي ممكن ، ولو تتبعنا الأفكار اللامتناهية بحجم الكون وحاولنا تطبيقها كلها لن ننتهي أبدا أبدا .. 😁🖐 فاكتفيت بهذا القدر .. والله الموفق 😊🌼 ولك الحرية طبعا في تطوير الملف وتطبيق أفكارك الإبداعية فيه .. وتشاركنا إبداعاتك بالتأكيد 😉👌🏻

جزاكم الله خبرا بتقول انت تعبت في عمل الاكواد ومش عايز واحد ياخد اي كود طيب ممكن تكتب كود واحد من تصميمك هنا ولا تم اخد الاكواد من المنتديات وتطويعها لك وخايف حد يشوف انك اخدتها منهم ... مجرد سؤال عايزين العلم ينتشر الله يرحم والديك ووالدينا

مبدئيا ارشح لحضرتك قناة الاستاذ محمود عبدالغفار https://www.youtube.com/@mahmoud1969 هتلاقى فيها سلسلة لشرح ادوات ال VBA وغيرها من الاكواد

اعتقد لن يتمكن احد من ايجاد الحل حتى يمتلك جهاز ماسح مثل جهازك ومن البديهي اننا لا يمكننا التعامل مع خصائص الماسح داخل المحرر اذا لم توجد مكتبة تدعم ذلك مثلا تكون شبيهة بمثل هذه : canon Automation Library v2.0 . لللأسف انا املك جهاز HP flatbed هذا الرابط قريب من طلبك

ربما يرجع السبب لعدم ضبط اعدادات اللغة العربية في الويندوز مع تمكين المحتوى طبعا في بداية فتح الملف بالتوفيق

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

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

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

كود سحب صورة من الاسكنر بحجم صغير جدا مع خيار سحبها ملونة او سودا https://drive.google.com/file/d/1xYNrRJNhiPKLi3M5OgdtVP-ZB8-o6hKU/view?usp=sharing

هذه والله أعلم بسبب أنك لم تضغط على [تمكين] في الشريط الأصفر الذي يظهر لك في الأعلى أول ما تفتح الملف .. 🙂 وبالنسبة لهذه .. فهاك ما طلبت (فقط تأكد من صحة العملية الحسابية) : 🙂 الملف : ‏‏Sum Them All 2.1 - Moosak.accdb

السلام عليكم وهذا خيار آخر Sub test2() Dim a, b Dim i&, ii& a = Cells(7, 1).Resize(Cells(Rows.Count, 1).End(xlUp).Row, 2) ReDim b(0 To UBound(a), 1 To 1) For i = 1 To UBound(a) If a(i, 1) & a(i, 2) <> "" And a(i, 1) <> 0 And a(i, 2) <> "" And a(i, 1) <> 0 And _ WorksheetFunction.IsNumber((a(i, 1))) Then b(ii, 1) = i: ii = ii + 1 Next Cells(7, 10).Resize(ii, 2) = Application.Index(a, b, Array(1, 2)) End Sub

يعرض الصور وال PDF بشكل فعال من الممكن ان لديك مشكلة فى برنامج ادوبي ريدر (من الممكن انك تحتاج الى تحديثه او التأكد من وجود المكتبه )

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

عليكم السلام جرب المعادلة في الخلية B2 , اسحب نزولا ويسارا عسى يكون المطلوب =INDEX('1'!$A$1:$AN$74,MATCH($A2,'1'!$A$1:$A$74,0),MATCH($A$1:$AN$1,'1'!$A$1:$AN$1,0)) أو =INDEX('1'!$A$1:$AN$74;MATCH($A2;'1'!$A$1:$A$74;0);MATCH($A$1:$AN$1;'1'!$A$1:$AN$1;0)) حسب الإعدادات لديك تجربة (2).xlsx

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

بجربة ربي يحفظكم جميعا إنّي أسألك أن تكون عونًا لصديقي في غربته مؤنسًا له في وحشته وأن تُثبّته على طاعتك وتصرف عنه ما يشغله عن ذكرك وعبادتك.

السلام عليكم ورحمة الله وبركاتة اخر Moosak فى الحقيقة النتايج مذهلة ولم اكن اتخيل ان حضرتك تبدع بهذا الشكل ليس تقليلا لاسمح الله ولكن لإحساسى بتعقيد الموضوع فجزاك الله خيرا وان يجعل هذا الجهد فى ميزان حسناتكم لكن كده بقى انت فتحت نفسى اكمل الموضوع حيث ان هذة اول نقطة وليست الاخيرة بعد اذنك طبعا .... اول نقطة ضغطت على الزر الكود لا يعمل يبدو ان بة مشكلة بسيطة او اى شىء لا أعلمة ثانى نقطة لكل سجل من الجدول الاساسى اضافت حقل يسمى GSM احتاج الفرق ما بينهم ( نسبة مئوية )وهو حقل واحد وليس 4 حقول كما السابق بمعنى اذا كان مثلا 6001 ال gsm الخاص بة 414 و 6199 ال gsm الخاص بة 450 فما أحتاجة هو الفرق ما بينهم وهو 36 مقسوم على GSM الاكبر وهو 450 ليكون 8% فى هذة الحالة اسف على الإطالة لكن حضرتك اللى فتحت نفسى ان الموضوع يكمل معايا Sum Them All - Moosak.rar

ما تم تم عمل جداول التى تم ذكرها سابقا فى مشارقتى السابقة وتم عمل العلاقات بين الجداول واصلاح الملاحظات وهذه هى النتيجة New Microsoft Access Database2.rar واترك لك الباقى

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

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

أخي بدلا من عارض الصور لوحدة وعارض ملفات البي دي اف لوحدها ............ جرب هذا الملف يمكن ينفعك ............... مع تحياتي . All extensions in web browser.rar

تم بحمد الله 🙂 ما رأيك في هذه النتيجة ؟ ( قمت بتغيير تشكيلة الجدول عن المثال الذي أرفقته لتسهيل قرائة الأرقام 🙂 ) وهذا هو الكود الذي ينفذ الأمر : Option Compare Database Option Explicit Private Sub DoSumBtn_Click() '"planWWB" '"Temp_Sum_T" On Error GoTo HandleError Dim db As DAO.Database Dim Rs1 As DAO.Recordset Dim Rs2 As DAO.Recordset Dim x As Long, i As Integer x = 1 CurrentDb.Execute "DELETE * FROM Temp_Sum_T;" Set db = CurrentDb Set Rs1 = db.OpenRecordset("SELECT * FROM planWWB ORDER BY m;") If Not Rs1.BOF And Not Rs1.EOF Then Rs1.MoveFirst While (Not Rs1.EOF) For i = 3 To 6 CurrentDb.Execute "INSERT INTO Temp_Sum_T (No, m, Operation1, Result1 ) " & _ "VALUES (" & x & "," & Rs1!m & ",'" & Rs1.Fields(i).Name & "'," & Rs1.Fields(i).Value & ");" Set Rs2 = db.OpenRecordset("SELECT * FROM planWWB where m <> " & Rs1!m & " ;") If Not Rs2.BOF And Not Rs2.EOF Then Rs2.MoveFirst While (Not Rs2.EOF) Dim s1 As String, s2 As String, s3 As String, s4 As String s1 = Rs1.Fields(i).Name & " + " & Rs2.Fields(3).Name s2 = Rs1.Fields(i).Name & " + " & Rs2.Fields(4).Name s3 = Rs1.Fields(i).Name & " + " & Rs2.Fields(5).Name s4 = Rs1.Fields(i).Name & " + " & Rs2.Fields(6).Name CurrentDb.Execute "INSERT INTO Temp_Sum_T (No, m, m2, Operation1, Result1, Operation2, Result2, Operation3, Result3, Operation4, Result4 ) " & _ "VALUES (" & x & "," & Rs1!m & "," & Rs2!m & ",'" & _ s1 & "'," & (Rs1.Fields(i).Value + Rs2.Fields(3).Value) & ",'" & _ s2 & "'," & (Rs1.Fields(i).Value + Rs2.Fields(4).Value) & ",'" & _ s3 & "'," & (Rs1.Fields(i).Value + Rs2.Fields(5).Value) & ",'" & _ s4 & "'," & (Rs1.Fields(i).Value + Rs2.Fields(6).Value) & ");" Rs2.MoveNext DoEvents Wend End If Next i x = x + 1 Rs1.MoveNext DoEvents Wend End If Rs1.Close Rs2.Close Set db = Nothing Set Rs1 = Nothing Set Rs2 = Nothing DoCmd.OpenTable "Temp_Sum_T" MsgBox "تم جمع كل السجلات" HandleExit: Exit Sub HandleError: If Err.Number = 0 Then Resume Next Else MsgBox Err.Number & vbNewLine & vbNewLine & Err.Description End If Resume HandleExit End Sub لحذف الحسابات السابقة وإعادة الحساب من جديد تضغط على الزر : الملف : Sum Them All - Moosak.accdb

هل تصوري لمطلوبك صحيح ؟؟؟؟؟

السلام عليكم ورحمة الله وبركاته اولا اهنأكم بالعام الميلادي الجديد راجيا من الله ان يكون حال الامة العربية فيه افضل السادة اساتذتي مديري واعضاء المنتدي الكرام ارق تحياتي اليكم اقدم لكم اليوم ثاني برامجي وهو برنامج مخازن متكامل ارجو ان ينال اعجابكم ودائما وابدا سأظل اذكر اصحاب الفضل بعد الله تعالي استاذي / عبد الله باقشير العلامة القدير استاذي / حمادة عمر صاحب الفضل الاول وجميع الاعضاء والمديرين ولكل من علمني حرف ولكم يسعدني ان اسمع اراء اساتذتي في هذا العمل المتواضع تحياتي لكم جميعا ،،، تلميذكم الوفي / محمود ربيع Quick Stockبرنامج المخازن بدون كتيب الشرح.zip رابط تحميل كتيب شرح البرنامج Quick Stock برنامج المخازن العملاق نسخة معدلة شامل الشرح.zip