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

السلام عليكم 🙂 الاستعلام الذي عملته انت : . بدون ربط بين الجداول ، وهذا معناه ، انك تطلب سجلات عددها : 16x8x11x16x27x24x10x6 = 875,888,640 (شوف صورة سجلات الجداول في الاسفل ، علشان تعرف من وين جئت بهذه الارقام 🙂 ) ، فهل سرعة محرك كمبيوترك CPU ، وكمية الذاكرة المؤقته RAM ، قادرة على عرض هذا الكم الهائل من السجلات 🙂 . خلينا نشوف استعلام علشان نفهم الموضوع : نخلي الجدولين فقط ، والي نعرف ان مجموع عدد السجلات سيكون : 16x8 = 128 . والنتيجة ، وكما يعرضها الاستعلام : . وهذا اللي عملنه انا بإستعمال مرفقك ، وهي الطريقة الافضل لبرنامجك : . ولكن ، هذه طريقة الاكسل في وضع البيانات ، بينما اذا اردنا تعديل الاكسس ، فيكون كالتالي: نعمل الجدول tbl_Salary والذي سيشمل جميع الجداول الثمانية ، وبدون حقلي "المحسوب" ، ومع اضافة حقل اسم "المجموعة" : . والنتيجة : . وعلى اساس هذا الجدول ، نعمل استعلام qry_Salary ، ونضيف الحقلين "مج الاستقطاع" و "الصافي" مع معادلاتهم : . ومقارنة سجلات الجدول السابق مع الاستعلام الجديد : . والآن وبكل بساطة تعمل الاستعلام الذي يقوم بعملية جمع الصافي : . والنتيجة : . جعفر 1197.wameed.accdb.zip

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

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

السلام عليكم اخي العزيز بعض الاخوة يستعملون برامج للتسجيل من الكمبيوتر او اخذ لقطة من الشاشة كصورة انا استخدمت برنامج الفوتو شوب للشرح وثم الكتابة على الصورة لان فيه الامكانيات الكثيرة امابخصوص سؤلك عن تغيير لون الخط وحجمه لاحظ الصورر من 1-2 من خلال Tools - Options-Editor format وبخصوص كتابة الشرح لاحظ الصور من 5-5 من خلال الامر View-Toolbars-Edit علما يوجد ببرنامج الاكسس الكثير من وسائل المساعده تستطيع التعرف اليها من خلال موقع اوفيسنا او دروس الاكسس في اليوتيوب تحياتي

وعليكم السلام اتفضل اخى الفاضل ان شاء الله يكون ما تريد تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق تجربة_4.rar

السلام عليكم 🙂 حيا الله اخوي رمهان 🙂 اخوي اباجودي ، هنا عملنا شيء مشابه لما تريد ، التصفح كل 10 سجلات : جعفر

احذف الخطأ ان وجد كرر الخطوات بعد ذلك تستطيع التحويل

تمام ياحبيب الجميع عايزك تضبط ارتفاع النموذج حتى يظهر فقط عشر سجلات ... تمام ياباشا ... وبعدها اضغط زر صفحة لاعلى او اسفل من الكيبورد .. هذا راح يعطيني الصفحة الثانية وحسب السجلات الظاهرة .. طيب وانت خبير هنا ازاي نترجمها لكود او ماكرو .. انت بتعرفها وانا حذكرك فقط والذكرى للمؤمنين .. باستخدام sendkeys "{pgdn}" او كود رمهاني التالي تنقل للتالي DoCmd.GoToPage 1, , Me.InsideHeight - Me.FormHeader.Height والتنقل لسابق واجب منزلي ابا جودي هذا وانا جربت على مثال عندي غير مثالك وتقبل تحياتي وان شاء الله انه المطلوب ان احسنت الفهم

وعليكم السلام-لك ما طلبت كميات مقاولين556 .xlsm

