صالح حمادي

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

السلام عليكم رمضان كريم و ربي يتقبل منا و منكم الصلاة و الصيام و القيام إن شاء الله لقد قمت بتسجيل مكتبة microsoft communications control, version 6.0 في اكسس 2010 و 2016 و ينجح التسجيل و تظهر ضمن القائمة لكن عند إضافتها للنموذج تظهر الرسالة التالية: لا يعتمدmicrosoft access عنصر تحكم activex هذا بحث في المنتدى في بعض المشاركات لكن دون جدوى هل من طريقة لاستخدام هذه المكتبة في اكسس 2010 أو مكتبة أخرى تعوضها

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

سؤالك غير واضح أخي حاول تشرح أكثر المطلوب. كيف البحث في الفورم و ليس الفورم المستقل؟