مهند عبادي

أفترض أنكم تريدون عرض مجموعة سجلات معينة من قاعدة البيانات انتم تحددونها من خلال مربع نص .. صح ؟ إذا كان هذا ما ترمون إليه فإاليكم الحل db2.rar

الآن يجب عليك أن تصمم النماذج 1- نموذج للتعامل مع ذاتية كل موظف على حدة (نموذج مفرد) 2- نموذج للتعامل مع الإجازات (نماذج مستمرة) 3- نقوم بإدراج النموذج الثاني ضمن النموذج الأول اعمل الخطوات التي تستطيع حتى نتابع

قمت بتصحيح الجداول .. لا يجوز أن يكون المفتاح الاساسي في جدول الإجازات هو حقل الربط .!! بل يجب أن يكون هو حقل الترقيم التلقائي فيه لأنه كل سجل من جدول الموظفين يرتبط مع عدد غير محدود من السجلات في جدول الإجازات .. أي أن حقل الربط سيحتوي قيم مكررة . ولا يجوز أن يكون مفهرساً (منع التكرار) أو مفتاحاً أيضاً في جدول الموظفين الأفضل كون المفتاح الرئيسي هو حقل الترقيم التلقائي وليس أي حقل آخر لأنه يأخذ قيماً فريدة بشكل تلقائي ويجنبنا مشاكل أخطاء الإدخال وهذا هو الملف مرفق بعد التعديل db1.rar

ما زال المطلوب غير مفهوم بالنسبة لي ..

أخي الكريم اعمل استعلام وضع في أحد الحقول ما يلي : day([mydate]) & "/" & month([mydate]) ثم ضع في معاييره هذه العبارة : أدخل اليوم والشهر الذي تريدهما

أولاً - حقل نوع الإجازة من الاسهل أن يكون نص حيث سيحتوي نوع الإجازة : عادية - استثنائية - مرضية - ..الخ ثانياً - الربط ليس من الأصح أن يكون على رقم الموظف .. وإنما نعمله على رقم حقل الترقيم التلقائي الذي طلبت منك إضافته وسبب عدم الاعتماد على رقم الموظف هو أن الترقيم التلقائي والذي سيكون مفتاح رئيسي للجدول يؤمن إداء أسرع للقاعدة ، والأهم هو التخلص من المشاكل التي ستنجم عندما ندخل رقم موظف خاطئ ثم نقوم بعد فترة بتعديله ...

استخدم تعليمات الـ SQL لهذه الغاية وهي تعليمة insert

المطلوب غير واضح !

قمت بتصميم دالتين لاستخلاص الأسم الأول والاسم الأخير من اي نص كما يلي : Function GetFirstName(N As String) As String On Error Resume Next Dim A() As String, R As String A = Split(N, " ") R = A(0) If A(0) = "عبد" Then R = R & " " & A(1) GetFirstName = R End Function Function GetLastName(N As String) As String On Error Resume Next Dim A() As String, R As String, I As Byte A = Split(N, " ") I = UBound(A) R = A(I) If InStr(1, "الله الدين", A(I)) > 0 Then R = A(I - 1) & " " & R GetLastName = R End Function أرجو أن يفيا بالغرض

هل تقصد برنامج للديوان ؟؟ (بريد صادر ووراد)

أخي المبتدأ .. كلمة بينها تتعلق بالترتيب الذي ستظهر به السجلات لذلك في هذه الحالة نضع حقل خاص للترتيب ونتحكم بالقيم الموجودة به وفق مقتضيات البرنامج ثم نعرض السجلات مرتبة وفق هذا الحقل

أخي فنكوش هل أنجزت الجداول كما شرحتها لك ؟؟ حتى نتابع للخطوة التي تليها على فكرة : كلمة فنكوش ماذا تعني ؟؟ هل هي تصغير كلمة Function :) ؟؟

تفضل الحل db1.rar

أخي الكريم تفضل الحل بواسطة زر إعادة الترقيم db1.rar

لحد الآن لم ينزل بالقوائم العربية

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

استخدم في المعادلة دالة nz كما يلي : =(nz(year1426)+nz(year1427))/2

لقد قمت بعمل إجراء (sub) يقوم تلقائياً بإسناد قيمة الصف الأول في القائمة مهما كان نوع مصدر البيانات (قائمة القيم - جدول/استعلام) ومهما كان العمود المنضم هذا الإجراء يمكن أن يفيد في البرامج من أجل وضع قيمة افتراضية للقائمة الافتراضية من ضمن عناصرها عندما تكون مجموعة العناصر تتغير .. مثال : برنامج طبيب .. عند كتابة الوصفة واختيار نوع الدواء تكون هناك قائمة منسدلة تحتوي على الجرع يتغير محتواها تلقائياً حسب نوع الدواء ... فيلزمنا أن نحدد قيمة افتراضية لهذا الخيار لن أطيل بالشرح أكثر وهذا هو الكود : Sub Set2First(A As ComboBox) Dim C As Object, P As Integer, P1 As Integer, N As Byte, R As Byte If A.RowSourceType = "Value List" Then P = InStr(A.RowSource, ";") N = A.BoundColumn If P > 0 Then For R = 2 To N P1 = P P = InStr(P + 1, A.RowSource, ";") If P = 0 Then P = Len(A.RowSource) Next A.Value = Mid(A.RowSource, P1 + 1, P - P1 - 1) Else A.Value = A.RowSource End If Else Set C = CurrentDb.OpenRecordset(A.RowSource) C.MoveFirst A.Value = C.Fields(A.BoundColumn - 1) End If End Sub

مثال آخر على الاستبانة ..! questionnaire.rar

الأخ obaid70 السلام عليكم .. من خلال قرائتي للجداول لاحظت أن جدول المدن(المحافظات) غير مرتبط مع جدول قائمة المراكز .. أيضاً كيف سنربط بين الطلاب وأماكن تقديمهم .. هل هو من خلال حقل مركز الامتحان في جدول الطلاب ؟؟ أما بالنسبة لعملية توزيع الطلاب فهي إن شاء الله يسيرة ولكننا بحاجة لمثال مكتمل من أجل تجربة البرنامج والتأكد من نجاحه

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

حتى ولو لم يكن اسمه محدد مسبقاً ليس مشكلة فيمكنك أن تظهري للمستخدم مربع فتح ليحدد القاعدة التي يريد استيراد الجداول منه ثم تركبي عبارة الـ SQL برمجياً .. هل وضحت الفكرة ؟؟

الحل هو تنفيذ استعلامين SQL .. الاستعلام الأول يحدث جميع السجلات الموجودة في الجدولين الاستعلام الثاني إلحاق السجلات الجديدة من الجدول الثاني إلى الجدول الأول طبعاً من أجل التعامل مع جدول موجود في قاعدة بيانات خارجية يجب وضع مسار واسم قاعدة البيانات بعد اسم الجدول باستخدام كلمة in .. مثال : select * from myschool IN 'I:\Schools.mdb' ; فنستطيع بنفس الاسلوب بناء أي استعلامات نحتاجها

الرجاء مراجعة الرابط : http://www.arabteam2000-forum.com/index.ph...ndpost&p=194344

بسم الله الرحمن الرحيم الأخوة أعضاء ومشرفيو إداريي أوفيسنا.. يسرني دعوتكم للمشاركة في مسابقة منتديات المحيط العربي الرمضانية .. :( لمزيد من التفاصيل : http://www.arabmoheet.net/forum/default.as...e=1entry14236