Office中国论坛/Access中国论坛

标题: access 自动运行后，上面的标题内容在哪里改？ [打印本页]

作者: wykenny203 时间: 2011-5-18 09:39
标题: access 自动运行后，上面的标题内容在哪里改？
access 自动运行后，上面的标题内容在哪里改？

作者: tmtony 时间: 2011-5-18 12:49
启动里设置

作者: 鱼儿游游 时间: 2011-5-18 15:36
本帖最后由鱼儿游游于 2011-5-18 15:46 编辑

SaveDbSetting , "AppTitle", DB_TEXT, "上面的标题内容"

Function SaveDbSetting(Optional DatabaseName As String = "", _
                     Optional PropertyName As String = "AllowByPassKey", _
                     Optional DataType As conDataTypeEnum = DB_BOOLEAN, _
                     Optional Value As Variant = False) As Boolean
On Error GoTo Err_SaveDbSetting

Dim dbs As Variant
Dim prp As Variant

If Trim$(DatabaseName) <> "" Then
      Set dbs = DBEngine.OpenDatabase(DatabaseName)
Else
      Set dbs = CurrentDb
End If

Select Case DataType
Case DB_BOOLEAN
      Value = CBool(Value)
Case DB_LONG
      Value = CLng(Value)
Case DB_TEXT
      Value = CStr(Value)
End Select

If Value = "" Then Value = Space$(1)
dbs.Properties(PropertyName) = Value
SaveDbSetting = True
Exit_SaveDbSetting:
Exit Function
Err_SaveDbSetting:
' 属性未找时创建该属性
If err = 3270 Then
      Set prp = dbs.CreateProperty(PropertyName, DataType, Value)
      dbs.Properties.Append prp
Else
      SaveDbSetting = False
      MsgBox "Error For Function SaveDbSetting()" & vbCr & err.Description, vbCritical
      Resume Exit_SaveDbSetting
End If

End Function

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)