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

وعليكم السلام > نعم كما اخبرك استاذنا محسن مهند طلبك موجود بكثرة لو استخدمت خاصية البحث . عل كل حال وجدت لك فورم من المتتدى لصاحبه عبدالله باقشير جعله الله في ميزان حسناته وطبقته على ملفك فيه البحث بما تشاء والتعديل والاضافة والحذف والطباعة لو اتقنت استخدامه لن تحتاج الى غيره ان شاء الله قسم الحركة10-2022.xlsm

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

وعليكم السلام ورحمه الله وبركاته حسب فهمى للسؤال ببساطه اعلنت عن متغيران فالوحده النمطيه 5 Public strName As String Public intNum As Long ثم اسندت لهم القيم من النماذج عند الضغط على الزر ملف الترقيات ثم عند فتح النموذج FORM_T1/2 اسندت قيم المتغيرات للحقول بالتوفيق New Microsoft Access قاعدة بيانات(1).accdb

حياك الله أستاذ أصل الكود ليس لي وربما كاتبه هو سيدة باسم "ساجدة" حسب اسم الموديول (الوحدة النمطية). والحقيقة أن الأصل لم يتم التعديل عليه في المعالجة والحساب بل تمت إضافات رتوش عليه فقط وتعديل عدد المواد و درجة القرار، فالفضل هو لكاتب الإجراء الأصل. كذلك تمت إضافات في آخر الكود خاصة بصفحة القائمة المطلوبة. تمت تحسينات عدة ، قد تكتشفوها عند استعمال الملف. ود توزيع القرار_18.xlsm

لم تشير الى اي شيء اسمه حدف عندما تقوم بالغاء اختيار checkbox اطلاقا ليس من البديهي ان ارى ما في داخل محرر الاكواد واتابعه سطر بسطر واسالك ماذا يفعل الكود . هنا اتعامل عن تركيبة البيانات في الورقة واليوزرفورم ثم تنشر النتائج المتوقعة كيف تكون في كل حالة . لذلك لا تستغرب ان لا احد ينظر الى موضوعك وتكرره اكثر من مرة دون ابداء اي استعداد منك لمراجعة ملفك ونشر مزيد من التفاصيل . على الاقل لماذا لم تحاول حتى محاولة من خلال قراءة كود @Mohamed Hicham لتفهمه كان من الممكن فعل ذلك من خلال فكرة بسيطة . في موديول اليوزرفورم Private Sub ForAllCheckBoxes(ChkBox As Control) Dim fndHead As Range With sh2 Set fndHead = .Rows("1:1").Find(What:=ChkBox.Caption, LookAt:=xlWhole) If Not fndHead Is Nothing Then .Columns(fndHead.Column).Delete End With End Sub وقم باستدعائه لكل واحد منهم من حدث التشيك بوكس مع مراعاة رقمه If .Value = False Then Call ForAllCheckBoxes(CheckBox1)

اتمنى ينجح معك لانه عمل معي data2.xlsm

@Alaaq3 هل قرات توقيعي في الاسفل حتى تطلب متطلبات جديدة . ثم ان الادمن قام باختيار اجابة الاخ محمد هشام هذا يعني لقد حصلت على مرادك واذا لم يكن كذلك عليك ان تطلب منه ان استطاع ان يفيدك . اما انا فقد اجبتك بناء على طلبك وطالما قد تم حل الموضوع سابحث عن شخص اخر استطيع مساعدته بدلا من اضاعة الوقت في موضوع لن يتوقف صاحبه عن طلب طلبات جديدة ستخرجه عن سياق الموضوع الاصلي . كان وجب عليك اضافة كل تفاصيلك بدلا من كل مرة تطلب شيء . تحياتي .

وعليكم السلام ورحمة الله وبركاته هل تتذكر اي شيئ عن الرقم السري ارقام. ولا حروف ولا رموز ولا الكل معا هل تتذكر اي شيى ام لا. فيديو يوضح لك طريقه لمحاوله فتح الملف https://youtu.be/S-_O9H0Mm0c

