osama457

أخي الحبيب ربما لو وضعت فقط حقل جديد من نوع ترقيم تلقائي في الجدول الرئيس لانتهت المشكلة جرب المثال http://www.pcpages.com/osama457/db_Insert44.zip

أظن أنك تحتاج لحقل جديد في الجدول الرئيس ، وبواسطة استعلام الإلحاق تدرج في الحقل الجديد قيمة تجعله متأخرا عن السجلات السابقة له . مثلا : تضع حقل : تاريخ ووقت الإلحاق . وعن طريقه تعرف تاريخ ووقت إلحاق كل مجموعة من السجلات وتفرزها تصاعديا . انظر المثال http://www.pcpages.com/osama457/db_Insert33.zip أو تضع حقل رقم تسلسلي تسميه مثلا رقم الإلحاق ، فالسجلات الأولى رقم إلحاقها 1 ومجموعة السجلات الثانية رقم إلحاقها 2 ، وهكذا وتستنتج الرقم الذي يجب أن تجعله لكل إلحاق عن طريق استنتاج آخر رقم بواسطة الدالة Dmax ثم إضافة واحد عليه لكن سؤال : ألا يمكن الاستغناء عن ذلك كله بإدراج جميع السجلات دون تمييز ثم إنشاء استعلام يفرز السجلات حسب المعايير المطلوبة ، ثم يتم كتابة أرقام الجلوس بواسطة هذا الاستعلام ؟ .

ما عملته أنت سليم ، فقط استبدل العبارة : Me.Recalc بالعبارة Me.Requery والمثال المرفق تم الاستغناء فيه عن الاستعلام إلحاق http://www.pcpages.com/osama457/db_Insert22.zip

موضوع ذو صلة : التحكم باتجاه الصفحة و مقاس الهامش بالكود http://www.officena.net/ib/index.php?showtopic=137 هوامش التقارير, تعديل هوامش التقارير http://www.officena.net/ib/index.php?showtopic=1486 ولضبط الهوامش يسار وأعلى وأسفل ويمين ولكون الصفحة أفقية أو عمودية ولحجم الورق يستخدم الكود التالي : في التقرير في حدث عند الصحفة Report_Page Me.Printer.LeftMargin = 520 Me.Printer.TopMargin = 520 Me.Printer.BottomMargin = 520 Me.Printer.RightMargin = 658 Me.Printer.Orientation = acPRORLandscape Me.Printer.PaperSize = acPRPSA4 ولضبط الهوامش من خارج التقرير تستبدل الكلمة Me على النحو التالي Reports("اسم التقرير").Printer.LeftMargin = 520

جرب المثال http://www.pcpages.com/osama457/db33.zip

Dmax("FieldName";"TableName") استبدل FieldName باسم الحقل استبدل TableName باسم الجدول

آسف لكني لم أستوعب المطلوب جيدا ، وأخشى أن لا أتمكن من الإجابة ، ربما يمكن بعض الإخوة هنا إفادتك

آسف فالصحيح هو دالة Clng في حال عدم وجود وقت ، ودالة Cdbl لمراعاة الوقت بحيث يظهر ككسر انظر المثال المرفق Clng_Date.zip

الكود الذي أوردته كود ADO وللأسف لا أتقنه ، فلعل بعض الإخوة هنا يفيدك

مامعني ADO , DAO والفرق بينهما بصورة مختصرة جدا ؟ Data Access Objects كائنات الوصول الي البيانات : http://www.officena.net/Tips/AC3-ADO&DAO.htm مواضيع أخرى ذات صلة : إضافة سجل باستخدام ADO, إضافة سجل من نموذج بدون مصدر بيانات http://www.officena.net/ib/index.php?showtopic=13 حول اضافة سجلات الى جدول باستخدام كود الVBA http://www.officena.net/ib/index.php?showtopic=1096 إضافة سجل باستخدام DAO, إضافة سجل من نموذج بدون مصدر بيانات http://www.officena.net/ib/index.php?showtopic=14 أخي الفاضل : طيب حصلت على Recordset ، والغالب أنها عبارة عن عدد من السجلات ، فيها عدد من الحقول بأسماء مختلفة ، أي السجلات تريد ، وأي الحقول ؟ وهل تريد فقط استنتاج قيم أو تريد إجراء عمليات على السجلات إضافة وحذفا وتعديلا .

إذا لم يحقق المثال المرفق المطلوب أرجو توضيح ما يلي : أولا : جدول A : Id Field1 ليس مطلوبا أليس كذالك 1 T ما نوعه وكم حجمه 2 U ما نوعه وكم حجمه 3 V ما نوعه وكم حجمه 4 X ما نوعه وكم حجمه ثانيا : جدول B : Field1 ما نوعه وكم حجمه وما هي البيانات من جدول A التي ستخزن فيه ، هل هي الحقل T Field2 ما نوعه وكم حجمه وما هي البيانات من جدول A التي ستخزن فيه ، هل هي الحقل U Field3 ما نوعه وكم حجمه وما هي البيانات من جدول A التي ستخزن فيه ، هل هي الحقل V Field4 ما نوعه وكم حجمه وما هي البيانات من جدول A التي ستخزن فيه ، هل هي الحقل X ثالثا : حقلين إضافين من نوع text ، كم حجمهما ، وهل يقبلان الطول الصفري ؟ رابعا: 2 text boxes لماذا ؟ واحد منهما لاسم الجدول الجديد ، والثاني لماذا ؟ CreatTable111.zip

الدالة هي : Call SetOption("General Alignment", 0) أو Call SetOption("General Alignment", 1) حسب المطلوب هل هو interface mode أو Text mode

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

