这个是access“图书信息管理系统”里“图书信息”窗体的“新建图书”按钮的单击事件的代码。

Private Sub 新建图书_Click()
On Error GoTo err_新建图书_click
'定义字符型变量
Dim stemp As String
'定义数据集变量
Dim Rs As ADODB.Recordset
'为定义的数据集变量分配空间
Set Rs = New ADODB.Recordset
'为打开数据表"查询语句"字符变量赋值
stemp = "select*from 图书信息"
'打开"图书信息"数据表
Rs.Open stemp, CurrentProject.Connection, adlockoptimistic
'根据已有的记录数量自动生成"图书编号"
Me![图书编号] = re.RecordCount + 1
'把窗体中文本框置空
Me![图书名称] = Null
Me![分组] = Null
Me![条形码] = Null
Me![出版社] = Null
Me![定价] = Null
Me![作者] = Null
Me![购置日期] = Null
exit_新建图书_click
Exit Sub
err_新建图书_click
MsgBox Err.Description
Resume exit_新建图书_click
End Sub

这个是“图书信息子窗体”的成为当前事件的代码
Private Sub Form_Current()
On Error GoTo err_form_current
'把子窗体中当前记录值赋予主窗体对应的文本框内
Form![图书信息]![图书编号] = Me![图书编号]
Form![图书信息]![图书名称] = Me![图书名称]
Form![图书信息]![分组] = Me![分组]
Form![图书信息]![条形码] = Me![条形码]
Form![图书信息]![出版社] = Me![出版社]
Form![图书信息]![定价] = Me![定价]
Form![图书信息]![作者] = Me![作者]
Form![图书信息]![购置日期] = Me![购置日期]
exit_form_current:
Exit Sub
err_form_current:
MsgBox Err.Description
Resume Exit_Form_Curret
End Sub