M.Hussein

الأخ العزيز / أبو نعيم شكرا لردك الموضوع اننى لدي 3 جداول وهي :- 1- جدول الاقسام يسمي TblDepartment(وبه خانة اقسام الشركة الستة معماري - إنشائي - صحي - تكييف - كهرباء - كميات) 2- جدول تصنيفات الوثائق يسمي TblClass وبه خانة للتصنيفات كتب - كتالوجات - نشرة دورية - اسطوانات -مشروعات 3- جدول الوثائق TbLibData وبه معلومات الوثائق منها اسم الوثيقة عنوان الوثيقة تاريخ الاصدار تاريخ دخول المكتبة اسم المستلم تاريخ الإستلام .... الخ وبالتالي يوجد لدي 6 أمناء مكتبة للستة أقسام اما النماذج فهناك شاشة رئيسية للبرنامج بها 3 أزرار إحداها للدخول بصفة باحث عادي (بدون أي صلاحيات مجرد للبحث فقط) والثاني للخروج من البرنامج والثالث للدخول بصفة أمين المكتبة وعندها أريد ظهور شاشة لإختيار اسم المستخدم والباسوورد الخاصة به وكل ما أريده هو دخول كل أمين بالباسورد الخاصة به وبالتالى عمل فلترة لجدول الوثائق بحيث يظهر له محتويات المكتبة الخاصة بالقسم التابع له ويمكن له أن يضيف عليها أو يعدل. هذا بإختصار ولكم جزيل الشكر

تم تعديل برنامج المكتبة main13.mdb بما تناسب مع احتياجاتي فى الشركة ولكن صادفتنى مشكله وهى :- أريد ادخال أكثر من مستخدم على البرنامج ولكل واحد الباسورد الخاصة به باستخدام combobox فكيف الوسيلة لذلك وأريد عند الدخول عمل فلترة لمحتويات الجدول بحيث يظهر لكل مستخدم محتويات القسم الخاص به فقط علما بأن هناك جدول واحد فقط يجمع كافة معلومات الكتب للاقسام المختلفة. ولكم منى جزيل الشكر محمد حسين

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

هل يمكن بدأ الترقيم التلقائي من رقم محدد مثلا يبدأ من 200

office XP

الأخ أمجد جزاك الله كل الخير وبلغك ليلة القدر تم إدخال نفس الكود على برنامج أخر متصل بالجداول من على الشبكه linked ولم يعمل ويعطي الرساله الأتية بعد إدخال البيانات فى خانة النص للكود Run-Time error '13': type mismatch أرجو ان اجد ماهية المشكلة ولماذا لا يعمل الكود المعدل هو : Private Sub CodeNo_BeforeUpdate(Cancel As Integer) Dim db As Database Dim rst As Recordset Set db = Application.CurrentDb NewCode = [Forms]![books]![CodeNo] Set rst = db.OpenRecordset("SELECT * " _ & " FROM [Tblibdata] WHERE [CodeNo]= " & "'" & NewCode & "'") If rst.RecordCount = 1 Then MsgBox "This Record Was Entered Before with No. " & rst![serialNp] Cancel = -1 End If db.Close End Sub

أرجو من أحدكم ان يقوم بشرح تفصيلي لـ OpenRecordSet وخاصة فى هذا المثال Private Sub اسم_الكتاب_BeforeUpdate(Cancel As Integer) Dim db As Database Dim rst As Recordset Set db = Application.CurrentDb NewName = [Forms]![الكتب]![اسم الكتاب] Set rst = db.OpenRecordset("SELECT [الكتب].[رقم الكتاب] , [اسم الكتاب] " _ & " FROM [الكتب] WHERE [اسم الكتاب]= " & "'" & NewName & "'") If rst.RecordCount = 1 Then MsgBox "سبق إدخال هذا الاسم برقم " & rst![رقم الكتاب] Cancel = -1 End If db.Close End Sub

أرجو شرح كيفية عمل ذلك بالنسبة للسؤال الثاني ومش مهم السؤال الأول وشكرا

السلام على من اتبع الهدى هل يمكن دمج بيانات جدولين أو أكثر فى جدول واحد علما بان الجداول لها نفس الـ fields - وهل يمكن استدعاء بيانات جدول من قاعدة بيانات اخري وإدراجها فى جدول أخر. جزاكم الله خير

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

للرفع

الأخ العزيز / ابو نعيم لقد حاولت البحث عن هذا الموضوع قبل اصدار المشاركة وللأسف لم اتوصل إلى شئ سوي برنامج لإدارة مكتبة (أدوات مكتبية) لذا أرجو المساعدة.

الأخوة الكرام السلام عليكم ورحمة الله وبركاته رمضــــــــــــــــ كـريــــــم ــــــــــــــــان أعاده الله عليكم وعلى الأمة المسلمة باليمن والخير والبركات والنصر والعزة أرجو المساعدة فى برنامج يستخدم فى إدارة مكتبة تحتوي على (كتب وكتالوجات ومجلات ونشرات دورية) حيث المطلوب هو تسجيل جميع المحتويات بالمكتبة على قاعدة بيانات لسهولة البحث مع تحديد مكان الكتاب بالمكتبة (الدولاب - الرف) فهل أجد لديكم ما استطيع البدء من خلاله وجزاكم الله خيراً

الأخ العزيز/ سهل حاولت البحث مرات عديده ولم أجد هل أجد مساعده فى ذلك وشكرا على الإهتمام

إخوانى فى الله كيف اقوم بحساب فترة زمنية بين تاريخين مثلا اريد حساب المده التى قضاها الموظف فى الخدمة من تاريخ إلتحاقه حتى تاريخ الإنهاء باليوم والشهر والسنة جزاكم الله خير الجزاء

أولا أود أن اسجل تحية خاصة لهذه المبادرة الرائعة - كما أرجو ان تستمر وتثمر كل الخير إنشاء الله لدي استفسار ما هو الفرق بين حساب مجمع الإهلاك الذكور بالجدول الأول (جدول تعرف الأصول) ومجمع إهلاك الأصل بالجدول الثاني (جدول معلومات الأصول) - وأكيد هناك فرق وإلا لما تكرر الحقل فى الجدول الثاني يالبند 6 والبند 6 مكرر.

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