بحث مخصص من جوجل فى أوفيسنا
![]()
Custom Search
|
نجوم المشاركات
Popular Content
Showing content with the highest reputation on 08/04/18 in all areas
-
2 points
-
2 points
-
2 points
-
أهلا با بين اخوانك تفضل برفع الملف نفسه وليس صورة منه وسوف تلقى المساعدة ان شاء الله من قبل الأساتذة والخبراء2 points
-
2 points
-
2 points
-
تفضلوا برنامج ادارة حلقة كلمة المرور =1 علما انه يتوفر عندي برامج اكبر واشمل في ادارة الحلقات ولكنها تحتاج الى شرح ومساعدة ودعم عن بعد لمن يريد تركيبها2 points
-
السلام عليكم قمت بتصميم برنامج لصديق لي لبيع وشراء الاجهزة الخلوية - مع فكرة الباركود حسب ما طلب مني البرنامج جاهز وهو مقدم لكم هدية لعلكم تستفيدون منه جربوه واعطوني رأيكم فيه ** لا يشكر الله من لا يشكر الناس كل الشكر للصديق المهندس هاني مجدي ( من الشقيقة مصر ) حيث هو صاحب الفكرة واستفدت منه الكثير مؤسسة البركة لبيع الخلويات.rar1 point
-
زرنامة تدرج كل التواريخ بين تاريخين (من اختيارك) مفصلة حسب كل شهر في عامود مع حرية حذف يوم او يومين او ثلاثة ايام (من اختيارك ايضاً) او عدم حذف اي يوم Date_without_days_by_colums_and_month2.xlsm1 point
-
السلام عليكم ورحمه الله وبركاته لا ادري كيف اشكرك استاذي كاسر الف الف شكر ممتاز جدا وهذا هو مطلوبي الله يجزيك كل خير وتصبح بالف الف خير1 point
-
1 point
-
1 point
-
1 point
-
1 point
-
1 point
-
اتفضل اخي اتمنا يكون المطلوب عملت الكود عند الخروج من النموذج بامكانك نعمله حبث شات On Error GoTo enderr DoCmd.SetWarnings False 'النموذج Set Rs = Forms![frm_SlsInvHd]![frm_TInvDt].Form.RecordsetClone 'الجدول للتحري Set RsEdit = CurrentDb.OpenRecordset("Tbl_Items") Rs.MoveFirst 'دوران Do While Not Rs.EOF RsEdit.MoveFirst 'دوران للجدول Do Until RsEdit.EOF 'اذا وجد السجل If RsEdit!itname = Rs!itname Then 'تحريره RsEdit.Edit RsEdit!vlbleQ = RsEdit!vlbleQ + Rs!vlbleQ RsEdit.Update End If RsEdit.MoveNext Loop Rs.MoveNext Loop Set Rs = Nothing Set RsEdit = Nothing MsgBox " تم تعديل السجلات الى الجدول بنجاح ", vbInformation, "تم " Exit Sub enderr: MsgBox " خطا في البيانات ", vbInformation, "لم يتم التعديل" DoCmd.SetWarnings True UPdate QTY.rar1 point
-
1 point
-
1 point
-
1 point
-
1 point
-
الملف على جهازي _ جوجل درايف استخدم متصفح جوجل كروم1 point
-
1 point
-
1 point
-
1 point
-
جزاك الله خيرا استاذ خالد الحقيقة اني خلال الفترة السابقة اغلب وقتي كنت احاول الوصول الى حل مرضي . وقد وصلت الى حل مقبول ولكنه غير احترافي ، لذا يبدوا انني سوف اغير فكرة التطبيق واسلك طريقا آخر , وسأضع الحلول جميعها هنا ان شاء الله أسأل الله الاعانة والتوفيق1 point
-
1 point
-
وعليكم السلام ... فكرة. أجعل مصدر التقرير استعلام ... ,اجعل في داخل الاستعلام نقدي OR اجل1 point
-
1 point
-
1 point
-
وعليكم السلام اخى الكريم-نورت بين اخوانك تفضل لك ما طلبت -والملف به طريقتين للحل ..الأول بالمعادلات والأخرى بالأكواد بيانات طالب-1.xlsm1 point
-
1 point
-
1 point
-
1 point
-
السلام عليكم اخي الكريم اليك الملف بعد التعديلات الشاملة وحتى تصميم النماذج وان شاءالله يعجبك ويفي بالمطلوب تحياتي Test.rar1 point
-
1 point
-
1 point
-
1 point
-
1 point
-
رغم انك لم ترفع ملقاً للتعامل معه لكن عندي انا هذا الملف القديم (مثال عما تريد) أرجو أن يفي بالغرض product &Prices.xlsx1 point
-
وعليكم السلام اخى الكريم عمر من فضلك قم برفع الملف حتى تكتمل المساعدة بارك الله فيك1 point
-
المشكلة أستاذ حمدي كانت في ان الكود لا يتعرف على حقل التحرير والسرد انه فارغ Null تفضل: جرب هذا الكود Dim MyStringSql As String MyStringSql = "SELECT [Teacher Class].NAMEe " & _ " FROM [Teacher Class] " & _ "WHERE ([Teacher Class]." & Me.DDR & _ " Is Null Or ([Teacher Class]." & Me.DDR & ")="""")ORDER BY [Teacher Class].NAMEe;" Me.LST1.RowSource = MyStringSql Me.ff = Me.LST1.ListCount - 1 Me.LST1.Visible = True Me.Refresh1 point
-
اخي البرنامج اليك البرنامج كامل وبه نظام صلاحيات وكل ما تريد مفتوح المصدر برنامج المطعم.rar1 point
-
اخى الكريم شوف المرفق ده ممكن يفيدك بالنسبة لفاتورة مشتريات استخدام النموذج Trans_in وفاتورة المبيعات Trans_out حاول تشوف الجداول وربطها فاتورة.rar1 point
-
السلام عليكم أقدم لكم برنامج لإدارة المشتريات والمبيعات والمخازن لعله ينال إعجابكم برنامج لإدارة المشتريات والمبيعات والمخازن.xls1 point
-
الاستاذ القدير الاستاذ جعفر الله لايحرمنا من شخصك الكريم جزاك الله خيرا1 point
-
أخي عبد اللطيف ممكن تحول البرنامج ليعمل علي أوفيس 2007 تقبل تحياتي1 point
-
أخى الحبيب " سليم " أولا - بارك الله فيك وفى أعمالك معادلة جميلة ولكنها طويلة بعض الشئ ثانيا - هذه الفكرة لاتصلح للأسماء العربية لأن أسمائنا لانختصرها ، فهذه الفكرة تصلح للأسماء الأجنبية فقط ، لأنى قمت بعملها لزميل ولكن كان مسافرا للخارج ثالثا - وهذا هو الأهم هذه المعادلة لاتصلح إلا للأسماء الثلاثية فقط ، أى لاتجلب إختصار الأسم الرابع لذلك أسمح لى بتقديم هذه المعادلة : أولا - مختصرة ثانيا - تأتى بإختصار حتى الأسم الرابع =LEFT(B2)&" "&MID(B2;FIND(" ";B2&" ")+1;1)&" "&MID(B2;FIND(" ";B2&" ";FIND(" ";B2&" ")+1)+1;1)&" "&LEFT(TRIM(MID(SUBSTITUTE(TRIM(B2);" ";REPT(" ";99));298;99)))) تقبل تحياتى1 point