Eng.Qassim

انا بالخدمة .. فقط احتاج الدعوة لابي بالرحمة

ليست هناك مشكلة .. لكن درجة استيعابي تقل عند المساء ☺️ ممكن حضرتك تشرحنا المطلوب بالتفصيل لست MVP فما زلت تلميذا احاول التعلم من اسألتكم

والله يا اخي @العوام لو انا من عمان ... مستحيل اترك استاذ جعفر واستاذ موسى في حالهم ربي يحفظكم جميعا

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

وعليكم السلام ..جرب واعلمنا النتيجة خذ بالك من ال parameter Public Function RcNumQ1(mID As Variant, fldName As String, MyQuery As QueryDef) As Variant Dim RstClone As Recordset Dim Fld As Field Dim i As Long RcNumQ1 = Null If IsNull(mID) Then Exit Function Set RstClone = CurrentDb.QueryDefs("MyQuery").OpenRecordset If RstClone.RecordCount = 0 Then Exit Function Set Fld = RstClone.Fields(fldName) With RstClone .MoveFirst Do Until .EOF i = i + 1 If Fld = mID Then Exit Do .MoveNext Loop End With RstClone.Close RcNumQ1 = i End Function

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

لقد نسيت اضافة شرط عدم تكرار الموقع ..ان كنت مهتما بالشغل الاولي ..استبدل الكود السابق بهذا الكود (بعد التحديث) Private Sub mawqeecod_AfterUpdate() On Error Resume Next Dim Testitem As String Dim Testmawq As String Dim Testid As Long Testitem = Nz(DLookup("itemcodadd", "Copy Of insertdata", "itemcodadd = '" & Me.itemcod & " '"), 0) Testmawq = Nz(DLookup("mawqeecodadd", "Copy Of insertdata", "itemcodadd = '" & Me.itemcod & " '" & "AND mawqeecodadd = '" & Me.mawqeecod & " '"), 0) If Testitem > 0 And Testmawq > 0 Then Dim Msg, Style, Title, Response Msg = "المادة موجودة في .... " & Testmawq & vbCrLf & "?....هل تريد اضافتها" Style = vbYesNo Or vbCritical Or vbDefaultButton2 Title = " تكرار مادة في نفس الموقع " Response = MsgBox(Msg, Style, Title) If Response = vbYes Then DoCmd.SetWarnings fales DoCmd.RunSQL "INSERT INTO Mawaqee ( mawqeename )SELECT [forms]![Copy Of insertdata]![mawqeecod] AS myItem1;" DoCmd.SetWarnings True Else Cancel = True Me.mawqeecodadd = "" End If End If End Sub اما بالنسبة لمشاركتك الاخيرة ..رغم اني لا افضل تعدد الجداول ...لكن اتفهمك ان كانت المواقع محدودة ولعدم تكرار اسم الموقع طبعا اهملت نموذجك ..لان حسب فهمي ان النموذج حينما يكون مفتوحا فانه لايرى تغييرمصدر السجلات ..ولهذا عملت نموذجا اخر فيه ازرارلفتح النموذج برنامج حصر العهد بالفرع.rar

اخي هذا ليس موضوع المشاركة ربما سؤالك هذا كان في مشاركة اخرى

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

هذا المثال البسيط للتوضيح فقط ...اما اذا كان التزيع بشكل دوري ..فالموضوع مختلف حيث يتم اضافة بعض المعايير SUM.rar

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

حسب مافهمت من سؤالك ..ان المبلغ يوزع كله على الموظفين هنا يكون التوزيع اشبه بالاسهم ..مثلا لدينا 3 موظفين ونريد ان نوع عليهم مبلغ 600 دينار الموظف 1 حصته 10 اسهم ..الموظف2 حصته 20 سهم ..الموظف الثالث حصته 30 سهم في هذه الحالة نقسم المبلغ على مجموع الاسهم اي 600/60= 10 دينار لكل سهم الموظف1 حصته 100 دينار الموظف2 حصته 200 دينار الموظف3 حصته 300 دينار

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

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

IIf([Expr1] Between 35 And 50;1;0)

تفضل المستخلصات.rar

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

بصراحة لا اعير اهمية لتلك البرامج ... لكن يحتاجها الكثير من المستخدمين ... اتذكر برنامج بهذا الشكل لاستاذي ابو جودي ... ابحثوا عن @ابو جودي

استاذي العزيز @محمد القدسي تقدست اسماؤك يارب ... لماذا لاتحاول بضغط الملف قبل تشفيره ... ثم تعمل تشفير لملف الضغط ... نحن في العراقي نقول ... صب بيها ..جب بيها 🤣

المفروض ان BE على سيرفر ...حتى لو انقطع احد FE فانه لايؤثر على البقية ربما السيرفر موجود عند احد FE... وانقطاعه يؤثر على البقية ؟

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

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

كما قال ولدي @Moosak IF checkbox =true then do somthing like append query End if

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

ياسلام عليك اخي ابو البشر ..رائع (وحوصلتك كبيرة )😄 فعلا عالم متخفي ... اظن العبارة مقتبسة من مسلسل عوالم خفية 😍