|
Dim rs As ADODB.Recordset
Set rs = New Recordset
DoCmd.OpenForm "UDC"
rs.CursorLocation = adUseClient
rs.Fields.Append "ID", adNumeric
rs.Fields.Append "Option", adBSTR
rs.Fields.Append "OptionDescription", adBSTR
rs.Fields.Append "HardCode", adBSTR
rs.Open
rs.ActiveConnection = CurrentProject.Connection
Set Forms("udc").Recordset = rs rs.AddNew
rs.Fields(1).Value = 1
rs.Update
Forms![udc].文本0.Value = rs.Fields(1).Value其中 Set Forms("udc").Recordset = rs 没有用.RS 可以在窗体上显示,没有必要绑定到窗体。
|
|