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

السلام عليكم تم طرح عدة اسئلة عن طريقة فرز او تصفية بيانات النموذج ، وسأقوم هنا بشرح الطريقتين: 1. إما عن طريق الاستعلام ، وهذا الرابط يعطينا المثال (والرجاء قراءته بتريث وتمعن وبالتفصيل) : 2. وإما عن طريق النموذج ، فميزتها: أ- انك تستطيع عمل تصفيه/تصفيات اضافية على النموذج او التقرير ، بعد تصفية الاستعلام ، ب- الاكسس سيعطيك الكود وسأشرح هنا كيفية عمل تصفية بيانات النموذج (وبنفس الطريقة يمكن عمل اكثر من تصفية ، وعمل فرز كذلك) : سأستعين بمرفق السؤال التالي للأخ محمد ، وبعد طلبت إذنه 1. قاعدة البيانات يجب ان تسمح لها ان تكون في وضع Layout View (هذا فقط حتى نتعلم الطريقة ، ويمكن الغاءه فيما بعد) ، . 2. النموذج يجب ان يكون غير منبثق . 3. هذا النموذج الذي نريد ان نعمل له تصفية بين تاريخين للحقل Date . 4. الهدف النهائي هو استخدام هذا الحقل لإدخال تاريخ معين ، ثم الضغط على زر "تصفية بين تاريحين" للقيام بالتصفية . 5. طريقة العمل: أ. بزر الفأرة اليمين نضغط في بيانات حقل التاريخ Date ، ب. ونختار تصفية التاريخ (السبب ان الاكسس اعطانا تصفية التاريخ هو لأن الحقل حقل تاريخ ، فلو كان الحقل نص او رقم لأعطانا الاكسس خيارات اخرى) ، ج. ونختار بين تاريخين (طبعا يمكنك اختيار اي من الاختيارات الاخرى ، وهذا يعتمد على التصفية التي تريد القيام بها) . د. تخرج لنا نافذة تطلب إدخال التاريخين (ويمكننا ادخال التاريخ بعدة طرق) ، وحسب اختيارنا ، والنتيجة المفروض ان نراها بعد التصفية هي السجلات بالاسهم الحمراء فقط . هـ. وهذه نتيجة التصفية اعلاه بين تاريخين . ح. والآن الى شرح كيفية الاستفادة مما عملناه اعلاه وتطبيقه في كود ، ننتقل بالنموذج الى وضع Layout View . ط. ونضغط بالفأرة اليسار على النموذج الفرعي الذي عملنا عليه التصفية ، ي. ثم ننظر في اعدادات النموذج ، الى ان نصل الى التصفية ، فنرى الكود الذي استعمله الاكسس للقيام بالتصفية ، فنعمل له نسخ ، ومثل ما اشرت اعلاه ، يمكننا اضافة اكثر من تصفية لأكثر من حقل ، ويمكن عمل فرز لحقل آخر ، ثم نرى الكود جاهزا هنا . ك. هذا الزر الذي سننقر عليه للقيام بالتصفية . ل. فنعمل الحدث على نقر الزر ، ثم نلصق الكود السابق ، ونقوم بتعديل التواريخ بما يناسب طلبنا ، وهو التصفية بين: تاريخ الحقل DateX و تاريخ الحقل DateX ناقصا 65 يوم ، او كما بالتواريخ في الملاحظات (باللون الاخضر في الكود) (ملاحظة مهمة للعلم: الاكسس يستخدم نظام التاريخ الامريكي في جميع عملياته ، والتاريخ الامريكي هو شهر/يوم/سنة ، كما نرى في كود التصفية) . م. وهنا نرى نتيجة النقر على زر "تصفية بين تاريخين" ، والذي يستعمل الكود اعلاه . ****************************************** اما اذا اردنا عمل استبعاد معلومة مثل "الاسكندرية" من قائمة Country . فيصبح الكود . ************************** الآن سنقوم بعمل اكثر من تصفية ، فرز بين تاريخين واستبعاد "الاسكندرية" فرزنا بين التاريخين ، وكانت نتيجته هكذا . واستبعاد معلومة مثل "الاسكندرية" من قائمة Country . فيصبح كود التصفية هكذا . والآن الى الكود الذي يضم هذه التصفيات: يجب ان نعرف اننا نتعامل مع مجموعة مختلفة من انواع الحقول ، وكل نوع له طريقة في عمل الكود ، فالسطر الاول هو تاريخ ، والسطر الثاني للنص ، ووضعت مثال في آخر سطر لحقل الرقم Dim City As String City = "اسكندرية" 'للتاريخ myCriteria = "([testQ].[datex] between #" & Me.DateX & "# and #" & Me.DateX - 65 & "#)" 'للنص myCriteria = myCriteria & " AND ([testQ].[country1]<> '" & City & "'" myCriteria = myCriteria & " or [testQ].[country1] is null)" 'للرقم 'myCriteria = myCriteria & " AND [testQ].[ID]<> " & Me.ID Me.TestF.Form.Filter = myCriteria Me.TestF.Form.FilterOn = True *********************************** كيف نعرف ان النموذج به تصفية: عند عمل التصفية في النموذج (وليس من الاستعلام) ، ستلاحظ ان النموذج يخبرك انك عملت تصفية ، هكذا بالتظليل الاصفر: . ولإزالة التصفية ، يجب عليك النقر على احد هذين المكانين المظللين بالاصفر ، او عمل زر: . والكود على نقر الزر سيكون: Me.TestF.Form.Filter = "" Me.TestF.Form.FilterOn = False جعفر 660.2.Test2006.mdb.zip

