'* * * * * * * * * * * * * * * * * * * * * * * * * * *
'*                                                   *
'*  - -    非绑定窗体录入方法    - -                 *
'*  本模块要求表中的字段名与窗体中的字段名完全相同   *
'*  调用方法：                                       *
'*  Call ListTableFields("表名", me)                 *
'*  代码编写：csqhlx(小雨）                          *
'*  参考黄海的取出表中字段名的代码                   *
'*                                                   *
'* * * * * * * * * * * * * * * * * * * * * * * * * * *
'Code Start
Option Compare Database
Public Function ListTableFields(TblName As String, frm As Form)
    On Error Resume Next
    Dim rstSchema As ADODB.Recordset
    Dim rst As DAO.Recordset
    Dim cnn2 As ADODB.Connection
    Dim strSQL As String
   
    strSQL = "SELECT * FROM " & TblName & ";"
    Set cnn2 = CurrentProject.Connection
    Set rst = CurrentDb.OpenRecordset(strSQL)
    Set rstSchema = cnn2.OpenSchema(adSchemaColumns, Array(Empty, Empty, TblName))
   
    rst.AddNew
    While Not rstSchema.EOF
        rst(rstSchema!COLUMN_NAME) = frm(rstSchema!COLUMN_NAME)
        rstSchema.MoveNext
    Wend
    rst.Update
   
    rstSchema.Close
    cnn2.Close
    rst.Close
    Set rstSchema = Nothing
    Set cnn2 = Nothing
    Set rst = Nothing
   
End Function
'Code End