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

كن معي اولا اليك صورة ولا تحكي مع نفسك كن معي النتيجة هو حقل dd 1 / الفرق بين سجل الاول مع الاول اللي ليس موجود هو 2000 لانه ما في اي سجل قبله وقيمته صار صفر 2000 - 0 = 2000 2/ الفرق بين سجل 2000 مع سالب 500 اي 2000 - (-500) = 2500 3/ الفرق بين سالب (-500) و 5000 اي (500-) - 5000 = 5500 4/ الفرق بين 5000 و 6000 اي 5000 - 6000 = -1000 لكن انا استخدمت دالة اي بي اس Abs لكي يعطي نتيجة موجبة 5/ الفرق بين 6000 و 7000 هو سالب 1000 6 / الفرق بين 7000 و 9000 هو 2000 اولا انا استخدمت هذا لكي احصل على السجلات الفردي والمزدوج واغير رقم السجلات المزدوجة الى سالب d1: IIf([id] Mod 2;-[num];[num]) وبعدين استخدمت هذا لكي احصل على النتيجة dd: Abs(DSum("[d1]";"استعلام1";"[id] <=" & [id] & "and [id] >=" & [id]-1)) وهناك ملاحظة : يجب ان يكون ترقيم متسلسل لكي يوصل الى المطلوب اي لا يجوز هناك رقم محذوف في سجل اليك ملفك بعد تعديل test130 (1).rar

بارك الله لك على حرصك على التعلم والتطبيق والجواب سهل جدا فقط يلزمك تغيير الاخاصية column width عرض العمود إلى 0,3 وتعني أن العمود الأول لا يظهر فعرضه 0 زالعمود الثاني (الاسم) يظهر وعرضه 3 سم لاحظ هذا المرفق mas_Networks.rar

اتمى ان ينال هذا العمل المتواضع على رضاكم ان شاء الله تعالى كل عام وانتم وانتم بخير وان شاء الله كل عام وكل شهر وكل يوم وانتم الى الله تعالى اقرب اخوكم المحب لكم فى الله _ محمد عصام ولمعاينة الفلاش اون لاين بدون قاعدة البيانات المرفقة من الرابط الاتى http://store6.up-00.com/2017-05/149557322361211.swf هديتى المتواضعة اليكم ... رجاء فك الضغط عن الملف المرفق لوجود ملف فلاش مقترن بقاعدة البيانات رمضان كريم.rar

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

::: تفضلي .. ظهر الحق .... Networks_UP.rar

وأخيراً تمت مشاركة ملف الإكسيل في شبكة محلية مع الموظفين وتم تبادل البيانات معهم والتعديل عليها.. تابعونا لمعرفة الخطوات.

هل ترغب بوضع ساعة في ورقة العمل الخاصة بك؟؟ يتم تحديثها كل ثانية مثل ساعة النظام تماما الحل تجده في المرفق لا تنسوا أخاكم محمد صالح من صالح دعائكم clock.rar الإصدار الأحدث ويوجد في المشاركة 14 من الموضوع clock3.rar والآن تم تطوير الملف بصورة أكثر احترافية ليعرض ساعة رقمية وساعة عقارب وإذا رغب أحبابي في الله يتم شرح فيديو للطريقة وخصوصا الساعة العقارب لا تحكم في رغبتك لعمل شرح إلا بعد مشاهدة هذا المرفق mas digital and analog clock.rar

مشكور أستاذ @Shivan Rekany على التوضيح ولكن الآلية المتبعة في البرنامج هي يختار أو يكتب اسم المستخدم في شاشة الدخول فإذا نسي كلمة المرور يضغط على نسيت كلمة المرور فيفتح نموذج آخر به مربع نص لكتابة البريد الخاص باسم المستخدم الذي تم اختياره في النموذج الأول فإذا كان البريد صحيحا يتم إرسال كلمة المرور المسجلة في جدول المستخدمين إلى البريد الذي تم التأكد من صحته باستخدام بريد جي ميل المبرمج أو القائم على الأمر أرجو أن يكون الأمر اتضح وفقنا الله جميعا لكل خير

