ถามไว้ที่ http://www.utteraccess.com/forums/showflat.php?Cat=&Board=access_2000&Number=195462&page=0&view=&sb=&o=&fpart=1&vc=1&PHPSESSID=

เขาต้องการที่จะเปลี่ยน Caption ของทุก Form โดยให้เปลี่ยนเป็น ชื่อเวอร์ชัน และวันที่แก้ไขล่าสุด

ลองโค้ดข้างล่างดูครับ

Sub GetAllForms()
Dim dbs As DAO.Database, rst As DAO.Recordset
Set dbs = CurrentDb
Set rst = dbs.OpenRecordset("Select Name From MSysObjects Where Type = -32768")
If Not rst.EOF Then
Do While Not rst.EOF
Debug.Print rst(0)
ChangeAllFormCaption rst(0)
rst.MoveNext
Loop
End If
rst.Close
dbs.Close
Set rst = Nothing
Set dbs = Nothing
End Sub

Function ChangeAllFormCaption(frm As String)
DoCmd.OpenForm frm, acDesign, , , , acHidden
Forms(frm).Caption = "Version 1.01, Last Updated: " & FileDateTime(CurrentDb.Name)
DoCmd.Close acForm, frm, acSaveYes
End Function
*** Edited by Supap Chaiya *** 4/4/2546 13:53:46