Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
làm sao lock tất cả textbox, combo trong Form ?
#1
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.
Chữ ký của darkmoon Xin chào, mình là darkmoon, Tham gia http://thuthuataccess.com/forum từ ngày 06-07 -11.
Reply
Những người đã cảm ơn
#2
Cho dữ liệu mẫu đi bạn. Lười giả lập quá
Chữ ký của Noname 020
ღღღღღTài sản của Noname (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#3
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

Chữ ký của hanh01x3a Xin chào, mình là hanh01x3a, Tham gia http://thuthuataccess.com/forum từ ngày 30-12 -11.
Reply
Những người đã cảm ơn
#4
(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
Chữ ký của muaphonui_2010 "Cần cù bù thông minh"
Reply
Những người đã cảm ơn
#5
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
Chữ ký của darkmoon Xin chào, mình là darkmoon, Tham gia http://thuthuataccess.com/forum từ ngày 06-07 -11.
Reply
Những người đã cảm ơn
#6
(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
Chữ ký của muaphonui_2010 "Cần cù bù thông minh"
Reply
Những người đã cảm ơn
#7
Mình không đổi trên subform mà đổi trên form.
Form view dạng continuous.

Thanks.
Chữ ký của darkmoon Xin chào, mình là darkmoon, Tham gia http://thuthuataccess.com/forum từ ngày 06-07 -11.
Reply
Những người đã cảm ơn
#8
(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
Chữ ký của muaphonui_2010 "Cần cù bù thông minh"
Reply
Những người đã cảm ơn


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  [Hỏi] Tạo các Button trên FORM với với số lượng button thay đổi theo dữ Liệu minhtungph 4 114 Hôm qua, 08:43 AM
Bài mới nhất: minhtungph
  [Help] 2 subform trong mainform pvhung76 7 203 18-10-17, 11:48 PM
Bài mới nhất: tranthanhan1962
  [Hỏi] Navigation Bar không sử dụng được các control khác trên Form minhtungph 15 667 16-10-17, 12:15 PM
Bài mới nhất: minhtungph
Photo [Help] Vấn đề về dữ liệu trong form doandiepanh 6 363 09-10-17, 03:07 PM
Bài mới nhất: doandiepanh
  Code VBA không chạy trong access 2016 tranthanhan1962 2 114 26-09-17, 09:38 PM
Bài mới nhất: tranthanhan1962

Chuyển nhanh:


User(s) browsing this thread: 1 Guest(s)
Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