Đánh giá chủ đề:
  • 1 Votes - 5 Average
  • 1
  • 2
  • 3
  • 4
  • 5
giúp Set visible có điều kiện
#1
Mọi người chỉ mình tạo nút lệnh này với.
Mình tạo 1 combo box các năm từ 2006 đến 2020
khi chọn năm < năm hiện tại thì sẽ thực hiện lệnh Visible = False
còn = năm hiện tại thì thực hiện lệnh Visible = True
Ai bít chỉ mình với. mình gửi bài mẩu http://www.4shared.com/office/2gtyQGG3/file.html

Chú ý cách đặt tiêu đề nhé!
noname
Chữ ký của duytuan008 Hãy chia sẻ kinh nghiệm cùng mình trên ThuThuatAccess nhé! Chúc vui vẻ rose
Reply
Những người đã cảm ơn
#2
- Post nhầm khi nãy sửa lại ^^!
* Bạn duytuan008 mình ở cty k down đc bài của bạn, khi chọn giá trị trong combo box, bạn mún thực hiện phương thức visible ở control nào vậy.
+ Nếu thực hiện phương thức visible ở control khác thì để code như sau :
Private Sub Combo0_AfterUpdate()
IF me.Combo0.column(0)=year(date()) then
tencontrol.visible=false
Else
tencontrol.visible=true
end if
End Sub
+ Nếu thực hiện phương thức visible ở chính đối tượng combo box đang hiện hành thì theo mình biết phải thông qua một bước trung gian vì khi đang hiện hành trên chính control thì khi thực hiện các phương thức visible, enable sẽ bị lỗi. Mình có ý như thế này :
- Đầu tiên ở sự kiện AfterUpdate() bạn setfocus cho đối tượng khác trên form sao cho phù hợp với Form bạn đang thiết kế :
ví dụ :
Private Sub Combo0_AfterUpdate()
Text2.SetFocus
End Sub
Sau đó :
Private Sub Text2_GotFocus()
If Me.Combo0.Column(0) = Year(Date) Then
Me.Combo0.Visible = False
Else
me.combo0.visible=true
End If
End Sub
Một chút góp ý cho bạn.

Chữ ký của hoanglonglangtu Chiều tắt nắng trên con đường quen thuộc
Mưa rơi buồn qua ngõ vắng không em
Từng hạt ngọc rơi đùa qua kẽ lá
Những giọt tràn đầy ngõ ngách tâm tư
Em có biết chiều nay anh vẫn nhớ
Ở nơi nào em có nhớ chăng anh

Trên đời có quá nhiều chữ nếu,đáng tiếc là đều đã qua,việc đã xảy ra,hối hận cũng vô dụng
ღღღღღTài sản của hoanglonglangtu (View All Items) ღღღღღ
Reply
Những người đã cảm ơn Noname , duytuan008
#3
Thank bạn hoanglonglangtu Mình đã làm thử nhưng vẫn không thực hiện được. year(date) nó cho ra giá trị ngày tháng năm lun nên không thực hiện được hay sao ý.
Mình thực hiện ở control khác.
Chữ ký của duytuan008 Hãy chia sẻ kinh nghiệm cùng mình trên ThuThuatAccess nhé! Chúc vui vẻ rose
Reply
Những người đã cảm ơn
#4
Sorry bạn, bạn thử lại với
Private Sub Combo0_AfterUpdate()
If Int(Me.Combo0.Column(0)) = Year(Date) Then
Me.Text2.Visible = False
Else: Me.Text2.Visible = True
End If
End Sub
^^! khi nãy mình chưa test thử, mong bạn thông cảm
Chữ ký của hoanglonglangtu Chiều tắt nắng trên con đường quen thuộc
Mưa rơi buồn qua ngõ vắng không em
Từng hạt ngọc rơi đùa qua kẽ lá
Những giọt tràn đầy ngõ ngách tâm tư
Em có biết chiều nay anh vẫn nhớ
Ở nơi nào em có nhớ chăng anh

Trên đời có quá nhiều chữ nếu,đáng tiếc là đều đã qua,việc đã xảy ra,hối hận cũng vô dụng
ღღღღღTài sản của hoanglonglangtu (View All Items) ღღღღღ
Reply
Những người đã cảm ơn duytuan008
#5
Sao mình vẫn không làm dc vậy nhỉ
Chữ ký của duytuan008 Hãy chia sẻ kinh nghiệm cùng mình trên ThuThuatAccess nhé! Chúc vui vẻ rose
Reply
Những người đã cảm ơn
#6
- Bạn pót minh họa hay demo lên đc ko
Chữ ký của hoanglonglangtu Chiều tắt nắng trên con đường quen thuộc
Mưa rơi buồn qua ngõ vắng không em
Từng hạt ngọc rơi đùa qua kẽ lá
Những giọt tràn đầy ngõ ngách tâm tư
Em có biết chiều nay anh vẫn nhớ
Ở nơi nào em có nhớ chăng anh

Trên đời có quá nhiều chữ nếu,đáng tiếc là đều đã qua,việc đã xảy ra,hối hận cũng vô dụng
ღღღღღTài sản của hoanglonglangtu (View All Items) ღღღღღ
Reply
Những người đã cảm ơn duytuan008
#7
Thank bạn mình đã làm được.
http://www.4shared.com/office/vIIj8VfS/file.html
Chữ ký của duytuan008 Hãy chia sẻ kinh nghiệm cùng mình trên ThuThuatAccess nhé! Chúc vui vẻ rose
Reply
Những người đã cảm ơn
#8
- Có nút Thanks kìa bạn :P
Chữ ký của hoanglonglangtu Chiều tắt nắng trên con đường quen thuộc
Mưa rơi buồn qua ngõ vắng không em
Từng hạt ngọc rơi đùa qua kẽ lá
Những giọt tràn đầy ngõ ngách tâm tư
Em có biết chiều nay anh vẫn nhớ
Ở nơi nào em có nhớ chăng anh

Trên đời có quá nhiều chữ nếu,đáng tiếc là đều đã qua,việc đã xảy ra,hối hận cũng vô dụng
ღღღღღTài sản của hoanglonglangtu (View All Items) ღღღღღ
Reply
Những người đã cảm ơn duytuan008
#9
Ý quên.hihi
Chữ ký của duytuan008 Hãy chia sẻ kinh nghiệm cùng mình trên ThuThuatAccess nhé! Chúc vui vẻ rose
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
  Lọc có điều kiện ở listbox phiacuoiconduong 2 95 18-11-16, 06:40 PM
Bài mới nhất: ongke0711
  [Help] Chỉnh giúp Form thống kê hoanghai902 2 125 28-10-16, 06:15 PM
Bài mới nhất: hoanghai902
  Lọc theo điều kiện trong listbox Ranju 3 182 06-10-16, 05:26 PM
Bài mới nhất: Ranju
  Thay đổi màu nền các dòng theo điều kiện trên form Continuous tranthanhan1962 9 1,701 27-09-16, 11:01 PM
Bài mới nhất: ongke0711
  Không cho phép điều chỉnh kích thước của Form ChiMai 1 128 18-09-16, 01:27 PM
Bài mới nhất: ongke0711

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ơ