请问各位 Private Sub Command1_Click()
CommonDialog1.ShowColor
On Error GoTo ErrDeal
Data1.Recordset.Edit
ErrDeal:
If Err.Number = 3021 Then Data1.Recordset.AddNew
Data1.Recordset.Fields("FormBC") = CommonDialog1.Color
Data1.Recordset.Update
Form1.BackColor = CommonDialog1.Color
End Sub
Private Sub Form_Activate()
On Error Resume Next
Form1.BackColor = Data1.Recordset.Fields("FormBC")
Resume
End Sub
Private Sub Form_Load()
Data1.DatabaseName = "C:\PrgSet.mdb"
Data1.RecordSource = "ColorSet"
End Sub
这段如果改成储存 text1 text2里的内容改怎么改
我上面有几个代码还没学过所以不知道内容
请各位大哥大姐帮帮忙~!

Data1.Recordset.Fields("Form1") = text1.text
Data1.Recordset.Fields("Form2") = text2.text
Data1.Recordset.Update

先谢谢这位不知道是哥哥还是姐姐的了
(哥哥)或(姐姐)必须用到data1这个控件吗？可不可以省略掉~!

可以不用data控件.
选用其它的如ado控件.

如果你还想问.能不能不用而省略掉.
那你先告诉我.能不能不用浏览器浏览网页?

晕我忘记因该可以把这个data控件隐藏起来吧，
谢谢版主拉~！别生气，因为我没接触过这代码，所以才会为这么苯的问题

笑死.....

别笑哦~！我会害羞的，~!

新手，学习中，支持