استاذ Shivan Rekany لا اعرف اين اضع علامة الصح اسف تم اللازم

اللهم امين امين امين كل الشكر والتقدير واطيب الامانى والتهانى

اللهم بلغنا رمضان اللهم بلغنا رمضان اللهم بلغنا رمضان امين امين والحمد لله رب العالمين

تقبل الله منا ومنكم صالح الأعمال

اخي ناصر تواصلي من خلال الهاتف.. فلا اري الملف والاكواد بشكل جيد بعد مراجعه السطر.. هنا العمود B وليس C

السلام عليكم عندي برنامج اصلاح ولكنه لم يعثر على جداول اما ان هذه هي قاعدة بيانات امامية او ان الجداول تم اخفاؤها برمجيا وكان عندي برنامج مدفوع ولكن المدة انتهت ويحتاج تجديد وقد اظهر لي هذه الصورة ولاحظوا لا يوجد جداول

تفضل المرفق 111111.rar

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

السلام عليكم اخى الكريم استبدل الرقم 2 الموجود بأخر صف بالكود .End(xlUp)(2, 1) بالرقم (7 )

ممكن تعطينا النتيجة المطلوبة اي تريد ان يكون كيف النتيجة اكتبه

شكرا لك اخي الكريم ممنونك كتير

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

الاخ الفاضل خالد الرشيدى دائما ماتكون معادلاتك جميله بارك الله فيك واسمح لى بالمشاركه تقبل تحياتى =TODAY()-DAY(TODAY())+1 =EOMONTH(NOW(), -1)+1

بعد اذن أستاذنا خالد الحل سهل جدا ضع في الخلية C2 =LEFT(B2,1) واسحب المعادلة لأسفل

اخي الكريم لا داعى لمعادلة التكويد الى حضرتك ساحبها هى والتنسيقات لاخر صف بالصفحة !!!!!! ألا يهمك ان يكون الملف خفيف وسهل الاستخدام ؟؟؟ التكويد يتم من خلال نفس الكود -- تم الابقاء على تنسيقات 1000 صف وحذف الباقي حفاظاً على الملف كحجم وك ثبات - عند الانتهاء منها يمكنك تطبيقها بالسحب على الف اخرى وهكذا انظر المرفق وابدي ملاحظاتك - ان كان هو ما تريد حدد الموضوع كمجاب مخزن.rar

شكرا جزيلا يا استاذى و جزاك الله كل خير عمل رائع

السلام عليكم اخى الكريم استبدل الكود الخاص بالبحث بصفحه ( تقرير حركة صنف ) بهذا الكود .. عله المطلوب تماماً Sub Find_All() Dim date1 As Date, date2 As Date Dim sCode As Integer, T As Variant, x As Integer, LR As Long date1 = CDate(Sheets("تقرير صنف").Range("F4")) date2 = CDate(Sheets("تقرير صنف").Range("F5")) sCode = Sheets("تقرير صنف").Range("F3") '.Text Sheets("تقرير صنف").Range("E9:K" & Range("E" & Rows.Count).End(xlUp).Row + 1).ClearContents x = 9 Application.ScreenUpdating = False For Each T In ThisWorkbook.Worksheets If T.Name = "مخزن الصرف" Or T.Name = "مخزن الاضافة" Then LR = T.Cells(Rows.Count, 5).End(xlUp).Row For i = 9 To LR If CDate(T.Cells(i, 5)) >= date1 And CDate(T.Cells(i, 5)) <= date2 And CStr(T.Cells(i, 6)) = CStr(sCode) Then T.Range("E" & i & ":K" & i).Copy ورقة16.Range("E" & x).PasteSpecial Paste:=xlPasteValues ورقة16.Range("D" & x) = x - 8 x = x + 1 End If Next End If Next Application.CutCopyMode = False Application.ScreenUpdating = True End Sub مخزن.rar

