تعديل السجل بعبارة SQL

[فتى الوادي]

السلام عليكم ....

ما هي الصيغة المطلوبة لتعديل سجل وذلك باستخدام عبارة SQL

جزاكم الله خير .

[محمد طاهر عرفه]

في حالة الحقل الرقمي

لتحديث قيمة الي 100

DoCmd.RunSQL "UPDATE [tablename] SET [tablename].[fieldname] = " & 100 & " where(((tablename.fieldname)=[Forms]![formname]![fieldname]));"

فى حالة الحقل النصي مطلوب تحديثه الي fff

DoCmd.RunSQL "UPDATE [tablename] SET [tablename].[fieldname] = '" & "fff" & "' where(((tablename.fieldname)=[Forms]![formname]![fieldname]));"

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

Private Sub CmdChangePass_Click()
 Dim x, xx As String
 x = InputBox("Enter your current password", "Change your password - Step 1")

 If x = Me.PASS Then
     xx = InputBox("Enter your new password", "Change your password  - Step 2")
  DoCmd.SetWarnings False
     DoCmd.RunSQL "UPDATE [USER] SET [USER].[Password] = '" & Trim(xx) & "' where(((USER.Initials)=[Forms]![Start]![users]));"
     MsgBox "password changed !! ", vbExclamation, "Confimation message"
  DoCmd.SetWarnings True
 Else
  MsgBox "Sorry wrong password", vbCritical, "Incorrect Current Password"
  Exit Sub
 End If

End Sub

[فتى الوادي]

السلام عليكم ...

أخي وأستاذي محمد طاهر ... غفر الله لي ولك ....

هب أحظى بمثال على ما ذكرت

[محمد طاهر عرفه]

المثال

password.zip

[فتى الوادي]

أستاذنا محمد طاهر ....

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

تحياتي وتشكراتي ... والسلام عليكم .