Error "You must use the dbSeeChanges option with OpenRecordSet..." แก้ยังไงคะ

[mtaccess]

ขอรบกวนสอบถามค่ะ พอดีมีการย้าย Database จาก Access เป็น SQL ติดปัญหาตอนแก้ไขข้อมูลค่ะ แสดง error ตามรูปนี้ค่ะ รบกวนแนะนำด้วยค่ะ


ตัวอย่างโค้ด update ค่ะ ปรกติใช้ Database Access คำสั่งนี้ทำงานได้ปรกติ พอเปลี่ยนเป็น SQL โดยการทำลิงค์เข้ามาแล้วไม่ได้ค่ะ

โค๊ด: [Select]

Private Sub cmdEdit_Click()
   If Me.txtID.Tag & "" = "" Then
                MsgBox "¡ÃسÒàÅ×Í¡¢éÍÁÙÅ·Õèµéͧ¡ÒÃá¡éä¢"
   Else
                CurrentDb.Execute "UPDATE dbo_Register " & _
                    " SET dbo_Register.CardID='" & Me.txtCardID & "', dbo_Register.Title='" & Me.comboTitle & "', dbo_Register.TitleEn='" & Me.comboTitleEn & "', dbo_Register.Name='" & Me.txtName & "', dbo_Register.NameEn='" & Me.txtNameEn & "', dbo_Register.Surname='" & Me.txtSurname & "', dbo_Register.SurnameEn='" & Me.txtSurnameEn & "', dbo_Register.Sex='" & Me.comboSex.Column(1) & "', dbo_Register.Sex_Ramco='" & Me.txtSex & "', dbo_Register.Blood='" & Me.comboBlood & "', dbo_Register.BirthDate='" & Me.txtBirthDate & "'" & _
                    ", dbo_Register.ADDRNO='" & Me.txtADDRNO & "', dbo_Register.ADDRMU='" & Me.txtADDRMU & "', dbo_Register.ADDRTR='" & Me.txtADDRTR & "', dbo_Register.ADDRSOI='" & Me.txtADDRSOI & "', dbo_Register.ADDRRD='" & Me.txtADDRRD & "', dbo_Register.ADDRTB='" & Me.txtADDRTB & "', dbo_Register.ADDRAP='" & Me.txtADDRAP & "', dbo_Register.ADDRCW='" & Me.txtADDRCW & "', dbo_Register.ADDRZIPCODE='" & Me.txtADDRZIPCODE & "', dbo_Register.Age='" & Me.txtCalcAge & "'" & _
                    ", dbo_Register.TrainingStartDate='" & Me.txtTrainingStartDate & "', dbo_Register.MaritalStatus='" & Me.txtMarital & "', dbo_Register.MilitaryStatus='" & Me.comboMilitary & "', dbo_Register.Disability='" & Me.comboDisability & "', dbo_Register.Ethnicity='" & Me.txtEthnicity & "'" & _
                    ", dbo_Register.Country='" & Me.comboCountry & "', dbo_Register.HomeState='" & Me.txtHomeState & "', dbo_Register.ModifiedBy='" & Me.txtLogin & "', dbo_Register.ModifiedDate=Now()" & _
                    " WHERE dbo_Register.ID=" & Me.txtID.Tag
                    MsgBox "á¡é䢢éÍÁÙÅàÃÕºÃéÍÂáÅéÇ"
End If
cmdCancel_Click
frmRegistersubform.Form.Requery
End Sub

[สันติสุข]

เพิ่มเติมต่อท้ายเป็น CurrentDB.Execute xxxxxxx , dbFailOnError Or dbSeeChanges ครับ

[Kxess]

ทุกคำสั่ง CurrentDb.Execute ต้องมี dbSeeChanges ต่อท้ายครับ

เช่น CurrentDb.Execute "DELETE * from Customers WHERE Customer_ID = " & CurrentC_ID, dbSeeChanges

[mtaccess]

ทำได้แล้วค่ะ ขอบคุณมากๆนะคะ