صالح حمادي

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

الأمر بسيط إذن قم بتغيير الكود الذي يولد رقم الهارد بالكود الذي تريده.

العفو أستاذنا حاولت جاهدا الإستفادة منها مع صيغة mde و accde و لكنني فشلت

السلام عليكم الكود التالي يعطيني عدد الأسطر البرمجية في محرر الأكواد: 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

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

مفتاح المنتج هو نفسه رقم السريال الذي تضعه في البداية

اطلع على هذا الموضوع

السلام عليكم أخي أبو الحسن أنا سوف أشرح لك الفكرة و أعطيك مثال و أنت تحكم بها كما تشاء أولا : تطبيق الأكسل يحتوي على مصنف و كل مصنف يحتوي على عدة أوراق -شيت- و كل شيت به الكثير من الخلايا الهدف هو كيفية الوصول إلى بيانات خلية في ملف أكسل. و إذا تحقق هذا الأمر البقية سهلة تقوم بتعميمها على جميع الخلايا. الكود التالي يمكننا من استخراخ بيانات الخلية A3 في ملف أكسل اسمه 2021 موجود بجنب القاعدة: 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 & "\2021.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 åæ ÑÞã ÇáæÑÞÉ Ýí ãáÝ ÇáÃßÓá MsgBox xlWs.Cells(3, 2).Value ' 3 ÑÞã ÇáÓØÑ æ 1 åí ÑÞã ÇáÚãæÏ xlWB.Save xlApp.Quit Set xlWs = Nothing Set xlWB = Nothing Set xlApp = Nothing MsgBox "ÇäÊåÊ ÇáãåãÉ ÈäÌÇÍ" ثانيا : لتسهيل العملية أكثر نحتاج كود يستخرج أسماء الشيت الموجودة الكود التالي يفتح لك مربع حوار لتقوم بتحديد ملف الأكسل و من ثم يستخرج أسماء الأوراق الموجودة به و يحفظها في قائمة منسدلة اسمها list On Error Resume Next Dim xlApp1 As Object 'Excel.Application Dim xlWB1 As Object 'Excel.Workbook Dim txtpath As String With Application.FileDialog(3) .Title = "Choose File" .Filters.Clear .Filters.Add "Excel Files", "*.xls,*.xlsx" '.Filters.Add "Excel Files", "*.csv" .AllowMultiSelect = False .InitialFileName = "" If .Show = -1 Then txtpath = .SelectedItems(1) ''-------------------- End If End With Set xlApp1 = CreateObject("Excel.Application") xlApp1.Visible = False 'True Set xlWB1 = xlApp1.Workbooks.Open(txtpath) Me.list1.RowSource = "" For i = 1 To xlWB1.sheets.Count Me.list1.AddItem xlWB1.sheets(i).Name ''-------------------------------- Next i xlApp1.Quit Set xlWB1 = Nothing Set xlApp1 = Nothing

السلام عليكم دكتورنا هذا الكود يقوم بالتصدير لمف أكسل جديد دون التحكم في شكله و هذا الكود يمكننا من إرسال بيانات إلى ملف أكسل موجود لأي خلية و في أي ورقة نشاء 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 هل هذا ما تريده أخي أم عندك طلب آخر

السلام عليكم هذه من بين المواضيع الموجودة بالمنتدى و هذا آخر

هذه الخاصية غير متوفر في الأكسس إلا إن وضعت كود خاص لكل تقرير

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

أهلين أخي هناك بعض التعديلات في طريقة الإعلان عن الفانكش بين 64 و 32 ابحث في المنتدى سوف تجد هذه الطريقة

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

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

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

نفس الطريقة الموضحة في الأعلى

أهلين و مرحبا بك يا غالي مشاركتك تزيدنا شرفا و فخرا. و أعلم علم اليقين أنني أحبك في الله و فيك بارك الله أستاذنا

العفو أخي. و أنا كذلك أخبرني بها صديقي @AlwaZeeR منذ مدة

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

كل مبرمج و طريقته الخاصة في التحديث و أكثر الطرق استخداما و أسرعها و أنجعها في مختلف قواعد البيانات و ليس الأكسس فقط حسب علمي هي استخدام أوامر sql أنا استخدمها في جميع برامجي و هي رائعة جدا. تابع الرابط التالي:

السلام عليكم و رحمة الله تعالى و بركاته لقد وضعت طريقتي في التحديث في هذا الموضوع و به كل حلول المشاكل التي تكلمتم عنها إن شاء الله

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

شكرا جزيلا إخوتي الكرام لقد وجدت الأداة المناسبة في هذا الرابط https://answers.microsoft.com/en-us/windows/forum/windows_10-files/missing-file-mscomm32ocx/996447c3-3c1d-4d81-ac58-aa8284c5ed82