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

ولعيون الاخ Moosak هذا دعم بالصور

واياكم اخى فيه خطوه لابد من توضيحها اولا فالاستعلام رئيس قمت باضافه حقل اسمه NumJob لإضافه به رقم حسب المسمى الوظيفى لتسهيل عمليه الفرز وجعل رئيس اللجنه بالاعلى NumJob: Switch([job2]='رئيس لجنة';1;[job2]='مراقب أول';2;[job2]='مراقب';3;[job2]='ادارى';4;صواب;5) ثم تم عمل التقرير بالطريقه العاديه عن طريق الويزارد واضافه فرز عن طريق الحقل الجديد NumJob قم بعمل تنسيقاتك واضافاتك بالتقرير السابق لك كما تريد بالتوفيق توزيع1.accdb

السلام عليكم ورحمة الله مرسل اليك الملف بعد ادراج الكود الموجود بمشاركتى السابقة و سترى النتيجة بنفسك فقط اضغط على الزر الموجود بورقة الاجمالى تقرير.xlsm

عليكم السلام بالنسبة للملاحظة 3 الكود يعمل بشكل صحيح حسب آخر ملف أرسلته "مثال معدل" على كل تانظر المرفقوأعلمني بالنسبة للملاحظات 1و2 ساعمل عليها بإذن الله كتيب العلامات2.xlsm

فيكم الخير و البركة . . وأنا لازلت طالب علم تفضل هذه الروابط . . أستخدمت الأكواد الموجودة بها و كذلك الرابط الموجود بالمشاركة السابقة

وعليكم السلام ورحمه الله وبركاته لالغاء عمل طباعه عن طريق ctrl +p ضع هذا السطر في كود Private Sub Workbook_Open Application.OnKey "^p", "" بعد هذا السطر Application.ScreenUpdating = False ليصبح هكذا Application.ScreenUpdating = False Application.OnKey "^p", ""

السلام عليكم من فضلكم عندي شيت 1 و 2 وضعت كود لنسخ محتوى محدد (E13:AI72,E101:AI176) من شيت إسمه ENTP. El AMINE G إلى الثاني إسمه ENTP-SH بواسطة كود vba, لكن الود ثقيل جدا , فهل فيه إمكانية أن الكود يكون أسرع أو يعمل عند النقر على الشيت الثاني Si select ENTP-SH الكود الذي في الشيت الأول أظن أنه طويل جدا فلربما يكون هو سبب بطىء الكود ملف جديد.xlsm

يمكنك اختصار كود الطباعه هكذا ActiveSheet.PrintOut Copies:=1 لطباعه الشيت المفتوح امامك ActiveSheet.PrintOut العدد المطلوب Copies:=1

السلام عليكم ورحمة الله استخدم هذه العبارة ActiveCell.Offset(1, 0).Select بدلا من هذه العبارة Range("A2").Select

الحمدلله الذى بنعمته تتم الصالحات نعم بالتاكيد حاول فيها ان لم تظبط معك نساعدك فيها سواء انا او اى احد من اخواننا او اساتذتنا جزاهم الله عنا خيرا ولكن حاول اولا حتى تتعلم وتستفيد وتفيد اخوانك بما تعلمته بالتوفيق

اخى ظبط اعدادات الويندوز كما في في هذا الرابط مشكلة اللغه العربية

تفضل اخى عربي ملف جديد.xlsm

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

السلام عليكم ورحمة الله لو قمت بتحميل الملف فى مشاركتى الاخيرة مرة اخرى لن تجد هذا الخطأ يبدو انك قمت بمسح اسم الملف دون قصد على العموم استبدل العبارة التى باللون الاصفر و التى تدل على الخطأ بهذه العبارة Set ws = Sheets("اجمالي")

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

يمكن ان يفيدك هذا الموضوع https://www.officena.net/ib/topic/41181-تغيير-طول-الفورم-بحسب-حجم-دقة-عرض-الشاشة/

لا صورة سأبقى معك حتى تحل كل المشاكل ؟؟؟؟؟؟؟؟؟؟؟

آسف جدا .. My mistack كتيب العلامات2.xlsm

تفضل أخي الكريم كتيب العلامات2.xlsm

تفضل جرب هذا معدل.xlsm

تفضل جرب هذه 2022B.rar

السلام عليكم ورحمة الله وبركاته تفضل اخى رابط اخر على الميديا فاير

