ابوخليل

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

ايش هذا .. غير معقول !!!! الفكر .. انا اتكلم عن الفكرة تحية لفكرك الراقي ... حتى لو انت شيبة .. يبقى الابداع اكبر من الصح ومن اي تقييم ........ اتمنى ازور البحرين واقابلك

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

نأمل كتابة العنوان يصف الموضوع ولو بشكل مختصر

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

تفضل Dim intControlType As Integer For Each ctl In Me.Controls intControlType = ctl.ControlType If (intControlType = acCheckBox) Or (intControlType = acComboBox) Or (intControlType = acTextBox) Then If isEditing = False Then ctl.Locked = False Else ctl.Locked = True End If End If Next ctl حفظ وتعديل5.rar

السلام عليكم مشكلتك الحقيقية في الاكواد والاجراء الذي يتم عند تحميل النموذج اليك حل بسيط ومحكم فقط التعامل يتم مع الحقول وليس مع النموذج اذا الحقول كثيرة جدا لديك .. يمكن التعامل معها بعمل لوب حفظ وتعديل4.rar

Private Sub Report_Open(Cancel As Integer) Dim T, L, B T = Nz(DLookup("top", "settings_Report_tbl"), 1) L = Nz(DLookup("left", "settings_Report_tbl"), 1) B = Nz(DLookup("bottom", "settings_Report_tbl"), 1) Me.Printer.TopMargin = T * 567 Me.Printer.LeftMargin = L * 567 Me.Printer.BottomMargin = B * 567 End Sub هامش تقرير2.rar

وهذا مثال وجدته ضمن محفوظاتي تاريخ ووقت الانترنت.rar

نعم وافي وكافي .. جزاك الله خيرا استاذنا

في المرفق مربع تحرير يتم الاختيار منه اريد منع الكتابة داخل الحقل والاكتفاء بالاختيار فقط اريد ايسر واخصر طريقة .. وهل في خصائص الحقل ما يدعم هذا المطلب ؟ Database1.accdb

Private Sub VIP4_Click() On Error GoTo Err_VIP4_Click Beep If MsgBox("هل تريد الحفظ ؟؟", _ vbQuestion + vbYesNo, _ "تنبيه") = vbYes Then DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70 DoCmd.OpenForm "ACSSES_ADDUSER" else undo DoCmd.CancelEvent exit sub end if Exit_VIP4_Click: Exit Sub Err_VIP4_Click: Resume Exit_VIP4_Click End Sub

فعلا هو موجود بعد عرض التقرير انقر بزر الفأرة الأيمن ستظهر لك قائمة تصدير اكسل / وورد / pdf FinancialPrg11.rar

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

تفضل FinancialPrg9.rar

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

لم تعلق على الحل المرفق !! ......... ولم تبين الضوابط في الاقتباس اعلاه

عليكم السلام طلبك غير دقيق .. اقصد ان البحث غير دقيق .. لانه يمكن وجود الصنف نفسه في اكثر من مكان ومع اكثر من نوع ( فأي منها تريد تكراره ) فاهمني ؟ تم التعديل حسب المطلوب التوريد2.rar

لا يمكن .. لان العملية جمع سجلات وكل سجل يحمل تاريخ مختلف علما ان التاريخ يظهر في اعلى التقرير : من فترة كذا الى فترة كذا سأحاول تحقيق طلبك ... اتمنى اني اتمكن من ذلك

اوفيس 10 .. 32 بت يعمل

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

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

ارفعي المرفق الاخير بعد ادخال بيانات كافية (تقييمات ) لاكثر من موظف ولاكثر من شهر

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

عليكم السلام ورحمة الله وبركاته لا يمكننا تنفيذ الاجراء من النموذج نفسه .. فالتسميات لا يمكن تغييرها الا من عرض التصميم من خارج النموذج يمكن التغيير جرب ضع هذا الاجراء في نموذج آخر .. ونفذ Private Sub Com1_Click() DoCmd.OpenForm "form1", acDesign, , , acFormEdit, acHidden Dim ctl As Control Dim i As Integer i = 0 For Each ctl In Forms!form1.Controls If ctl.ControlType = acCommandButton Then If Left(ctl.Name, 7) = "Command" Then i = i + 1 ctl.Name = "foksh" & i End If End If Next ctl End Sub