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

بعد إذن اخي سليم لو النمط ثابت على هذه الصورة EU ثم عشرة ارقام يمكنك استعمال المعادلة التالية =int(right(a3, 10)) بالتوفيق

المعادلة لا تقوم بازاحة الصفوف من مكانها و ريثما تقوم شركة مابكروسوفت باحتراع هكذا معادلة علينا فقط استعمال الــ VBA الكود Option Explicit Sub Get_Std_Names() Dim G As Range Dim H As Range Dim Ro_All%, ro_H%, i%, m%, n% Dim str$ str = "غ" Ro_All = ALL.Cells(Rows.Count, 2).End(3).Row If Farz.Range("b1").CurrentRegion.Rows.Count > 1 Then Farz.Range("b1").CurrentRegion.Offset(1). _ Resize(Farz.Range("b1").CurrentRegion.Rows.Count - 1). _ Clear End If For i = 2 To Ro_All If Application.CountIf(ALL.Cells(i, 3).Resize(, 6), str) = 0 Then m = m + 1 If G Is Nothing Then Set G = ALL.Cells(i, 2).Resize(, 7) Else Set G = Union(G, ALL.Cells(i, 2).Resize(, 7)) End If Else n = n + 1 If H Is Nothing Then Set H = ALL.Cells(i, 2).Resize(, 7) Else Set H = Union(H, ALL.Cells(i, 2).Resize(, 7)) End If End If Next G.Copy Farz.Cells.Cells(2, 2) Farz.Range("a2").Resize(m) = _ Evaluate("Row(" & 1 & ":" & m & ")") H.Copy Farz.Cells.Cells(m + 2, 2) Farz.Range("A" & m + 2).Resize(n) = _ Evaluate("Row(" & 1 & ":" & n & ")") Farz.Range("A2").Resize(m + n). _ Borders.LineStyle = 1 Farz.Range("B1").CurrentRegion.Offset(1). _ Resize(Farz.Range("B1").CurrentRegion.Rows.Count - 1). _ InsertIndent 1 End Sub الملف مرفق Third_class.xlsm

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم =IIf([virusid1]<>"",Nz(DLookup("vxxx", "Qvrm", "virusid1=" & [virusid1] And "[virusid2] ='" & virusid2 & "'"),0),"") تحياتي

لماذا لم توضح ذلك مسبقاً؟؟؟ عشان عدم اضاعة الوقت (كما ولم الاحظ اي رقم كما ذكرت انت) جرب هذا الملف ( المعادلة تبحث عن اخر صفر و تدرج ما بعده) M_Awada.xlsx

الموضوع بسيط جدا إذا كنت تريد أن تعمل البرنامج على ويندوز 64 بت فقط يمكنك استبدال كلمة Declare في جميع الكود إلى Declare PtrSafe أما إذا كنت تريد أن تعمل على النظامين فيجب استبدال السطر الخاص بالإعلان عن اي function أو sub بكتابة الشرط التالي #if win64 then Public Declare function ....... #else Public Declare Ptrsafe function .... #end if لا حظ تكرار هذا الشرط مع كل دالة في الكود لاحظ بداية السطر برمز # في سطر if & else & end if لاحظ إضافة كلمة PtrSafe بعد كلمة Declare بالتوفيق

تفضل اخي الكريم تم اضافة نموذج لاضافة / تعديل المستفيدين وتم اضافة تقرير بالفواتير وتم اضافة تقرير بالسداد الحالي waterbill.rar تحياتي

السلام عليكم اخواني : الظاهر المشتهر في معظم منتديات الاكسس بالنسبة لهذا الموضوع أن الاستعلامات الجدولية لا تقبل المعايير وابحث ان شئت لترى النتائج . حيث ان بعض الحلول تقترح عمل تحايل لقبول ذلك وذلك بإنشاء جداول مؤقته يصاحبها استعلام انشاء لهذه الجداول واستعلام حذف . وحلول أخرى ترى ان يستند الاستعلام الجدولي الى استعلام تحديد توضع فيه المعايير بدلا من الجدول والصحيح أن الحل أقرب من ذلك وقد نجد تلميحات في بعض المشاركات ولكنها لم تعط الموضوع حقه من الشرح والايضاح . وسبب كون الاستعلامات الجدولية لا تقبل المعايير هو أن هذه المعايير غير معرفة لمحرك قاعدة البيانات فعند وضع معيار مثل القوسين [] ثم تشغيل الاستعلام تظهر الرسالة التالية : (محرك قاعدة البيانات microsoft.jet لايتعرف على[] كاسم حقل اوتعبير صالح) اذا الطريقة لجعل الاستعلام يعمل ويقبل المعيار هو ان نقوم بتعريف المعيار ويتم ذلك بخطوتين كالتالي: افتح الاستعلام الجدولي في عرض التصميم اكتب المعيار الذي ترغب ثم قم بتحديده ومن ثم انسخه من شريط الادوات افتح التبويب : استعلام ثم اختر : معلمات سيظهر مربع حوار المعلمات ويشتمل على عمودين : معلمة ، نوع البيانات في الحقل : معلمة الصق ما نسخته وفي الحقل : نوع البيانات اختر نوع بيانات الحقل (الذي هو مثبت في الجدول) انقر موافق كرر العملية لكل معيار شغل الاستعلام ستجد أنه استجاب لما وضعته من معايير معلومة صغيرة ارجو ان يكون فيها نفع كبير الصورة تتحدث :

