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

السلام عليكم ورحمة الله بعد إذن الخبراء وجدت أن أفضل وضع للتقرير هو بالشكل التالي وتقبلوا فائق إحترامي الجدول العام لإدارة المشاريع-تخطيط-ملف الصندوق.rar

السلام عليكم ورحمة الله أخي الحبيب Foksh أخواني الأفاضل إذا سمحتم لي بالدخول على الخط وتوفيراً للوقت ومساعدة للأخ muhandesramadan تفضلو ملف الإكسل بعد تحويلة للأكسس (جداول ونماذج) وشكراً لكم الجدول العام لإدارة المشاريع-تخطيط-ملف الصندوق.accdb

اخي الكريم أهلاً وسهلاً بك معنا ،، بداية لا مانع من استخدامك أي لغة تريدها في برنامجك ، ولكن اللغة الكردية وإن لم أكن مخطئا السورانية قد لا تجد من يحاول تنفيذ الفكرة التي طلبتها . أعتقد أن هناك حل من اثنين إما كتابة المعطيات باللغة العربية أو الإنجليزية !! هذا من وجهة نظري ولست محكوماً بها 😇 تقبل تحياتي لك 💐

وعليكم السلام ورحمة الله تعالى وبركاته اظن انه يوجد طرق افضل لكتابة الاكواد للحصول على نتائج صحيحة وأدق على العموم حاول تجربة تغيير التنسيق بما يناسبك كما في المثال التالي TextBox4.Value = Format(ws.Cells(X, 11).Value, "mm/yyyy") TextBox18.Value = Format(ws.Cells(X, 23).Value, "dd/mm/yyyy") TextBox19.Value = Format(ws.Cells(X, 24).Value, "dd/mm/yyyy")

Try this code Sub Test() Const SROW As Long = 6 Dim w, m As Long, r As Long, n As Long Application.ScreenUpdating = False With ActiveSheet .Columns("L:M").ClearContents m = SROW For r = SROW To .Cells(Rows.Count, "J").End(xlUp).Row n = .Cells(r, "I").Value If n > 0 Then .Cells(m, "L").Resize(n).Value = .Cells(r, "J").Value m = m + n End If Next r m = m - SROW w = Evaluate("ROW(1:" & m & ")") .Range("M" & SROW).Resize(UBound(w, 1)).Value = w End With Application.ScreenUpdating = True End Sub

السلام عليكم ورحمة الله وبركاته السادة اعضاء المنتدى والخبراء الكرام أثناء بحثي في الإنترنت وجدت بعض النماذج للأزار تبديل (Toggle Button) حديثة فأردت مشاركتها معكم لكي تعم الاستفادة لعل أحدهم ينتفع بها. وشكرا جزيلا لكم 1.rar 2.rar

تفضل التقرير كما صممته لك سابقاً وسوف أقوم بتنفيذ طلباتك إن شاء الله ولكن غدا صباحا عند الساعة التاسعة فقد حان وقت النوم جدول.rar

بسم لله ماشاء الله احسنت ا/ محمد هشام

اتوقع ما زالت بيئة اكسل لا تفارقك .. اكسس يختلف كثيرا تفضل الجزء الأول عمل فريد يختلف عن ما سبق : توزيع رقم الجلوس + توزيع الصف على مجموعات توزيع المجموعات : عندما تختار الصف سيظهر لك عدد الطلاب الاجمالي يوجد حقل تدخل فيه عدد الطلاب في المجموعة .. انتر .. سوف يظهر لك عدد المجموعات التي سوف يتم اعدادها لو فرضنا عدد الطلاب الكلي 205 ووضعت في حقل الاستيعاب 50 سيكون الناتج 5 والمجموعة الخامسة ستحتوي على 5 طلاب فقط الغيت جدول المجموعات وجعلت البرنامج يبدع وينشىء لنا مجموعات خاصة مرنة هكذا : 5-1 ... 5-2 .. 5-3 وهكذا .. الرقم 5 يرمز للصف الخامس والرقم التسلسلي الأيمن هو رقم المجموعة انا جربت المثال كثيرا وتأكدت من خلوه من الأخطاء فضلا ..عندما تفتح المثال اذهب اولا الى جدول اسماء الطلاب وافتحه ثم اعمل فرز لرقم الجلوس من الأصغر للأكبر وانظر نتيجة التوزيع بعد ذلك يمكنك الذهاب الى النموذج وحذف الجلوس والمجموعات .. ثم ارجع الى الجدول لتتأكد ان كل شيء تم حذفه بعد ذلك يمكنك التجربة ويتبقى توزيع السري Dat14.rar

