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

السلام عليكم الكود التالي يعطيني عدد الأسطر البرمجية في محرر الأكواد: MsgBox Me.Module.CountOfLines ' حساب عدد الأسطر الكود التالي يعطي نص الأوامر البرمجية الموجودة من السطر 1 حتى السطر 6: MsgBox Me.Module.Lines(1, 6) 'استخراج الأكواد الموجودة الكود التالي يقوم بإضافة سطر أو أسطر برمجية جديدة: Me.Module.InsertText "MsgBox 2020" ' إضافة أكواد جديدة الكود التالي يقوم بتغيير السطر رقم 4 بسطر آخر: Me.Module.ReplaceLine 4, "Dim x as Integer" ' تغيير سطر معين بسطر جديد الكود التالي يقوم بحذف الأسطر البرمجية 3 أسطر بداية من السطر رقم 4: Me.Module.DeleteLines 4, 3

السلام عليكم و رحمة الله تعالى و بركاته من بين أكثر الأسئلة الموجودة في المنتدى هي حول التعامل مع الأكسل من الأكسس سواءا إستيراد أو تصدير. و لما لهذا الموضوع من أهمية قررت إضافة موضوع أشرح فيه جميع حالات التعامل بين الأكسس و الأكسل. و يبقى لنا كمرجع يرد منه من يشاء إن شاء الله. أولا: شرح بعض المصطلحات الأكسل هو تطبيق Excel.Application يقوم بفتح أو عرض المصنف Workbook و المصنف يحتوي على عدة أوراق WorkSheets و الشيت يحتوي على الكثير من الأعمدة Columns و الأسطر Rows تقاطع كل سطر و عمود يشكل لنا خلية Cells و كل مجموعة خلايا نحددها تسمى نطاق range -*- تذكرو هذه المصطلحات جيدا. سوف نعتمد عليها في هذا الموضوع إن شاء الله -*- ثانيا: إنشاء ملف أكسل جديد لإنشاء ملف أكسل سوف نقوم بإنشاء تطبيق أكسل Excel.Application و نضيف له مصنف جديد Workbook به ثلاث أوراق sheets و نستطيع إضافة شيت آخر أو أكثر لهذا المصنف ثم نقوم بحفظ هذا الملف بمسار محدد و هذا هو الكود: Dim xlApp As Object 'Excel.Application Dim xlWB As Object 'Excel.Workbook Dim xlWs As Object 'Excel.Sheet Set xlApp = CreateObject("Excel.Application") Set xlWB = xlApp.Workbooks.Add ' إضافة مصنف جديد Set xlWs = xlWB.Worksheets.Add ' إضافة شيت جديد xlWB.SaveAs CurrentProject.Path & "\2026.xlsx" ' حفظ الملف باسم 2026 xlApp.Quit Set xlWs = Nothing Set xlWB = Nothing Set xlApp = Nothing MsgBox "انتهت المهمة بنجاح" ثالثا: التصدير لملف أكسل موجود مسبقا سوف نقوم بإرسال بيانات ثابتة لخلايا محددة بملف الأكسل الذي أنشأناه في الأعلى و نستطيع بنفس الطريقة إرسال بيانات من جدول أو إستعلام من خلال الكود التالي: Dim xlApp As Object 'Excel.Application Dim xlWB As Object 'Excel.Workbook Dim xlWs As Object 'Excel.Sheet Dim curPath As String curPath = CurrentProject.Path & "\2026.xlsx" 'مسار ملف الأكسل Set xlApp = CreateObject("Excel.Application") xlApp.Visible = False ' إخفاء التطبيق Set xlWB = xlApp.Workbooks.Open(curPath) Set xlWs = xlWB.Worksheets(1) ' 1 هو رقم الورقة في ملف الأكسل xlWs.Cells(1, 1).Value = "الاسم" xlWs.Cells(2, 1).Value = "ابوخليل" ' 2 رقم السطر و 1 هو رقم العمود xlWs.Cells(3, 1).Value = "جعفر" xlWs.Cells(1, 2).Value = "العنوان" xlWs.Cells(2, 2).Value = "الدمام" xlWs.Cells(3, 2).Value = "مسقط" xlWs.Cells(1, 3).Value = "الهاتف" xlWs.Cells(2, 3).Value = "011245632" xlWs.Cells(3, 3).Value = "033156513" xlWB.Save xlApp.Quit Set xlWs = Nothing Set xlWB = Nothing Set xlApp = Nothing MsgBox "انتهت المهمة بنجاح" التحكم في الأكسل.accdb

