Access开发平台--新增时复制当前选中记录功能

时　间:2015-07-20 08:55:54
作　者:杜超   ID：16058  城市：江阴
摘　要:添加时复制记录功能
正　文:

点击下载此软件

Private Sub 复制当前选中记录_Click()
    Dim strSQL As String
    Dim cnn As Object
    Dim rst As Object
    Set cnn = CurrentProject.Connection


    strSQL = "Select * FROM tblbxmx where mxid= " & SQLText(Form_frmBxmx.sfrList.Form!mxID)
    Set rst = OpenADORecordset(strSQL, , cnn)
    Me![bxrq] = rst![bxrq]
    Me![lbID] = rst![lbID]
    Me![ygID] = rst![ygID]
    Me![bxje] = rst![bxje]
    Me![bxzy] = rst![bxzy]
    rst.Close
    Set rst = Nothing
    Set cnn = Nothing
End Sub