用以下函数即可：
Public Sub SetParentFormctrls(ByVal frm As Form)
'功能：将子窗体控件数据赋值给主窗体对应控件
Dim ctrls As Controls
Dim ctrl As Control
On Error Resume Next
Set ctrls = frm.Parent.Controls
For Each ctrl In frm.Controls
If ctrl.ControlType <> acLabel Then
ctrls(ctrl.name).Value = ctrl.Value
End If
Next
End Sub
Public Function ExCtrl(ByVal frm As Form, ByVal ctrlname As String) As Boolean
'功能：判断控件是否存在
Dim b As Boolean
Dim ctrls As Controls
Dim ctrl As Control
Set ctrls = frm.Controls
b = False
For Each ctrl In ctrls
If ctrl.name = ctrlname Then
b = True
Exit For
End If
Next
ExCtrl = b
End Function
Public Sub InsertTB(ByVal tbname As String, ByVal idfieldname As String, ByVal frm As Form)
'功能：从窗体中的同名控件向数据表追加一条记录
'参数：tbname--表名，idfieldname--主键字段名，frm--窗体名
Dim rs As New ADODB.Recordset
Dim ssql As String
Dim i As Long
Dim ctrls As Controls
Dim ctrlname As String
Set ctrls = frm.Controls
ssql = "select * from " & tbname
rs.Open ssql, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
rs.AddNew
For i = 0 To rs.Fields.Count - 1
ctrlname = rs.Fields(i).name
If ctrlname <> idfieldname Then
If ExCtrl(frm, ctrlname) Then
rs.Fields(i).Value = ctrls(rs.Fields(i).name).Value
End If
End If
Next
rs.Update
rs.Close: Set rs = Nothing
End Sub
Public Sub UpdateTB(ByVal tbname As String, ByVal idfieldname As String, ByVal frm As Form)
'功能：从窗体中的同名控件向数据表更新一条记录
'参数：tbname--表名，idfieldname--主键字段名，frm--窗体名
Dim rs As New ADODB.Recordset
Dim ssql As String
Dim i As Long
Dim ctrls As Controls
Dim ctrlname As String
Set ctrls = frm.Controls
ssql = "select * from " & tbname & " where cstr(" & idfieldname & ")='" & ctrls(idfieldname).Value & "'"
rs.Open ssql, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
For i = 0 To rs.Fields.Count - 1
ctrlname = rs.Fields(i).name
If ctrlname <> idfieldname Then
If ExCtrl(frm, ctrlname) Then
rs.Fields(i).Value = ctrls(rs.Fields(i).name).Value
End If
End If
Next
rs.Update
rs.Close: Set rs = Nothing
End Sub
Public Sub DeleteTB(ByVal tbname As String, ByVal idfieldname As String, ByVal frm As Form)
'功能：从窗体中的同名控件向数据表删除一条记录
'参数：tbname--表名，idfieldname--主键字段名，frm--窗体名
Dim rs As New ADODB.Recordset
Dim ssql As String
Dim i As Long
Dim ctrls As Controls
Dim ctrlname As String
Set ctrls = frm.Controls
ssql = "select * from " & tbname & " where cstr(" & idfieldname & ")='" & ctrls(idfieldname).Value & "'"
rs.Open ssql, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
rs.Delete
rs.Update
rs.Close: Set rs = Nothing
End Sub