تفضل التعديل اخي الكريم و اغتذر عن التأخير لأن الموضوع اخذ وقت لأجل اضبط كود تشفير البيانات مجرد حيلة عشان يترسل النص مشفر و يرجع صحيح مع تغيير المحرر الى Msxml2.XMLHTTP.6.0 cang _lang_ar_en.accdb

السلام عليكم و رحمة الله تعالى و بركاته: لقد وعدت أخي و أستاذي @jjafferr بهدية تعجبه إن شاء الله. أولا: أنا شغوف بعمل الإضافات التي تنقص برنامج الأكسس فبعد عمل إضافة شريط الطباعة للتقرير أداة إضافة شريط القوائم لنماذج ها أنا اليوم أقدم لكم برنامجا آخر و هو "برنامج التحزيم" ثانيا: شرح البرنامج 1- نقوم بتسجيل اسم ملف التثبيت 2-نقوم بتسجيل اسم البرنامج 3- تسجيل رقم السريال 4- نضغط على الزر و نقوم بإضافة ملف البرنامج 5- نضغط على الزر و نختار أيقونة البرنامج 6- نضغط على الزر و نختار مرفقات البرنامج ثم نضغط على موافق يقوم البرنامج بإنشاء ملف التنصيب بصيغة accde ملاحظة: ملأ جميع البيانات إجباري فقط المرفقات ليس إجباري شرح طريقة التنصيب: و هذا هو البرنامج: برنامج التحزيم exe.rar

السلام عليكم اساتذتنا الافاضل قديما اذكر عندما كنا نستخدم اكسس 2003 كان هناك خيار ضمن ادوات اكتف اكس بحيث نستطيع ادراج رزنامة الى نموذج اكسس الان استخدم اكسس 2019 مفعلة مدى الحياة ومحتاج جدا لادارج الرزنامة في احد برامجي الغريب انني لم اجدها ضمن قائمة اكتف اكس هل هناك حل لهذا الموضوع ؟؟ الله يجزيكم الخير

برنامج يمكنك من متابعة السيارات بالشركه سواء الزيت او البنزين يارب ينال اعجابكم الباسوورد 2545 1918844418_.accdb

اخي جعفر بالنسبة للمكتبة هذي ما استخدمتها اضفتها عشان اجري بعض التجارب لكنها غير مستخدمة يمكن ازالتها بالنسبة للتشفير و هذا سبب التأخير ارسال و استقبال النص الإنجليزي كان بصورة ممتازة لكن ارسال النص العربي كان فيه مشكلة كان يرسل بحروف و رموز لم يستطع المتصفح التعرف عليها طبعا المشكلة في لغة المتصفح أو الجهاز و للأسف ما عرفت اتوصل لترميز اللغة الصحيح فأضطريت اشوف طريقة ثانية ارسل فيها النص العربي بصورة سليمة فأكتشفت ان الرابط لما يتم تمرر من خلاله نص يتم تشفير النص و هذا كان هو الحل رابط بنص غير مشفر https://translate.google.com.my/?hl=ar&tab=rT&sl=ar&tl=en&text=مرحبا&op=translate و هذا الرابط مع النص المشفر و بهذي الطريقة نكون بإستطاعتنا تمرير النص العربي مهما اختلف الترميز https://translate.google.com.my/?hl=ar&tab=rT&sl=ar&tl=en&text=%D9%85%D8%B1%D8%AD%D8%A8%D8%A7&op=translate النص العربي مرحبا = %D9%85%D8%B1%D8%AD%D8%A8%D8%A7

طيب جرب هذا التعديل DATA14.zip

ربما هكذا Sub ÍÐÝ() Range("A6:B220").Select Selection.Delete Range("A6:B220").Formula = "=COUNTA(B6:B220)" End Sub

حددت نفس النطاق في ملف الاكسل المرفق لكن اعطيني نسخة من ملف الاكسل الي استخدمته

