نجوم المشاركات

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

ماتره صحيح انا معك استاذي الكريم

أهلا أخي الكريم @أمير ادم ،، اعتقد أنه يجب أن يكون لديك حقل لكود المادة الرئيسي ( كود المنتج Odb_ItemCode ) في الجدولين ، وعليه سيكون الربط بين النموذج الرئيسي والفرعي هو حقل كود المنتج . تابع الصورة TransBom.accdb

عمال اقراء فى طلبك اكثر من مره واحاول اطبق ما تريد على النموذج الخاص بك وبعد مراجعة البيانات والجداول شعرت ان هناك خطأ فى تصميم الجداول وان هناك تكرار للبيانات غير مطلوب انت تريد نقل بيانات الجدولين الى الجدولين الاخرين ؟ طيب لماذا ؟ وياريت توضح فكرتك بالظبط علشان نساعدك على هيكلة الجداول اذا احتاج الامر

وعليكم السلام ورحمة الله وبركاته... Sub ExportToExcel() Dim xlApp As Object Dim xlBook As Object Dim xlSheet As Object Dim rs As DAO.Recordset Dim i As Integer Dim j As Integer ' افتح تطبيق إكسل Set xlApp = CreateObject("Excel.Application") Set xlBook = xlApp.Workbooks.Add Set xlSheet = xlBook.Worksheets(1) ' افتح سجل البيانات (Recordset) الذي تريد تصديره Set rs = CurrentDb.OpenRecordset("اسم_الجدول_أو_الاستعلام") ' تصدير العناوين For i = 0 To rs.Fields.Count - 1 xlSheet.Cells(1, i + 1).Value = rs.Fields(i).Name Next i ' تصدير البيانات rs.MoveFirst i = 2 Do While Not rs.EOF For j = 0 To rs.Fields.Count - 1 xlSheet.Cells(i, j + 1).Value = rs(j) Next j i = i + 1 rs.MoveNext Loop ' تنسيق العناوين With xlSheet.Rows(1) .Font.Bold = True .Font.Size = 16 .Interior.Color = RGB(255, 255, 0) ' خلفية صفراء .HorizontalAlignment = -4108 ' توسيط النص End With ' تنسيق البيانات With xlSheet.Range(xlSheet.Cells(2, 1), xlSheet.Cells(i - 1, rs.Fields.Count)) .Font.Size = 14 .Font.Bold = True .HorizontalAlignment = -4108 ' توسيط النص End With ' توسيع الأعمدة لتلائم المحتوى xlSheet.Columns.AutoFit ' عرض تطبيق إكسل xlApp.Visible = True ' تنظيف الذاكرة Set rs = Nothing Set xlSheet = Nothing Set xlBook = Nothing Set xlApp = Nothing End Sub

أحبتي الكرام السلام عليكم ورحمة الله وبركاتة احب ان اعرض بين ايديكم عملي المتواضع جدا وهو برنامج الشؤون الإدارية للافراد راجيا من الله ان يكون مفيد لكم وذلك من خلال خبرتي المتواضعة جدا جدا في برنامج اكسس التي اكتسبتها من خلال هذا المنتدى الرائع كما اود من الاخوة الخبراء والاعضاء التكرم بالاطلاع عليه وتصحيح ما يمكن تصحييحة إذا وجد هناك أي ملاحظات. عند تشغيل البرنامج قم بتعبئة الترميزات أولا لتتمكن من اكمال البيانات الاخرى ملاحظاتي 1- مطلوب إدراج دالة في نموذج بيانات الموظفين تقوم بحساب استحقاق الرتبة التالية على ضوء الرتبة الحالية بمعنى ان شخص رتبتة جندي وتاريخ ترقيتة 1/1/1401هـ فتقوم هذه الدالة بحساب تاريخ الترقية التالية على اساس ان الجندي يحتاج سنتين لكي يستحق الترقية التالية فتظهر النتيجة في حقل تاريخ الرتبة القادمة 1/1/1403هـ. 2- النماذج الرئيسية لإدخال البيانات لا تقوم بالإنتقال لسجل جديد بعد إظافة سجل 3- مطلوب إدراج دالة لحساب تاريخ التقاعد على اساس ان لكل رتبة عمر افتراضي للتقاعد 4- مطلوب اذون استخدام للمستخدمين بحيث ان هناك مستخدمين لهم كامل الصلاحيات ومستخدمين اخرين لهم صلاحيات العرض فقط 5- مطلوب اعداد تقرير شامل عن الموظف يعرض جميع ما يتعلق به برنامج الشؤون الادارية للعسكريين

كود ملء الشاشة ، اخفاء شريط الادوات ،اخفاء شريط الصيغة DisplayFullScreen.rar

اخواني كيف حالكم التحميل ماشاء الله لكني لا ارى اي تجاوب ومع ذلك نكمل الموضوع هذا الكود لفهرسة الاوراق في الورقة1 فهرس اوراق في الورقة الاولى.rar

Private Sub Workbook_Open() MsgBox ("توضع هنا العبارة التى تريد أن تظهرها عند فتح الملف") End Sub كود صندوق حوار يظهر عند فتح الملف

هلاين اخي ان شاءالله عن قريب نزلك البرنامج يمكن ينفعك