• 0
mr.thrwat

مطلوب كود لزر تعديل السجلات المحفوظة

سؤال

السادة الأعضاء الكرام أرجو المساعدة فى كتابة كود لزر يقوم بحفظ التعديلات على السجلات مع العلم أننى قمت بكتابة كود زر الحفظ بهذا الشكل 

Dim strSQL1 As String
strSQL1 = ("INSERT INTO Employees ( [picfile], [id]) VALUES('" & Me.Controls("ImagePath") & "','" & Me.Controls("id") & "'")
CurrentDb.Execute strSQL1, dbFailOnError
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

 

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

1 إجابات على هذا السؤال .

  • 0

الاستعلام الاجرائي الذي أشرت إليه يستخدم لإلحاق البيانات..

عدل الصيغة إلى استعلام التحديث كما يلي 

Dim strSQL1 As String
strSQL1 = "UPDATE Employees SET [picfile]='" & Me.ImagePath & "', id=" & Me.id & " WHERE id=" & ME.id
CurrentDb.Execute strSQL1, dbFailOnError
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .