[asto]

الحل تنشئ تكسات جديدة فوق التكستات الاصلية و تجعلها مخفية

و هذا الكود مثال لمى طلبت أكمله

كود :

Private Sub Command1_Click()
Text9.Visible = True
Text10.Visible = True
Text9.Text = Text1.Text
Text10.Text = Text2.Text
Text1.Visible = False
Text2.Visible = False
On Error Resume Next
Data1.Recordset.AddNew

End Sub

Private Sub Command2_Click()
On Error Resume Next
Text1.Text = Text9.Text
Text2.Text = Text10.Text
Data1.Recordset.Update
End Sub