بحث مخصص من جوجل فى أوفيسنا
Custom Search
|
-
Posts
2,065 -
تاريخ الانضمام
-
تاريخ اخر زياره
-
Days Won
51
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
كل منشورات العضو Moosak
-
في حال وجود سؤال جديد متعلق بهذا الموضوع .. يرجى فتح موضوع جديد والإشارة لهذه الصفحة وذلك حسب قوانين المنتدى 🙂 شكرا لكم 🙂 🌹
-
-
احبك الله الذي احببتني فيه اخي العزيز @Foksh 😊🌷
-
كان السبب أنه لابد من حفظ السجل الرئيسي قبل تحميل الملفات 🙂 جرب نزل نفس المرفق الآن ..
-
هذه طريقتي في إعادة تسمية العناصر الكثيرة دفعة واحدة في النموذج بأسماء متسلسلة مثل : ( Box2 , Box1 , ... ) هو كود وقد عملت له نموذج لتسهيل العمل .. 🙂 الكود يقوم أيضا بترتيب وتنسيق العناصر في شكل منتظم لتسهيل عملية التصميم 😊 إقرأ الملاحظات جيدا قبل أن تطبق 😉👌🏻 النموذج : النتيجة ستكون هكذ : ( من >>>> إلى ) >>>> >>>> للاستفادة من هذا النموذج .. قم بنقل النموذج لقاعدة البيانات عندك وسيتعرف تلقائيا على النماذج التي عندك 🙂 ملف التحميل : إعادة تسمية العناصر مع الترتيب بواجهة مرنة.accdb
- 5 replies
-
- 13
-
-
هذه بعض التعديلات على ملف الأخ العزيز @Foksh 🙂 تم إضافة جدول فرعي ليضم الملفات الخاصة بكل كتاب .. وتم إضافته كنموذج فرعي لنموذج الكتاب : وهذا التعديل على الكود : Dim dbox As Office.FileDialog Set dbox = Application.FileDialog(msoFileDialogFilePicker) With dbox .title = "All File" .Filters.Clear .Filters.Add "All files", "*.*" .AllowMultiSelect = True If .Show = True Then Dim i As Variant For Each i In .SelectedItems CurrentDb.Execute "Insert into tbl_sub_A (Id_A , path ) values ( " & Me.id & " , '" & i & "');" Next End If 'Imagepath = .SelectedItems(1) End With Me.SF.Requery MsgBox "تم الإدراج" err: 'DoCmd.CancelEvent MsgBox err.Number & vbNewLine & err.Description End Sub Try 2023.accdb
-
جمع كل سجل على حدة مع باقى السجلات فى الجدول
Moosak replied to esam munir's topic in قسم الأكسيس Access
أخي عصام أشتغلت حسب الوصف .. ولكن ظهرت إشكاليات تتطلب تدخلك فيها 😅🖐 وهي أنه بعض النتائج لايوجد لها قيمة مقابلة في جدول pSize أعلى منها .. لذلك جعلت مقابلها صفر ( أنظر الأعمدة : size4, size3, size2, size1 ) .. والمعادلة التي وضعتها تقسم ناتج الطرح على قيمة الـ size .. فعندما تكون القيمة تساوي صفر لايمكن القسمة على الصفر .. لذلك استبدلتها بالواحد (1) لكي لا تظهر أخطاء .. لكن النتيجة طبعا ستكون خطأ .. المهم هاك الملف ، وعدل على المعادلات بما تراه مناسبا 🙂 الملف : test.accdb -
جمع كل سجل على حدة مع باقى السجلات فى الجدول
Moosak replied to esam munir's topic in قسم الأكسيس Access
تمام أخي عصام .. ولكن المرة القادمة ضع كل استفساراتك مرة واحدة في أول المشاركة 😉👌 طبعا هذه الخطوة تعمل في استعلام هذه المرة .. لكن هناك استفسار : ليش ال 110 تطرح من 130 وليس 115 حسب التسلسل في جدول psize ؟ الرقم الذي أكبر من 110 مباشرة هو 115 وليس 130 ؟! -
هل بالامكان انشاء نقش مثل نقش الهاتف
Moosak replied to عبدالعليم اسماعيل's topic in قسم الأكسيس Access
شكرا أخي @Foksh 🙂 طبعا تم تأسيس التصميم على النقطة التي ذكرتها .. لأن كل رقم مخصص له خط واحد ، وحسب ملاحظتي للنمط الذي في الهاتف أنه لا يقبل المرور على نفس النقطة مرتين .. 🙂 لكن في عالم البرمجة كل شي ممكن ، ولو تتبعنا الأفكار اللامتناهية بحجم الكون وحاولنا تطبيقها كلها لن ننتهي أبدا أبدا .. 😁🖐 فاكتفيت بهذا القدر .. والله الموفق 😊🌼 ولك الحرية طبعا في تطوير الملف وتطبيق أفكارك الإبداعية فيه .. وتشاركنا إبداعاتك بالتأكيد 😉👌🏻 -
جمع كل سجل على حدة مع باقى السجلات فى الجدول
Moosak replied to esam munir's topic in قسم الأكسيس Access
العفو أخي العزيز 😊🌼 طبعا هذه الخطوة ستضعها في موضوع جديد إن شاء الله ( حسب القوانين ) 😉👌🏻 -
جمع كل سجل على حدة مع باقى السجلات فى الجدول
Moosak replied to esam munir's topic in قسم الأكسيس Access
هذه والله أعلم بسبب أنك لم تضغط على [تمكين] في الشريط الأصفر الذي يظهر لك في الأعلى أول ما تفتح الملف .. 🙂 وبالنسبة لهذه .. فهاك ما طلبت (فقط تأكد من صحة العملية الحسابية) : 🙂 الملف : Sum Them All 2.1 - Moosak.accdb -
جمع كل سجل على حدة مع باقى السجلات فى الجدول
Moosak replied to esam munir's topic in قسم الأكسيس Access
-
جمع كل سجل على حدة مع باقى السجلات فى الجدول
Moosak replied to esam munir's topic in قسم الأكسيس Access
تم بحمد الله 🙂 ما رأيك في هذه النتيجة ؟ ( قمت بتغيير تشكيلة الجدول عن المثال الذي أرفقته لتسهيل قرائة الأرقام 🙂 ) وهذا هو الكود الذي ينفذ الأمر : 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 -
جمع كل سجل على حدة مع باقى السجلات فى الجدول
Moosak replied to esam munir's topic in قسم الأكسيس Access
كنت سأسأل نفس السؤال 🙂 طيب أخي عصام .. الطلب واضح لدي .. وعندي تصور مبدأي للحل .. لكن أريدك أن تعطينا مثال لشكل النتيجة النهائية كيف تريدها أن تكون .. ؟؟ ممكن تصمم جدول بالأكسل عادي وتضع فيه نتيجة السجل الأول كمثال .. لأن تصوري للنتيجة سيكون عن طريق إنشاء جدول آخر ( مؤقت ) تظهر فيه السجلات ( وليس استعلام ) وكذلك سيحصل تداخل في البيانات وستظهر لك السجلات متشابهة .. ولن تعرف كيف تميز بينها !! حيث سيكون هناك 16 سجل ناتج للسجل رقم 6001 وحده .. كيف ستعرف أيها ل split1 أو split2 أو split3 أو split4 ؟ -
وعليكم السلام ورحمة الله وبركاته .. 🙂 تفضل .. ستجد طلبك في الاستعلام Last_Mission_Detail_Q مهام الموظفين.accdb
-
أخي @Hema_Elhelow تكرما قم بفتح موضوع جديد لطلبك لتحصل على الدعم اللازم .. 🙂
-
أهلا وسهلا بك أخي عبد الباقي @Abdalbagi Hassan 🙂 🌹🌼 وبما أنك عضو جديد .. تفضل عزيزي وخذ لك نبذة عن قوانين المشاركة في المنتدى : قواعد المشاركة فى الموقع : اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة ولا تنسى استخدام خاصية البحث للحصول على النتائج السابقة عن المواضيع التي تحتاجها وقبل أن تسأل عنها :
-
هل بالامكان انشاء نقش مثل نقش الهاتف
Moosak replied to عبدالعليم اسماعيل's topic in قسم الأكسيس Access
الحمدلله أكتملت الفكرة والتنفيذ 🙂 عملت نموذجين .. وتبقى تكملة المشروع لتكون صفحة تسجيل دخول مكتملة 🙂 النمط الأول : النمط الثاني : للتحميل : MoosaK_Pattern_Lock.accdb -
هل بالامكان انشاء نقش مثل نقش الهاتف
Moosak replied to عبدالعليم اسماعيل's topic in قسم الأكسيس Access
فكرة جميلة وتحد رائع 😊 بالنسبة لي جار العمل وهذا هو الحد الذي وصلت إليه ( ولازال العمل مستمر ... لا يزال يحتاج لتطوير ) : تحدي جميل تعلمت من خلاله كيفية تحريك الخطوط 👍😉 -
معرفة و متابعة الاجهزة التى تعمل على الشبكة
Moosak replied to محمد احمد لطفى's topic in قسم الأكسيس Access
شكرا لك أخي @Foksh 🙂 الكود يجلب أرقام ال IP adress للأجهزة بدون اسم الجهاز .. للعلم