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;