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

السلام عليكم ورحمه الله وبركاته هدية لأعضاء المنتدى الكرام برنامج أرشفة الخطابات و الوثائق .. الأرشفة الالكترونية مفتوح للعمل عليه غير محدد المدة ومش تجريبي مغلق المصدر (الاكواد) وتعديل النماذج تحياتي user 1234 1118021174_Archivesopen18-1-2021.rar

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

هدية للموقع برنامج الجمعيات الخيرية الرقم السرى 1515 جنتى المعدل بنك الدم.rar

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

اظهار الفورم مباشر والاغلاق لفتح الشيت من الصورة وتعديل اسم الشيت والدخول لحدث الصفحة

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

لم افكر في طريقتك .... راحت من فكري تماما ... =MFAvrg(Nz([a1]);Nz([a2]);Nz([a3])) جزاك الله خيرا على التنبيه

فكرة جميلة ما شاء الله جزاك الله خيرا

طيب جرب الثلاث مواد الاولى واعلمنا بالنتيجة علما ني غيرت بعض مسميات مربعات النص لسهولة كتابة الكود 1 (2).rar

عرض وترتيب جميل وايقونات اجمل جزاك الله خيرا وزادك علما ونفعا .

السلام عليكم عرض التقرير لا يناسب الورق المحدد في اعدادت الطباعة A5 بل يناسب ورق A1 واليك مقاسات الاوراق بالسم A1 = 59.4 × 84.1 A2 = 42.0 × 59.4 A3 = 29.7 × 42.0 A4 = 21.0 × 29.7 A5 = 14.8 × 21.0 A6 = 10.5 × 14.8 اليك التعديل بعد جعل الورق A4 عرضي وازالة الزيادات ايجار معدات للغير1.rar تحياتي

وعليكم السلام اخى الفاضل @seeef غير فالنموذج اسم الحقل name الى txtName مثلا وعليه يتغير الكود الى Private Sub Command18_Click() Dim X As String X = Me.txtName & ".pdf" DoCmd.OutputTo acOutputReport, "FBEA2", "PDFFormat(*.pdf)", CurrentProject.Path & "\" & X End Sub وذلك لان الاشاره بـ me.name فهى لاسم النموذج بالتوفيق

جزاك الله خيرا اخى واستاذى @biskra 💐

بارك الله فيك استاذ عبد الله الملف يعمل معى جيداً والنظام لدى 64 بت بارك الله فيك

جزاكم الله خيرا سأجرب وأوافيكم بالنتائج - ولا بد من أدوات مساعدة تسهل من عبأ العمل وجزاكم الله خيرا

لم تنقل الدالة صحيحة الى ملفك كما اخبرتك لا يمكنني التجربة لان جهازي يعمل على 32 بث تم اظافة الكود السابق لملفك على الفورم1 ويشتغل على جهازي بكفاءة جرب الملف وان لم يشتغل نتمنى من لديه نظام 64 تقديم المساعدة برنامج صلاحيات المستخدمين اصدار (3).xlsm

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

تسلم ايدك. شكرا ربنا يكرمك يارب

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

ما شاء الله تصميم جميل فعلا. وعمل متعوب عليه. طابت نفسا جادت بمثل هذا جعله الله بموازين حسناتكم.

ماشاء الله مجهود وعمل رائع أستاذ محمد سلامة

شكرا لك اخي جاري التجربة

user 1234

جزاك الله خيرا أخي الكريم هل ممكن كلمة المرور للمستخدم user ولكم فائق التحية والاحترام

مشكور استاذي ما قصرت استفدت من المرفق كثير

Private Sub CommandButton2_Click() Dim i As Long For i = 0 To Me.ListBox1.ListCount - 1 Sheets("الصادر").Range("A" & Rows.Count).End(xlUp).Offset(1, 0) = Me.ListBox1.List(i, 0) Sheets("الصادر").Range("A" & Rows.Count).End(xlUp).Offset(0, 1) = Me.ListBox1.List(i, 1) Sheets("الصادر").Range("A" & Rows.Count).End(xlUp).Offset(0, 2) = Me.ListBox1.List(i, 2) Sheets("الصادر").Range("A" & Rows.Count).End(xlUp).Offset(0, 3) = Me.ListBox1.List(i, 3) Sheets("الصادر").Range("A" & Rows.Count).End(xlUp).Offset(0, 4) = Me.ListBox1.List(i, 4) Sheets("الصادر").Range("A" & Rows.Count).End(xlUp).Offset(0, 5) = Me.ListBox1.List(i, 5) Next i End Sub

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

اخي الكريم من سياستي عدم تناول اكثر من جزئية عندما تقوم بنشر سؤال وجب عليك يتوضح فيه جميع متطلباتك نبهت عليه كثير من الاعضاء هذه المرة ساتجاوز ذلك في ملفك لايوجد قيم حيث تلوين الخلايا على حسب ما فهمت اذا كان هناك قيم التي تقابل كلمة بنزين بمجرد تلوينها تريد مسح محتوياتها ضع هذا السطر r2.ClearContents اسفل r2.Interior.color = vbBlue

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

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

جزاك الله خيرا ونفع بك

لا توجد اي علاقة بين حماية او اخفاء الجداول والتنسيق الشرطي التنسيق الشرطي وظيفته تنسيق الجقل فقط حسب شرط او شروط محددة تحياتي

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

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

وعليكم السلام-وذلك من خلال خصائص الفورم كما بالصورة كيف تقول هذا- شوف بنفسك هل اطلعت على الملف أم تتكلم بدون رؤية الملف ؟!!! اهذا ما تريد ان يكون المؤشر اتجاه اليسار الملف1.xlsm

