Access中如何用代码将表彻底隐藏?显示?
Private Sub Cmd_Tbl1_Click()'隐藏表函数(方法:值 = 1) CurrentDb.TableDefs("表名称").Attributes = 1 Application.RefreshDatabaseWindowEnd SubPrivate Sub Cmd_Tbl3_Click()'显示隐藏表的函数(方法:值 = 0) CurrentDb.TableDefs("表名称").Attributes = 0 Application.RefreshDatabaseWindowEnd Sub
页:
[1]