سؤال عن كتابة الاستعلام داخل محرر الاكواد سؤال: حول الخطأ فى كتابة الاستعلام داخل محرر الأكواد

[ابو جودي]

السلام عليكم ورحمة الله وبركاته

ما الخطأ فى كتابة الاستعلام   QueryCreatAdmin  داخل محرر الأكواد على طريقة الاستاذ @jjafferr .

SecurityLevel group Questions.mdb

[jjafferr]

وعليكم السلام 🙂

 

ايه يا شيخ ، مالو جعفر 🙂

 

جعفر

[ابو جودي]

 مش فاهم

[jjafferr]

27 دقائق مضت, ابا جودى said:

ما الخطأ فى كتابة الاستعلام   QueryCreatAdmin  داخل محرر الأكواد على طريقة الاستاذ @jjafferr 

قصدك بطريقتي في تفكيك اسطر الكود وتبسيطها الى اسطر ، لأن الكود هذا مو خط يدي 🙂

 

الجزء الاول من كودك ناقص ، وبعد التعديل ، 

ويجب ان يكون هكذا:

Private Sub CreatAdmin()

mySQL = "INSERT INTO tbllvlUsers"
mySQL = mySQL & "( UserID,"      '1 UserID
mySQL = mySQL & "lvlGroupID,"    '2 GroupID
mySQL = mySQL & "UName,"         '3 UserName
mySQL = mySQL & "Password,"      '4 Password
mySQL = mySQL & "Fname,"         '5 FullName
mySQL = mySQL & "lvlQ ,"         '6 Questions
mySQL = mySQL & "lvlAnsr,"       '7 Answers
mySQL = mySQL & "Umail )"        '8 EmailUsers

'Debug.Print mySQL

mySQL = mySQL & " SELECT "
mySQL = mySQL & " '1' AS UserID,"                                  '1 UserID
mySQL = mySQL & " '2' AS lvlGroupID,"                              '2 GroupID
mySQL = mySQL & " Encrypt(KeyEnde(),'admin') AS UName,"            '3 UserName
mySQL = mySQL & " Encrypt(KeyEnde(),'admin') AS Password,"         '4 Password
mySQL = mySQL & " Encrypt(KeyEnde(),'admin') AS Fname,"            '5 FullName
mySQL = mySQL & " Encrypt(KeyEnde(),'admin') AS lvlQ,"             '6 Questions
mySQL = mySQL & " Encrypt(KeyEnde(),'admin') AS lvlAnsr,"          '7 Answers
mySQL = mySQL & " Encrypt(KeyEnde(),'admin@admin.com') AS Umail;"  '8 EmailUsers

'Debug.Print mySQL

DoCmd.SetWarnings False
DoCmd.RunSQL mySQL
DoCmd.SetWarnings True

MsgBox "تم إنشاء المستخدم المسئول عن قاعدة البيانات" & vbCrLf & _
  "اسم المستخدم هو :   (admin)" & vbCrLf & _
  "كلمة المرور هى    :   (admin)", _
  vbOKOnly, _
  "تبيـــه هــــام"


End Sub

 

جعفر

[ابو جودي]

وما هاذا السطر من الكود
 

Debug.Print mySQL

 

انا وصلت له من شرح حضرتك يا استاذ @jjafferr
من هذا الموضوع

 

تم تعديل أبريل 21, 2019 بواسطه ابا جودى

[ابو جودي]

تمام انا اسف لحضرتك يا استاذ @jjafferr

كده فهمت انا غلط فى ايه 

[jjafferr]

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

وجميل لما نمشي مع الكود سطر بسطر ، بحيث الكود يخبرنا بقيم المتغيرات ، اثناؤ عمل الكود :

 

 

 

جعفر