أهلا و سهلا بكافّة الإخوة الأعضاء و الزوّآر في موقع أوفيسينا الجميل هذا الموضوع أشرح فيه تجربتي مع حساب بايبال أمريكي فتحته منذ مارس 2016 و يشتغل حتى هذه اللحظة بدون تفعيل وثائق أخرى كالهوية الشخصية أو فاتورة ولأنه كما يعرف الجميع فإن فتح حساب بايبال جزائري أو تونسي أو اي بلد عربي يبقى محدود الصلاحيات أمام حساب بايبال أمريكي أو بلد أخر فسأشرح لكم كيفية فتح حساب أمريكي مفعل 100% بال IP الجزائري و دون الحاجة لإستخدام Proxy أو VPN و يمكن أن يدوم حسابك أشهر كما الحال في حسابي الخاص الذي فتحته منذ أشهر وأعمل به إلى الأن أرسل و أستقبل به أموال دون مشاكل. نمر إلى الطريقة مع متطلبات فتح الحساب : 1- موقع Fakenamegenerator لعمل هوية مزيفة و الذي سنأخذ منه المعلومات التالية ( الإسم – اللقب – العنوان كاملا ) 2- إنشاء email جديد (Gmail,Hotmail,Yahoo…) بإسم أجنبي سنحتاج بالتسجيل به على بايبال فيما بعد 3- تنزيل تطبيق Primo أو TextNow متوفر على Android و iOS يعطيك رقم هاتف أمريكي يرسل ويستقبل مكالمات ورسائل مجانا للولايات المتحدة لتحميل تطبيق Primo إضغط هنا و قم بوضع رقم هاتفك مع كود البلد 213XXXXXXXX+ ثم Send me the app ليصلك رابط تحميل التطبيق أو إبحث عنه في متجر التطبيقات * فتح حساب بايبال جديد أول شيئ نقوم بفتح حساب جديد بالدخول إلى https://www.paypal.com/us/webapps/mpp/home تأكد من التسجيل عبر هذا الرابط وظهور نافذة كما في الصورة أدناه (*1) و عدم الدخول إلى نطاق com. فقط لأنه سيفتح باللغة العربية و يتعرف أوتوماتيكيا على البلد "أي بلد عربي" ثم نختار Sign up for a Personal account نقوم بتعمير البيانات بمعلومات موقع Fakenamegenerator ثم نضغط على Manage communication preferences * نضيف صورة إلى الحساب تختار صورة لشخص حقيقي من Google Images والمحبذ أن يكون الوجه واضحا * نقوم الآن بتأكيد رقم الهاتف الذي أضفناه بعد الضغط على confirm your number سيصلك كود التفعيل على Primo إفتح الرسالة و أكتب الكود الذي تحصلت عليه في الخانة التالية * الأن تفعيل الإيمايل * الأن تضيف visa أو mastercard إلى حساب البايبال. لدينا 3 خيارات : - إما لديك بطاقة Mastercard Payoneer لم تقم بربطها من قبل في حساب بايبال و فيها رصيد 2$ لربطها بالبايبال - أو تفتح حساب Payoneer و تتحصل على بطاقة Mastercard مجانية وحساب بنكي أمريكي مجاني من هذا الرابط - أو تضيف Visa أو Mastercard وهمية (لن تصلح في شيئ إلا لتفعيل البايبال أي لن تستطيع شحنها أو إستخراج أموال منها و إحتمال إكتشافها من البايبال و تجميد الحساب) من هذا الرابط :www.elfqrin.com أدخل Pattern BIN : 405544xxxxxxx543 كل مرة تضغط على Generate يعطيك 3 Visa لتجربة ربطها في حسابك *إضافة بطاقة إضغط على Link a Card لإضافة معلومات البطاقة تم قبول معلومات البطاقة من أول محاولة إذا تم رفض معلومات البطاقة أعد المحاولة ببطاقة أخرى حتى يتم قبولها. *إضافة البنك إما لديك حساب بنكي في Payoneer غير مسجل من قبل في Paypal أو تفتح حساب Payoneer و تتحصل على بطاقة Mastercard مجانية وحساب بنكي أمريكي مجاني من هذا الرابط تفتح معلومات حسابك البنكي في Payoneer نضغط على Link a Bank في البايبال ثم ستظهر لك لائحة بأسماء البنوك إختر : I have a different bank نضيف معلومات البنك ثم Agree and Link في أقل من 48 ساعة سيصلك مبلغين صغيرين في Payoneer كما في الصورة : تفتح البايبال ثم تضغط على Confirm your bank ستظهر لك هذه النافذة بعد الضغط على Submit تكون قد أتممت ربط بنك بايونير بالبايبال بهذا تكون أتممت جميع مراحل التفعيل في بايبال ملاحظات : *لاتنسى الدخول إلى البايبال دائما من هذا الرابط Send Money, Pay Online or Set Up a Merchant Account - PayPal قم بحفظه في الBookmarks/Favoris في متصفحك *إذا تم تجميد الحساب بسبب ربط الفيزا الوهمية أعد نفس العملية مع إضافة بطاقة رسمية تمتلكها من أحد البنوك على الإنترنات فذلك أضمن. ملاحظة : منقول و عدم استعماله ضد المسلمين وشكرا.........................

