الكاتب الذكي لبناء جملة SQL وبناء جملة DOA مع بناء جمل الشرط كليهما Where MS access 2025

[hanan_ms]

=====================( مرفق وفيديو وصور وبعض الشرح )

 

برنامج او اداة لبناء جمل 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

[Foksh]

أخي الكريم @hanan_ms ، أولا اسمح لي بأن يكون تعليقي أول تعليق في موضوعك هذا ..

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

دعني أبسط لك الأمر ، في أسلوب مسلسلات الكرتون والقنوات الفاضائية التي تخص الأطفال إن كانت غنائية أو كرتونية ، يكون هناك دراسة لعقل الطفل بحيث ان الطفل الطبيعي وللفت انتباهه الى التلفاز يتم انشاء نمط معين يحاكي العقل البشري ( بغض النظر عن العمر ) للفت الإنتباه له بأساليب تقنية علمية واضحة وبسيطة ( تخيل انها كلها في نهايتها كانت بسيطة ) والهدف شد انتباه الطفل لها .

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

 

وشكراً لك على حسن استماعك وقراءتك إن كنت قد وصلت لهذه الجملة  .

[hanan_ms]

اشكرك استاذ @Foksh ☕🌹 مشاركة اللطيفة 

 

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

يهدف للمطورين او المعقدين وهو بسيط للغاية نموذج لا اكثر حاولت الدمج بستيعاب العمل السريع 

 

العنوان لا يكفي ؟ !! 

 

اعلم يوجد نقص في تركيبة وبناء الجمل جرب حاول ان تكمل ؟! يمكن نصل الى استعياب آخر اقصد ثاني 

 

ولا اعلم نظرتك للاستاذي @ابو جودي 🌹❤️☕☕

 

مفهو استنباط الفهم بالدوال وشرحات 

[hanan_ms]

=============================================( صور + مرفق + فيديو )

Update: 🌹

 

ما في مساهم بدالة او كود  

استكمال

 

1-  تحسين مظهر بالترتيب شنو راي  @Foksh 

2- اضافة نسخة الجدول ببناء جملة كود فورية عند التحديد 

2- + اضافة عرض وضع التصميم + جدول + حذف

3- اضافة عرض الجدول المحدد الى وضع الاستعلام لاستخراج جملة الكول كاستنباط ثاني سريع ومختصر

4- تحسن باضافة دوال بوحدة النمطية لعرض رسائل @Moosak ☕🌹😇

- كانت تسبب ببعض التأخير عند الفتح مع زقلله 😂 

دالة 

y_SubTitle As String
Dim v_My_Msg_Type As MsgType
Dim v_My_Bottns As Bottons
Dim v_My_Ar_Eng As language
Dim v_My_Auto_Close As Boolean
Dim v_My_Close_After_Seconds As Double
Public v_My_Response As Response
Public IsMsgFormOpen As Boolean
'===============================( معالجة ظهور الشاشة
' في قسم التصريحات العامة للنموذج
Private Declare PtrSafe Function LockWindowUpdate Lib "user32" (ByVal hwndLock As LongPtr) As Long
Private m_blnFormLoaded As Boolean
Private m_colControls As Collection

' دالة رئيسية قابلة للاستدعاء
Public Function LoadFormSafely(ByVal strname As String) As String
    On Error GoTo ErrorHandler
    Dim strFormName As String
    
    ' الحصول على اسم النموذج بطريقة آمنة
    If Not (Forms(strname) Is Nothing) Then
        strFormName = Forms(strname).name
    Else
        LoadFormSafely = "Error: Not called from a form"
        Exit Function
    End If
    
    ' تهيئة المجموعة
    Set m_colControls = New Collection
    
    ' تعطيل التحديثات المرئية
    LockWindowUpdate Application.hWndAccessApp
   Forms(strname).Painting = False
    
    ' تحميل البيانات بدون تأثيرات مرئية
    If Not RefreshFormDataSilently(strFormName) Then
        LoadFormSafely = "Error: Failed to refresh data"
        Exit Function
    End If
    
    ' تمكين التحديثات
   Forms(strname).Painting = True
    LockWindowUpdate 0
    m_blnFormLoaded = True
    
    LoadFormSafely = "Success: Form " & strFormName & " loaded successfully"
    Exit Function
    
