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

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

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

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

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

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

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

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

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

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

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

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

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

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

انظر للمواد الثلاثة الاول وطبق لبقية المواد الاحرى ملاحظة : لي تحفظ على اسلوب تصميم الجدول ؟؟؟ 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

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

هذه المعادلة =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 للتسمية الخاصة بالنموذج

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

وعليكم السلام 🙂 وههلا وسهلا بك في المنتدى 🙂 للإستفادة القصوى من المنتدى ، رجاء قراءة قوانين المنتدى : 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

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

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

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

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