• Tùy chọn
• Đăng nhập
• Đăng ký
• Xem như trên Máy tính
• Accelerated Mobile Pages Theme

làm sao lock tất cả textbox, combo trong Form ?

• Trang chủ

  • Thủ Thuật Access
  • Access Cơ Bản
  • Forms
  • làm sao lock tất cả textbox, combo trong Form ?
• làm sao lock tất cả textbox, combo trong Form ?

• làm sao lock tất cả textbox, combo trong Form ?

  darkmoon > 30-12-11, 10:05 AM

  Trong Form_Current, mình muốn kiểm tra 1 điều kiện nếu TRUE thì lock và tô màu tất cả combo, textbox thì mình phải làm sao ?
  
  Xin cám ơn.

• RE: làm sao lock tất cả textbox, combo trong Form ?

  Noname > 30-12-11, 11:44 AM

  Cho dữ liệu mẫu đi bạn. Lười giả lập quá

• Xin giup do

  hanh01x3a > 30-12-11, 12:04 PM

  minh dang tao mot form trong VBA va dung Control Data de lay du lieu file mdb , file mdb tao bang of 2003, Khi chon table trong thuộc tính Recordsource thi no khong chap nhan va hien hop thoai thong bao unrecognized (khong chap nhan), xin moi nguoi go giup nha. Thank
  
  

• RE: làm sao lock tất cả textbox, combo trong Form ?

  muaphonui_2010 > 30-12-11, 01:15 PM

  (30-12-11, 10:05 AM)darkmoon Đã viết: Trong Form_Current, mình muốn kiểm tra 1 điều kiện nếu TRUE thì lock và tô màu tất cả combo, textbox thì mình phải làm sao ?
  
  Xin cám ơn.

  
  Private Sub Command40_Click()
  If sp.Locked = True Then
  sp.ForeColor = 4227327
  sp.Requery
  Else
  MsgBox "txt chưa locked"
  End If
  End Sub

• RE: làm sao lock tất cả textbox, combo trong Form ?

  darkmoon > 30-12-11, 02:18 PM

  Về lock thì mình đã làm được:
  
  

  Mã:

  Private Sub Form_Current()
    If Me.ChiTiet = False Then
        Me.AllowEdits = False
    Else
        Me.AllowEdits = True
    End If
End Sub

  Nhưng tô màu các textbox, combo box thì không biết làm sao.
  
  Thanks

• RE: làm sao lock tất cả textbox, combo trong Form ?

  muaphonui_2010 > 30-12-11, 02:27 PM

  (30-12-11, 02:18 PM)darkmoon Đã viết: Về lock thì mình đã làm được:
  
  

  Mã:

  Private Sub Form_Current()
    If Me.ChiTiet = False Then
        Me.AllowEdits = False
    Else
        Me.AllowEdits = True
    End If
End Sub

  Nhưng tô màu các textbox, combo box thì không biết làm sao.
  
  Thanks

  
  Bạn xem code này thử có đúng ý bạn ko?, chứ mình đã thử rồi, nó đổi màu chữ cho txt đó, mà hình như bạn muốn làm tô màu cho các txt trong bảng supform (bảng dạng sheep). Cái này thì hình như nếu mình đổi màu cho 1 txt thì nó sẽ đổi màu cho hết cả Sup luôn thì phải, bạn thử code trên đi thử đc ko.
  sp.ForeColor = 4227327
  sp.Requery
  

• RE: làm sao lock tất cả textbox, combo trong Form ?

  darkmoon > 30-12-11, 02:34 PM

  Mình không đổi trên subform mà đổi trên form.
  Form view dạng continuous.
  
  Thanks.

• RE: làm sao lock tất cả textbox, combo trong Form ?

  muaphonui_2010 > 30-12-11, 02:38 PM

  (30-12-11, 02:34 PM)darkmoon Đã viết: Mình không đổi trên subform mà đổi trên form.
  Form view dạng continuous.
  
  Thanks.

  
  Đó, vậy thì code này làm được rồi đó bạn, bạn cứ thử đi...........
  Private Sub Command40_Click()
  If sp.Locked = True Then ' nếu mà textbox sp đang khóa thì thực hiện code dưới
  sp.ForeColor = 4227327 ' đổi màu textbox thành màu đỏ
  sp.Requery ' Làm mới lại textbox
  Else
  MsgBox "txt chưa locked" ' code này bạn bỏ đi, vì mình để vào để thử thôi
  End If
  End Sub
  
• Bài trước Bài tiếp