خطاي 3426

[mahmood_s]

با سلام خدمت اساتيد

در برنامه ام به مشكل تازه اي برخوردم

بعد از ايجاد ركورد جديد و ثبت اطلاعات در زمان آپديت كردن خطاي ذيل رو ميده


Run-time error '3426':
This action was cancelled by an associated object.
:


اينم كد هاي برنامه ام هست اگه ممكنه راهنمايي بفرماييد



Private Sub Command1_Click()
Frame1.Enabled = True
Data1.Recordset.AddNew
MaskEdBox1.Text = Dat1
MaskEdBox2.Text = Format(Hour(Now), "00") & ":" & Format(Minute(Now), "00")
MaskEdBox1.SetFocus
SendKeys "{home}+{end}"
Text1 = "اتاق "
Text3 = "هتل "
End Sub



Private Sub Command2_Click()

Data1.Recordset.Update
Command1.SetFocus
Frame1.Enabled = False
Data3.Refresh

End Sub

[mormorbaba]

اينجوري نمي شه
پروژه تون آپ كنين .