تفضل: If alaishtiratat = "مطابق للشروط" Or alaishtiratat = "مستثنى من الشروط" Then cmd_reject.Enabled = False cmd_accept.Enabled = True Else cmd_reject.Enabled = True cmd_accept.Enabled = False End If

أخي الكريم SEMO.Pa3x عندما قمت بالاضافة على الكود مستثنى من الشروط لانها متوافقة مع مطابق للشروط لم بتم تفعيل الازرار الا زر واحد فقط الاعتذار فأين المشكلة Then "مستثنى من الشروط" & "مطابق للشروط" = If alaishtirata cmd_reject.Enabled = False cmd_accept.Enabled = True Else cmd_reject.Enabled = True cmd_accept.Enabled = False End If End Sub NM_DATE3.accdb

السلام عليكم اعادة صيغة الارقام.xlsx

ههههههه لم أرى البلد إلا الآن فقط بإذن الله أنا الآن على الهاتف. لما أفتح الكمبيوتر سوف أضعه

تفضل هذه المشاركة يابو الحسن DATA14.zip

عليكم السلام ورحمة الله وبركاته.. تفضل: If alaishtiratat = "مطابق للشروط" Then cmd_reject.Enabled = False cmd_accept.Enabled = True Else cmd_reject.Enabled = True cmd_accept.Enabled = False End If غيرت أسماء الأزرار للقبول والرفض بـ cmd_accept , cmd_reject NM_DATE1.accdb

السلام عليكم دكتورنا هذا الكود يقوم بالتصدير لمف أكسل جديد دون التحكم في شكله و هذا الكود يمكننا من إرسال بيانات إلى ملف أكسل موجود لأي خلية و في أي ورقة نشاء On Error Resume Next Dim xlApp As Object 'Excel.Application Dim xlWB As Object 'Excel.Workbook Dim xlWs As Object 'Excel.Sheet Dim curPath As String curPath = CurrentProject.Path & "\1988.xlsx" 'مسار ملف الأكسل 'open excel template Set xlApp = CreateObject("Excel.Application") xlApp.Visible = False 'True Set xlWB = xlApp.Workbooks.Open(curPath) Set xlWs = xlWB.Worksheets(1) ' 1 هو رقم الورقة في ملف الأكسل xlWs.Cells(3, 2).Value = "2020/2021" ' 3 رقم السطر و 2 هي رقم العمود xlWB.Save xlApp.Quit Set xlWs = Nothing Set xlWB = Nothing Set xlApp = Nothing MsgBox "انتهت المهمة بنجاح"

السلام عليكم أستاذ جعفر حياك الله أظن أن الأخ الكريم يريد التعديل على الأكواد الموجود في vbe باستخدام كود برمجي بعد إصابة جهازي بفيروس فدية قمت بالعمل على هذا الموضوع و هو: - إستخراج الأكواد الموجودة - التعديل على سطر معين - إضافة سطر برمجي و كلها من خلال أكواد VBA سواءا من داخل القاعدة نفسها أو من قاعدة أخرى لكنها لم تعمل معي مع صيغة MDE و ACCDE هل هذا ما تريده أخي أم عندك طلب آخر

الشرف كل الشرف 01067176151 جمال دغيدى

تفضل ترحيل (2).xlsm

السلام عليكم ورحمة الله وبركاته فكرة الحماية تستطيع ان تكتب في الكود على اي جدول يكون به تاريخ كتاريخ الفاتورة او السند او اذا كان عندك جدول حركة عام ستكتب بشرط ان هذا التاريخ يكون اقل من تاريخ محدد مثلا 15/6/2021 المستخدم بمجرد ما يدخل مستند بعد هذا التاريخ يتم اقفال البرنامج بالتوفيق https://wayprograms.blogspot.com/

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

جرب المرفق xxxxxxxx.xlsm

بعد تغيير النطاق في معادلة sumif Alyosr IncomingsTest2.xlsx

فضلا جرب المرفق استخراج رقم من نص.xlsx

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

