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

السلام عليكم ورحمه الله وبركاته هدية لأعضاء المنتدى الكرام برنامج أرشفة الخطابات و الوثائق .. الأرشفة الالكترونية مفتوح للعمل عليه غير محدد المدة ومش تجريبي مغلق المصدر (الاكواد) وتعديل النماذج تحياتي 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 فهى لاسم النموذج بالتوفيق

في خصائص الحقل في وضعية التصميم اختر اللغة الانجليزية،

بارك الله فيك ونفع بعلمك

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

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

شكر وتقدير واحترام من اخيك

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

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

جزاكم الله خيرا اخواني الكرام علي مجهودكم : انا جربت تطبيق ما تشير إليه الصورة التي انزلها اخونا محمد الحلواني ووجدتها فعالة حتى بدون تفعيل الكود الذي انزله اخونا أبو عبد الله

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

ماشاء الله عمل يستحق التقدير بارك الله بك وانشاء الله في ميزان حسناتك

ممكن توضح اكثر .... لاحظ الصورة اليس هذا هو المطلوب أم ماذا ؟؟؟؟

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

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

لو سمحت اليوزر و الباسورد لانه مشفّر

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

انظر للمواد الثلاثة الاول وطبق لبقية المواد الاحرى ملاحظة : لي تحفظ على اسلوب تصميم الجدول ؟؟؟ 1 (2).rar

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

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

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

اخي الكريم بمجرد ان تخفي شاشة الاكسيس فانت قمت بحماية بنسبة كبيرة وحماية الجداول وقاعدة البيانات لها اكثر من طريقة اكتب في محرك البحث حماية ستظهر لك نتائج كثيرة https://www.officena.net/ib/search/?q=حماية&quick=1&type=forums_topic&nodes=89 اعتقد ان المشكلة التي معك حاليا كيفية حماية مجلد المرفقات تحياتي

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

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

هذا الكود Option Explicit Sub RANDOM_INDEX() Dim n%, x%, i% Dim m%, y%, z%, T% Dim My_rg As Range Dim colL As Collection Set My_rg = Sheets("Main").Range("B11:B14") Set colL = New Collection y = 1: z = My_rg.Columns(1).Rows.Count: n = 1 With CreateObject("System.Collections.SortedList") Do Until .Count = z T = Rnd x = Int((z - y + 1) * Rnd()) + y .Item(x) = n On Error Resume Next colL.Add x, CStr(x) On Error GoTo 0 n = n + 1 Loop m = 5 For i = 0 To .Count - 1 Sheets("hamed").Cells(2, m) = _ My_rg.Cells(colL(i + 1)) m = m + 1 Next End With End Sub الملف مرفق Hamed_Rand.xlsm

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

اكتب بنزين وسيتلون وفي حالة مسحه سيختفي اللون color.xlsm

تم حل المشكلة المشكلة كانت في عمود timestamp تغير الداتا تايب واصبج varbinary

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

هذه المعادلة =LOOKUP(MAX(ورقة2!$B$1:$B$100)+1,ورقة2!$B$1:$B$100,ورقة2!$B$1:$B$100) salman.xlsx

ماشاء الله عليك يا ابا عبد الله احيانا استخدم 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()) وكانت النتيجة ممتازة لكن للأسف عندما تكون اللاحقة فقط في الاسم الرابع

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

وعليكم السلام 🙂 وههلا وسهلا بك في المنتدى 🙂 للإستفادة القصوى من المنتدى ، رجاء قراءة قوانين المنتدى : https://www.officena.net/Tips/Questions.htm الطرق الاسهل: 1. استخدم الامر OpenArgs لإرسال اسم النموذج ، عند فتح النموذج Z02_Load_File ، هكذا : DoCmd.OpenForm "Z02_Load_File",,,,,,me.name او لإرسال الرقم 123456 DoCmd.OpenForm "Z02_Load_File",,,,,,"123456" وفي اي من احدات النموذج Z02_Load_File ، يمكنك قراءة هذه القيمة بإستعمال me.OpenArgs ، وطبعا تقدر ترسل اي عدد من القيم بهذه الطريقة ، الشرط ان القيم تكون بين "" ، مثل : DoCmd.OpenForm "Z02_Load_File",,,,,,"123456|Finance_Department" ثم في النموذج Z02_Load_File ، تستعمل الامر Split لتفرق بين هذه القيم. 2. ان تعمل متغير في وحدة نمطية مستقلة ، هكذا : Option Compare Database option explicit Global myValue as string او public myValue2 as integer ثم لم تعطي القيمة قبل ان تفتح النموذج Z02_Load_File ، هكذا: myValue = "This is a test" DoCmd.OpenForm "Z02_Load_File" او myValue = 998877 DoCmd.OpenForm "Z02_Load_File" وفي اي من احدات النموذج Z02_Load_File ، يمكنك قراءة هذه القيمة بإستعمال اسم المتغير myValue او myValue2 ، 3. او نفس طريقة #2 ، ولكن باستعمال TempVar جعفر

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

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

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

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

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