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

كنت سابقاً قد اعتمدت في محاولة التفعيل عن بعد لبرنامجي على مثل هذه الفكرة ، لذا جرب هذا الكود عله يفيدك Private Sub CommandButton_Click() Dim filePath As String Dim fileContent As String ' تحديد معرف الملف على Google Drive filePath = "https://drive.google.com/uc?export=download&id=1KMBf9MxyB7gnrjev2TXkPUbZDuwXK12i" ' قراءة محتوى الملف fileContent = GetFileContent(filePath) ' وضع قيمة الملف في مربع النص Me.Textbox.Value = fileContent End Sub Function GetFileContent(filePath As String) As String Dim xmlHTTP As Object Set xmlHTTP = CreateObject("MSXML2.ServerXMLHTTP") ' إرسال طلب HTTP للحصول على الملف xmlHTTP.Open "GET", filePath, False xmlHTTP.send ' إرجاع محتوى الملف كنص GetFileContent = xmlHTTP.responseText End Function وحيث أن CommandButton هو اسم الزر في نموذجك. و Textbox هو اسم مربع النص الذي سيتم جلب القيمة له من الملف.

اعرض الملف FACTURIER EXPRESS PRO 2024 - SQLite DataBase FACTURIER EXPLRESS PRO APP.EXCEL SQLite ....COMMENT APPLIQUER UNE APPLICATION GESTION COMMERCIALE EXCEL VBA SQLite صاحب الملف محمد أبوصهيب تمت الاضافه 08 ينا, 2024 الاقسام قسم الإكسيل  

710 + 8 = 718 70+32 = 102 718-102 = 616

مع احترامي للجميع والاستاذ موسى و ابو جودي اصبح chatgpt لا غنى عنه في شركات البرمجة فو نظرت الى vscode اصبح Copilot اساسي للبرمجين في تكميل وكتابة الاكواد .وهو ليس مجاني بل اشتراكه 10دولارات وانا شخصيا استخدمت الشات جي بي تي في بايثون وفلاتر وكان مساعدا ممتازا حيث استطعت ان ابني تطبيق موبايل بسرعة وجودة عالية ولعل اهم اسباب عدم الحصول على النتائج المطلوبة منه يعود اسباب الاول عدم استخدام اللغة الانجليزية الثاني عدم السؤال بطريقة الخوارزمية عند طلب كود برمجي فيكون السؤال كانك تبرمج ليس بالكود وانما بالكلام اما صعوبة فيجوال بيسك فهذا ليس بصحيح فتصنيف اصعب لغات البرمجة ليس من ضمنها الفيجوال بيسك فهي باعتبار لغة متجه نحو الانقراض فلذلك استخدمت مايكروسوفت بايثون في اكسيل للاستفاد منه في تحليل البيانات والتنبؤ ومستقبلا في كشط البيانات من الانترنت فلو نظرة الى هذا المثال في كيفية استفادة المايكروسوفت اكسيل من بايثون https://www.youtube.com/watch?v=2e0lVb0QbMA

بارك الله فيك استاذ محمد وزادك الله من فضله

اشكرك استاذى foksh واكتفى بهذا القدر من الاجابة ـ واليك التأشير على افضل اجابة

ابشر .

جزاك الله كل الخير عزيزي Foksh تم إحضار البيانات بامتياز... وفقك الله وزادك علما وفهما ألف ألف شكر يا الغالي

في محاولة سابقة مني ، حاولت إنشاء قاعدة بيانات تحاكي ChatGPT بإن يتم طرح سؤال ، ويتم الرد على السؤال داخل النموذج 😅 لا أريد أن أشجع أو أحبط آمالي ؛ لكن المشروع كان ولا زال يحتاج عمل ومتابعة حتى يتم إنتاجه .. سأحاول طرح الموضوع في موضوع مستقل ومشاركة الأساتذة خبراتهم للخروج بـ AccessGPT 😁

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

وعليكم السلام ورحمة الله تعالى وبركاته ربما هدا ما تقصد Sub test() Dim i As Long, lRow As Long lRow = Cells(Rows.Count, "A").End(xlUp).Row With Application .ScreenUpdating = False For i = lRow To 2 Step -1 If IsError(.Match(0, Range("A" & i & ":D" & i), 0)) Then Rows(i).EntireRow.Delete End If Next .ScreenUpdating = True End With End Sub ملف.xlsb

تفضل أخي @Abdelaziz Osman محاولتي ،عند فتح الفورم بتحصل زر تصحيح الترقيم كما بالشرح ووافني بالرد . ترتيب الترقيم-1.rar

تفضل أخي @Abdelaziz Osman 🙂 جعلته حقل محسوب غير مرتبط بالجدول وذلك لكي يعدل الترقيم نفسه حتى لو تم حذف السجلات .. وهذه قيمة الحقل : =IIf(IsNull([معرف]);"";DCount("*";"[Talabat]";"[معرف]<=" & [معرف])) ترتيب الترقيم.accdb

جرب هدا الحل هل يناسبك هيثم -2.xlsx

سؤالك غير واضح لاكن ربما هدا ما تقصد =IFERROR(1/(1/MAXIFS($G$3:G1000;$A$3:$A1000;"="&J12;$E$3:$E1000;"="&"*وارد*"));"")