اخي ياسر انا اعتبرت ان الييانات الاساسية من العامود F الى العامود P و عدد الصفوف وضعتها 50 و تم نقلها الى النطاق C & A (ربما اكون مخطأ لكن لتكن فكرة جيدة عن امكانيات الاكسل) ساحاول ان أعمل العكس و تنفيذ المطلوب عن طريق المعادلات

الاخوة الاعضاء والمشرفين الاعزاء . اود ان اشارككم بنجاحاتي التي حققتها في مجال البرمحة بالكود باستخدام قاعدة بينات اكسس ولقد تمكنت وبحمد الله من انشاء شركتي الخاصة ومن امتلاك قاعدة عملاء قوية . البرنامج الذي سوف اعرضه لكم هو مصمم بالكود البرمجي بدون استخدام للمعالج وهو برنامج شامل يدخل فيه 15 برنامجا مختلف موزع حسب الصلاحيات و كلهم مرتبطين باعدادات خاصة ومعقدة وذلك للوصول الى قيود محاسبية دقيقة باختصار اي حركة تقوم بها باي برنامج سوف تؤثر محاسبيا وينتج عنها قيد محاسبي في دفتر اليومية . البرامج المرتبطة هي طبقا للمعاير الدولية CRM , TQM البرنامج يتضمن الموديولات التالية . 1-الحاسبة 2-المستودعات والمخزون .(Fifo ,Average Cost ) 3-المبيعات . (ويشمل نقاط البيع) 4-شؤون الموظفين . 5-الخدمات . 6-ادارة مراكز الصيانة . 7-ادارة المستشفيات . 8-ادارة المراكز الرياضية . وبرامج اخرى فرعية . البرنامج بيع لعدة شركات متوسطة وصغيرة الحجم ولا يوجد له اي اخطاء . سوف اعرض عليكم جزء من موديول الحسابات وهو مصمم بطريقة داينميكية وتخدمم المحاسب من حيث الشاشات التحليلية والتقارير التفصيلية والموازنات السنوية . يعني هذا البرنامج تجاري 100/100 . البرنامج يحتاج لتدريب وسوف اقوم بذلك لاحقا الرجاء معاينة الصور الخاصة بالنظام . وسوف اقوم بضع البرنامج بعد سماع ملاحظاتكم. شكرا حسان ملكاوي نظام كاسكارا.rar

