ابوخليل

السلام عليكم الاخ ناصر طلب مني المساعدة ولم يعلم ان خبرتي في اكسل افرغ من فؤاد ام موسى ولكني قد افيده في كيفية تفعيل اي كود وقت الحاجة اولا نحول الكود الى وحدة نمطية عامة يعني سيصبح كود استاذنا احمد هكذا : Public Function macrox() 'äÓÎ ÊäÓíÞ æÑÞÉ 2 Çáì ßá ÇæÑÇÞ ÇáãáÝ Dim RN1 As Range, SH, ER Sheets("æÑÞÉ2").Select Sheets("æÑÞÉ2").Range("A9:J9").Copy For SH = 2 To Sheets.Count ER = Sheets(SH).UsedRange.Rows.Count Set RN1 = Sheets(SH).Range("A8:J" & ER) RN1.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False RN1.PasteSpecial Paste:=xlPasteColumnWidths Next SH Application.CutCopyMode = False End Function الآن نستطيع ان نستدعي هذا الكود وتشغيله في اي حدث فقط نكتب العبارة التالية : Call macrox

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

السلام عليكم الملف data.amr هو قاعدة بياناتك الملف data.ldb هو صورة منه حاول كالتالي : 1- احفظ بعيدا نسخة من data.amr 2- غير الامتداد amr الى mdb ثم حاول فتح الملف وموافاتنا بالنتيجة

لم اجد اجمل من كلمات اخونا محمد سلامة كفينا .. وعوفينا

انظر تم عمل استعلامات متنوعة داخل المرفق تم بناؤها استنادا الى جدول الاعارة فقط يمكن ان تجعلها مصدرا لقاريرك db4.rar

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

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

في اكسس يمكنك التراجع بسهولة ضمن حقول سجل معين مادام التركيز قائم على ذلك السجل منطقيا وحسب العناصر الموجودة في برنامجك حاليا لا يمكن التراجع ولكن يمكننا اظهار آخر ما تم التعديل عليه مهما بلغ عدد السجلات المعدل عليها ويتم تطبيق ذلك بإضافة حقل جديد( تاريخ/وقت) داخل الجدول وعند التعديل على الحقول يتم ادراج التاريخ والوقت الحالي ( Now) وهكذا يمكننا الرجوع الى آخر تعديل كما يمكننا التصفية كمجموعات اتمنى اني افدتك بهذا البيان المختصر

تكملة لهذا الموضوع http://www.officena.net/ib/index.php?showtopic=52980 وإن شئت قل تحسين وابتكار لطريقة افضل للتعامل مع حماية وندز عند نسخ الملفات وخاصة المكتبات التشغيلية المصاحبة لبرنامجك وتسجيلها داخل النظام كثير من اخواني ممن قاموا بمحاولة تركيب برامجهم على الاصدارات الحديثة من وندز وقف امامهم مسألة الملفات التشغيلية المصاحبة للبرنامج وخاصة تسجيلها داخل النظام حيث يستعصي التسجيل حتى بعد تخفيض امان وندز الى ادنى حد مما يضطرون معه الى استخدام طرق بديلة ومنه التسجيل اليدوي عن طريق الدخول الى الــ DOC وكتابة الاوامر هناك وهذا يعني وجوب تواجد المبرمج او من يقوم مقامه .. وهذه لاشك غير عملي ومقلق في الوقت نفسه سأقوم بشرح طريقة تمكن من نسخ الملفات وتسجيلها برمجيا مهما بلغت حماية وندز للحديث بقية ...

تفضل تم التعديل بما رأيته يتناسب وحاجتك sscc60.rar

تم دمج الموضوعين وتعديل العنوان

السؤال غير واضح وضح اكثر بشيء من التفصيل

تم التعديل حسب الحقلين الذين وضعتهما اكمل على هذا المنوال sch12.rar

اخواني الكرام استخدموا خاصية البحث داخل المنتدى فهو مليء بالجواهر وهذه واحدة : http://www.officena.net/ib/topic/36615-تحديد-نوع-المدخلات-في-مربع-النص/?do=findComment&comment=194029

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

السلام عليكم ما نوع الحقول التي تريد اضافتها وضح مع التفصيل

لديك خطأ في حدث زر : احسب غير السطر الاول بهذا Me.BillCrTotal = Me.FActioncr!sumcr

لم اطلع على المرفق بسبب الاصدار جرب هذا الحل : الصق هذا السطر في رأس الكود تستخدم هذه العبارة للقفز على الاخطاء المنطقية .. ان جازت التسمية On Error Resume Next

تم تعديل العنوان للدلالة على المضمون اخي سمير .. تفضل تم التعديل كما تحب sscc12.rar

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

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

جزاك الله خيرا استاذ علي .. سبقتني .. فكرة جميلة احتساب اخر 3 ارقام وهذه فكرة اخرى .. ويمكن توظيفها داخل الاستعلام .. اتمنى تنال استحسانكم : Public Function Rondx(Ron As Double) As Double Dim v1, v2 As Double v2 = Ron Mod 250 If v2 > 0 Then v1 = (Ron - v2) + 250 Else v1 = Ron End If Rondx = v1 End Function Private Sub Form_Current() Me.Summuny2 = Rondx(Nz([Summuny])) End Sub

اخوتي الفضلاء : يراعى جعل كل سؤال جديد في موضوع مستقل

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

تفضل اخونا شريف تم اصلاح الملف كان الملف مهيأ للعمل على 64 بت Newd.rar