Shivan Rekany

نحن نشكرك اخي و استاذي الحبيب

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

صار منذ كم دقيقة افكر , هل انا فقدت ذاكرتي حتى عطيته الطريقة الاعلاه ؟! ليس لدي جواب لهذا السؤال " لماذا عطيت ذاك الطريقة ؟" شكرا لك

اتفضل تم اضافة حقل في جدول باسم DateInsrt و تم استخدام هذا الكود Private Sub Form_AfterInsert() Me.DateInsrt = Date End Sub اليك المرفق و جرب ان تضيف سجلات جديدة Database11.rar

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

هناك في اكسس 2010 تقدر تعمل الازرار بثلاثة الوان مثلا لون في وقت افتراضي و سيكون لون اخر عند اشارة الماوس عليه و عند الضغط عليه سيكون لون اخر وايضا سيغير كتابة على الزر بلونين وتقدر تتغير شكله ك مدور او مربع او هناك شبه مطوية في الزوايا الاعلى و و و ... الخ

نعم بالضبط لذلك قمنا باعطاء الطريقة الثانية اي تغيرنا مصدر النموذج بلا شيء

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

جرب هذا Dim i As Integer DoCmd.GoToRecord , , acFirst For i = 1 To Me.tot_rosoom If nationality_code > 1 then Me.alqima_almodafa.Value = ((Nz(Me.rosoom.Value, 0) + Nz(Me.bus.Value, 0) + Nz(Me.last_year.Value, 0) - Nz(Me.owner.Value, 0)) - (Nz(Me.tot_pay.Value, 0))) / 100 * 5 Me.tot_rosoom.Value = Nz(Me.rosoom.Value, 0) + Nz(Me.bus.Value, 0) + Nz(Me.last_year.Value, 0) + Nz(Me.alqima_almodafa.Value, 0) - Nz(Me.owner.Value, 0) Me.rest = Me.tot_rosoom.Value - Me.tot_pay.Value Endif DoCmd.GoToRecord , , acNext Next تم اضافة شرط ايف اذا كان اكبر من 1 بيحسب والا سيتركه

اذا ارفق نسخة مصغرة من قاعدتك

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

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

في المرفق بها جدولين في الجدول Tbl1 بها مرفق داتابيس من نوع accdb قم بفتحه وغير ما تريد فيه

وعليكم السلام انا جربت البرامج وفي البداية ظهرت لي هذه الرسالة لذلك قمت بالغاء علامة صح امام المكتبة ISGrid.dll كما مبينة في الصورة وتم تشغيل البرامج 100% وتم التجربة على احد قاعدة بياناتي وتم العمل المطلوب فقط هناك ملاحظة وهو مكان النماذج الملف setup غير لكي يظهر في الوسط انا عملت ذلك وساغير بعض شيء في التصميم وارفقه هنا ان شاء الله شكرا لك استاذ

نعم لكن هذا يعود لخصائص نموذج من قبل ان افكر في هذه الطريقة كان جربت كم طرائق لكن وحينئذ انا غيرت خاصية النموذج قفل السجل اي ( Record Locks ) يساوي All Records تم تغير الى No Locks والان مافی المشکلە enbld.rar

اتفضل اليك هذا الخدعة لكي تقم بذلك Private Sub cmdenbld_Click() Me.Form.RecordSource = "" Me.id.ControlSource = "" Me.Fname.ControlSource = "" End Sub Private Sub cmdenbld1_Click() Me.Form.RecordSource = "SELECT Tabl_Emp.id, Tabl_Emp.Fname FROM Tabl_Emp; " Me.id.ControlSource = "id" Me.Fname.ControlSource = "fname" End Sub Private Sub Form_Load() Call cmdenbld1_Click End Sub enbld.rar

هذا السؤال نفس السؤال الاول وهناك حل لكن شوية صعبة عليك

استأذن من استاذنا ابو ادم اتفضل اليك هذا Private Sub cmdenbld_Click() ' للاخفاء Me.NavigationButtons = False End Sub Private Sub cmdenbld1_Click() ' للاظهار Me.NavigationButtons = True End Sub enbld.rar

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

او اعمل تحدید الکل لکی یتم تحدید کل شی علی النموذج وقم بتحویلهم الى يمين النموذج بواسطة اسهم الكيبورد ليمين واليسار وبعدين قم بتقليس النموذج

كما قلت لك سابقا لا تقدر فقط عليك ان تعمل قاعدة جديدة وتعمل امبورت لكل جداول والاستعلامات ويجب عليك ان تعمل من البداية النماذج و التقارير وكتابة الاكواد لكن لان عندك نسخة منه من نوع mdb تقدر ان تعمل تعديلات عليه وبعدين تتغير صيغته

في الرابط به قاعدة بيانات من صيغة mdb وتقدر تفتحه وتعمل التعديلات عليه كما تريد

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

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

وعليكم السلام اكتب الكود هكذا Private Sub n1_AfterUpdate() Me.نص6 = Me.n1 + (Me.n1 * Me.n2) End Sub جمع.rar