如何将未绑定文本框的内容增加到表中

louisegrade

这个要如何
让按钮实现其功能


请各位大师傅帮忙～

鱼儿游游

2003 打不开

louisegrade

回复 鱼儿游游 的帖子

现在换成2003可以打开的了

caoguangyao

不明白您好要达到什么目的

louisegrade

回复 caoguangyao 的帖子

额。。。就是想在上边的文本框里填内容  ，下面的子窗体中就出现上边填的内容。
这么说 能明白吗？
我这个人比较 笨。不大会说话。。不好意思

caoguangyao

“保存”的单击事件中加入代码
Private Sub Command10_Click()
On Error GoTo Err_Command10_Click
Dim str As String
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
str = "select * from 表2"
rs.Open str, CurrentProject.Connection, adOpenKeyset, adLockOptimistic

If IsNull(Me.日期) Then
    MsgBox "日期-不能为空", , "错误"
    Me.日期.SetFocus
    Exit Sub
ElseIf IsNull(Me.消费分类) Then
    MsgBox "消费分类-不能为空", , "错误"
    Me.消费分类.SetFocus
    Exit Sub
ElseIf IsNull(Me.Text6) Then
    MsgBox "金额-不能为空", , "错误"
    Me.Text6.SetFocus
    Exit Sub
End If

If MsgBox("确定要保存吗？", vbYesNo, "保存前确认") = vbYes Then
    rs.AddNew
        rs!日期 = Me.日期
        rs!消费分类 = Me.消费分类
        rs!金额 = Me.Text6
    rs.Update
    MsgBox Me.消费分类.Column(1) & " 已保存"
    Me.[表2 子窗体].Requery
Else
    MsgBox "已取消保存"
End If

rs.Close
Set rs = Nothing
Exit_Command10_Click:
    Exit Sub
Err_Command10_Click:
    MsgBox Err.Description
    Resume Exit_Command10_Click
End Sub

louisegrade

回复 caoguangyao 的帖子

十分感谢。我这就试试看。
再次感谢。

caoguangyao

你示例中还未引用“Microsoft ActiveX Data Objects 2.8”
1、先完成引用
2、再复制给你的代码到“保存”的单击事件

louisegrade

回复 caoguangyao 的帖子

我试过了，它说用户定义类型未定义。

我在网上试过，就只有一个数据库是成功的。其它 就算是复制粘贴的 也是不行的。

Private Sub Command10_Click()（会变成黄色的底）
Dim rs As ADODB.Recordset  （会变成蓝底）

我怀疑是我的数据库有问题。

caoguangyao

QQ加我，然后我将修改后的示例传给你