وفيك بركة أخي أ / محمد صالح و عيدك مبارك وكل عام و أنت بألف خير و تقبل الله منا ومنكم صالح الأعمال .... أخوك في الله : مناد سفيان .

بسم الله الرحمان الرحيم و الصلاة و السلام على أشرف المرسلين أما بعد: سوف نقوم اليوم إن شاء الله بشرح أداة WebBrowser وأهم ما يتعلق بها من أوامر و أحداث و خصائص و إدخال و إخراج. و سوف يتم تقسيم هذا العمل إلى مجموعة حلقات نبدأ من الصفر حتى آخر نقطة نستطيع الوصول إليها إن شاء الله مع وضع مثال تطبيقي لكل حلقة. مقدمة: WebBrowser هي أداة تعمل عمل أي متصفح و هي مقترنة المتصفح الشهير Internet Explorer فهي تساعدك في تصفح المواقع من ناحية و التحكم في أكواد HTML وكل ما يرتبط بها من إدخال و استخراج بيانات من ناحية أخرى. ملاحظة: لتشغيل هذه الأداة بشكل جيد يجب تحديث المتصفح الشهير Internet Explorer إلى الإصدار 10 أو 11. مع العلم أن ونداوز 10 به الإصدار 11 الحلقة الأولى: أكواد التصفح سوف نتطرق في هذه الحلقة إلى الأكواد التي تمكننا من التصفح و التنقل داخل الأداة. 1- كود فتح صفحة موقع: WebBrowser3 هو اسم الأداة داخل النموذج Me.WebBrowser3.Navigate ("رابط الصفحة كامل") 2- كود فتح صفحة فارغة: Me.WebBrowser3.Navigate ("about:blank") 3- كود الرجوع للصفحة السابقة: Me.WebBrowser3.GoBack 4- كود الإنتقال للصفحة التالية: Me.WebBrowser3.GoForward 5- كود إعادة تحميل الصفحة: Me.WebBrowser3.Refresh 6- كود إيقاف تحميل الصفحة: Me.WebBrowser3.Stop 7- كود إستخراج رابط الصفحة الحالية: MsgBox Me.WebBrowser3.Document.url و هذا مثال لما تم ذكره في هذه الحلقة webbroser.rar

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

تفضل لك ما طلبت حساب القيمة الاستهلاكية.xlsm

المصنف1.xlsx لوكانت الصور منفصلة عن بعضها اي في كل صفحة صورة واحدة يمكن ان يتم العمل بسرعة اما نا تجد شحص يقوم بقص 5000 صورة فهذا يستغرق وقتا وجهد

احسنت اخى الحبيب @kanory جزاك الله خيرا

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

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

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

السلام عليكم الاخ الوميض الاحمر أرجوا أن يكون المطلوب wameed.accdb

بارك الله فيك اخى الكريم وزادك الله من فضله

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

تمام راح اشوفها لاحقا .. سهران واستاذنك تحياتي

اخي الكريم تم ادخال بعض التعديلات في كود الحماية واضافة كود الغاء الحماية اتنمى ان يكون هذا في مستوى تطلعاتك تحياتي الباس pwd تعديل كود حماية الصفحات-1 (2).xlsm

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

بالتوفيق @wael gaper انت زي اللي متعود على سيارات الديزل تسخن قبل ماتمشي ماتيجي للاكسس زي البنزين شغل وامشي على طول وسيبك من الاكواد الطويله العريضه تحياتي

وعليكم السلام-اخى الكريم وبما انك لم تقم برفع ملف موضح عليه المطلوب بكل دقة وذلك لأنه لا يمكن العمل على التخمين ... فلما لا تقوم بإستخدام خاصية البحث بالمنتدى فقد تكرر طلبك كثير وشوف بنفسك : كود تفقيط الارقام من رقم إلى كتابة تفقيط عربي مميز دالة ( تفقيط ) تحويل الرقم الى نص بالعربي - طول الرقم غير محدود