جرب Int([Date1]) أو Int([Date1])-1 استبدل Date1 باسم حقل التاريخ عندك

أفرض إن الجدول الأول اسمه جدول1 الجدول الثاني اسمه جدول2 أنشئ استعلام جديد وافتحه في طريقة عرض SQL ثم انسخ العبارة التالية والصقها هناك: SELECT جدول1.الصادرات AS بيان, جدول1.التاريخ, جدول1.السعر, "صادرات" AS النوع FROM جدول1; UNION SELECT جدول2.الواردات AS بيان, جدول2.التاريخ, جدول2.السعر, "واردات" AS النوع FROM جدول2; أو العبارة التالية : SELECT جدول1.الصادرات AS بيان, جدول1.التاريخ, جدول1.السعر, 1 AS النوع FROM جدول1; UNION SELECT جدول2.الواردات AS بيان, جدول2.التاريخ, جدول2.السعر, 2 AS النوع FROM جدول2;

حقيقة لا أعلم ما السبب .

هذان كودان باستخدام استعلامات إجرائية واستعلامات تعريف البيانات Sub MySub1() ' السطر التالي عند تفعيله يحذف الجدول إن كان موجودا ' DoCmd.RunSQL "DROP TABLE NewTbl1" ' العبارة التالية تنشئ جدول جديد اسمه ' NewTbl1 ' وفيه ثلاثة حقول من نوع نص أسماؤها واضحة من العبارة DoCmd.RunSQL "CREATE TABLE NewTbl1 ([f2] text, [f3] text, [f4] text);" ' السطر التالي يوقف رسائل التنبيه DoCmd.SetWarnings False ' السطر التالي يدرج سجلات الجدول القديم في الجدول الجديد DoCmd.RunSQL "INSERT INTO NewTbl1 ( f2 ) SELECT Tbl1.f2 FROM Tbl1;" ' السطر التالي يعيد تشغيل رسائل التنبيه DoCmd.SetWarnings True End Sub Sub MySub2() ' السطر التالي يوقف رسائل التنبيه DoCmd.SetWarnings False ' السطر التالي يدرج سجلات الجدول القديم مع حقلين فارغين جديدين يقبلان الطول الصفري في جدول جديد اسمه ' NewTbl1 DoCmd.RunSQL "SELECT Tbl1.f2, '' AS f3, '' AS f4 INTO NewTbl1 FROM Tbl1;" ' السطر التالي يعيد تشغيل رسائل التنبيه DoCmd.SetWarnings True End Sub ومرفق مثال CreatTable22.zip

Dim dbsDb As Database Dim tdf As TableDef Set dbsDb = CurrentDb Set tdf = dbsDb.TableDefs("اسم_الجدول") tdf.Fields("اسم_الحقل").Required = True Set tdf = Nothing Set dbsDb = Nothing

في الرابط تعديل على المثالين حسب ما طلبت: http://www.pcpages.com/osama457/SpeedSearch777.zip

المثال : http://www.pcpages.com/osama457/Mos22.zip انقر عبارة Click Here والموضوع الأصلى : منتديات أوفيسنا -> قسم الأكسس -> دروس و خلاصة مشاركات الأكسس -> مشاركات الأكسس العامة -> فكرة مسابقة, طريقة عمل مسابقة بالأكسس على الرابط : http://www.officena.net/ib/index.php?showtopic=2335&st=0&

تحديثات وتعديلات على برنامج المسابقة على الرابط http://www.pcpages.com/osama457/Mos22.zip انقر عبارة Click Here

هذا مثال مبسط بقدر قليل جدا من الأكواد http://www.pcpages.com/osama457/ClassStudents.zip عند فتح الصفحة انقري على عبارة Click Here

النسبة للجزء الأول من السؤال الحقل نوع الغياب حدث بعد التحديث يكون بالشكل التالي If Me.نوع_الغياب = "غياب بعذر" Then Me.الغياب_بعذر = Me.المدة Me.الغياب_بغير_عذر = 0 Else Me.الغياب_بغير_عذر = Me.المدة Me.الغياب_بعذر = 0 End If وعموما كان لي في المثال المرفق بعض التعديلات يمكنك الأخذ بها إن أعجبتك ، أهمها 1- إلغاء الحقول : المدة ، الغياب بعذر ، الغياب بدون عذر ، اجمالي الغياب ، من جدول الغياب لأنه يمكن الاستغناء عنها بحقول محسوبة في استعلام ، وبالتالي لم يعد هنالك حاجة للكود السابق 2- تحويل حقل نوع الغياب إلى حقل رقم بدلا من نص بالنسبة للجزء الثاني فالجواب في المثال المرفق في الرابط http://www.pcpages.com/osama457/Absint22.zip (اضغط على عبارة click here )

أرجو ان المثال المرفق يؤدي الغرض Teachers22.zip

مجموعة من المواضيع ذات الصلة في منتديات أوفيسنا -> قسم الأكسس -> دروس و خلاصة مشاركات الأكسس -> حماية و تأمين قواعد البيانات حسابات المستخدمين والمجموعات : http://www.officena.net/ib/index.php?showtopic=938 اكثر من مثال لعمل نظام صلاحيات : http://www.officena.net/ib/index.php?showtopic=712 كيف اعرف من المستخدم الذي عدل : http://www.officena.net/ib/index.php?showtopic=1048 من المستخدم الذي قام بادخال البيانات ووقت الادخال : http://www.officena.net/ib/index.php?showtopic=630 من دخل إلى البرنامج ومن أدخل البيانات : http://www.officena.net/ib/index.php?showtopic=1691