• Đổi nội dung nút lệnh trên 1 button
  • 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

    -------------------------------------------------------------