ในไฟล์แต่ละอัน จะมี Database Properties ให้เรากำหนดค่าต่างๆ ลงไปได้ ให้ไปที่ File>Database Properties แล้วใส่ค่าต่างๆ ลง

ผมเคยเขียนโค้ดในการเขียนค่า และอ่านค่าใน Database Properties ไว้อยู่ แต่ยังค้นหาไม่เจอ ผมจำได้ว่าเคยนำมาให้ที่กระทู้นี้แล้ว แต่ยังค้นหาไม่เจอครับ

ลองอ่านกระทู้ http://www.thai-access.com/suphap.php?topic_id=1994 ประกอบด้วยครับ

นี่คือโค้ดสำหรับอ่านค่า Hyperlink base จาก Database Properties ครับ

Function GetHyperlinkBase() As String
Dim dbs As Database, ctr As Container, doc As Document
' Return reference to current database.
Set dbs = CurrentDb
' Return reference to Databases container.
Set ctr = dbs.Containers!Databases
' Return reference to SummaryInfo document.
Set doc = ctr.Documents!SummaryInfo
GetHyperlinkBase = doc.Properties("Hyperlink base")
End Function

ประยุกต์ใช้กับตัวอื่นๆ ดูครับ

ขอบพระคุณ อ.สุภาพ มากๆ ครับ
ผมทำตัวอย่างตามที่ อ.สุภาพ แนะนำมาแสดงครับ
เผื่อว่า เพื่อนๆ พี่ๆ ท่านใดอาจต้องการใช้งาน
ขอบพระคุณมากๆ ครับ
Suchat
ชลบุรี

ใช้ เขียน/ลบ ข้อความลงบน Status bar (มุมล่างซ้ายของฟอร์ม)
โดยนำข้อความด้านล่างนี้ไปวางใน Module แล้วเรียกใช้เอา
----------------------------------------------------------------------------------------
Global StatusCalled
Global CurrentStatusMsg
----------------------------------------------------------------------------------------
Sub StatusBarMsg(StatusMsg)
If StatusMsg <> CurrentStatusMsg Then ' test if message already displayed
Dim ss As Variant
ss = SysCmd(SYSCMD_SETSTATUS, StatusMsg)
StatusCalled = True
CurrentStatusMsg = StatusMsg
End If
End Sub
------------------------------------------------------------------------------------------
Sub ClearStatusBarMsg()
If StatusCalled Then
Dim ss As Variant
ss = SysCmd(SYSCMD_CLEARSTATUS)
StatusCalled = False
CurrentStatusMsg = " "
End If
End Sub