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

السلام عليكم 🙂 الاستعلام الذي عملته انت : . بدون ربط بين الجداول ، وهذا معناه ، انك تطلب سجلات عددها : 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

حسنا استاذ جعفر

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

أحسن الله اليك أخي الحبيب @احمد الفلاحجي بارك الله فيك ....

شكرا جزيلا استاذ وبارك الله بيك الله يكثر من امثالك الله يحفظ احبابك ويرحم امواتك

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

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

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

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

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

السلام عليكم 🙂 1. تعديل في محله ، وبدون ملاحظات 🙂 2. انا تعاملي قليل مع نذه الامور 🙂 جعفر

أريد تحويل قاعدة البيانات المرفقة إلى صيغة accde لكن للأسف يتم الرفض .. Library.rar

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

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

العفو تحت امرك لا شكر على واجب الحمد لله ان الافكار عجبتك

اخى @husseinharby هذا لانك لم تقم بجميع التعديلات المطلوبه فالكود يعتمد على التاج او العلامه افتح الجدول revision وانظر اليه ستجد به سجلات الان قم بالتعديل على الحقول اللتى تريدها باضافه القيمه Audit كما بالصوره تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق De55sktop.rar

احي العزيز اتفضل اتمنى يكون المطلوب تحياتي Sub_2.accdb

تفضل اخي الكريم الصلاحيات المستخدمين.rar تحياني

كون لا يوجد كود ليتم تفعيله يمكن ذلك عن طريق التنسيق إضافة كود الدوائر الحمراء وكود التظليل (1).xlsb

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

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

بعد اذن استاذنا سليم , ولإثراء الموضوع يمكنك وضع هذه الأكواد فى حدث الصفحة 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

الشكر لله ثم لاخواننا واساتذتنا جزاهم الله خيرا افتح نموذج frmSearch وان شاء الله يكون ما طلبت بالتوفيق ان شاء الله مسير المرتبات النسخة الاخيرة.accdb

الحلقة السادسة: تابع لدرس التعامل مع الجداول في صفحة ويب في الدرس الماضي قمنا بالتعامل مع جدول له خاصية id و في هذا الجدول سوف نتعلم كيفية التعامل مع الجداول التي ليس لها خاصية id أو name سوف نعتمد في هذا الدرس على خاصية Tagname التطبيق سوف يكون على صفحة ويكيبيديا: https://mawdoo3.com/جميع_دول_العالم_وعواصمها 1- كود حساب عدد الجدول في الصفحة: MsgBox WebBrowser3.Document.getElementsByTagName("table").Length 2- كود حساب عدد الخلايا في الجدول: MsgBox WebBrowser3.Document.getElementsByTagName("table").Item(0).cells.Length 3- كود حساب عدد الصفوف في الجدول: MsgBox WebBrowser3.Document.getElementsByTagName("table").Item(0).rows.Length 4- كود استخراج بيانات خلية في الجدول: MsgBox WebBrowser3.Document.getElementsByTagName("table").Item(0).rows(1).cells(1).innerText 5- كود ارسال بيانات إلى خلية في الجدول: WebBrowser3.Document.getElementsByTagName("table").Item(0).rows(5).cells(0).innerText = "salah" ملاحظة: المقصود بـ item(0) i هو الجدول الأول الأزرار داخل الإطار الأحمر هي الخاصة بأكواد هذا الدرس قبل البدئ إضغط على زر فتح صفحة التجربة لفتح الصفحة أمامك webbroser.rar

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

تفضل

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

أهلا بك اخ كريم فى المنتدى تفضل الحل بمعادلات المصفوفة بمعنى لابد من الضغط على Ctrl+Shift+Enter وليس Enter فقط بارك الله فيك 1Excel_hr.xls

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

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

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

تفضل تم التعديل ComboBox.xlsm

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

تفضل اخى الكريم PRODUCTITY NEW1.xls

تفضل اخى الكريم هذه النسخة ايضا كلمة السر لمحرر الأكواد :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