تم عمل نموذج حركة الاجهزة وفيه تم ضبط التالي : 1- تسليم جهاز جديد لمستخدم جديد 2- مناقلة جهاز بين المستخدمين وايضا يتم الاحالة من مستخدم الى المستودع 3- بعض التعديلات على الجداول ( تم دمج جدولين مساعدين من اجل انسيابة ومرونة الحركة) 4- تعديلات طفيفة على النماذج المساعدة حيث اخفيت مربع الحذف ، وعملت في نموذجي الموظفين والمدارس حقل مخفي قيمته هي قيمة نوع المستخدم لانهما في جدول واحد وهذا الحقل المخفي هو الذي يحدد النوع 5- جدولان لن يتم الحذف منهما وهما جدول الاجهزة وجدول التفاصيل والسبب ان المستخدمين وايضا الاجهزة لن تظهر الا حسب الطلب وهو ( البحث ) هذا في نموذج الحركات اما في التقارير فسوف تستخدم المعايير للاظهار والاخفاء واهم معيارين لديك هما تاريخ الاستلام وتاريخ التسليم فاذا طبقت عدم ظهور تاريخ التسليم ظهر في التقرير جميع المستخدمين الذين في عهدتهم اجهزة ويمكنك اظهار الاجهزة وتفاصيلها في التقرير امامهم اما اذا طبقت في المعيار ظهور تاريخ التسليم فقط ظهر لك جميع المستخدمين الذين سلموا اجهزتهم ، ويمكنك ايضا اظهار الاجهزة وتفاصيلها في التقرير الجميل في الامر انه يمكنك عمل تقرير لحركة جهاز واحد حتى لو تنقل بين العديد من الموظفين اما بالنسبة للاعارة فاني قرأت ردك متأخرا بعد ان شارفت على النهاية لذا يمكن ولا باس بتأجيله الى ان يكتمل البرنامج devicesdb3.rar

بارك الله لك مجهود رائع

أتعامل معها كثيراً في الأكسيس عن طريق أرسال بيانات حقل و جلب بيانات حقل . وهي تجلب الملل لكن هذا الرابط أستفدت منه قبل فترة Microsoft Access WebBrowser Control | DEVelopers HUT (devhut.net)

تفضل اخي Data.accdb

تفضل أخي عسى يكون المطلوب Sub Test() Dim a, b, x Dim i, ii Dim nmsht, dt, bk Dim p As Long Dim ar As Long Const c As Integer = 25 Set nmsht = Sheets("name") Set dt = Sheets("data") Set bk = Sheets("Book") b = Application.Transpose(dt.Range(dt.Range("B4"), dt.Range("B4").End(xlDown))) p = 4: For i = 1 To UBound(b) With nmsht.Range("b2:AX400") x = .Find(What:=b(i), After:=Range("B2"), lookat:=xlWhole, SearchDirection:=xlNext).Address a = .Range(x).Offset(3, -1).Resize(.Range(nmsht.Range(x).Offset(3), nmsht.Range(x).Offset(3).End(xlDown)).Count, 2).Offset(-2, -1) End With ar = 1 With Sheets("book") For ii = 1 To UBound(a) Step 25 x = Split(.[E:E].Find(What:="-" & p & "-", After:=Range("E2"), lookat:=xlWhole, SearchDirection:=xlNext).Address, "$")(2) .Cells(x - 1 - c, 1).Resize(c, 2) = Application.IfError(Application.Index(a, Evaluate("(Row(" & ar & ":" & ar + c & "))"), Array(1, 2)), "") ar = ar + c p = p + 2 Next End With Next End Sub

هناك طريقتين لعمل إلحاق سجلات في جدول ، إما عن طريق الكود او عن طريق الاستعلام ، وكلاً من الحالتين تحتاج الى "حدث" ليشغل الكود او الاستعلام لعملية الإلحاق. في الطريقة العادية ، نعمل زر ، وعلى حدث الزر ، نضع كود الإلحاق ، او كود لتشغيل الاستعلام ، ولكننا واقعا لسنا محتاجين الى زر لهذه العملية ، وإنما محتاجين الى اي "حدث" ليقوم بهذه العملية ، وهذا الحدث يعتمد على طريقة عمل برنامجك 🙂 جعفر

شوف الموضوع ده يمكن يفيدك رابط الموضوع

وعليكم السلام ورحمة الله وبركاته يمكنك الاستفاده من هذا الموضوع

السلام عليكم استاذ @احمد حبيبه القى نظره على الصوره هل هذا ما تريد ان لم يكن فوضح اكثر بارك الله فيك حتى يتثنى لاخوانك واساتذتنا بمساعدتك بالتوفيق

=SUMPRODUCT(0+(CELL("width",OFFSET(B2,,N(INDEX(COLUMN(B2:G2)-MIN(COLUMN(B2:G2)),,))))>0),B2:G2)

