زاد المثابر للحصول على أسماء العناصر في أكسس | أداة رائعة للمطورين 3.0

 :: ما الجديد في النسخة 3.0 ::

تم إضافة خانة في الأخير خاصة بالجداول فقط .. :
وهي عند اختيار الجدول يتم كتابة جمل SQL أستعلامات أساسية للجدول المختار مع ذكر أسماء حقول الجدول مع مراعاة أنواع الحقول وكتابتها بشكل سليم  في الكود ..

طبعا الأداة ستعطيك الجمل الاستعلامية الأربعة  SELECT, INSERT INTO, UPDATE ,DELETE 

والكود الناتج جاهز للصقه مباشرة في محرر الأكواد VBA .. عليك فقط أن تقوم ببعض التعديلات الطفيفة كإزالة الحقول الزائدة أو الغير مستهدفة وكذلك تحديد الشرط Where في حال التحديث أو الحذف مثلا .

:: لقطة للنسخة 3.0 ::

وهذا مثال على جمل ال SQL الناتجة :

' SELECT statement
Dim sqlSelect As String
sqlSelect = "SELECT [ID], [First Name], [Last Name], [Gender], [Age], [Email], [Phone], [Education], [Occupation], [Salary], [StaffNumber], [IsActive], [DOB]"
sqlSelect = sqlSelect & vbCrLf & " FROM [SampleTable]"
'============================================================
' INSERT INTO statement
Dim sqlInsert As String
sqlInsert = "INSERT INTO [SampleTable] ([ID], [First Name], [Last Name], [Gender], [Age], [Email], [Phone], [Education], [Occupation], [Salary], [StaffNumber], [IsActive], [DOB])"
sqlInsert = sqlInsert & vbCrLf & " VALUES (" & var_ID & ", '" & var_FirstName & "', '" & var_LastName & "', '" & var_Gender & "', " & var_Age & ", '" & var_Email & "', '" & var_Phone & "', '" & var_Education & "', '" & var_Occupation & "', " & var_Salary & ", " & var_StaffNumber & ", " & IIf(var_IsActive, -1, 0)  & ", #" & var_DOB & "#)"
'============================================================
' UPDATE statement
Dim sqlUpdate As String
sqlUpdate = "UPDATE [SampleTable]"
sqlUpdate = sqlUpdate & vbCrLf & " SET [ID] = " & var_ID & ", [First Name] = '" & var_FirstName & "', [Last Name] = '" & var_LastName & "', [Gender] = '" & var_Gender & "', [Age] = " & var_Age & ", [Email] = '" & var_Email & "', [Phone] = '" & var_Phone & "', [Education] = '" & var_Education & "', [Occupation] = '" & var_Occupation & "', [Salary] = " & var_Salary & ", [StaffNumber] = " & var_StaffNumber & ", [IsActive] = " & IIf(var_IsActive, -1, 0)  & ", [DOB] = #" & var_DOB & "#"
sqlUpdate = sqlUpdate & vbCrLf & " WHERE [SomeField] = SomeValue"
'============================================================
' DELETE statement
Dim sqlDelete As String
sqlDelete = "DELETE FROM [SampleTable]"
sqlDelete = sqlDelete & vbCrLf & " WHERE [SomeField] = SomeValue"