الصور ظهرت علي عكس الترتيب الذي اردت المفرووض الصورة الثانية هي اول خطوة شرح الصوور ببساطة لكوني الخط غير واضح اضغط علي رأس جزء التنقل أو Navigation Pan بزر الفأرة الأيمن واختر خيارات التنقل أو Navigation Options ومن ثم وبشاشة الاعدادات التي ستظهر اختر اظهر العناصر المخفية واظهار جداوول النظام ومن ثم اضغط موافق وفقط

السؤال الذي يطرح نفسه هل قلت يجب الحدف عند الغاء checkbox لم تشير اليها اطلاقا في شرحك . من قال لك من البديهي ايضا الغاء الاجراء يمكن استخدامه في امور كثيرة ماذا لوكان عند الغاءه يتم الحفاظ عليه ماذا لو عدت لاختياره يقوم بنسخ متكرر كل هذه الامور لم توضحها . هل يجب ان اخمن ما يدور في عقلك . اذا كنت تُصر على ان موضوعك واضح ، اعذرني لقد اخطأت بالدخول الى الموضوع الخاطئ ولن اخوض في مواضيعك مستقبلا . تحياتي .

السلام عليكم هذه البادئة باسماء الجداول - Usys - تجعل الأكسس يتعامل معها علي انها جداول النظام الخاص بالأكسس لذا ستجد الجدول بمرفق ابو جودي - جزاه الله خيرا - ولكنه مختفي لكونه جدول نظام ولاظهاره اتبع الصور التالية: ثم قم بتصديره الي برنامجك الذي ظهرت به المشكلة تمنياتي بالتوفيق

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

