Question

如何在ACCESS 窗体中向表中添加记录

我想将图中的 的 内容 添加到A表中，字段名称与图一致
需要判断：(1)BasicInformation 为空时，有提示
其中有三个是文本框、两个是combo
(2)Mandatory Course 为空时，有提示
都是combo，但只有0和1两个值
请帮忙写出代码，和代码注解。我实在搞不出来了。

Answer 1

在ACCESS窗体中向表中添加记录的具体操作步骤如下：

1、首先，使用“查询设计”新建一个查询：

2、然后，选择加入的表：

3、添加要查询的字段名，这很简单，关键是“查询条件：

4、在“图书名称”条件一格中右击，选择“生成器”：

5、输入like，找到“表达式元素”>“Forms”>所有窗体>窗体名称。再在“表达式类别”栏中选择图书名称，这样就成功的向表中添加记录了：

Answer 2

插入新纪录：打开要插入记录的表输入就行了，

查询的话：先建一个查询，把需要用到的放到这个查询里，然后选中查询点击上方的设计，需要哪一个就在那一个的下面添加条件。如图  是查询姓张的人。

Answer 3

有两种方法一种是直接邦定数据表，另一种方法是通过按钮提交。你的情况应该是后者。
先将你BasicInformation和Mandatory Course里的内容文本框命名为r开头的，
Dim datablank As String
Dim str As Variant
Dim YesNo, i As Integer
datablank = "blank"
If IsNull(Me!r1) Then datablank = "EmployCope"
If IsNull(Me!r2) Then datablank = "EnglishName"
If IsNull(Me!r3) Then datablank = "ChineseName"
If IsNull(Me!rX) Then datablank = "XXXX"
以上写完你要判定的文本框，me!XXX是文本名称
If datablank <> "blank" Then GoTo Isblank
YesNo = MsgBox("该操作无法撤销,你确定吗？", vbYesNo + vbDefaultButton2, "确认窗口")
If YesNo = vbNo Then Exit Sub
Dim db As Database
Dim rs As Recordset
Set db = CurrentDb
Set rs = db.OpenRecordset("你的表名")
str = Me("r" + Format(i))
If str <> "" Then
rs.AddNew
rs!1 = Me!r1
rs!2 = Me!r2
rs!3 = Me!r3
rs!4 = Me!r4
rs!入库日期 = Date
.........
rs.Update
End If
rs.Close
MsgBox ("入库成功!")
Isblank:
MsgBox (datablank & "不能为空!")

Answer 4

绑定表，设置字段规则不允许空值就可以了