gs7581

انا بشتغل علي قاعدة البيانات و بعد ما بخلص بضغطها

و بعد ما بعمل ريستارت و افتحها تاني

تظهر لي الرسالة دي و ما يفتحش تاني

و اضطر افك النسخة المضغوطة

هذة هي الصورة بعد تحويلها الي JPEG

و لا تظهر المشكلة الامع اوفيس 2010 فقط

انا اضفت الصورة مرتين و ما بتظهرش لية؟

هذة هي الصورة

متشكر جدا اخي محب العلم

و جزاك الله خيرا

اتمني معرفة الكثير عن كائنات النظام في اكسس

ما هي وظيفتها و مشاكلها و طرق الوقاية منها

:(

يا اخي لماذا قررت ان الموضوع لا يحتاج الي ارفاق ملف و حكمت بذلك

انا شخصيا لم استطع فهم ما هو المطلوب بالضبط

ارجو مزيد من التوضيح

وشكرا

السلام عليكم

اخي الفاضل قم بعمل ماكرو جديد

ثم اختر الاجراء runapp

ثم في وسائط الاجراء اكتب الكود التالي:

xcopy dir1 dir2

حيث ان dir1 هو مسار قاعدة البيانات الاصلي

و dir2 هو المسار الجديد لقاعدة البيانات بعد النسخ

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

و سيقوم بنسخ قاعدة البيانات

وشكرا

اخي يمكنك من خصائص النموذج في وضع التصميم في التبويب بيانات

انتجعل كلا من السماح بالاضافة و السماح بالتحرير يساوي لا وعند فتح النموذج فلن تتمكن من اضافة او تحرير البيانات

وشكرا

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

لذا انصحك بطباعة بياناتك من خلال التقارير

لاأنك تقوم بضبط اعدادات الطباعة مررة واحدة في تصميم التقرير

هذا رأي شخصي واتمني معرفة اراء باقي الاخوة

و شكرا

اعتقد ان ذلك يتم عن طريق ان تقوم بعمل استعلامات لجمع النماذج الفرعية

ثم تقوم بادراج النتائج في مربعات نص في النموذج الاصلي

و شكرا

السلام عليكم انا ايضا واجهت هذة المشكلة

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

اخي الفاضل خضر الرجبي

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

وفي الحقل الخاص باسماء الحقول الاخري لاتكتب شيئا في خانة تحديث الي

ولكن في خانة معايير اكتب

forms![اسم النموذج]![اسم الكومبو بوكس]

و اتمني لو تم ارفاق الملف و ان شاء الله اعدلة لك

و شكرا

السلام عليكم

يمكن عمل ذلك كما يلي

باستخدام الكود التالي

if [first feild].value= yes then
feild2.enabled=false
end if

وشكرا

أخي الفاضل MZAKI

اشكرك بشدة علي البرنامج الرائع فهو مفيد جدا بالنسبة لي

ولكن هو ليس ما كنت ابحث عنة حيث ان البرنامج يقوم بنسخ قاعدة البيانات بالكامل حتي

و لوكان بها اخطاء ولكن ما اريدة هونسخ كائنات قاعدة البيانات فقط الي قاعدة جديدة تماما

و الحمد لله لقد عرف الطريقة:

حيث نقوم بعمل قاعدة بيانات جديدة فارغة

ثم نقوم بعمل استيراد للجاول مثلا من القاعدة المطلوب نقل كائناتها بعد ان نحدد مسارها

و هناك خيار عند الاستيراد يمكنك من اختيار جميع الجداول الموجودة فتقوم باستيرادها

مرة واحدة

ثم نعمل نفس الشيئ لباقي كائنات القاعدة من تقارير و استعلامات و ..........

و شكرا

السلام عليكم

هل يمكن نسخ جميع مكونات قاعدة البانات مرة واحدة الي قاعدة بيانات جديدة بأمر معين

بدلا من نسخ كل عنصر بمفردة

ارجو الافادة و شكرا

اخي الفاضل خضر الرجبي

لم اجد المرجع التالي

microsoft access 11.0 object library

ولكن وجدت المرجع التالي

microsoft access 10.0 object library

و لكن لم يعمل البرنامج ايضا

والكود بعد كتابتة هو :

Private Sub Form_Load()

         Dim Starttime, Endtime
         Dim db As Database
         Dim t As Recordset
         Dim i As Integer
         Dim tempName As String
         Dim temphone As String
         Set db = Workspace(0).OpenDatabase("i:\gaber\gs.MDB") ' Uses a
          ' copy of BIBLIO.MDB.
         Set t = db.OpenRecordset("employee", dbOpenTable)
         Starttime = Now
         'BeginTrans  ' Add this and CommitTrans (below) for greater speed.
         For i = 1 To 100
            tempName = "testname" & Str$(i) ' Make an arbitrary unique
                                            '  string.
            tempPhone = Str$(i)             ' Make arbitrary number.
            t.AddNew ' AddNew clears copy buffer to prepare for new record.
            t!PubID = 30 + i  ' Set primary key to unique value.
            t!Name = tempName  ' Set Name field to unique value.
            t!Telephone = tempPhone  ' Set Telephone field to unique value.
            t.Update   ' Write the record to disk or to transaction buffer.
         Next i
         'CommitTrans  ' Add this and BeginTrans (above) for greater speed.
         Endtime = Now
         MsgBox "Time required= " & Format(Endtime - Starttime, "hh:mm:ss")
         t.Close
         db.Close
         End
      End Sub

واتمني لو اتعبتك قليلا وعملت البرنامج عندك علي نفس موقع قاعدة البيانات الموجود بالكود

و ارسلتة لي في صورة EXE

و تقبل تحياتي

الحمد لله

وفقك الله يا أخي

فالكلام مريح للنفس منير للعقل وشفاء للقلب

ولي مشاركة بسيطة عبارة عن دواء بسيط جدا و غير مكلف بالمرة

و مفيد جدا لعلاج الهموم

عبارة عن حديث للرسول صلي الله علية وسلم يقول فية :

( لا حول و لا قوة الا بالله دواء من تسعة و تسعين داء ايسرها الهم)

وقولة صلوات الله و سلامة علية :

( من لزم الاستغفار جعل الله لة من كل هم فرجا و من كل ضيق مخرجا و رزقة من حيث لا يحتسب)

اللهم اني اسألك بسمك الاعظم الغير معروف لنا ان تهدينا الي الصراط المستقيم

وان تنصر اخواننا المستضعفين في كل مكان

وان تعلي بفضلك كلمتي الحق و الدين

آخر امنياتنا ان نتقابل نحن جميع أعضاء المنتدي الكريم و سائر الصالحين

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

الهم امين

و آخر دعوانا ان الحمد لله رب العالمين

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

بمعني كيف تتم الاضافة الي مربع الرصيد و يكون الناتج فية في نفس الوقت

اتمني لو كان ممكنا ان نتعلمة سويا

اخيك د/ جابر الشيمي

السلام عليكم

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

وشكرا

أخيكم

د/ جابر الشيمي

استكمالا لطلب الاخ فتي الوادي

هل SQL server

موجود ضمن الاكسس

ام انة برنامج مستقل يمكن تحميلة

و شكرا

حسب تجربتي مع الاكسس

فمن الافضل عدم ربط الجداول مع بعضها

و يتم الربط فقط في بناء الاستعلامات عند وجود نفس الجداول المطلوب ربطها داخل نفس الاستعلام

و الله اعلم