البحث في الموقع

=====================( مرفق وفيديو وصور وبعض الشرح ) برنامج او اداة لبناء جمل SQL , DOA 1- اضافة توقيع للكود 2- اظهار كافة الحقول والمفتاح الاساسي 1-2 3- الاستعلامات اضاهار الحقو والمفتاح الاساسي وتحديد الجدولين بالاسم 1_2 4- اضافة دوال مجال بعد اذن استاذ @Moosak 🌹❤️☕ 5- اضافة مسارات النماذج والتقارير الى الفرعيات 6789... +++ ---------------------------------------------- 6- اضافة شروحات وتستطيع اضافة كود ثم عرضة بسهولة ------------------------------------------------ كان مرفق بأسم Personnel_affairs في احدى مواضيع بنيان الجداول خطأ بسبب تفرقة الخوادم لنك 2 بس طريقة ثانية فكنت بكمل سويت موضوع ثاني Index Tab To TabX ----------------------------------------------------------------------------------------------------------- احتاج دعمكم للاستكمال ليس من الشرط الدخول الى ركام الدوال ابني من المعطيات بناء جملة مثال على الاستخراج SQL ╔════════════════════╗ ║ ███╗ ███╗ ║ ║ ████╗ ████║ ║ ║ ██╔████╔██║s_hanan║ ║ ██║╚██╔╝██║ ║ ║ ██║ ╚═╝ ██║ ║ ╚═══╩═══════╩══╝ On Error GoTo Ops Dim strsql As String strsql = Delete * from DmnFunBldrT WHERE [FieldSize] = #2025/06/09# AND [ConditionType] = #2026/02/02# AND [Form_Index_ID_Table] = DCount("[Dile]","[Deil_Devloper]"," [ID] Is Not Null ") _ & SELECT * FROM [Query_Now] WHERE [FieldSize] = #2025/06/09# AND [ConditionType] = #2026/02/02# AND [Form_Index_ID_Table] = DCount("[Dile]","[Deil_Devloper]"," [ID] Is Not Null ");" CurrentDb.Execute strsql , dbFailOnError Me.Requery '-----------------------------------------------------------------------( For Error Code Only Copy And No Can use Function = Here Error :) X exit_Ops: Exit Sub Ops: MsgBox "حدث خطأ: & Err.Description, vbCritical Resume exit_Ops مثال DOA / \ \ / / \ \ \ _____________ _ |=============|/A\ | | U/ |_____________|_/ \ / \_________/ Dim DB As DAO.Database Dim RS As DAO.Recordset Dim FLD As DAO.Field Dim DBC As DAO.Database Dim RSC As DAO.Recordset Dim FLDC As DAO.Field On Error GoTo ErrorHandler Dim FPath As String FPath = If Dir(FPath) <> " Then Set db = DBEngine.OpenDatabase ( FPath,False, True,;PWD=234344 ) Dim FPath2 As String FPath2 = skjgksgjk kjskgaka If Dir(FPath2) <> " Then Set DBC = DBEngine.OpenDatabase ( FPath2,False, True,;PWD=Forms![Add_Filed=Control]![ST] ) ' فتح Recordset strSQL = "SELECT [FieldName], [FieldType] FROM [Tablet_Now] WHERE [FieldSize] = #2025/06/09# AND [ConditionType] = #2026/02/02# AND [Form_Index_ID_Table] = DCount("[Dile]","[Deil_Devloper]"," [ID] Is Not Null ")" INNER JOIN [Box_INFO_DOA_SQL] ON [DmnFunBldrT].[ID] = [Box_INFO_DOA_SQL].[ID] WHERE SELECT * FROM [Query_Now] WHERE [FieldSize] = #2025/06/09# AND [ConditionType] = #2026/02/02# AND [Form_Index_ID_Table] = DCount("[Dile]","[Deil_Devloper]"," [ID] Is Not Null ") ORDER BY رقم القرار") ' معالجة النتائج ' معالجة الحقل [And_Or] If Not IsNull(rs.Fields![And_Or]) Then rs.Fields![And_Or] = "--اكتب الكود هنا--" End If ' معالجة الحقل [CondCbo] If Not IsNull(rs.Fields![CondCbo]) Then rs.Fields![CondCbo] = "--اكتب الكود هنا--" End If ' معالجة الحقل [DomainTxt] If Not IsNull(rs.Fields![DomainTxt]) Then rs.Fields![DomainTxt] = "--اكتب الكود هنا--" End If ' معالجة الحقل [FieldCbo] If Not IsNull(rs.Fields![FieldCbo]) Then rs.Fields![FieldCbo] = "--اكتب الكود هنا--" End If ' معالجة الحقل [And_Or] من الجدول الثاني If Not IsNull(rs.Fields![And_Or]) Then rs.Fields![And_Or] = "--اكتب الكود هنا--" End If ' معالجة الحقل [DataTypeCbo] من الجدول الثاني If Not IsNull(rs.Fields![DataTypeCbo]) Then rs.Fields![DataTypeCbo] = "--اكتب الكود هنا--" End If ' معالجة الحقل [DomainTxt] من الجدول الثاني If Not IsNull(rs.Fields![DomainTxt]) Then rs.Fields![DomainTxt] = "--اكتب الكود هنا--" End If ' معالجة الحقل [End_Parentheses] من الجدول الثاني If Not IsNull(rs.Fields![End_Parentheses]) Then rs.Fields![End_Parentheses] = "--اكتب الكود هنا--" End If ' معالجة الحقل [FormCbo] من الجدول الثاني If Not IsNull(rs.Fields![FormCbo]) Then rs.Fields![FormCbo] = "--اكتب الكود هنا--" End If =' " & # Forms![Index_ID_Table]![Label25] # & " ' " =' " & Forms![INFO]![k2] & " ' " =' " & Me.k2 & " ' " rs.Filde!ConditionType = Forms![Add_Filed=Control]![ST] rs.Filde!ConditionType = Forms![Add_Where_SQL]![ST] rs.Filde!ConditionType = Forms![Index_ID_Table]![] rs.Filde!ConditionType = Forms![Index_ID_Table]![Label25] rs.Filde!ConditionType = Me.ST rs.Filde!FieldName = Forms![Index_ID_Table]![Label25] rs.Filde!FieldType = Me.Label25 rs.Filde!IsKey <> me.RT rs.Filde!mkan_scan = Forms![INFO]![k2] rs.Filde!mkan_scan = Me.k2 Rs.Close db.Close RSC.Close DBC.Close Set RS = Nothing Set DB = Nothing Set RSC = Nothing Set DBC = Nothing Else MsgBox قاعدة البيانات غير موجوده End IF Else MsgBox قاعدة البيانات غير موجوده End IF Exit Sub ErrorHandler: If Err.Number =3031 then MsgBox " كلمت المرور خاطأ تأكد من كلمت المرور للاتصال بقاعدة بيانات خارجية ") MsgBox "حدث خطأ: " & Err.Description, vbCritical Resume Next ' تنظيف الموارد If Not rs Is Nothing Then If rs.State = 1 Then rs.Close Set rs = Nothing End If Set db = Nothing اعتذر عدم اكماله ضغوطات وحاله صحيه تسمم غذائي ☕ وفي مميزات لم اشرحا استكمل البقية في فيديوا تحميل المرفق 1.8 MB https://www.mediafire.com/file/0fyiynev0lkldi2/Get_Code_SQL_DOA_2025.rar/file

=============================================( صور + مرفق + فيديو ) Update: 🌹 طلب استاذ @Foksh❤️🌹☕ تبيني اسويه عداد بيلر 😂 دورك ورني ابداعاتك استاذي @ابو جودي❤️🌹☕☕ اعتذر الآخر جاهز فيه كل الدول جاهز بس شوي تعديل وبرفع بس ضم مشروعك مسأل الواجهة تسجيل دخول والصلاحيات والتحكم جاهزه لو تعطني نظرة على هذا المرفق من غير طحن كل الدوال بدالة لو بدالة مفصلين بضم استكمال مع طلب المساعده 1- متوفر فيه معلومات وشرح طريقة انشاء شبكة محلية طيارة عن طريق كمبيوترك 3 خطوات 2- تعديل الدول لاحتساب الرسم البياني متقدم 3- اضافة تحديدث واختيار بدور 4- اضافة مكان مخصص للشبكة المحلية بالاول تسجل اسم الكمبيوترك الي بشبكة جهازك باول زر 2- اضافة تلقائية سريعة 6- حذف الملفات بالشبكة الاحتياطية مع خيار اخذ نسخة احتياطية 7- تجربة تسجيل دخول متقدم تعرف حجم القاعدة وتربط وتشتغل في الشبكة المحلية 8- ادوات اعادت الاتصال بشبكة المحلية مع غفلها او تنشيطها 9- رموز اسفل البار في حالة الاتصال بالانترنت مع حالة اتصالك الى جهاز آخر مو حاسوبكاقصد عند حاسوب اخر 10 - جعل بار في الاعلى بحرك بسيطه 11- استخدام القائم في الواجهة الفكرة اخذ اي مشروع في اكسس وحوله الى قواعد بيانات الميزه عند اعادة الربط يربط الكل في القاعد ويصفي القديم من غير كتابة اسم الجداول مع فحص متقدم سويت مذكرة مع قاعدة شوف الفيديو بسرعة يعني برنامج افراح وصالات او محاسبة كمل اشوي واستخدم معاها البرنامج او الاداة خل كل كمبيوتر في حالة المسئول نسخ كل القواعد لي ملفة ويربط فيهم التحديث بضغطة زر في طرق اسهل من غير تشعيب بعض من التصحيحات واستكمال ========================================= الاستكمال قريبا V1.6_GiveMe_File_Out_Size_File.rar

ارجو فتح الملف المرفق بشكل آلي بمجرد ان يحين الوقت المدرج في الملف .. مع الشكر idea.xlsx