لمعرفة الطريقة شاهد هذا الفيديو لطفا

تفضل اخي الكريم Me.ItemCode = Me.ItemType.Column(2) & Me.GradName.Column(2) & Me.SerNomber New Microsoft Access Database (3) - Copy.rar تحياتي

تفضل طلبك اخي الكريم تستطيع عرض الصور و ملفات PDF و موقع الكتروني و صور من الانترنت Data1.accdb

لا شيء مستحيل بإذن الله المهم ترتيب الخطوات في الذهن للوصول للحل يمكنك غلق قواعد البيانات الأخرى باستعمال هذا الكود Dim DB2 As Object db2Path = "Z:\path\to\db2.accdb" Set DB2 = GetObject(db2Path) DB2.Application.Quit ويمكن تكرار السطرين الأخيرين لغلق أي عدد من قواعد البيانات المحدد مساراتهم في الكود وفي الأخير غلق القاعدة الحالية بالكود التالي DoCmd.CloseDatabase بالتوفيق

برنامج ارشفة الملفات - معدل الاصدار الثاني 1.20 اهداء الى مجتمع اوفيسنا رقم المستخدم -1 كلمة المرور officena البرنامج مفتوح المصدر ويحق للغير التعديل لما هو افضل والنشر لوجه الله اكتشف اسرار البرنامج بنفسك اي استفسار حول البرنامج يرجى التواصل معنا المطلوب / الدعاء لي ولوالدي البرنامج في المرفقات برنامج ارشفة الملفات.rar

هذه المعادلة في B3 و اسحب نزولاً =RIGHT(A3,4)

كيفية اضافة معادلة البحث XLOOKUP لاوفيس 2019-2016-2013-2010-2007-2003 في الفيديو دة هاتقدر تشتغل وكأنك معاك اوفيس 365 XFunctions.7z

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

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم New Microsoft Access قاعدة بيانات.rar مع مراعاة الاسماء المركبة تكون بدون مسافات تحباتب

وعليكم السلام ورجمة الله وبركاته في حقل الفلتر اضف السطر التالي .Filters.Add "Excel Files", "*.*" تحياتي

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم هذا الموضوع سيفيدك ان شاء الله https://www.officena.net/ib/topic/104325-كيفية-ربط-تكست-مع-نموذج-فرعى-للبحث-العام/?do=findComment&comment=627862 تحياتي

الكود الصحيح Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("L1")) Is Nothing Then Application.EnableEvents = False Dim code As Integer Dim LB As Object Dim myrow As Range Dim m code = Me.Range("l1").Value Set myrow = Sheets("ورقة1").Range("A:A").Find(what:=code, _ LookIn:=xlValues, lookat:=xlWhole) m = 1 If Not myrow Is Nothing Then For Each LB In ActiveSheet.OLEObjects If TypeName(LB.Object) = "Label" Then LB.Object.Caption = _ myrow.Offset(, m).Value m = m + 1 End If Next Else MsgBox " not found!" End If End If Application.EnableEvents = True End Sub الملف مرفق Copy of Sabry.xlsm

وعليكم السلام 🙂 لا تستخدم دوال Dsum, Dlookup, Dcount ..... في الاستعلام ، فأنت تكون قد حكمت على الاستعلام بالبطئ الشديد !! اعمل اول استعلام ، يكون استعلام مجاميع واجمع فيه (بدل Dsum) ، ثم اعمل استعلام آخر ، يكون احد مصدر بياناته هو استعلام المجاميع اعلاه ، ومصادر البيانات الاخرى ، واعمل بينهم علاقة حتى تكون السجلات صحيحة 🙂 جعفر

تم الوضع الكود التالي لحقل ItemType عند حدث عند النقر Me.ItemCode = Me.ItemType.Column(2) تخياتي

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

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

شكرا لكم اخواني على هذه الكلمات الطيبة و الأخوية

الاستاذ محمد ابو عبد الله قد رفعت ملف واحتاج به بعض الاعمال

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

السلام عليكم أخي الاستاذ حسين 🙂 انت اكبر من ان تسعك مثل هذه الكلمات ، ويشرفني ان ازف اليك شكر وتقدير مني شخصيا 🙂 وشكر وتقدير من ادارة الموقع لجميع المساهمين في نشر العلم في هذا الموقع 🙂 جعفر

الف الف شكر لك و للجميع اخي الكريم في خدمتكم دائما و لن نتكم علم انعم الله به علينا شكرا لك فالمشاعر تعجز عن التعبير في هذا الموقف

