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

تم عمل المطلوب وتم وضع معادلات لتوزيع الرقم على الخلايا فقط اكتب الرقم في العمود A ويتم توزيعه تلقائيا دالة التنسيق الشرطي هي =B1<>"" test.xlsx

استخدم VLOOKUP كما في المرفق وإذا كان تاريخ الخلية المجاورة نفس تاريخ الخلية السابقة + يوم استخدم G6+1 المصنف111.xlsx

احببت ان افرد موضوعي هذا بعنوان مستقل 1-لان غالب او جميع الدروس هنا تتعامل مع واتساب ويندوز 2-وحتى يكون تطوير هذا العمل مستقلا ولا يحدث خلط بين الامثلة المثال المرفق تم تطبيقه على واتساب ويب واليكم بعض التوجيهات والملاحظات : كانت مشكلتي في محاولات سابقة انه في كل مرة يتم الارسال وفتح الواتساب ويب .. فانه يطلب ربطا جديدا بالجوال وبحمد الله توصلت الى حل هذه المشكلة التي كانت عائقا حقيقيا .. يكتفى بالارتباط مرة واحدة فقط الآن : عند كل ارسال يفتح الواتس ويب بشاشة جديدة .. فان كانت هناك نسخة مفتوحة من قبل فانه يتجاهلها وتصبح غير فعالة وهذه لا مشكلة فيها لأنه يفتح على الحساب نفسه . ارجوا من اخوتي واحبتي الذين يمرون من هنا تجربة المثال وافادتي بنتيجة التجربة ، من اجل الانتقال الى الخطوة التالية وهي ارسال المرفقات ملحوظة : المرفق sendwatsWebAll .. هو النسخة المحدثة والمطورة بعد أخذ آراء وتجارب الإخوة sendwatsWeb.mdb sendwatsWebAll.rar

وانزلتها الى صيغة اكسس 2000 🙂 color2.zip

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

هل هذا ما تريد .؟؟؟؟؟

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

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

عمل واضح ، ومرتب ، وجميل 👍 بتوسيع الكود الاعلاه ، نحصل على : Function chk_De_Select(ctl As Control) If Len(Me.X & "") = 0 Then MsgBox "رجاء اختيار اسم المستخدم" Me.X.SetFocus Me.X.Dropdown GoTo Exit_chk_De_Select End If Dim rs As DAO.Recordset Dim ctl_N As String Try_Again: Set rs = Me.Subformusers.Form.RecordsetClone ctl_N = Replace(ctl.Name, "chk_", "") If rs.RecordCount = 0 Then DoCmd.SetWarnings False DoCmd.OpenQuery "qry_Append_Forms" DoCmd.SetWarnings True Me.Requery GoTo Try_Again Else rs.MoveFirst While Not rs.EOF rs.Edit If ctl.Value = True Then rs(ctl_N).Value = True Else rs(ctl_N).Value = False End If rs.Update rs.MoveNext Wend End If Exit_chk_De_Select: End Function ونناديه من اي من المربعات هكذا (لاحظ اسماء المربعات لتتماشى مع اسماء الحقول) : Private Sub chk_canAdd_AfterUpdate() Call chk_De_Select(Screen.ActiveControl) End Sub Private Sub chk_candelete_AfterUpdate() Call chk_De_Select(Screen.ActiveControl) End Sub Private Sub chk_canedit_AfterUpdate() Call chk_De_Select(Screen.ActiveControl) End Sub Private Sub chk_canopen_AfterUpdate() Call chk_De_Select(Screen.ActiveControl) End Sub وهذا استعلام الالحاق : وللمستخدم الجديد ، انقر على اي من المربعات الاربعة ، واستمر من هناك 🙂 ---------------------------------------------------------------------------------------------------------- ولكن نموذج الشايب لا يُعلى عليه 🙂 جعفر 1565.تفعيل خانة الاختيار.accdb.zip

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

لست متخصص بالمحاسبة ولكن اجتهدت وعملت لك جدول أرجو أن يحقق لك ما طلبت متوسط سعر بضاعة.xlsx

مع التقدير والاحترام للاستاذ قاسم وثقته في الاخ شايب الا ان الاخ شايب لا يتفق معك لا يمكن ان يضع نفسه في مصافكم فانتم خبراء واساتذة كبار يشار اليكم بالبنان وهو مزارع بسيط خبراته في زراعة الكوسى والقرع واحيانا البامية رحم الله امرا عرف قدر نفسه لبِستُ لكُلّ زمـانٍ لَـبـوسـا *** ولابَستُ صَرْفَيهِ نُعمى وبوسَى وعاشرْتُ كلَّ جَلـيسٍ بـمـا *** يُلائِمُهُ لأروقَ الـجَـلـيسـا فعنـدَ الـرُّواةِ أُديرُ الـكـلامَ *** وبينَ السُقاةِ أديرُ الكـؤوسـا وطوْراً بوعْظي أسيلُ الدّمـوعَ *** وطوْراً بلَهْوي أسُرّ النّفوسـا شايب🌹

في زر الامر ضع الكود Dim x As String x = Me.EmpName.Column(1) & ".rtf" DoCmd.OpenReport "Hr_Letter_Rep", acViewPreview, , "[Empcoode]=" & Me.Empcoode DoCmd.OutputTo acOutputReport, "Hr_Letter_Rep", _ acFormatRTF, "d:\" & x, True وبالامكان تغيير مكان الحفظ من الدريف d الى اي قرص HR_Letter.rar

نعم ممكن انظر التعديل في اول مشاركة من الموضوع المرفق : sendwatsWebAll.mdb حيث جمعت فيه الطرق الثلاث .. وحتى يكون اقرب للباحث النموذج المعدل : SendWhatsMoreMsg

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

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته أواصل معكم سلسلة ما خف وزنه وغلا وأقدم لكم اليوم برنامج مصمم بالأكسس من تصميمي للاستماع للقرآن الكريم بصوت أكثر من ستين قارئ مع قراءة السورة مع القارئ من خلال الفلاش الموجود أسفل البرنامج فقط حدد القارئ ثم حدد السورة ثم حدد السورة في الفلاش واستمع واقرأ القرآن واحصل على الكثير من الثواب ويمكنك تحميل السورة للعلم كل الملفات بصيغة mp3 حجم الملف 95 كب هذه صورة البرنامج http://www6.0zz0.com/2008/01/05/15/47435727.gif ومن هنا يكون التحميل لا ينقصني سوى دعاؤكم وردودكم إن أردتم ذلك أخوكم محمد الصالح