اذا كنت من اعضاء معهد إدارة المشاريع ، فالمعهد يقدم ثلاثة دورات مجانية للأعضاء Project Management for Beginners Agile in the PMO Business Continuity https://lnkd.in/gpVeYaN https://lnkd.in/ghnuSDT https://lnkd.in/gqA4XF7

جزاك الله كل خير استاذنا الكريم

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

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

بعد اذن استاذنا سليم , ولإثراء الموضوع يمكنك وضع هذه الأكواد فى حدث الصفحة Dim mRg As Range Dim mStr As String Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Not Intersect(Range("A2:D1000"), Target) Is Nothing Then Set mRg = Target.Item(1) mStr = mRg.Value End If End Sub Private Sub Worksheet_Change(ByVal Target As Range) Dim xRg As Range On Error Resume Next Set xRg = Intersect(Range("A2:D1000"), Target) If xRg Is Nothing Then Exit Sub Target.Worksheet.Unprotect Password:="123" If xRg.Value <> mStr Then xRg.Locked = True Target.Worksheet.Protect Password:="123" End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Range("A2:D1000"), Target) Is Nothing Then Set mRg = Target.Item(1) mStr = mRg.Value End If End Sub

تفضل لك ما طلبت-ولكنى اعتقد ان الإختيار من القائمة افضل واسرع من كتابة اول حرف واظن انك لا تحتاج اى حاجة بعد هذا قائمة-منسدلة-بشرطين-حسب-الحرف-الاول (1).xlsm

تفضل

تفضل سباق2.xlsm

تفضل لك ما طلبت قائمة-منسدلة-بشرطين-حسب-الحرف-الاول (1).xlsx

تفضل لك ما طلبت test.xlsx

تفضل سباق.xlsm

تفضل كما ايلغك استاذى طارق له منا كل المحبة والإحترام برنامج مبيعات اكسل.xlsm

هناك كلمة سر على الملف اخى سامى

أهلا بك اخ كريم فى المنتدى عليك برفع الملف

يمكنك مشاهدة هذا الفيديو https://www.youtube.com/watch?v=bUMS_BCF08g

أهلا بك اخ كريم فى المنتدى تفضل ComboBox.xlsm

اخى الكريم فى اخر نسخة مرسلة لحضرتك اخبرتك ان كلمة السر ايضا لمحرر الأكواد هى 123

تفضل لك ما طلبت فلتر2.xlsx

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

تفضل اخى الكريم هذه النسخة ايضا كلمة السر لمحرر الأكواد :123 نظام الحسامي للمخازن-123.xls

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

بسم الله الرحمان الرحيم اليوم لتحميل برنامج الدالفي على الموقع التالي أخوكم في الله المبرمج : مناد سفيان الجزائر.https://www.embarcadero.com/products/delphi

وعليكم السلام ورحمة الله وبركاته اعرض عليك عمل أخي علاء ابوالعلا (الله يعطيه الصحة والعافية ، ورحم الله والديه دنيا وآخرة ان شاء الله ) ، من منتدى الفريق العربي للبرمجة ، بإضافات مني والعمل هو عبارة عن التنقل بين السجلات بعدد معين من السجلات في كل ضغطة زر: المربع رقم 1 هو من عمل أخي علاء ، والمربع رقم 2 من عملي ، مقتبسا فكرة أخي علاء: عملت نموذج مستمر ، واردت السجلات تنزل او تصعد صفحة كاملة (مثل Scroll up down) بطول النموذج ، وهذه النتيجة: إضغط على الصورة للحركة: ولفهم الكود ، رجاء ملاحظة الارقام: ومقارنتها بهذه الاسطر من الكود: وهذا هو الكود: Private Sub cmd_Next_Click() Form_Title_Bar_Height = 405 Form_Navegation_Bar_Height = 405 Call MoveScroll((Me.WindowHeight - Me.FormHeader.Height - (Form_Title_Bar_Height + Form_Navegation_Bar_Height))) End Sub Private Sub cmd_Pre_Click() Form_Title_Bar_Height = 405 Form_Navegation_Bar_Height = 405 Call MoveScroll(-(Me.WindowHeight - Me.FormHeader.Height - (Form_Title_Bar_Height + Form_Navegation_Bar_Height))) End Sub Public Sub MoveScroll(Distance As Long) Me.GoToPage 1, , Distance End Sub جعفر 267.move 10 rec up down.mdb.zip