أقدم لكم أعزائي أفضل المواقع التي تمكنك من تحميل ألعاب بدون عناء لن تحتاج مند الأن إل البحث عن تفعيل لألعاب أو أي شئ حيث كل ما عليك فعله تحميل اللعبة و إتباع الخطوات المذكورة بتلك المواقع لتشغيل اللعبة .PCgames-Downloadأفضل المواقع لتحميل الألعاب كاملة لحاسوبك ومجانا يوفر الموقع أحدت الألعاب بأخر التحديثات المتوفرة و DLC ويتم رفع الألعاب على حوالى 6 مواقع رفع مختلفة من بينها موقع MEGA المشهور كما أنه يتوفر على صفحة بالموقع توضح لك طريقة تثبيت الألعاب و تثبيت الكراك و تثبيت التحديثات بطريقة سليمة .Fully PC Gamesأفضل المواقع لتحميل الألعاب كاملة لحاسوبك ومجانا يوفر لك الموقع أحدث الألعاب و البرامج الموقع به حوالى 10 أقسام مختلفة لتحميل الألعاب عند الضغط على أي لعبة سيظهر لك الموقع بعض الصور لها و حجم اللعبة و متطلبات التشغيل و زر التحميل الألعاب يتم رفعها على موقع Huge Sharing الذى يوفر سرعة تحميل عالية .My Games Houseأفضل المواقع لتحميل الألعاب كاملة لحاسوبك ومجانا يوفر الموقع أحدث الألعاب التى تم إصدارها الموقع يوجد به 3 أقسام فقط والألعاب غير مرتبة بشكل جيد فى الموقع عند الضغط على أي لعبة سيظهر لك بعض المعلومات عنها و بعض الصور لها و متطلبات التشغيل و طريقة التحميل و زر التحميل الألعاب يتم رفعها على موقع Google Drive مما يعنى أن سرعة التحميل ستكون ممتازة ويتم تقسيم الألعاب لأجزاء مختلفة ليسهل تحميلها . crohasit أفضل المواقع لتحميل الألعاب كاملة لحاسوبك ومجانا موقع ممتاز لتحميل الألعاب بروابط مباشرة وكدلك روابط تورنت الموقع يوجد به أكثر من 10 أقسام مختلفة لتسهيل العثور على الألعاب الموقع يتميز بتصميم بسيط و أنيق ويوجد به قسم لطلب الألعاب الألعاب يتم رفعها على موقع MEGA الشهير مع توفير روابط تورنت كما سبق و ذكرنا ذلك وعند الضغط على أي لعبة سيظهر لك بعض المعلومات حول اللعبة و بعض الصور و متطلبات التشغيل و طريقة التثبيت و روابط التحميل .

الحمد لله أن تم المطلوب على خير تقبل تحياتي

السلام عليكم ورحمة الله استبدل الكود السابق بهذا الكود Sub حفظ() Application.ScreenUpdating = False Dim Lr As Integer, C As Range Lr = [A10000].End(xlUp).Row For Each C In Range("D3:D" & Lr) If C.Value = "" Then MsgBox "يوجد بعض البيانات الناقصة بعمود العدد" Exit Sub End If Next Range("A3:i" & Lr).Copy Sheets("مخزن").Range("A" & Sheets("مخزن").[A10000].End(xlUp).Row + 1).PasteSpecial xlPasteValues Application.CutCopyMode = False MsgBox "تم الحفظ بنجاح", vbOKOnly, "تنبية" Range("A3:e10000").ClearContents End Sub

شكرا استاذ ياسر اتضح ان الامر متعلق بالمتغيرات كم نتعلم منك وشكرا

أشكر لكم تعاونكم الكريم وأشكر كل من ساهم في استمرارية هذه المدرسة النموذجية النتيجة موفقة.. بإذن الله تعالى

نعم ، هذه مشكلة معروفة في الاكسس 2016 يجب ان تكون الصور بصيغة bmp يجب عليك ان تحدث نسخة الاكسس ، والرابط التالي فيه تحديث لهذه الفقرة فقط: https://support.microsoft.com/en-us/kb/3114379 جعفر