ErrorHandler:
    ' استعادة الإعدادات في حالة حدوث خطأ
    If Not m_colControls Is Nothing Then
        Set m_colControls = Nothing
    End If
    LockWindowUpdate 0
    If Not (Forms(strname) Is Nothing) Then
       Forms(strname).Painting = True
    End If
    LoadFormSafely = "Error: " & Err.Description
End Function

' دالة محسنة لتحديث بيانات النموذج
Private Function RefreshFormDataSilently(strFormName As String) As Boolean
    On Error GoTo ErrorHandler
    Dim ctl As Control
    Dim ctlState As Object
    Dim frm As Form
    
    Set frm = Forms(strFormName)
    
    ' حفظ حالة العناصر
    For Each ctl In frm.Controls
        Set ctlState = CreateObject("Scripting.Dictionary")
        ctlState.Add "Name", ctl.name
        ctlState.Add "Enabled", ctl.Enabled
        ctlState.Add "Locked", ctl.Locked
        ctlState.Add "Visible", ctl.Visible
        If TypeOf ctl Is SubForm Then
            ctlState.Add "SourceObject", ctl.SourceObject
        End If
        m_colControls.Add ctlState, ctl.name
    Next ctl
    
    ' تعطيل العناصر مؤقتاً
    For Each ctl In frm.Controls
        If Not (TypeOf ctl Is Label) And Not (TypeOf ctl Is Image) Then
            ctl.Enabled = False
            ctl.Locked = True
            If TypeOf ctl Is SubForm Then
                ctl.SourceObject = ""
            End If
        End If
    Next ctl
    
    ' تحديث مصدر البيانات
    If frm.RecordSource <> "" Then
        frm.RecordSource = frm.RecordSource
    End If
    
    ' تأخير لضمان الاستقرار
    Dim t As Single
    t = Timer
    Do While Timer < t + 0.2
        DoEvents
    Loop
    
    ' استعادة حالة العناصر
    For Each ctl In frm.Controls
        If IsInCollection(m_colControls, ctl.name) Then
            Set ctlState = m_colControls(ctl.name)
            ctl.Enabled = ctlState("Enabled")
            ctl.Locked = ctlState("Locked")
            ctl.Visible = ctlState("Visible")
            If TypeOf ctl Is SubForm Then
                ctl.SourceObject = ctlState("SourceObject")
            End If
        End If
    Next ctl
    
    RefreshFormDataSilently = True
    Exit Function
    
ErrorHandler:
    RefreshFormDataSilently = False
End Function

' دالة مساعدة للتحقق من وجود عنصر في المجموعة (تم تصحيح اسمها)
Private Function IsInCollection(col As Collection, key As String) As Boolean
    On Error Resume Next
    Dim item As Object
    Set item = col(key)
    IsInCollection = (Err.Number = 0)
    On Error GoTo 0
End Function

'=======================[Main Function]
Public Function MyMsgBox(ByVal strMsg As String, _
                         Optional Title As String = "", _
                         Optional SubTitle As String = "", _
                         Optional Msg_Type As MsgType = 0, _
                         Optional Bottns As Bottons = 0, _
                         Optional Ar_Eng As language = 0, _
                         Optional Auto_Close As Boolean = False, _
                         Optional Close_After_Seconds As Double = 2) As Response
                         '===========================( Chack IF MSGBOX = Error ms access
                         Dim Msgbox_1              As String
                         Dim MsGbOx_2              As String
                         Dim MsGbOx_3              As String
   ' Store Values in Variables
   If Title = "Error Massage !" Then
   Msgbox_1 = strMsg
   MsGbOx_2 = Title
   MsGbOx_3 = SubTitle
   Else
   If Title = "Sand Massage !" Then
   Msgbox_1 = strMsg
   MsGbOx_2 = Title
   MsGbOx_3 = SubTitle
   Else
   Msgbox_1 = DLookup("[MasgPrtThree]", "[tblMassages]", " [IDMasg] =" & strMsg & " ")
   MsGbOx_2 = DLookup("[MasgPrtOne]", "[tblMassages]", " [IDMasg] =" & Title & " ")
   MsGbOx_3 = DLookup("[MasgPrtTow]", "[tblMassages]", " [IDMasg] =" & SubTitle & " ")
   End If
   End If
   
    v_My_Msg = Msgbox_1
    v_My_Title = MsGbOx_2
    v_My_SubTitle = MsGbOx_3
    v_My_Msg_Type = Msg_Type
    v_My_Bottns = Bottns
    v_My_Ar_Eng = Ar_Eng
    v_My_Auto_Close = Auto_Close
    v_My_Close_After_Seconds = Close_After_Seconds

