您的当前位置：首页正文

vba技巧

来源：九壹网

SELECT [离港船舶].[船名英文], [离港船舶].[船名中文], [离港船舶].[国籍中英文] FROM 离港船舶 GROUP BY [离港船舶].[船名英文], [离港船舶].[船名中文], [离港船舶].[国籍中英文];

Me.Recordset.FindFirst \"[id]=\" & [ID0] '如果id字段为文本类型，应该改为：Me.Recordset.FindFirst \"[id]='\" & [ID0] & \"'\"

组合框是我们常用的控件，但Access的组合框可以修改数据，我们大部分时候只是选择数据，而不想修改数据。

怎样能使Access组合框不能修改数据呢，很简单，只需在“键按下”事件中写入一行代码即可。

Private Sub Combo1_KeyDown(KeyCode As Integer, Shift As Integer)

DoCmd.CancelEvent

End Sub

说明：列出数据库里所有的表名

select name from sysobjects where type='U'

说明：列出表里的所有的columns

select name from syscolumns where id=object_id('TableName')

因篇幅问题不能全部显示，请点此查看更多更全内容

查看全文