السلام عليكم أخي الكريم Muhandes Ramadan هل ما تريده هو عملية ترتيب و فرز التقرير حسب اختيار القضاء, الناحية, القرية/المحلة, المبلغ بالدينار العراقي وما هو جدول المشاريع A3 ؟ هل تقصد الطباعة على ورقة بحجم A3 أرجو التوضيح تحياتي

بارك الله فيك استاذنا صراحة تقرير جميل جدا هل يمكن حسب المعايير التالية عند اختيار القضاء, الناحية, القرية/المحلة, المبلغ بالدينار العراقي معايير المبلغ حسب التالي 2500.000 الى 20.000000 21.000000 الى 50.000000 51.000000 الى 100.000000 101.000000الى 200.999999 201.000000الى 500.000000 501.000000الى 1000.000.000 1000.000.000 الى 5000.000.000 والتقرير الناتج يكون نفس شكل جدول المشاريع A3

وعليكم السلام ورحمة الله تعالى وبركاته كما سبق الذكر من طرف الأستاذ @طارق محمود أنسب طريقة لتنفيد طلبك على ما أعتقد هي إستخدام الأكواد خاصة إذا كانت لك رغبة بالإشتغال على الملفات وهي مغلقة مع وضع عدة معايير للتحقق يمكنك تجربة هدا الاقتراح ربما يناسبك يكفي وضع مصنف المطابقة في نفس مسار الملفات سيتم تحديث البيانات تلقائيا Sub CopyData() '''''''''( رصيد عملاء Workbook ) Dim FileName$, Path$, wbSource$, rng As Range, FilePath$, sPath$ Dim src As Worksheet: Set src = Sheets("1") Path = ThisWorkbook.Path wbSource = "رصيد عملاء.xlsx": FileName = src.[A1] If FileName = "" Then: Exit Sub ' التححق من وجود المصنف FilePath = Path & "\" & wbSource If Len(Dir(FilePath)) = 0 Then MsgBox "الملف غير موجود", vbExclamation, wbSource: Exit Sub End If ' التححق من وجود ورقة العمل sPath = ActiveWorkbook.Path & "\" If Not Verification(sPath, wbSource, FileName) Then MsgBox wbSource & " " & " الورقة " & " : " & FileName & " غير موجودة على مصنف", vbInformation: Exit Sub End If With Application .ScreenUpdating = False .DisplayAlerts = False src.Range("B3:P" & src.Rows.Count).ClearContents a = "B3:B300": b = "C3:C300": c = "D3:P300" '<<===== ' Paste data(المطابقة) Cnt = "Q12:Q300": Cnt2 = "S12:S300": Cnt3 = "CB12:CN300" '<<===== 'Data range(رصيد عملاء) 'كود المنتج src.Range(a).FormulaArray = "='" & Path & "\[" & wbSource & "]" & FileName & "'!" & Cnt 'المنتج src.Range(b).FormulaArray = "='" & Path & "\[" & wbSource & "]" & FileName & "'!" & Cnt2 ' من يناير الى الإجمالى src.Range(c).FormulaArray = "='" & Path & "\[" & wbSource & "]" & FileName & "'!" & Cnt3 ling = src.UsedRange.Rows.Count: Set rng = src.Range("B3:P" & ling) With rng .Value = .Value: .Borders.LineStyle = xlNone .Replace "#N/A", "", xlWhole: .Replace "0", "", xlWhole End With ' Underline the rows Sheets("1") For Each c In rng.Rows If WorksheetFunction.CountA(c) > 0 Then c.Borders.LineStyle = xlContinuous Next .ScreenUpdating = False .DisplayAlerts = False End With End Sub Sub CopyData2() '''''''''''''( عملاء Workbook ) Dim FileName$, Path$, wbSource$, rng As Range, FilePath$, sPath$ Dim src As Worksheet: Set src = Sheets("1") Path = ThisWorkbook.Path wbSource = "عملاء.xlsx": FileName = src.[R1] If FileName = "" Then: Exit Sub FilePath = Path & "\" & wbSource If Len(Dir(FilePath)) = 0 Then MsgBox "الملف غير موجود", vbExclamation, wbSource: Exit Sub End If sPath = ActiveWorkbook.Path & "\" If Not Verification(sPath, wbSource, FileName) Then MsgBox wbSource & " " & " الورقة " & " : " & FileName & " غير موجودة على مصنف", vbInformation: Exit Sub End If With Application .ScreenUpdating = False .DisplayAlerts = False src.Range("S3:AG" & src.Rows.Count).ClearContents a = "S3:S300": b = "T3:T300": c = "U3:AG300" '<<===== ' Paste data(المطابقة) Cnt = "Y4:Y300": Cnt2 = "Z4:Z300": Cnt3 = "FK4:FW300" '<<===== 'Data range(عملاء) 'كود المنتج src.Range(a).FormulaArray = "='" & Path & "\[" & wbSource & "]" & FileName & "'!" & Cnt 'المنتج src.Range(b).FormulaArray = "='" & Path & "\[" & wbSource & "]" & FileName & "'!" & Cnt2 ' من يناير الى الإجمالى src.Range(c).FormulaArray = "='" & Path & "\[" & wbSource & "]" & FileName & "'!" & Cnt3 ling = src.UsedRange.Rows.Count: Set rng = src.Range("S3:AG" & ling) With rng .Value = .Value: .Borders.LineStyle = xlNone .Replace "#N/A", "", xlWhole: .Replace "0", "", xlWhole End With ' Underline the rows Sheets("1") For Each c In rng.Rows If WorksheetFunction.CountA(c) > 0 Then c.Borders.LineStyle = xlContinuous Next .ScreenUpdating = False .DisplayAlerts = False End With End Sub Function Verification(fPath As String, fName As String, sheetName As String) Dim f As String f = "'" & fPath & "[" & fName & "]" & sheetName & "'!R1C1" Verification = Not IsError(Application.ExecuteExcel4Macro(f)) End Function Sheets("1") وفي حدث Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next Select Case Target.Address(0, 0) Case "A1": Call CopyData: Case "R1": Call CopyData2 Target.Select Case Else: Exit Sub End Select End Sub Workbook event Private Sub Workbook_Open() Call CopyData: Call CopyData2 End Sub إستدعاء بيانات.zip

اخي احمد المحترم الشكر والتقدير لجهودك 1-لاحظ في جدول المنصب في حقل اسم المنصب كيف وجد تكرار للمنصب 2-لاحظ عندما تفتح النموذج ونستخدم (زر حذف delete) لتحذف القيمة من اسم المنصب لتحتار قيمة اخرى من نفس القائمة كيف ينشأ فراغا في جدول المنصب في حقل اسم المنصب 3- مع العلم ان تلك القاعدة تحتوي( 25 )الف قيد (اسم) 4- مع العلم ان اسم المنصب يحنوي على (601) (اسم منصب )فليس من الصحيح ان اقوم بالنظر ل 601 منصب من اجل اختيار واحد منها

شكرا جزيلا لكم على المساعدة على امل ان يستفيد من هذه الخدمة الصغيرة من قبل الطلاب في الدراسات لتوثيق المراجع والمصادر

لا اريد ان اتعبكم اساتذتنا في تصميم البرنامج يكفي تعطوني الفكرة من التصميم وانا سوف اقوم بالتصميم ان امكن فانا في طور التعلم المشاكل التي اواجهها المشكلة الاولى: قمت اول شيئ بتصميم جدول المشاريع و بداخلها القوائم المنسدلة ثم قمت باستيراد البيانات من جدول الاكسيل بعد استيراد البيانات تم مسح بيانات القوائم المنسدلة في جدول المشاريع . ماذا تنصحوني هل اقوم بادخال البيانات يدويا دون استيرادها و اطبق عليها القوائم المنسدلة المشكلة الثانية: عندي جدولين جدول المشاريع: (التسلسل, كود المشروع, نطاق المشروع, اسم المواطن/مقدم الطلب, التصنيف في الجدول العام, رقم الموبايل, تاريخ الطلب, القضاء, الناحية, القرية/المحلة, نوع العمل, نوع المجاري, كمية/طول المجاري, اسم المشروع, تاريخ الكشف, نقاط الجي پي اس (البداية), نقاط الجي پي اس (النهاية) , المبلغ‌ بالدينار العراقي, نوع خطة المشروع, تاريخ التنفيذ, مرحلة التنفيذ, نسبة طلب المشروع, ارسال الى, الملاحظات) (جدول النسب: (التسلسل, كود المشروع, نطاق المشروع, اسم المشروع, العوامل الصحية, احتمالات الفيضانات, العوامل الطبيعية, نسبة طلب المشروع الجدولين مشتركين في الحقول التالية (التسلسل, كود المشروع, نطاق المشروع, اسم المشروع , نسبة طلب المشروع) التسلسل, كود المشروع, نطاق المشروع, اسم المشروع) نفس البيانات في الجدولين) لكن حقل نسبة طلب المشروع في جدول النسب = (العوامل الصحية + احتمالات الفيضانات + العوامل الطبيعة) و نتيجة الجمع سوف تخزن في جدول المشاريع حقل نسبة طلب المشروع يعني جدول النسب معمول فقط لايجاد حاصل الجمع (العوامل الصحية + احتمالات الفيضانات + العوامل الطبيعة) ووضعها في جدول المشاريع كيف اعمل هذه الفكرة ؟ هل بالامكان عملها في النموذج بدون عمل جدول لان الشغل كلها سوف تكون على النماذج المشكلة الثالثة: في القوائم المنسدلة المتتابعة المترابطة القضاء الناحية القرية المحلة عملتها كلها لكن مثلا القضاء الناحية القرية/المحلة دهوك زاويتة كورا دهوك مازي كيف احل هذه المشكلة اريد عند اختيار (دهوك) و عدم اختيار اي شيئ في خانة الناحية ( ) تظهر فقط (مازي) في خانة القرية/المحلة https://www.mediafire.com/file/957aj9zze20ido0/جدول+متابعة+المشاريع.accdb/file

الغرض من البرنامج ادخال البيانات ومتابعة المشاريع و طباعة التقارير طباعة التقارير حسب المعايير التالية اختار القضاء و الناحية و القرية/المحلة و المبلغ‌ بالدينار العراقي : معيار المبلغ 2500.000 الى 20.000000 21.000000 الى 50.000000 51.000000 الى 100.000000 101.000000الى 200.999999 201.000000الى 500.000000 501.000000الى 1000.000.000 1000.000.000 الى 5000.000.000

بارك الله فيكم و جزاكم كل الخير اساتذتنا كملت الجداول كلهم لم اعرف كيف اربط جدول المشاريع بجدول النسب بحيث ياخذ جدول النسب الحقول (التسلسل, كود المشروع, نطاق المشروع, اسم المشروع) البيانات اوتوماتيكيا من جدول المشاريع و الحقل نسبة طلب المشروع الموجود في جدول النسب اريد يجمع الاعمدة الثلاثة (العوامل الصحية , احتمالات الفيضانات , العوامل الطبيعية) ويضع المجموع في حقل نسبة طلب المشروع الموجود في جدول المشاريع 2- اريد عمل نموذج ادخال البيانات ادمج جدول المشروع مع جدول النسب بحيث يصبح نموذج واحد لادخال البيانات الغرض من جدول النسب هي جدول ثانوي بحيث تحسب لي حقل نسبة طلب المشروع حاصل جمع الاعمدة الثلاثة (العوامل الصحية , احتمالات الفيضانات , العوامل الطبيعية) والقيمة تخزن في جدول المشاريع هذا الحقل (نسبة طلب المشروع) موجود في الجدولين https://www.mediafire.com/file/957aj9zze20ido0/جدول+متابعة+المشاريع.accdb/file

السلام عليكم ورحمة الله أخي الكريم kassem_geo بعد إذن أخي الفاضل M.Abd Allah الذي علمني كثيرا بارك الله فيه إليك التعديل في الشكل مع تشغيل الازرار وأرجو أن ينال إعجابك توثيق.accdb

أخي الحبيب Foksh شكراً جزيلاً لك أنا نقطة في بحر علمك ... فلا أنسى أبداً أنك أول من قام بالرد على أول سؤال لي بالمنتدي ومنك دائما أتعلم بارك الله لك في علمك ونفع بك عامة الناس

ما شاء الله عليك ، اعتقد أنك تمتاز بالإستفادة من الملاحظات وسرعة التجاوب معها وهذه النقطة أيضاً انت استخدمتها وقمت بتوظيفها بشكل جيد جداً

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

الشكر لله وحده أخي @Zooro1 على ما أنعم علينا من فضله وعلمنا ما لم نعلم أنت كمصمم للبرنامج يجب أن يكون لديك نسخة غير مقفلة ( Accde ) ، إحتياطاً لأي تعديلات أو تحديثات ، أو في أسوء الظروف تلف قاعدة البيانات الأمامية .

اخي الغالي foksh شكرا ليك مخصوص على دعمك الدايم وشكرا للكل ، وبالفعل عملت النقاط دي ، ولكن ممكن توضح نقطة رقم ٢نسخه مفتوحة المصدر.

وعليكم السلام ورحمة الله وبركاته أخي @Zooro1 .. بالنسبة لي ومن وجهة نظري ، يجب أن يكون المشروع مقسماً ( قاعدة بيانات أمامية للنماذج والمديولات ... الخ ) و ( قاعدة بيانات خلفية للجداول فقط ) . أيضاً وجود نسخة مفتوحة المصدر ( Accdb ) من آخر تعديل تحسباً وإحتياطاً لأي طارئ . وأعتقد أيضاً وجود فكرة النسخة الإحتياطية هام في بعض الأحيان ( حسب طبيعة المشروع ) . الإبتعاد عن إرفاق الملفات ( صور أو ملفات Pdf ... إلخ ) كمرفقات داخل قاعدة البيانات ، بل الإستعانة عنها بالمسارات وحفظ المرفقات في مجلدات خارج قاعدة البيانات . برأيي هناك أيضاً فكرة وجوب زر ( ضغط وإصلاح ) لقاعدة البيانات يتم عمله على الأقل كل اسبوع مرة واحدة ( وليس بشكل دوري ومتكرر كثيراً ) . هذه النقاط التي تحافظ على نشاط قاعدة البيانات وعدم إتلافها .

أخي الكريم ، ليس المشكلة في عدد الأعمدة الموجودة في الجدول ، وإنما في التقرير !! إذا لم تكن جميع الأعمدة والحقول مهمة لعرضها في التقرير ، فقد تضطر إلى بناء التقرير بفكرة مختلفة عن فكرة الأعمدة التي تتصورها حالياً ,, عموماً ابدأ بإنشاء الجداول أولاً مراعياً مايلي ليصبح الأمر أسهل عليك أثناء بناء الإستعلامات والأكواد .. تجنب قدر الإمكان استخدام مسميات باللغة العربية لأسماء الحقول في الجداول . تجنب استخدام الرموز الغريبة في الأسماء للحقول . تجنب استخدام المسافات في أسماء الحقول والجداول واستبدلها بـ " _ " إشارة Under Score . تجنب استعمال اسماء حقول مستخدمة ومحجوزة من برنامج أوفيس كمثال ( Date , Name , From , To, .... إلخ ) . فهذه الإسماء يستخدمها أكسيس في أكوادة ودواله والمسميات الخاصة به . لا تبدأ اسم الجداول أو الحقول برقم . حاول أن يكون في كل جدول حقل مفتاح أساسي إنشاء العلاقات بين الجداول والربط فيما بينها . هذا ما يحضرني فيما يخص إنشاء الجداول والحقول في الوقت الحالي .

حضرتك والله أنا آسف بس لما بكتب الرقم بدوس بيديني رسالة أن هذا الرقم غير موجود في القائمة وبعد كدة جربت اكتب الرقم وكتبت في الاول رقم 2 قبل الرقموفتح الواتس وانتظر شوية وبعد كده جابلي رسالة خطأ Runtime error 1004

ادن جرب هدا ربما يفيدك Sub Locked(ByVal bEnabled As Boolean) Dim sh As Worksheet, tmp As Integer, Cnt As Integer Set WS = Sheets("واجهة البرنامج") If bEnabled = True Then Cnt = -1 '<<==== Visible tmp = 2 '<<==== Hidden Else Cnt = 2 tmp = -1 End If With ThisWorkbook On Error Resume Next Application.ScreenUpdating = False WS.Visible = Cnt For Each sh In .Sheets If Not sh.Name = WS.Name Then sh.Visible = tmp End If Next sh WS.Visible = Cnt Application.ScreenUpdating = True On Error GoTo 0 End With End Sub Sub Verification() With ThisWorkbook Application.DisplayAlerts = False If .Path <> vbNullString Then .ChangeFileAccess xlReadOnly ' Kill .FullName '<<==== لحدف المصنف نهائيا End If .Close SaveChanges:=False End With End Sub Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Locked True ActiveWorkbook.Protect Structure:=True, Windows:=False, Password:="1234" End Sub Private Sub Workbook_Open() Select Case Environ("COMPUTERNAME") Case "HP ZBook Power", "Your device name" ' '<<==== أسماء أجهزة الكمبيوتر المعتمدة Locked False ActiveWorkbook.Unprotect "1234" Case Else Verification End Select End Sub Password 1234 فتح المصنف على اجهزة محددة.xlsm

نيابة عن اخي @ابوآمنة جزاه الله خيرا .. نعم يمكن التعديل .. فالبرنامج مفتوح المصدر

السلام عليكم وبها نبدأ أى موضوع .. حتى تتمكن الأساتذة من مساعدتك لابد من رفع ملف مدعوم بشرح كافى عن المطلوب .. بارك الله فيك

وعليكم السلام ورحمه الله وبركاته جرب حضرتك كده زرار التوثيق واخبرني بالنتيجه توثيق.accdb