::: ارفق مثال .

اخى الحبيب شوف حضرتك اتعاملت مع النموذج الفرعى >>----> ورقة بيانات ولذلك لا يمكن نقل التركيز الى النموذج الفرعى داخل النموذج الفرعى ولو ان النموذج الفرعى الاول استخدمته نموذج مستمر او نموذج بدلا من ورقة بيانات كان ممكن نقل التركيز الى النموذج الفرعى الاول ثم بعد ذلك نقل التركيز الى النموذج الفرعى للنموذج الفرعى وفى هذه الحالة كان الكود سوف يكون على هذا الشكل Form_xxx!rasael_custmer.SetFocus Form_rasael_custmer!N_rasael_custmer1.SetFocus

فكرة ممتازة في الواقع كنت اريد استخدم GetRows بدلا عن rs_Report.MoveNext ، ولكني لأني لم استخدمها سابقا ، اعطتني خطأ ، فتركتها واتبعت الطريقة المألوفة rs_Report.MoveNext جعفر

إليكم طريقة أخرى للحل Public Function Last2Records(id, Position) On Error Resume Next Dim RS As Recordset, L2R Set RS = CurrentDb.OpenRecordset("Select emp_id,CInt(rep_year) as RepYear,rep From report " _ & "Where emp_id=" & id _ & " ORDER BY emp_id,Cint(rep_year) Desc") L2R = RS.GetRows(2) Last2Records = L2R(1, Position) End Function بعد فرز البيانات تنازليا من السجلات العائدة من الاستعلام بشرط معرف الموظف نأخذ أول سجلين منها (تمثل أعلى قيمتين) عن طريق ()GetRows يعيد هذا المنهج مصفوفة ثائية الآبعاد؛ البعد الأول يمثل حقل البيانات، والآخر يمثل سطر البيانات تأخذ الوظيفة متغيرين الأول معرف الموظف، والثاني موضع السجل قيمة؛ بين (0 و 1) يصدر عن الوظيفة الخطأ (Out Of Range) إذا كانت اسطر البيانات أقل من أثنين.. يمكن تجاوزه بـ (Resume Next) استخدمت هذه الوظيفة في استعلام لجدول الموظفين؛ اسندت السجل الأول (0) إلى Rep_last باعتباره أعلى قيمة والسجل الثاني(1) إلى Rep_before باعتباره أدنى قيمة الرجاء مراجعة الاستعلام Last2Years db2.zip

همممم في الواقع صادفت هذه المشكلة في البرنامج ، ولكن لما الحقول كانت نص!! هذا الرابط قد يعطيك فكرة عن الاشياء اللي يشوفها البرنامج ، وما تشوفها عيننا لكن في طريقة بلدية ممكن نعالج الممسوس ، شوية بخور ، وشيخ يعرف الطريقة ، بس ما ادري اذا يقدر على الحقل جعفر

1. نعم أخوي ابوخليل هذا واضح 2. في الواقع انا لما انتقل للكود بدل الاستعلام ، فتصبح يدي وشهيتي مفتوحة بدل ان نأخذ اعلى قيمة ثم نأخذ اللي بعدها ، خلينا نفرز جميع القيم من الاكبر الى الاصغر ، مثلا للموظف رقم 2 . ولاحظ بأني حذفت السنة 1916 . وبتغيير في كود أخوي ابوخليل ، فتم الموضوع Private Sub cmd_update_Click() On Error GoTo err_cmd_update_Click Dim db As DAO.Database Dim rs As DAO.Recordset Dim rs_Report As DAO.Recordset Dim j, i, ii, x As Integer Dim r, rr As String Set db = CurrentDb Set rs = db.OpenRecordset("emp") rs.MoveLast rs.MoveFirst For j = 1 To rs.RecordCount x = rs!emp_id Set rs_Report = db.OpenRecordset("SELECT Val([rep_year]) as r_Year, rep, emp_id FROM Report WHERE emp_id =" & x & " ORDER BY Val([rep_year]) DESC") rs_Report.MoveLast: rs_Report.MoveFirst i = rs_Report!r_Year r = rs_Report!rep rs_Report.MoveNext ii = rs_Report!r_Year rr = rs_Report!rep rs.Edit rs!rep_last = r rs!rep_befor = rr rs.Update rs.MoveNext Next j MsgBox "??" Set db = Nothing rs.Close: Set rs = Nothing rs_Report.Close: Set rs_Report = Nothing Exit Sub err_cmd_update_Click: If Err.Number = 3021 Then ii = "" rr = "" Resume Next Else MsgBox Err.Number & vbCrLf & Err.Description End If End Sub . 3. وهاي عالجناها بأنه اذا مافي سجل ، لا تعطينا لا خطأ والقيمة ستكون "" ، وكذلك تراها في السجل الرابع ، حيث جعلت له سجل واحد فقط جعفر 655.3.db1.mdb.zip