ادرج الصيغة التالية كما في المرفق =CONCATENATE(B2;" ";TEXT(A2;"00%")) سليم.xlsx

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

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم صورة الصنف.rar تحياتي

السلام عليكم مادمت اخذت طريق الاستعلام CrossTab ، فهناك شئ جدا ضروري يجب ان تعرفه ، ولقد كلفني الكثير من العناء والمشقة والتفكير والتصليح والوقت في سبيل معرفته لما تعمل الاستعلام ، فانك تعمل حقل "عناوين الاعمدة" Column Headings ، والعناوين مثل ما ترى هنا ، هي "1-6" و "7-12": واذا القينا النظر الى بيانات الجدول ، سنرى انها تحتوي على بعض الاشهر من 1 الى 12 وعليه ، نتيجة الاستعلام ستكون: ونتيجة النموذج (او التقرير) ستكون: ولكن اذا لم تكن هناك قيمة لأحد الاعمدة (لاحظ في الصورة التالية) ، لقد حذفت سجلات الاشهر من 7 الى 12 من الجدول ، لذا فلا توجد بيانات للعمود 7-12 ، اي لا يوجد حقل اسمه 7-12: فنتيجة الاستعلام ستكون بدون ذلك الحقل (لاحظ عدم وجود عمود اسمه 7-12): ولكن نتيجة النموذج (او التقرير) ستكون: هناك طرق لحل هذه المشكلة: 1. برمجيا عن طريق QueryDef ، بحيث تعيد عمل الاستعلام: TRANSFORM Sum(Table1.ammount) AS Sumمنammount SELECT Year([dates]) AS السنة FROM Table1 GROUP BY Year([dates]) PIVOT IIf(Month([dates]) Between 1 And 6,"1-6","7-12"); وتعدل في عناوين اعمدة الاشهر ، بحيث اذا الاشهر ما موجودة في الجدول ، فانك لازم تحذفها من الاستعلام ، وتعيد حفظ الاستعلام بمعلوماته ، وكود التأكد والتغيير يجب ان تعمله في كل مرة تريد ان تشغل الاستعلام. 2. عند فتح النموذج (او التقرير) : بحيث تضع كود يفحص اذا كان هناك حقل اسمه 7-12 ، فاذا لم يوجد ، فيجب ان تحذف مصدر عنصر الحقل. 3. وهذا ما توصلت اليه أخيرا وبعد مشقة وعناء: في اعدادات الاستعلام ، اكتب اسماء الاعمدة في اعدادات الاستعلام ، وعليه اسماء الاعمدة ستكون دائما موجودة ، بغض النظر اذا كانت هناك بيانات ام لا: ونتيجة الاستعلام: ونتيجة النموذج (او التقرير): جعفر 87.1.Database1.accdb.zip

لعمل التقارير المستندة الى الاستعلامات الجدولية اتبع الخطوات التالية : 1- قم بإنشاء استعلام جدولي. 2- قم بفتح الاستعلام في طريقة العرض "تصميم" 3. قم بعرض صفحة خصائص الاستعلام بالنقر نقراً مزدوجاً فوق أي مكان خارج شبكة وخارج قوائم الحقول. 4. في مربع الخاصية عناوين_الأعمدة، اكتب عناوين الأعمدة التي تريد إظهارها في التقرير ، افصل بين كل منها بفاصلة منقوطة . إذا احتوى أحد الأعمدة على مسافة ، ضعها بين علامتي اقتباس مزدوجة (""). على سبيل المثال ، في استعلام يظهر المبيعات حسب ربع السنة ، يمكنك كتابة : الربع الأول؛ الربع الثاني؛ الربع الثالث؛ الربع الرابع 5.قم بإنشاء تقرير فارغ بحيث يكون منضماً إلى الاستعلام الجدولي. 6.قم بإضافة عناصر التحكم للحقول التي تريد إظهارها في التقرير. 7.ضع تسميات لعناوين الصفوف وعناوين الأعمدة في رأس الصفحة. 8.ضع مربعات نص لعناوين الصفوف وقيم الأعمدة في مقطع التفاصيل . المثال بعد التعديل : s3 .rar

جزاك الله خيرا اخي حامل المسك فقد نبهتني الى نقاط مهمة لم يتم ذكرها في الموضوع ونقطة اخرى لم يتم تعريفها بدقة فقد ذكرت آنفا أن الطريقة لجعل الاستعلام يعمل ويقبل المعيار هو ان نقوم بتعريف المعيار والحقيقة اننا لا نقوم بتعريف المعيار نفسه بل نقوم بتعريف الحقل الذي يشتمل على المعيار لذا فإن حقل المعلمة لا نكتب فيه الا ما يدلنا على الحقل فقط ، فلا نكتب فيه المعادلات ولا الدالات مثل like ; Between ; And ; or أو غيرها وشيء آخر وهو كل مربع نص أو خلية نريد تعريفها لا بد أن تكون في حقل خاص لوحدها في عمود المعلمة وفي المثال المعدل المرفق تطبيق لما ذكرت والله أعلم s2 .rar