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

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