ياهلا باستاذنا الفاضل جعفر الحقيقة انا ماجربت جميع الاوامر لقفز البارامترات ولكن جربت البعض منها وعملت معي مثلا فتح فورم بشرط المدينة في الفورم الاول تساوي المدينة في فورم2 تكتب في العادة DoCmd.OpenForm "frm_6", , , "city='" & Me.city & "'" ويمكن التصريح بالشرط وقفز البارامترات لتكون هكذا DoCmd.OpenForm "frm_6", WhereCondition:="city ='" & Me.city & "'" تحياتي

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

ماشاء الله عليك يا ابا عبد الله احيانا استخدم OpenArgs ولكني اصرح بذلك في الامر ليكون DoCmd.OpenForm"frm_4", OpenArgs:=Me.Name او DoCmd.OpenForm"frm_4", OpenArgs:=Me.Caption للتسمية الخاصة بالنموذج

أشكرك جزيل الشكر

كنت قد استخدمت الدالة التالية التي تعمل على استخراج الفرق بين جملتين Function WORDDIF(rngA As String, rngB As String) As String On Error GoTo Err ' to test the function, press ctrl+G then paste this line of code--> ?WORDDIF("عبد الرحيم بن سلمان عبد الله بو سالم", "عبد الرحيم بن سلمان عبد الله سالم") Dim WordsA As Variant, WordsB As Variant Dim ndxA As Long, ndxB As Long, strTemp As String WordsA = Split(rngA, " ") WordsB = Split(rngB, " ") For ndxB = LBound(WordsB) To UBound(WordsB) For ndxA = LBound(WordsA) To UBound(WordsA) If StrComp(WordsA(ndxA), WordsB(ndxB), vbTextCompare) = 0 Then WordsA(ndxA) = vbNullString Exit For End If Next ndxA Next ndxB For ndxA = LBound(WordsA) To UBound(WordsA) If WordsA(ndxA) <> vbNullString Then strTemp = strTemp & WordsA(ndxA) & " " 'strTemp = strTemp & IIf(WordsA(ndxA) <> vbNullString, WordsA(ndxA), "-") & " " Next ndxA WORDDIF = Trim(strTemp) Exit Function Err: If Err.Number <> 0 Then MsgBox Err.Number & " - " & Err.Description End If End Function قمت باستدعاؤها كالتالي If Me.txtFullName.Text <> fullName() Then txt = WORDDIF([Text0], fullName()) وكانت النتيجة ممتازة لكن للأسف عندما تكون اللاحقة فقط في الاسم الرابع

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

حرب هذا الملف (تم اعادة نسمية الأوراق باللغة الأجنبية لحسن عمل المعادلات) CONARS_1.xlsx

كان ردى بناء على ما فهمته من ردك وانك سوف تحسب تسلسله يدويا ثم تضعه بحقل اتسلسل ثم تزيد 1 على هذا الرقم لكل مابعده يعنى مثلا عندما يتم اعطاء رقم 6 لسعود وفى الاساساس سعيد ابراهيم يحمل رقم 6 فيصبح سعيد ابراهيم رقم 7 وهكذا وماذا بعد الفرز لانه لم نفهم مطلوبك ولا ع اى اساس سوف يتم الترقيم لان بمثالك لا يوجد سوى حقلين حقل الاسم والتسلسل نرجوا التوضيح اكثر وان شاء الله تجد ما تريد بالتوفيق اخى

برنامج_مخازن_جديد.xlsm

تسلم اخي اشتغل معي على 2013 في جهاز اخر هناك مشكلة في جهازي الف الف الف شكر لك ولكل من عمل على مساعدتي

آسف نسيت المرفق تفضل db2.rar

اخوتي الكرام السلام عليكم ورحمة الله وبركاته العنوان ينطق بالمعنى كيف يعمل مستخدمون كثيرون ضمن نموذج واحد ولكن كل حسب صلاحيته وتطبيقه على ارض الواقع في البرنامج المدرسي حيث يتسنى لكل معلم ادخال درجات طلابه لا يشاركه في ذلك احد الا المسؤول عن البرنامج وهو جزء من درس احببت افراده ارفقت مثال بسيط عبارة عن جدولين ونموذجين يشتمل على 13 معلما ومسؤول واحد كلمات المرور للمعلمين تبدأ من 101 وحتى 113 وكلمة مرور المسؤول = 222 بيت القصيد والذي تدور عليه العمليه هو حقل رقم المعلم ويوجد مخفيا في حقل داخل النموذج لللاستزادة ورؤية التطبيق من هنا http://www.officena.net/ib/index.php?showtopic=55142&page=4#entry350160 آمل ان تجدوا الفائدة myUser.rar

اخي الغالي انا لست معترض على كلامك واتفق معك ففي عالم لغة الالة لعبة القط والفأر والتطور مستمر ولكننا نحاول

روعة أخي الحبيب جربت الملف وجربت أفصل النت والملف لم يعمل لعدم اتصاله بالنت وجربت أغير التاريخ في الكود لتاريخ أقدم من تاريخ اليوم فأصبح الملف نسخة تجريبية ولكن ......................... هتزعل لو قلت لك غيرت تاريخ الجهاز إلى 16 سبتمبر ففتح البرنامج لأن الكود يحتوي على الدالة NOW() فأعتقد كدا بردو أصبح الكود فيه ثغرة بس للأمانة كود رائع رائع ازعل لية احنا اخوات وبندور على حلول الهمة معايا نوصل لحل محترم

الدّالة Vlookup تعمل من اليمين الى اليسار باللغة العربية والعكس باللغة الأجنبية امّا الدّالة Match فتعمل بالاتجاهين معاً