السلام عليكم أخي الكريم أتمني أن أقوم بهذا العمل ولكن ضيق وقتي يمنعني سأدلك علي الرابط التالي http://office.microsoft.com/client/helppreview14.aspx?AssetId=HP010342366&lcid=1025&NS=EXCEL&Version=14&respos=0&CTT=1&queryid=d4caafb1-1430-491e-b57b-a801c7193bd1 ستجد شرح مفصل لكافة جوانب الجداول المحورية وقد عنونها الشارح في النقاط التالية التعامل مع قائمة حقول PivotTable طريقة عمل قائمة حقول PivotTable إرشادات لنقل الحقول في قائمة حقول PivotTable تغيير طريقة عرض قائمة حقول PivotTable إضافة حقول إلى PivotTable أو PivotChart إضافة الحقول التي تريد عرضها إضافة عدة نسخ من حقل في ناحية القيم تصفية البيانات قبل إضافة الحقول إعادة ترتيب حقول في PivotTable أو PivotChart إزالة حقول من PivotTable أو PivotChart التبديل بين التحديث التلقائي والتحديث اليدوي لتخطيط التقرير يعيبها أن ترجمتها للغة العربية ركيكة ولكنك ستفهم ماتريد ثم انتظر منك أنت أن تعد موضوعا متميزا عن الجداول المحورية إن شاء الله

السلام عليكم ورحمة الله في اكسل 2007 و2010 يمكن اضافة اوامر النص الى كلام الى شريط أدوات الوصول السريع. او الى علامة تبويب جديدة في اكسل 2010. في الملف المرفق , شريط ادوات لكسل 2010 في علامة التبويب – كلام - توجد خمسة اوامر لتكلم الخلايا قبل اضافة (استيراد) شريط الادوات المرفق يفضل حفظ (تصدير) شريط الادوات السابق للرجوع اليه عند الحاجة اولاعادة الشريط الى حالة السابقة شريط الادوات المرفق خاص بالنسخة العربية ولا اعلم امكانية استيراده لنسخ بلغات اخرى. تحياتي تخصيصات Excel.rar

السلام عليكم حسب ما أعلم أنه لايمكن ذلك للغة العربية لكن عموما النطق عن طريق التالي لو إكسل 2003 1- ظلل الخلايا المطلوب نطقها 2- من قائمة Tools 3- Speech 4- Show text to speech toolbar 5- إضغط علي اول ايكونة عالشمال لو إكسل 2007 فلاأعلمها

السلام عليكم ورحمة الله وبركاته جهاز السنترال جهاز صغير موجود في مكاتب الاتصال وظيفته توصيل اكثر من خط تليفون علي جهاز واحد وياتي مع جهاز السنترال كابل يوصل به وبالكمبيوتر ، وقمت بالفعل بالتوصيلهما ببعضهما . ولكن المشكلة تكمن في : * من امكانيات جهاز السنترال انه لو وصل بطابعة printer فانه بعد اجراء اي مكالمة تليفونية من احد الخطوط المتصله به فانه يقوم بطباعة ورقم بها رقم التيليفون ، ومدة المكالمة ، هذه المعلومات من كتالوج الجهاز * ولكن اذا وصلته مباشرة بالكمبيوتر ماذا سيحدث ، هل سيتم انشاء ملف txt ويوضع بها تلك المعلومات !!! سؤالي هذا بسبب انني شاهدت برنامج في مكاتب الاتصال يقوم بعد اتمام اي مكالمة تليفونية بطباعة علي شاشة الكمبيوتر رقم التليفون ، والمدة ، والسعر اتمني افادتي وجزاكم الله خيراً

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

الاخوه الكرام اصدقاء المنتدى هناك جدول بيانات المدرسين ، وجدول ايام الاسبوع ، وجدول الحصص(فصول) كيف اطبع جدول لحصص المدرس (يظهر فيها الفصول) في تقرير ومن نفس البيانات كيف اطبع جدول الحصص لكل فصل يظهر به اسماء المدرسين بدل المواد فما هى الجداول المتاحة وما هى العلاقة بينها وكيف اضعها فى نموذج ادخال

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

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

بسم الله الرحمن الرحيم الاخوة الافاضل جزاكم الله خيرا لدى قاعد بيانات كبيرة به علاقات ، اريد اعادة الترقيم التلقائى للفواتير ، فكيف يتم التعديل واعادة الترقيم إلى 1 من البداية جزاكم الله خيرا