Subtotal تعمل على اكسل 2007 وما بعده ولجمع الصفوف المرئية فقط نستعمل هذه المعادلة =SUBTOTAL(109,E1:E20) أما إذا كان المطلوب جمع الأعمدة المرئية فقط فلابد من تدخل جراحي vba بهذه الدالة المعرفة بعد إضافتها في موديول جديد في نافذة vbe التي نصل إليها ب alt+f11 Function SumVCols(Rng As Range) As Double Dim Cell As Range Application.Volatile For Each Cell In Rng If Cell.EntireColumn.Hidden = False And IsNumeric(Cell) Then SumVCols = SumVCols + Cell Next Cell End Function ويتم استعمالها هكذا =SumVCols(A1:F1) بالتوفيق

The question is not logical as there are many difference in the inputs in the two columns That's my try but of course not the perfect solution Sub Test() Dim e, x, r As Range, c As Range, s As String, v As String, t As String, b As String, d As String, f As String Application.ScreenUpdating = False With ActiveSheet.UsedRange .Columns(3).Interior.Color = xlNone .Columns(14).Interior.Color = xlNone For Each c In .Columns(14).Cells If c.Value = "" Then GoTo iNext b = Replace(c.Value, Chr(218) & Chr(200) & Chr(207) & Chr(32) & Chr(199), Chr(218) & Chr(200) & Chr(207) & Chr(199)) x = Split(b) d = x(0) & Space(1) & x(1) & Space(1) & x(2) b = Replace(c.Value, Chr(236), Chr(237)) x = Split(b) f = x(0) & Space(1) & x(1) & Space(1) & x(2) x = Split(c.Value) v = x(0) & Space(1) & x(1) & Space(1) & x(2) t = Replace(v, Chr(201), Chr(229)) With .Columns(3) For Each e In Array(t, v, d, f) Set r = .Find(e, , xlValues, xlPart) If Not r Is Nothing Then s = r.Address Do r.Interior.Color = vbYellow Rem c.Interior.Color = vbRed Set r = .Find(e, , xlValues, xlPart) Loop Until r.Address = s Set r = Nothing End If Next e End With iNext: Next c End With Application.ScreenUpdating = True End Sub

Sub Test() Dim r As Range, c As Range, s As String Application.ScreenUpdating = False With ActiveSheet.UsedRange .Columns(3).Interior.Color = xlNone .Columns(14).Interior.Color = xlNone For Each c In .Columns(14).Cells If c.Value = "" Then GoTo iNext With .Columns(3) Set r = .Find(c.Value, , xlValues, xlPart) If Not r Is Nothing Then s = r.Address Do r.Interior.Color = vbYellow c.Interior.Color = vbRed Set r = .Find(c.Value, , xlValues, xlPart) Loop Until r.Address = s Set r = Nothing End If End With iNext: Next c End With Application.ScreenUpdating = True End Sub

Private Sub CommandButton1_Click() Unload Me UserForm1.show End Sub

