为什么APPACCESS不可见？

sunredday

Private Sub 压缩_Click()
' 在模块的声明节中包含以下语句。
Dim appAccess As Access.Application
Dim app As Access.Application


    Dim dbs As Object, tdf As Object, fld As Variant
    Dim strDB As String
    Const DB_Text As Long = 10
    Const FldLen As Integer = 40

    ' 将字符串初始花为“数据库路径”。
    strDB = "C:\My Documents\Newdb.mdb"
    ' 创建新的 Microsoft Access 实例。
     Set app = CurrentProject.Application
   Set appAccess = _
   CreateObject("Access.Application.9")

                  
    ' 在 Microsoft Access 窗口中打开数据库。
    If Dir("C:\My Documents\Newdb.mdb") <> "" Then
    Kill "C:\My Documents\Newdb.mdb"
    End If
    appAccess.NewCurrentDatabase strDB

   
   
    ' 获取数据库对象变量。
    Set dbs = appAccess.CurrentDb
     
      
      
    ' 创建新表。
    Set tdf = dbs.CreateTableDef("Contacts")
    ' 创建表中的字段。
    Set fld = tdf. _
        CreateField("CompanyName", DB_Text, FldLen)
    ' 追加字段和 TableDef 对象。
    tdf.Fields.Append fld
    dbs.TableDefs.Append tdf
      appAccess.Visible = True
        app.Quit
                              ' Set appAccess = Nothing
End Sub

sunredday

如何给新生成地窗体或控件起名字，保存，赋值
Private Sub 压缩_Click()

Dim appAccess As Access.Application
Dim app As Access.Application


    Dim dbs As Object
    Dim dbs0 As Object
    Dim strDB As String
   
    ' 将字符串初始花为“数据库路径”。
    strDB = "C:\My Documents\Newdb.mdb"
    ' 创建新的 Microsoft Access 实例。
     Set app = CurrentProject.Application
     Set appAccess = _
     CreateObject("Access.Application.9")

                  
    If Dir("C:\My Documents\Newdb.mdb") <> "" Then
    Kill "C:\My Documents\Newdb.mdb"
    End If
    appAccess.NewCurrentDatabase strDB

   
   
    ' 获取数据库对象变量。
    Set dbs = appAccess.CurrentDb
    Set dbs0 = app.CurrentDb
      
      

      appAccess.Visible = True
      Dim frm As Form
      
      Set frm = appAccess.CreateForm()
      DoCmd.Restore
         
         

      appAccess.CreateControl "窗体1", acTextBox, acDetail
       frm.SetFocus
      DoCmd.Save acfrom, "窗体1" '??????????????????????
      

     frm.文本0 = "c:\windows" '??????????????????????????
     
      
     'app.CurrentDb.Close
      app.CloseCurrentDatabase
     'app.Quit
     
      
   ' Set appAccess = Nothing
End Sub