بحث مخصص من جوجل فى أوفيسنا
Custom Search
|
-
Posts
1,862 -
تاريخ الانضمام
-
تاريخ اخر زياره
-
Days Won
50
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
كل منشورات العضو Moosak
-
الذكاء الإصطناعي chatGPT في انشاء اكواد VBA
Moosak replied to دروب مبرمج's topic in قسم الأكسيس Access
الثورة الحالية هي في كيفية كتابة ال Prompt ( الطلب ) بشكل سليم للتعامل مع أدوات الذكاء الاصطناعي ، وهناك الآن مواقع مخصصة تساعدك على كتابته بشكل مناسب، فكلما كان توصيف الطلب بشكل سليم كانت النتائج أدق 🙂 شخصيا استفدت كثيرا من هذه الأدوات في كتابة العديد من الأكواد ( البسيطة أو المعقدة ) ، ولا غنى بالذكاء عن تعلم الأساسيات .. 🙂 -
اختصار الاكواد بوحدة نمطية واستدعاءها عند الحاجه
Moosak replied to Hamtoooo's topic in قسم الأكسيس Access
تفضل مرفقك أخي @Hamtoooo بعد تطبيق تعليمات معلمنا العود @ابوخليل 🙂 نفس الرسائل والأزرار .. وألق نظرة على محتويات الوحدة النمطية وكذلك جرب تغيير النصوص فيها ولاحظ الفرق في النموذج .. وهذا محتوى الوحدة النمطية : Option Compare Database Option Explicit Public Function Default_MSGBOX() 'الرسالة الموحدة MsgBox "هذه الرسالة موحدة", , Default_Title End Function Public Function Default_Title() As String ' العنوان الموحد Default_Title = "( اوفيسنا | الاصدار 3.8 )" End Function Public Function Default_Text() As String ' نص ثابت يكتب في الوحدة النمطية Default_Text = "هذا النص تم استدعائه من الوحدة نمطية" End Function Public Function DeleteBtn_Click() 'أمر عام يوضع على أزرار الحذف لحذف السجلات On Error GoTo Err_DeleteBtn_Click DoCmd.RunCommand acCmdSelectRecord DoCmd.RunCommand acCmdDeleteRecord Exit_DeleteBtn_Click: Exit Function Err_DeleteBtn_Click: MsgBox Err.Description Resume Exit_DeleteBtn_Click End Function استدعاء الاكواد.accdb -
شكرا لك عمي @ابو جودي على الفكرة والطرح .. 🙂 أنا فعلا عندي معاناة في السرعة حتى لما أعمل دالة وأدخل فيها عائلة ال D .. فبجرب نفس الدوال بس بال Recordset وأشوف الفرق .. على فكرة أستاذ @jo_2010 الإجابة المباشرة على سؤالك كانت في هذا الرد 😅☝
-
الذكاء الإصطناعي chatGPT في انشاء اكواد VBA
Moosak replied to دروب مبرمج's topic in قسم الأكسيس Access
أنا عملت عليه أكواد معقدة للاستيراد من الأكسل للأكسس مثلا وبشروط معقدة ومتداخلة ونجحت في الحصول على البنية الأساسية للكود ولكني عدلت عليه عدة أمور لحد ما وصلت لحاجتي .. هو أنت في النهاية فعلا لازم تكون فاهم أيضا مش حافظ وبس علشان تعرف كيف تحصل اللي تريده 🙂 -
شكرا لك يا عمي المعقد 😅✋🏻 يعني في كل مكان أريد فيه استجلاب قيمة من الجداول ( في الحقول الغير منضمة) كبديل لدالة DSum مثلا يحتاج أعمل له دالة خاصة بيه بالشكل ذا !!!!؟؟؟ ليه كل التعقيد ده يا عم الناس 😅🌼
-
الذكاء الإصطناعي chatGPT في انشاء اكواد VBA
Moosak replied to دروب مبرمج's topic in قسم الأكسيس Access
ليس دائما .. في أغلب الأحيان النتيجة تعتمد على كيفية كتابتك للسؤال أو الطلب .. وأحيانا بسبب أن الموضوع معقد بالنسبة للأكسس أو يعتمد على مكتبات خارجية .. وفي كثير من الأحيان يعطيك أكواد متقنة 🙂 -
طيب يا عم @ابو جودي الجميل .. 🙂 .. السؤال الأهم كان هو ذا 😁☝ إجابتك على هذا السؤال أهم من السؤال السابق 😄🌼
-
حبيبنا @ابو جودي شكرا لك على هذا التنبيه .. 🙂🌹 ولزيادة الإفادة : كيف تستخدم جمل SQL كمصدر لحقل غير منظم في النموذج ؟ ..... أو كحقل محسوب في الاستعلام ؟ أليست دوال DLookup وأخواتها عبارة عن جمل SQL مبسطة على شكل Function في الواقع ؟
-
تشريف من صاحب الأفكار العبقرية المجنونة .. والعقلية الفذة 😊🌹 روووح ياشيخ ربنا يفتحلك أبواب العلوم والأرزاق 😇🤲🏼 ومن ثم أيه المكتبة المعمورة دي مش عارفها 🙃😁✌
- 14 replies
-
- الكاتب الذكي
- دوال المجال
-
(و3 أكثر)
موسوم بكلمه :
-
في نفس المكان أكتب : 50 and 80 مع الأخذ في الإعتبار نصيحة شايبنا الكريم @شايب 🙂
-
ضع هذا السطر أول الأوامر في زر الحذف : If Me.Admin = true Then Exit Sub 🙂
-
شكرا لك دكتور جمال 🙂 هدية مقبولة ، وبرنامج شامل ، فيه الكثير من الفوائد 🌹🌷
-
كل عام وأنت بخير أختي صفاء 🙂 🌷
-
مطلوب استخراج اسم الجدول من مصدر بيانات صف مربع تحرير
Moosak replied to ابوخليل's topic in قسم الأكسيس Access
أرى أن جبهات أخرى فتحت .. 😅 .. الفرار .. الفرار لا تستعجلوا الحكم 😅😎✋🏻 -
مطلوب استخراج اسم الجدول من مصدر بيانات صف مربع تحرير
Moosak replied to ابوخليل's topic in قسم الأكسيس Access
أما أنا الفكرة ضربت في راسي وسنبدأها إن شاء الله .. خليك مستعد 😏💪🏻 -
مطلوب استخراج اسم الجدول من مصدر بيانات صف مربع تحرير
Moosak replied to ابوخليل's topic in قسم الأكسيس Access
الحبيب والرفيق الجميل @ابو جودي 😊 دخلتني في منافسة أنا غير مستعد لها .. وجئتني على حين غرة 😂 لااااااااااا .. وبعد أنت الحكم !!! 😜 ولكن أيش رايك تعمل لنا منافسة شريفة وتفتح موضوع منفصل يكون فيه تحدي معين .. ومدة تنفيذ محددة ( علشان يمدينا نذاكر كويس 😁 ) ويكون عمنا @ابوخليل هو الحكم 😎؟؟ قلت أيييييييييييه ؟؟ 😏 -
مطلوب استخراج اسم الجدول من مصدر بيانات صف مربع تحرير
Moosak replied to ابوخليل's topic in قسم الأكسيس Access
هاك الجواب يا سيدي 🙂 : Public Function GetTableNameFromComboBox(cbo As ComboBox) As String On Error Resume Next Dim strTableName As String, x As Integer, y As String Dim ctl As Control Set ctl = cbo If Not ctl.RowSourceType = "" And Not ctl.RowSource Like "SELECT*" Then Exit Function End If If ctl.RowSourceType = "Table/Query" Then strTableName = Mid(ctl.RowSource, InStr(ctl.RowSource, "FROM ") + 5) For x = 1 To Len(strTableName) If Mid(strTableName, x, 1) = ";" Or Mid(strTableName, x, 1) = " " Then GoTo NextStep y = y & Mid(strTableName, x, 1) Next NextStep: strTableName = y ElseIf ctl.RowSourceType = "Value List" Then strTableName = "Value List" End If GetTableNameFromComboBox = strTableName End Function DataUp1.rar -
مطلوب استخراج اسم الجدول من مصدر بيانات صف مربع تحرير
Moosak replied to ابوخليل's topic in قسم الأكسيس Access
الكود الحالي يخدم القضية الحالية بعينها 🙂 أيضا ماذا لو كان مصدر الاستعلام جدولين أو أكثر ؟!! وماذا لو كان هناك شروط في جملة الاستعلام where ؟!! وماذا لو .... وماذا لو .... ؟؟؟؟؟ هناك احتمالات كثيرة .... 😁 وكل مشكلة ولها حل .. 🙂 -
مطلوب استخراج اسم الجدول من مصدر بيانات صف مربع تحرير
Moosak replied to ابوخليل's topic in قسم الأكسيس Access
أسأل الله العظيم لك طول العمر مع حسن العمل مع سلامة البدن يارب 🙂 تفضل عمي @ابوخليل استخدمت هذه الدالة لاستخراج اسم الجدول من جملة ال SQL : Function ExtractTableNameFromSQL(strSQL As String) As String Dim strTableName As String ' استخرج اسم الجدول من الجملة SQL strTableName = Mid(strSQL, InStr(strSQL, "FROM ") + 5) ' يتم استخراج الجزء بعد الكلمة "FROM" strTableName = Left(strTableName, InStr(strTableName, ";") - 1) ' يتم استخراج الجزء قبل الفاصلة المنقوطة ' اعرض اسم الجدول ExtractTableNameFromSQL = strTableName End Function DatabaseUp8.rar -
وعليكم السلام ورحمة الله وبركاته.. ما شاء الله تبارك الرحمن .. 🌹🌷 شغل معلمين يحتاجله 10 سطل قهوة عشان تجيب كل التركيز اللي في العالم لراسك 😅👌 هدخله المكتبه ازاي ده ؟؟!!! 😂 شكر لك باش مهندس ومنتظرين التكملة 👍🏼😊
- 5 replies
-
- 1
-
- شخابيط ابو جودى
- شخابيط
-
(و5 أكثر)
موسوم بكلمه :
-
-
كفو عليك عمي أبو خليل .. 😊🌼🌹 أيش رايك تعلمنا كيف نصيدها .. بدل ما ناكلها جاهزة 😁😅🖐🏻🌼
-
وعليكم السلام ورحمة الله وبركاته.. ضع مربعي نص في النموذج (من) (إلى) استخدم استعلام وضع تحت حقل ال ID المعيار : Between Forms!FormName!TextBoxFrom and Forms!FormName!TextBoxTo بحيث يكون التقرير يأخذ بياناته من نفس الاستعلام.
- 1 reply
-
- 1