maidinhdan > 10-08-15, 06:22 PM
Code:
'---------------------------------------------------------------------------------------
' Ten Module: Form_Form1
' Tac giai : maidinhdan@gmail.com
' Ngay viet : 8/10/2015
' Dien giai : 1 nut nhan co 2 chuc nang
'---------------------------------------------------------------------------------------
Option Compare Database
Dim DongMo As Byte ' Khong khai bao nam duoi dong Option Explicit
Private Sub cmdthem_Click()
Select Case DongMo
Case 0
'Set bien la 1
DongMo = 1
Me.cmdthem.Caption = "Thêm"
' Them moi
DoCmd.GoToRecord , , acNewRec
Case 1
'Set bien la 0
DongMo = 0
Me.cmdthem.Caption = "Xóa"
' Xoa
DoCmd.SetWarnings False
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
MsgBox "Da xoa"
End Select
End Sub
DongMo= 0