ابوخليل

تفضل هنا بغيتك

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

المرفق يطلب مكتبة ملف picclp32.ocx اعمل على وندز 7 32 بت

السلام عليكم اخي الكريم ، يجب التقيد بقوانين المشاركة ، باختيار عنوان مناسب يصف الموضوع ايضا يتوجب على السائل في بعض المواضيع رفع مرفق لآخر ما وصل اليه في عمله ومكان المشكلة التي يواجهها تم تعديل العنوان

عليكم السلام الاصل وجود جدول تعريفي بالصفوف وهذا ما صنعته لك A2.mdb

Database3.rar

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

هذا حل لجميع مشكلاتك افتح الوحدة النمطية mod_PN_All استبدل السطر التالي : Public Function PN_All(N As Integer) As Integer بهذا Public Function PN_All(N As Double) As Double

بعد اذن اخي حسام انت بحاجة لمثل هذا Dim rs1 As DAO.Recordset: Dim rs2 As DAO.Recordset Set rs1 = CurrentDb.OpenRecordset("SELECT ........")'استعلام يظهر المراقب الأول حسب اليوم Set rs2 = CurrentDb.OpenRecordset("SELECT ........")'استعلام يظهر المراقب الثاني حسب اليوم rs1.Edit: rs1!tech_code = المراقب الثاني rs2.Edit: rs2!tech_code = المراقب الأول rs1.Update: rs2.Update لاحظ انه غالبا يصعب تمرير المعايير لنموذج غير منضم داخل الاستعلام ، لذا نلجأ الى انشاء وحدات نمطية عامة كوسيط tabdeel2.rar

شكرا لكما احبتي @jjafferr و @kha9009lid سوف اقوم بالاطلاع والتجربة

تفضل هذه محاولة ولكن يبدو ان هذا البرنامج غير مجدي لا غنى لي عن اخوتي هنا لارشادي الى افضل برنامج خفيف للشرح Video_2021-02-10_105245.rar

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

تفضل DATA14.rar

انا لم اتعرض للاشهر الأخرى وضعت اداة الشرط فيما لو كان الشهر في ( dat1 = 3 ) يزيد يوما واحدا علما اني جربت المثال ويعمل بشكل صحيح حسب طلبك

المسألة سهلة جدا تضيف حقل اسم المخزن ضمن الاستعلام مصدر النموذج ، ثم تجعل مصدر الحقل اسم المخزن بدلا من الرقم DATA13.rar

النتيجة صحيحة لان الشهر ناقص ومع ذلك وحسب رغبتك يمكن ان نعامل شهر 3 معاملة خاصة Dim i As Byte Private Sub dat1_AfterUpdate() i = Month(dat1) If i = 3 Then ys = DateAdd("m", -Me.dat2, Me.dat1 + 1) + DateAdd("yyyy", 1, Me.dat1) - dat1 Else ys = DateAdd("m", -Me.dat2, Me.dat1) + DateAdd("yyyy", 1, Me.dat1) - dat1 End If Me.dat3 = ys DoCmd.Requery End Sub test2.rar

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

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

هنا ، في نموذج frmlogin If (UserName = rst!User_Name) And (EncryptDecrypt(Password, UserName) = rst!Password) Then التعديل : If (UserName = rst!User_Name) And (EncryptDecrypt(rst!Password, UserName) = Me.Password) Then التفكير المنطقي يظهر الفرق

تفضل تم تعديل الباسوورد DATA12.rar

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

السلام عليكم الافضل ان تكون هذه الرتب والميزات في جدول يخصهن من اجل المرونة في التعديل او التبديل او الزيادة

تم اصلاح الخلل في المرفق وتم ايضا تنقيح المشاركات وذلك بحذف ما لا يلزم DATA12.rar

تم ضبط الصلاحية باستخدام العناصر الموجودة داخل النموذج واستخدمت كلمة نصية مشفرة "modeer" للتمييز بين المدير وغيره بدلا من خانة الاختيار والتي يسهل الوصول اليها من الجدول ,والتلاعب بها هذا يعني انك اذا اردت تسجيل مستخدم جديد واردت تعيينه كمدير يلزم كتابة كلمة modeer في حقل Admin ايضا اظهرت لك اسم المستخدم في حقل خاص الطريقة لإظهارة في اي حقل سواء في النماذج او التقارير هو ان تكتب الدالة التالية في مصدر بيانات الحقل =myUserName() انظر الى الكود ادناه في حال عدم كون المستخدم مدير فسوف يتم اخفاء العناصر واحدا واحدا فاذا ارد اظهار عنصر للمستخدم فقط عطل السطر الخاص به والعكس صحيح حيث يمكن اضافة ازرار اخرى If myCheckUser <> "modeer" Then cmd_rpt_Items_Dates_3.Visible = False cmd_rpt_Items_Dates_3_No_Labels.Visible = False cmd_rpt_Items_Pages_3.Visible = False cmd_frm_Items_All.Visible = False srch_Date_From_3.Visible = False srch_Date_To_3.Visible = False srch_All_3.Visible = False srch_Page_From_3.Visible = False srch_Page_To_3.Visible = False zerUsers.Visible = False Box21.Visible = False End If اي استفسار لا يخص الصلاحية يفضل عرضه في موضوع جديد DATA11.rar