Question

如何ACCESS窗体VBA添加新记录

有一张表名称:"成绩单信息表" 里面有一个字段"备注"
窗体如下图:
那些文本框都是未邦定的,先是判文本框内容是否为空,如果不为空点"保存"按钮时就把文本框的内容添加到"备注"的字段里
面,代码该如何写?谢谢
Private Sub 保存_Click()
........
End Sub

Answer 1

前提:窗体的 允许编辑、允许添加 属性设为 是
Private Sub 保存_Click()
'检查录入完整性
If Me.文本框1 = "" Or Me.文本框2 = "" Or Or Me.文本框3 = "" Or Me.文本框4 = "" Or Me.文本框5 = "" Or Me.文本框6 = "" Or Me.文本框7 = "" Or Me.文本框8 = "" Or Me.文本框9 = "" Or Me.文本框10 = "" Or Me.文本框11 = "" Or Me.文本框12 = "" Or Me.文本框13 = "" Or Me.文本框14 = "" Or Me.文本框15 = "" Or Me.文本框16= "" Then
MsgBox "记录录入未完整！", vbInformation, "提示:"
Exit Sub
Else
DoCmd.RunCommand acCmdSelectRecord
'将字段 备注 的内容 设置为:
me.备注 = me.文本框1 & " m至 " & me.文本框2 & " m收卷单偏差＜ " & me.文本框3 & " m " '& ……以后内容省略
'保存记录
DoCmd.RunCommand acCmdSaveRecord
End if
End Sub

Answer 2

if isnull(文本框) then
msgbox "内容为空无法保存!"
else
docmd.setwarnning false
'如果是修改
'建立一个查询,SQL如:UPDATE 表 SET 表.[备注] = [Forms]![窗体1]!Text1] where 表.id=3; 假设查询保存为:查询1
docmd.runsql "查询1"
'如果是新增
'建立一个查询:SQL如:INSERT INTO 表 ( [备注] )
SELECT [Forms]![窗体1]!Text1] AS 表达式1; 假设查询保存为:查询2
docmd.runsql "查询2"
docmd.setwarnning true
end if
这是方法一.

Answer 3

Access 中的窗体是一种数据库对象，可用于创建数据库应用程序的用户界面。“绑定”窗体直接连接到表或查询之类的数据源，可用于输入、编辑或显示来自该数据源的数据。或者也可以创建“未绑定”窗体。