ربما قد قمت بتغيير تنسيقات احدى الخلايا في جدول البيع .!!!!!! يمكنك الرجوع للملف الدي سبق وان رفعته لك ليس به اي مشكلة عند الترحيل على العموم قد تم اصلاح الملف وتفاديا لحصول نفس المشكلة معك في مرة مقبلة يمكنك تطويع الكود الاول ليؤدي نفس المهمة باضافة هدا السطر حيث يتم اضافة المعادلة في عمود الفرق اثناء الترحيل .Cells(DL, "P").Formula = "=IFERROR(IF(RC[-14]="""","""",RC[-8]-RC[-4]-RC[-2]),"""")" 4_MH.xlsm

وممكن ايضا تحميل قيمة الحقول في امر فتح النموذج باستخدام البارمتر OpenArgs تحياتي

اللهم آمين بالتوفيق

هل هذا هو ما تريد بالتوفيق للجميع https://wayprograms.blogspot.com/search/label/اكسس Documents.rar

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

اعمل جدول وادرج السنوات المطلوبة بالكود ....

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

ضع هذا الشيء في نهاية كودك Me.TextBox1.SetFocus

حسنا ارفق الملف الذي تعمل عليه الان . اريد ارى شيئا اتمنى ان ينجح ذلك

حينها غيرها في الاسطر التي اعطيتك ايه اعذرني لا ادري كيف اخطات في الصيغة بهذا الشكل

ولكن حتى لو كان بالاسبانية ماهي صيغة التاريخ لديك بالجهاز ؟ هل هي كما في الفورم D/M/YYYY ؟

هل نزلت الملف الاخير الذي اعطيتك اياه ام قمت بتطبيقة على ملف مشاركتي السابقة ، لا ن هناك اختلاف في تنسيق التاريخ في الاعمدة للملف السابق. بناء على اخر ملف البرنامج شغال معي واخترت اسم اخر انظر الى الصورة .

الحمد لله تمكنت من حل المشكل بالكود الأخير الحل هو كتابة الامتداد داخل الكود "fichier1.xlsm" وليس فقط fichier1

ربنا يزيدك من علمه ويعطيك من خيره ويرزقك كل خير وجزاك الله خيرا اخي عبدالله قدور 😊

السلام عليكم اليك ما طلبت Database1.accdb

وعليكم السلام ورحمة الله تعالى وبركاته اولا طريقة تصميمك للملف غير صالحة لاستخراج البيانات بشكل سليم . تفضل اخي قد تم تعديل الملف ليتناسب مع طلبك مع اضافة المعادلات لاستخراج نتائج شهور السنة كاملة. اضافة لجدول في Sheet3 يمكنك من العثور على النتيجة المطلوبة من خلال اختيار اسم الشهر عبر ComboBox Book1_MH.xlsx

اسف اخي -تفضل 12_mh.xlsm

اعطني اسماء التيكست بوكس التي بها التاريخ لا تظهر لي عند الدخول لمحرر الاكواد ليس لدي الوقت للبحث عنهم . هل التاريخ يعتمد على تاريخ اليوم عند الادخال ؟ حسنا الموضوع ليس كما تصورت من خلال الكود يبدو انه رقم 7 , 8 يقوم باضافة التيكست بوكس اوتوماتيكيا عند تشغيل اليوزرفورم ، هذا معقد بعض الشيء ، كانت العملية شاقة بالنسبة لي حتى ارى جميع الاكواد ولا انصح بها لان لااحد سيقوم بمراجعة مجموعة اكواد . من الوهلة الاولى سيتم البحث عن رقم التيكست بوكس ولكن لن يتم ايجاده بهذه الطريقة .اعتقد ان هذا سينجح معك تم اضافة سطرين في حدث UserForm_Initialize() في نهاية الكود Me.Controls("textbox" & 7).Value = Format(Me.Controls("textbox" & 7).Value, "d /m / yyyy") Me.Controls("textbox" & 8).Value = Format(Me.Controls("textbox" & 8).Value, "d /m / yyyy") data.xlsm

جزاكم الله خيرا 🏵️ أخي الحبيب @hassona229 . أعمال الأخ @ياسر خليل أبو البراء رائعة وهو شعلة ذكاء متقدة . أرجو للأخ السائل الفائدة من هذا الفيديو والسلام عليكم ورحمة الله وبركاته

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

وعليكم السلام-وده من خلال Data Validation بإستخدام هذه المعادلة =AND($E2="",$F2="",$G2="") حجب 1الخلايا.xlsx

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

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

بسيطة بعد اذن طبعاً الأستاذ ابراهيم ..عليك بإضافة هذا السطر بالكود قبل نهايته TextBox2.Text = Format(Val(TextBox2.Text), "0.0") تجريبى1.xlsm

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

وعليكم السلام-استخدم هذه المعادلة =IF($B7="مصطفي","لا يوجد","")

______ __ __ ___ .__ __. _______ _______ __ ______ ______ .__ __. / || | | | / \ | \ | | / _____|| ____| | | / | / __ \ | \ | | | ,----'| |__| | / ^ \ | \| | | | __ | |__ | | | ,----'| | | | | \| | | | | __ | / /_\ \ | . ` | | | |_ | | __| | | | | | | | | | . ` | | `----.| | | | / _____ \ | |\ | | |__| | | |____ | | | `----.| `--' | | |\ | \______||__| |__| /__/ \__\ |__| \__| \______| |_______| |__| \______| \______/ |__| \__| تغيير شعار ميكروسوفت أكسس في TASK Manager في النموذج المرفق واستبداله بأيقونة أخرى يتم استدعاء الروتين من خلال وضع الكود الاتى فى حدث عند تحميل نموذج Call Xicon مع مراعاة تغيير البيانات الاتية فى رأس الموديول اسم التطبيق AppName اسم الايقونة بدون الامتداد icoName وتم عمل الكود على ان الايقونة فى نفس مسار القاعدة فى حالة تغيير مكان الايقونة لابد من تغير المسار فى الروتين AppIcon() Const AppName = "www.officena.net" Const icoName = "officenaIco" Public Function AppIcon() AppIcon = CurrentProject.Path & "\" & icoName & ".ico" End Function Public Function AccessIcon() AccessIcon = (SysCmd(acSysCmdAccessDir) & "MSACCESS.EXE") Debug.Print AccessIcon End Function Function AddAppProperty(strName As String, _ varType As Variant, varValue As Variant) As Integer Dim dbs As Object, prp As Variant Const conPropNotFoundError = 3270 Set dbs = CurrentDb On Error GoTo AddProp_Err dbs.Properties(strName) = varValue AddAppProperty = True AddProp_Bye: Exit Function AddProp_Err: If Err = conPropNotFoundError Then Set prp = dbs.CreateProperty(strName, varType, varValue) dbs.Properties.Append prp Resume Else AddAppProperty = False Resume AddProp_Bye End If End Function Function Xicon() On Error GoTo ErrHandler Dim dbs As Object Set dbs = CurrentDb() Dim intX As Integer Const DB_Text As Long = 10 ' AppTitle intX = AddAppProperty("AppTitle", DB_Text, AppName) ' AppIcon Dim Chk Dim MyIcon As String Set Chk = CreateObject("Scripting.FileSystemObject") If Chk.FileExists(AppIcon()) = False Then MyIcon = (SysCmd(acSysCmdAccessDir) & "MSACCESS.EXE") Else MyIcon = AppIcon() End If intX = AddAppProperty("AppIcon", DB_Text, MyIcon) dbs.Properties("UseAppIconForFrmRpt") = 1 Application.RefreshTitleBar exitProc: Exit Function ErrHandler: If Err = 3270 Then Resume Next Else MsgBox Err & Err.Description Resume exitProc End If End Function ---------------------------------------------------------------------

بعد رفعه يحفظ لك على هذا الموقع لحين الحاجة اليه مرة اخرى دون ان يتغير او يتيدل

أخى الكريم يمكنك رفعه على مواقع لتحميل الملفات مثل https://www.mediafire.com https://www.file-upload.com/ https://up.top4top.net/ أو اذا كان لديك سيرفر فى الشركة يمكنك رفع الملف عليه جزاك الله كل خير

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

تفضل وهذا ايضا ملف لما تريد يوزرفورم.xlsm

أهلا وسهلا بك فى منتدانا الكريم ..من الأفضل ارسال الملف للعمل عليه ..ولكن تفضل هذا الكود والباسورد به 123 Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.HasFormula Then MsgBox "ÇáãÚÇÏáÇÊ áä ÊÙåÑ" 'ActiveSheet.Protect Else 'ActiveSheet.Unprotect End If MyPassword = "123" For Each MySheet In ActiveWorkbook.Sheets MySheet.Protect _ Password:=MyPassword, _ DrawingObjects:=True, _ Contents:=True, _ Scenarios:=True, _ AllowFormattingCells:=True, AllowFormattingColumns:=True, _ AllowFormattingRows:=True, AllowInsertingColumns:=True, AllowInsertingRows _ :=True, AllowInsertingHyperlinks:=True, AllowDeletingColumns:=True, _ AllowDeletingRows:=True, AllowSorting:=True, AllowFiltering:=True, _ AllowUsingPivotTables:=True, _ UserInterfaceOnly:=False Next MySheet End Sub

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

أهلا وسهلا بك فى منتدانا الكريم ممكن تجرب هذا و الباسوورد 550055 والباسوورد للصلاحيات 29051982 برنامج_مخازن_2018.rar

تفضل اخى الكريم بيان اول وااخر تاريخ تحميل المنتوج على اساس الرقم.xlsx

بارك الله فيك أستاذنا الكبير وجزاك الله كل خير وجعله فى ميزان حسناتك

يمكنك تجربة هذا الملف عله يفيدك ملف بحث بفورم ممتاز - 2.xlsm

لابد من اضافة microsoft Date and time picker controls 6.0(sp6) سأرسل لحضرتك ملفين مع الصور للتوضيح لابد من عمل كوبى لهذان الملفين ولصقهما فى C:\Windows\System32 ثم تشغل cmd ثم نسخ هذه الروابط كما هو موضح بالصورة رقم 4 م تنسخ احد الروابط التالية حسب نسخة الةندوز لديك 32 او 64 regsvr32.exe C:\Windows\SysWOW64\MSCOMCT2.OCX regsvr32.exe C:\Windows\System32\MSCOMCT2.OCX ثم اتبعى خطوات باقى الصور ولكم منى جزيل الشكر Tutorial.rar