الاستعلامات الاستعلامات هي أهم كائنات قواعد البيانات ، من خلال الاستعلام يمكنك عمل الكثير كما سنري بإذن الله و لدينا عشرة أنواع من الاستعلامات خمسة منها لها واجهة رسومية يمكن استخدامها لتكوين الاستعلام باستخدام الفأرة أو كتابة الاستعلام يدويا و الخمسة الأخري سنكتب فيها جمل ال SQL مباشرة و الأصل فى الاستعلامات أنها جميعا فى النهاية عبارة عن جمل و تعبيرات SQL و قبل أن نعرض الي تعريف الانواع العشرة ، تعالوا نتعرف الي ما تعنيه هذه الحروف الثلاثة SQL Structured Query Language السي كيو ال هو لغة التعامل مع قاعدة البيانات و ينقسم الي 3 أقسام لغة معالجة البيانات DML Data manipulation language لغة تعريف البيانات DDL Data Definition language لغة التحكم فى البيانات DCL Data Control language لغة معالجة الييانات ادراج بيانات تحديث بيانات حذف بيانات استرجاع بيانات لغة تعريف البيانات هي إنشاء قاعدة البيانات فى البداية كان يتم انشاء قاعدة البيانات باستخدام جمل SQL ثم بعد ظهور نظم ادارة قواعد البيانات مثل الاكسس أصبحت هذه العملية تتم من خلال واجهة رسومية سهلة الاستخدام قادرة علي انشاء و التحكم أيضا فى قواعد البيانات و هذه اللغة مسئولة عن : إنشاء جدول الغاء جدول تعديل جدول العلاقات لغة التحكم تتولي معالجة صلاحيات المستخدمين و هذه العمليات أيضا أصبحت تتم من خلال الواجهة الرسومية لنظم ادارة قواعد البيانات و نعود ثانية الي الأكسس : :d سنبدأ فى هذا الموضوع بتعريف أنواع الاستعلامات ، كتعريف عام قبل أن نعرض اليها بالتفصيل بإذن الله تعالي: 1. استعلامات الاختيار : select query 2. استعلامات الجداول المحورية : ؛Cross Tab Query 3. استعلام تحديث : Update Query 4. استعلام إضافة : Append Query 5. استعلام حذف : Delete Query 6. استعلام إنشاء جدول : Make Table Query 7. استعلامات التوحيد : Union Query 8. استعلامات التمرير : Pass-Trough Queries 9. استعلامات تعريف البيانات : Data definition queries 10. الاستعلامات الفرعية : Sub-query استعلامات الاختيار : select query تكوين مجموعة من السجلات المبنية علي جدول أو أكثر من بحيث تمثل كل الببيانات أو المجموعة من السحلات التي تحقق شروط معينة. بالاضافة الي امكانية التحكم فى ترتيب السجلات . – مثل جميع الطلاب الذين تتعدي درجاتهم 90 و بلدهم القاهرة و عدد أيام الغياب لديهم أقل من خمسة – مع كون الشروط الثلاثة نخص بيانات مسجلة فى ثلاث جداول مختلفة. و كما تكلمنا سابقا ، يمكن عمل ذلك باحدي طرق تصفية الجداول ، و لكن هنا سيكون لدينا كائن استعلام محفوظ ، يمكن استخدامه فى أي وقت . أيضا يمكن استخدامه لتجميع البيانات التي تشترك فى خواص معينة ، أي تلخيص البيانات و في هذه الحالة يطلق عليها استعلام تجميع استعلامات الجداول المحورية : ؛Cross Tab Query و هي أداة تحليلية تستخدم لتحليل البيانات بناء علي الخاصية المطلوبة ، فيتم فيها تجميع البيانات التي تجمعها خاصية معينة و تحليلها بالنسبة لخاصية أخري و تقديم الاحصائية المناظرة بمعني : لو لدينا بيانات عدد من الطلاب ، و تقديرهم و الجنسية ، و نريد احصائية تكون الصفوف فيها هي البلد و الأعمدة هي التقدير و محتويات الجدول عدد الطلاب الذين ينتمون الي كل بلد و كل تقدير أو مثلا بدلا من العدد نريد البيانات مجموع المصروفات المناظر ، أو أكبر تاريخ ميلاد لكل بلد و لكل تقدير فنحن نتحدث عن تطبيق مباشر للاستعلامات من نوع Cross Tab استعلام تحديث : Update Query تحديث كل أو بعض قيم بيانات فى جدول بشروط او بدون استعلام إضافة : Append Query اضافة سجلات الي جدول بشرط و بدون استعلام حذف : Delete Query حذف كل أو بعض السجلات من جدول بشرط أو بدون استعلام إنشاء جدول : Make Table Query إنشاء جدول جديد يحوي بيانات مختارة استعلامات السي كيو ال المحددة SQL Specific Queries استعلامات التوحيد : Union Query مثل استعلامات الاختيار ـ، و لكن تتميز عليها بامكانية توحيد أو ضم بينات أكثر من جدول فى نفس الحقل فمثلا لو لدينا جدول به أوامر البيع و آخر به أوامر التوريد ، و كلاهما به حقل رقم الامر و القيمة و أردنا أن ننشيء استعلام واحد يجمع بيانات الجدولين بحيث يكون به ثلاث حقول الاول يوضح نوع الامر و الثاني رقمه و الثالث القيمة و تكون القيمة موجبة فى حالة اوامر التوريد و سالبة فى حالة اوامر الصرف ، فنحن نتحدث عن تطبيق مباشر لاستعلامات التوحيد استعلامات التمرير : Pass-Trough Queries تستخدم لارسال أوامر بلغة اس كيو ال ، الي خادم قاعدة بيانات مباشرة من خلال ال ODBC ، و قد يكون لها مردود باعادة عرض سحلات و قد لا يكون لها ، و تفاصيل كتابة الاوامر فيها تعتمد علي قاعدة البيانات التي سنقوم بالتمرير اليها و نمر سريعا علي تعريف ال ODBC : Open Database Connectivity (ODBC): A standard method of sharing data between databases and programs. ODBC drivers use the standard Structured Query Language (SQL) to gain access to external data.) امكانية الاتصال بين قواعد البيانات ، و مشاركة البيانات بينها ، و تعتمد علي لغة الاستعلامات البنائية ( اس كيو ال) النمطية للتعامل مع البيانات استعلامات تعريف البيانات : Data definition queries و هي تستخدم لانشاء و حذف و تعديل الجداول و الفهارس الاستعلامات الفرعية : Sub-query و هو ليس نوع جديد ، و لكنه تطبيق لاستخدام استعلامات الاختيار ، و لكن هذه المرة لتعريف حقل أو معيار لحقل و طبعا هذا تعريف عام ، كبداية للحديث ، و يلي ذلك عرض الموضوع بالتفصيل بإذن الله

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