الغاء الحفظ التلقائي

عملت قاعدة بيانات وربطتها عن طريق الكود التالي

Dim WithEvents RS As Recordset

Dim mbChangedByCode As Boolean

Dim mvBookMark As Variant

Dim mbEditFlag As Boolean

Dim mbAddNewFlag As Boolean

Dim mbDataChanged As BooleanPrivate Sub Form_Load()

Dim db As Connection

Set db = New Connection

db.CursorLocation = adUseClient

db.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=C:po.mdb;"

Set RS = New Recordset

RS.Open "select adh,adof,aml,blb,hp1,hp2,hp3,hp4,mp,Name,ng,ofbt1,ofp1,ofp2,ofp3,ofp4,ofpt2,ofpt3,ofpt4 from Phone", db, adOpenStatic, adLockOptimistic

mbDataChanged = False

Set text1.DataSource = RS

text1.DataField = "name"

Set Text2.DataSource = RS

Text2.DataField = "hp1"

Set Text4.DataSource = RS

Text4.DataField = "ng"

End Sub

عند تعديل اي حقل يتم الحفظ تلقاءي كيف يمكن الغاء الحفظ