[Main + SUB] Chương trình điều khiển nút Sửa - Xóa - Add
Cuong Servenet > 16-08-18, 12:07 PM
sửa xóa thêm gì thì dùng 3 lệnh này
Me.AllowEdits = True
Me.AllowAdditions = True
Me.AllowDeletions = True
Ví dụ dưới đây là 1 chương trinh sửa
Private Sub SUA_Click()
If Me!sua.Caption = "sua" Then
Me!sua.Caption = "đang sửa"
Me!sua.ForeColor = "255"
Rock
Else
Me!sua.Caption = "sửa"
Me!sua.ForeColor = "8388608"
Rock
End If
End Sub
Private Sub Rock()
If Me!sua.Caption = "đang sửa" Then
Me.AllowEdits = True
Forms!FRM_Main.Locked = False
Forms!FRM_Sub= False
Else
Me.AllowEdits = False
Forms!FRM_Main.Locked = False
Forms!FRM_Sub= False
End If
End Sub