السلام عليكم تابع هذا الرابط

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

السلام عليكم ورحمة الله يمكن بالمعادلات و لكنها تحتاج الى عدد من الاعمدة المساعدة كما ان من مميزات الاكواد انها لا تثقل من حجم الملف مما يسهل التعامل معه هذا وبالله التوفيق

وعليكم السلام واهلا وسهلا بك في المنتدى هذا له علاقة باعدادات الوندوز ، حيث انك لم تقم بإختيار دولة عربية لحروف Unicode ، رجاء التاكد اختيار لغة الدولة في رقم 4 من الرابط المرفق جعفر

السلام عليكم من خصائي النموذج >>> مصدر السجل >>> اختار الجدول الذي تريد كاستعلام ثم اجعل رقم الفاتورة ترتيب تصاعدي تحياتي

بالتوفيق دائماً .. واضح انه برنامج قوي .. ربي يصلحلكم الحال

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

أخي محمد هذا الشرح تم لك جعفر

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

بعد اذن اخي ياسر ربما يكون المطلوب (معادلات) انظر الى الصفحة Salim Report_salim.rar

السلام عليكم يرجى تغيير اسم الظهور للغة العربية أخي الكريم جرب الكود التالي .. ضع الكود في موديول عادي وبعد تنفيذ الكود ستجد النتائج في ورقة2 Sub Test() Dim coll As New Collection, arr, maxItem As Long, i As Long, j As Long, str1 As String, v1, v2 arr = Sheets("Sheet1").Range("A1:C" & Sheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row).Value For i = 1 To UBound(arr, 1) str1 = CStr(arr(i, 1)) On Error Resume Next coll.Add Key:=str1, Item:=New Collection On Error GoTo 0 If coll(str1).Count = 0 Then coll(str1).Add str1 For j = 2 To UBound(arr, 2) If Len(arr(i, j)) Then coll(str1).Add CStr(arr(i, j)) Next j Next i For Each v1 In coll If v1.Count > maxItem Then maxItem = v1.Count Next v1 ReDim arr(1 To coll.Count, 1 To maxItem) i = 0 For Each v1 In coll i = i + 1 j = 0 For Each v2 In v1 j = j + 1 arr(i, j) = v2 Next v2 Next v1 For j = 3 To maxItem - 2 Step 2 arr(1, j + 1) = "الشهر" arr(1, j + 2) = "الراتب" Next j Sheets("Sheet2").Range("A1").Resize(UBound(arr, 1), UBound(arr, 2)).Value = arr End Sub

حياك الله استاذي جعفر انا اريد العملية تتم بدون ربط او استيراد الجداول ولك مني جزيل الشكر

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

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

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

لاستخدام التكرار فى التنسيق باستخدام فراشة نسخ التنسيق اضعط على الفرشاة مرتين بسرعة أو استخدم لوحة المفاتيح بدلاً من ذلك لنسخ التنسيق ضع المشيرة فى المكان المراد نسخ التنسيق منه أو تحديده واضغط على ctrl+shift+c و لتكرار التنسيق أو للصق التنسيق ضع المشيرة فى المكان المراد لصق التنسيق فيه أو تحديده واضعط على ctrl+shift+v ثم فى المكان التالى المراد تكرار التنسيق فيه ضع المشيرة فى المكان المراد نسخ التنسيق منه أو تحديده واضغط على ctrl+shift+c وهكذا أو اضغط F4 إذا كان أخر أمر هو لصق التنسيق بعد وضع المشيرة فى المكان المراد لصق التنسيق عليه أو تحديده

اجعل كل المستند من اليمين الى اليسار من خيارات Word والسلام

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

وعليكم السلام ورحمة الله وبركاته كل عام وأنتم بخير اجعل اتجاه القراءة من اليمين إلى اليسار، عن طريق الضغط على زري Ctrl + Shift بلوحة المفاتيح الأيمن الجهة اليمنى (مرفق صورة توضيحية). دمتم بخير

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