' Open MSG Form
IsMsgFormOpen = True
DoCmd.OpenForm "MyMsgBoxF"

Do Until IsMsgFormOpen = False
    DoEvents
Loop

' Return User Response
MyMsgBox = My_Response

End Function


Public Function My_Msg() As String
    My_Msg = v_My_Msg
End Function

Public Function My_Title() As String
    My_Title = v_My_Title
End Function

Public Function My_SubTitle() As String
    My_SubTitle = v_My_SubTitle
End Function

Public Function My_Msg_Type() As Integer
    My_Msg_Type = v_My_Msg_Type
End Function

Public Function My_Bottns() As Integer
    My_Bottns = v_My_Bottns
End Function

Public Function My_Ar_Eng() As Integer
    My_Ar_Eng = v_My_Ar_Eng
End Function

Public Function My_Auto_Close() As Boolean
    My_Auto_Close = v_My_Auto_Close
End Function

Public Function My_Close_After_Seconds() As Double
    My_Close_After_Seconds = v_My_Close_After_Seconds * 1000
End Function

Public Function My_Response() As Response
    My_Response = v_My_Response
End Function

كود الاستدعاء حدث عند الفتح بسطر واحد

 LoadFormSafely (Me.Form.name)

نتيجة:

7 - اضافة دول واكواد مساعدة

8 +.... والمزيد الشرح المتبقي في الفيديو

الجزء الثاني 

تحميل المرفق 1.8 MB

https://www.mediafire.com/file/nu5sfgvf8dgchmz/Update+14-4-2025+Get_Code_SQL_DOA_2025.rar/file

[Lamyaa]

في 12‏/4‏/2025 at 12:45, Foksh said:

أخي الكريم @hanan_ms ، أولا اسمح لي بأن يكون تعليقي أول تعليق في موضوعك هذا ..

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

دعني أبسط لك الأمر ، في أسلوب مسلسلات الكرتون والقنوات الفاضائية التي تخص الأطفال إن كانت غنائية أو كرتونية ، يكون هناك دراسة لعقل الطفل بحيث ان الطفل الطبيعي وللفت انتباهه الى التلفاز يتم انشاء نمط معين يحاكي العقل البشري ( بغض النظر عن العمر ) للفت الإنتباه له بأساليب تقنية علمية واضحة وبسيطة ( تخيل انها كلها في نهايتها كانت بسيطة ) والهدف شد انتباه الطفل لها .

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

 

وشكراً لك على حسن استماعك وقراءتك إن كنت قد وصلت لهذه الجملة  .

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

إضافة إلى أن أغلب الملفات عن تنزيلها لا تعمل لدي!

 

عموما الشكر لـ hanan_ms على جهوده ومحاولاته.

[hanan_ms]

2 hours ago, Lamyaa said:

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

إضافة إلى أن أغلب الملفات عن تنزيلها لا تعمل لدي!

لان حصل لج لبس بتضارب سياق من موضوع لموضوع آخر اقصد ثاني مثال استاذ @Foksh☕❤️🌹

On 4/12/2025 at 12:45 PM, Foksh said:

بسلاسة وليس بسلاسل

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

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

استاذه @Lamyaa🌹❤️☕☕

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

انا بنيت بعض من مرفقات @Moosak🌹☕ كنت بعدل بنيان بالكامل فحتفظ بعمله اوصلة 

 

طبيعي ما اشتغلة بعض المرفقات السابقة بسبب نسيان تحديث المسار للملفات جل من لا يسهو

 

ومالكم لابسين بين الذكر والانثى 😂

 

استاذه @Lamyaa , استاذ @Foksh , لو تعدلون في المرفق او تعطوني مرفق اكمل عليه المرفق 

لا تنسون المسكين 😂

 

تم تعديل April 14 بواسطه hanan_ms

[Foksh]

عن نفسي ، ليس لدي ما أدلي به لأنه ليس لدي دلو من الأساس 😅 وليس لي حمل على النقاش  .