هههه ..... زادت اللحمه ...... جزاك الله خيرا ..... تم المطلوب ... الله يكتب ذلك في ميزان حسناتك . أخي أمير .....

رجاء ترفق البرنامج علشان نشوف اللي انت تشوفه جعفر

استأذن من استاذنا الحبيب @رمهان اتفضل اليك هذا DoCmd.OpenReport "ÊÞÑíÑ1", acViewPreview, True, "[رقم الحافظة]=" & Me.Text34 طباعة مرفقات.rar

وعليكم السلام أستأذن الأستاذ تومي بالإجابة لتفادي المشكلة، يرجى الانتباه أنه عند وضع علامة المؤشر بخانة استبدال حوِّلي نمط الكتاب إلى إنجليزي من تغيير اللغة، وبعد ذلك اكتبي ((\*)\) ولا تنسِ وضع علامة صح عند الاختيار (باستخدام احرف البدل) في مربع الحوار "بحث واستبدال". دمتم بخير

اتفضل المطلوب: تم عمل التعديلات الاتية: 1- بعض التعديل على كود الترحيل للتأكد من (عدم تكرار رقم الفاتورة - قيام المستخدم بملء البيانات بالكامل - تنظيف الفورم بعد الترحيل) وترحيل ارقام الفواتير المدخلة الى شيت مستقل 2- إضافة شيت مخصوص لعملية الاستدعاء والتعديل والحذف مع تعديل كود الاستدعاء ليكون حسب رقم الفاتورة فقط Accounting.rar

السلام عليكم ورحمة الله وبركاته الآن سنقوم بشرح الطريقة الجديدة لاضافة شريط ادوات باستخدام لغة التوصيف XML اولا: نقوم باضافة جدول نظام جديد: ننشئ جدول فى عرض التصميم وتكون حقوله كالآتى Field Name Type Field Size ID AutoNumber Long Integer RibbonName Text 255 RibbonXml Memo ونسميه USysRibbons ونحفظه نلاحظ اختفاء الجدول وذلك لان الجداول التى تبدأ ب USys او يعتبرها الاكسس من جداول النظام نفتح الجدول فى طريقة عرض Data Sheet ونضيف اول Tool Bar نضيف اسم الشريط ثم كود XML وهذا ما سنشرحه فى مشاركة قادمة ان شاء الله

السلام عليكم شكرا على هذا المنتدى الرائع اما بعد اود مساعتي في اني يكون التسلسل ل رقم امر الدفع اي عند الضغط على اضافة قيد جديد يكون رقم امر الدفع +1 مع وافر امتناني arab (2).rar

صباح الخير اليك شرح احد المعادلات على صفحة "شرح" في نفس الملف و المعادلات الباقية نفس الشرح و لكن بشروط اخرى بالنسبة للنتيجة (ناجح ،راسب ،غائب )لماذا لا تدع اكسل وحده ينفذها بواسطةمعادلة IF للمساعدة في الفرز ارفق لك ملفاً ثانياً لعله يساعدك ترحيل ناجح وراسب وغ.rar علامات الامتحان 1.rar