ACCESS:由表單執行模組的程序??

Question

(一):模組程序
Public Sub Print_Field_Names()
Dim HGG As DAO.Recordset, HGH As Integer, HGF As Field
Set HGG = Me.RecordsetClone
For Each HGF In HGG.Fields
Debug.Print HGF.Name
Next
End Sub
(二) 表單的指令
Private Sub Command14_Click()
Call Print_Field_Names
End Sub
(三)=>無法執行
(四):請幫忙告知如何才能執行上述執行程序的正確作法.

W.J.S:
你好!
我依據你給的指示去執行這個程序.
但還是無法執行.
我反覆檢查又再試過.仍然沒有辦法執行.
很抱歉!再次向你反應.
謝謝你熱心的指導!

W.J.S:
太好了.一試就OK了.非常謝謝你!
另外.再請教下列一個問題好嗎?
如表單只有控制項/標籤/控制鈕.(沒有子表單)
現在我錄下來的這個模組是否也可以適用呢?
請再次賜教.謝謝!

Answer 1

(一):模組程序Public Sub Print_Field_Names(ByVal fName As String)    Dim HGF As Object, F As Form        Set F = Forms(fName)    For Each HGF In F.Recordset.Fields        Debug.Print HGF.Name    Next    Set HGF = Nothing : Set F = NothingEnd Sub(二) 表單的指令Private Sub Command14_Click()    Print_Field_Names Me.NameEnd Sub

2006-09-22 18:53:44 補充：
怎麼會不行ㄋㄟ?我把整個db1.mdb(Access2000)放置以下連結,你下載去試試看(只能放7天)http://www.yousendit.com/transfer.php?action=check_download&ufid=DEBA6B650833466D&key=ea681cd3b40d9bdf4114dd4b8531359320c6f124

2006-09-22 18:56:09 補充：
我有稍微做修改,直接以Msgbox顯示,而不再以Debug顯示

2006-09-23 03:03:39 補充：
感謝戊兄為我平反(飆淚中),回歸正題;理論上是沒有問題,實際上ㄋㄟ...要看臨場表現了,程式只有活用,絕對不是死背,同一目標有N種作法,不管是黑貓白貓只要能抓傷老婆的就是好貓>*<||

Answer 2

應該是原本的程式中用debug輸出看不到吧...阿戊試過 W.J.S 大的解答是ok的