[ALIGN=center]السلام عليكم ورحمة الله وبركاته صباح الخير عليكم جميعا مادام هذي أول مشاركة فأحب اشيد بالعمل الجبار الذي قام به الاخ محمد طاهر في بناء هذا الصرح بعدما ابدع هو ومن حوله من الاخوة الافاضل في المنتدى العربي للبرمجة واهنئكم على هذا المنتدى المميز جدا اعذروني على طرح استفسار مع أول مشاركة :$ في الملف المرفق في نموذج ( تسعيرة ) لدي عدة حقول سوف يضاف فيها اسماء الاصناف ولقد ربطت كل صنف برقم لكن المشكلة انني لما اضع رقم الصنف في اول حقل تأتي جميع الحقول بنفس الرقم ( اعرف انني سميت جميع الحقول بنفس الاسم ومن الطبيعي ان يأتون بمثل المحتوى ) لكن ماهو الحل ؟؟ :( لجعل كل سطر مستقل لوحده هذا شق من السؤال والسؤال الثاني : هناك قانون القيمة الاجمالية = القيمة الفردية × الكمية ولقد وضعته في حدث ( afterupdate) لكن لم يفلح معي فكيف اجعل الحقل ( القيمة الاجمالية تظهر بمجرد ادخال القيمة الفردية والكمية ) واخر شق في السؤال : لدي الحقل الاخير بمسمى الاجمالي وهو مجموع الحقول الخاصة بالقيمة الاجمالية ( لكنني لم اعرف كيف اخرج القيمة الاجمالية فكيف سوف اضع قانون الاجمالي :( ) لكم التحية اخوتي وانتظر اجابتكم على اسئلتي ...

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته عند استعمالي للدالة Dlookup في مثالين مستقلين , الأول يظهر رسالة خطأ وقت التشغيل رقم 3464 ونصها (نوع البيانات غير متطابق في تعبير المعايير) علما أنني استخدمت متغيرا من نوع variant وسيطا بين الدالة وعنصر التحكم وأما المثال الثاني فيظهر رسالة خطأ وقت التشغيل رقم 2465 ونصها (تعذر على microsoft access العثور على الحقل "l" المشار ‘ليه في التعبير الذي استخدمته) علما انني ليس عندي حقل "l" ولم أشر اليه فلماذا لم تعمل معي بالشكل الصحيح , علما انها عملت معي بدون مشاكل عندا لااستخدم الشرط(الفقرة الثالثة من الدالة) والسلام عليكم

لدي برنامج لشؤون الموظفين به نموذج فرعي اقوم بتسجيل تاريخ الاجازة وعدد ايام الاجازة وتاريخ العوده بعد الاجازة كيف اجعل الاستعلام يعطيني كشف لآخر الإجازات للموظفين مع العلم اني جربت last ولكن لا فائده حيث يكون هنالك تداخل فيمكن ان يعطيني آخر تاريخ لموظف مع آخر عدد ايام الاجازة لموظف آخر فهل هناك تعبير يربط تاريخ الاجازة بعدد ايام الاجازة بتاريخ العوده في الاستعلام ام ماذا يكون الحل برأيكم ؟

شكراً لكم على هذه المشاركات البنائة: الموضوع هو لدي مشكلة اريد ان احلها فقال لي احد الاصدقاء ان الحل هو بربط الجداول والاستعلامات !!! فعلى هذا الاساس ارسلت لكم تلك الكشاركة فانا ارى انه علي ان اشرح الموضوع من اساسه ومن بدايته : الموضوع هو لدي جدول فيه بيانات دخول مواد مع اسعارها ( الدخول هو للمتجر ) وجدول آخر فيه بيانات الخروج من المتجر مع الاسعار فقمت بوضع فورم لكل جدول على حدى وفي كل فورك وضعت sum في هذه السم المجموع للداخل في هذا الفورم ومن ثم المجموع للخارج في الفورم الاخر الطلب هو الصافي حاصل طرح هذا المجموع بذلك فكيف احل الامر والف شكر للتجاوب ملاحظة : اين اجد رابط نقل البيانات من الاكسل الى الاكسس بشكل اوتوماتيكي ولكم الشكر