الكاتب الذكي لبناء جملة 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 ☕🌹 مشاركة اللطيفة 

 

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

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

 

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

 

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

 

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

 

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