今宵月は何処を照らすの

進入表單時，是鎖住不可編輯的狀態 要按下編輯鈕後才可以在 可編輯/不可編輯 二項中做切換 ================================================================= Private Sub 編輯鈕_Click() End Sub 將上述程式碼修改為下列程式碼 (點選編輯鈕後，編輯鈕字體變為紅色，即可編輯表單內容，若字體變為黑色，則不可編輯) Private Sub 編輯鈕_Click() On Error Resume Next If 編輯鈕.ForeColor = 0 Then 編輯鈕.ForeColor = 255 Me.AllowEdits = True Me.AllowDeletions = True Else 編輯鈕.ForeColor = 0 Me.AllowEdits = False Me.AllowDeletions = False End If End Sub 並在空白處再貼上下列程式碼 (預設表單被開啟時，為不可編輯的狀態，按鈕上的字體為黑色) Private Sub Form_Current() 編輯鈕.ForeColor = 0 Me.AllowEdits = False Me.AllowDeletions = False End Sub 來源：Yahoo奇摩知識+ ================================================================= 最後一段的，我用在From_current中沒有效果 放在Load時才有效果 但在切換至可編輯後，就鎖不回去了