我的第一個附筆，試試功能

Private Sub Command13_Click()
If Me![Command13].Caption = "查看" Then
     Me![Command13].Caption = "添加"
     Me.AllowAdditions = True ‘允許添加
     Me.子窗體.Form.AllowAdditions = True
     Me.子窗體.Form.AllowDeletions = True ‘允許刪除
     Me.子窗體.Form.AllowEdits = True
     Me.AllowEdits = True
     Me.電纜編碼.SetFocus
     Me.DataEntry = True ‘輸入界面空白
     Me.Command25.Visible = True
    Me.Requery
     ElseIf Me![Command13].Caption = "添加" Then
     Me![Command13].Caption = "查看"
     Me.DataEntry = False
     Me.AllowAdditions = False ‘不允許添加
     Me.AllowDeletions = False ‘不允許刪除
     Me.AllowEdits = False ‘不允許編輯
     Me.Command25.Visible = False
     Me.子窗體.Form.AllowAdditions = False
     Me.子窗體.Form.AllowDeletions = False
     Me.子窗體.Form.AllowEdits = False
     Me.Requery
     
 End If
End Sub

　　很方便的

2\標題　

怎麽都行

我的第一個博客－－試試功能