RE: Đổi nội dung nút lệnh trên 1 button
ongke0711 > 20-12-19, 11:46 AM
(20-12-19, 08:39 AM)longkd_bvct@yahoo.com.vn Đã viết: Có 1 vấn đề em muốn hỏi thêm là viết code thế nào để khi mình nhấn bỏ qua thì nó sẽ tự load dữ liệu từ subform lên unbound lên trở lại ạ.
Thêm một dòng code gọi cái Sub Form_Current của subform sfrmCSYT.
-------------------------------------------------------------
Private Sub cmdChinh_Click()
Select Case Me.cmdChinh.Tag
Case "boqua"
Me.txtMacsyt = ""
Me.txtTencsyt = ""
Me.txtDiachi = ""
Me.txtDienthoai = ""
Me.cmdXoa.Enabled = True
Call DoiTenNutLenh(Me.cmdThem, 5, "them") 'Luu ->Them
Call DoiTenNutLenh(Me.cmdChinh, 1, "chinh") 'Bo qua -> Chinh sua
Call Form_sfrmCSYT.Form_Current
Case Else '"chinh"
blnEdit = True
lockcontrols False
Me.txtMacsyt.SetFocus
Me.cmdXoa.Enabled = False
Call DoiTenNutLenh(Me.cmdThem, 2, "luu")
Call DoiTenNutLenh(Me.cmdChinh, 4, "boqua")
End Select
End Sub
-------------------------------------------------------------