请问各位 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这个控件吗？可不可以省略掉~!

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