Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Cách tạo macro làm ẩn nút Button trong form
#1
Em tạo 1 form "Danh sách sinh viên"
Trong đó có các button: thêm, xóa, ghi , không,thoát

Khi người dùng muốn thêm 1 giá trị thì nhấn" thêm"
Ban đầu chỉ hiện các nút: thêm, xóa, thoát.Nút "ghi","không" bị ẩn
Khi người dùng chọn"thêm", thì nút "ghi" và "không" sáng lên, các nút còn lại thì bị ẩn
Sau khi người dùng thực hiện xong việc thêm 1 giá trị mới thì 2 nút này ẩn trở lại, và các nút còn lại sáng lên.

Mong mọi người chỉ em cách viết Macro cho lệnh làm ẩn 2 giá trị này
Chữ ký của sinhvien08 Xin chào, mình là sinhvien08, Tham gia http://thuthuataccess.com/forum từ ngày 17-11 -12.
Reply
Những người đã cảm ơn
#2
(10-12-12, 01:12 AM)sinhvien08 Đã viết: Em tạo 1 form "Danh sách sinh viên"
Trong đó có các button: thêm, xóa, ghi , không,thoát

Khi người dùng muốn thêm 1 giá trị thì nhấn" thêm"
Ban đầu chỉ hiện các nút: thêm, xóa, thoát.Nút "ghi","không" bị ẩn
Khi người dùng chọn"thêm", thì nút "ghi" và "không" sáng lên, các nút còn lại thì bị ẩn
Sau khi người dùng thực hiện xong việc thêm 1 giá trị mới thì 2 nút này ẩn trở lại, và các nút còn lại sáng lên.

Mong mọi người chỉ em cách viết Macro cho lệnh làm ẩn 2 giá trị này

Cái này thường người ta viết ở thủ tục Form Open chứ bạn
Chữ ký của ledangvan Xin chào, mình là ledangvan, Tham gia http://thuthuataccess.com/forum từ ngày 22-08 -11.
ღღღღღTài sản của ledangvan (View All Items) ღღღღღ
Reply
Những người đã cảm ơn sinhvien08
#3
1. Cái này nên hỏi ở mục Form
2. Ban đầu ...
tại thủ tục Form Open
ghi.visible = false ' ẩn chú nó đi
khong.visible = false ' ẩn chú nó đi
them.visible = true ' hiện cô nó lên
xoa.visible = true ' hiện cô nó lên
thoat.visible = true ' thực ra thằng này thì không phải viết vì chắc chắn nó luôn sáng (nếu không phải thiết kế thêm nút huy để hủy hành động, mặt khác không lên để là thoat, thoat để code thoát access ra window thôi, nên sử dụng dong thì hay hơn


Bạn tiếp tục tùy biến nó trong các sự kiện Click tại các nút lệnh big green
Chữ ký của cpucloi Tôi chỉ biết mỗi một điều là những điều tôi biết được còn quá ít 021
Gmail: cgiahuy13@gmail.com


ღღღღღTài sản của cpucloi (View All Items) ღღღღღ
Reply
Những người đã cảm ơn sinhvien08
#4
cái này sử dụng trong code dễ dàng hơn bạn à...

bước 1 tạo 1 thủ tục
ví dụ
Sub An_Hien_Nut(TT as boolean)
Gán thuộc tính các nút
cú pháp: tên nút.Enable = tt
end sub

........................
viết sự kiện cho nút thêm
gọi thủ tục An_hien_nut(false)

viết sự kiện cho nút ghi
gọi thủ tục An_hien_nut(true)

...............................
Do không có thời gian viết code nên chỉ có ý tưởng như thế còn nếu bạn vẫn chưa hiểu thì văng cái bài của bạn lên đây anh em hỗ trợ thêm...
p.s: Kinh nghiệm 5 năm dạy access nên công lực cũng tạm đủ big green
Chữ ký của duyhiep Xin chào, mình là duyhiep, Tham gia http://thuthuataccess.com/forum từ ngày 11-11 -12.
Reply
Những người đã cảm ơn
#5
nói chung việc làm cho nút cmd mờ hay hiện đi rất rễ. bạn cần lưu ý các thủ tục để điều khiển cái gì hieennj trước cái gì sẽ sẩy ra sau khi click cmd. mình ví dụ nhé.

Private Sub cmdSAVE_Click()
' sau lkhi nhan click save thì nút new , edit sẽ bị hiện, nút save chìm đi.
cmdNEW.Enabled = True
cmdSAVE.Enabled = False
cmdEDIT.Enabled = True
End Sub
bạn xem cấu trúc lệnh ví dụ của mình mà modifle đi một chút là okie ngay.
chúc bạn vui vẻ.
Chữ ký của quanghoasla Hãy chia sẻ kinh nghiệm cùng mình trênThuThuatAccess nhé! Chúc vui vẻ rose
My site: My site hoặc My site
ღღღღღTài sản của quanghoasla (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#6
bạn cho mình hỏi: trong form cập nhật, t làm mờ nút lưu (cmluu.visible=false).
khi t sửa thông tin cùa 1 trường nào đó thì làm sao cho nút lưu sáng lên
thank
Chữ ký của ductria3 Xin chào, mình là ductria3, Tham gia http://thuthuataccess.com/forum từ ngày 03-10 -13.
Reply
Những người đã cảm ơn
#7
(24-02-14, 03:45 PM)ductria3 Đã viết: bạn cho mình hỏi: trong form cập nhật, t làm mờ nút lưu (cmluu.visible=false).
khi t sửa thông tin cùa 1 trường nào đó thì làm sao cho nút lưu sáng lên
thank

Tại sự kiện On Dirty của form bạn code như sau:

Mã:
Private Sub Form_Dirty(Cancel As Integer)
    Me.cmluu.visible = True
End Sub
Chữ ký của MatTroiNguQuen Thời gian nước chảy... da mòn
Ngủ quên một chốc thấy còn bộ xương!
Reply
Những người đã cảm ơn Noname
#8
thank bạn, mình đã làm được.cách này đỡ tốn thời gian rất nhiều big green
nhân tien ban cho mình hỏi, khi mình dang mo form dang nhap và khi dang nhập xong, làm sao có thể làm menu dang nhap trên thanh menu của mình tạo.mình có tham khảo trên diển đàn thấy có dòng lệnh:
application.commandbars("ten macro").control().visible
không bít dòng này sữ dung ntn
Chữ ký của ductria3 Xin chào, mình là ductria3, Tham gia http://thuthuataccess.com/forum từ ngày 03-10 -13.
Reply
Những người đã cảm ơn
#9
(02-03-14, 09:46 AM)ductria3 Đã viết: thank bạn, mình đã làm được.cách này đỡ tốn thời gian rất nhiều big green
nhân tien ban cho mình hỏi, khi mình dang mo form dang nhap và khi dang nhập xong, làm sao có thể làm menu dang nhap trên thanh menu của mình tạo.mình có tham khảo trên diển đàn thấy có dòng lệnh:
application.commandbars("ten macro").control().visible
không bít dòng này sữ dung ntn
Bạn đang sử dụng AC 2003 ?
VD sau khi người dùng đăng nhập thành công bạn thêm code sau vào:
Mã:
Application.CommandBars("mrcMain").Controls("Dang nhap").Visible = False
Với [Dang nhap] là tên của menu mà bạn tạo trên thanh menu có tên [mrcMain]
Ví dụ sau đây mình làm trên file Hướng dẫn tạo Menu cho file Access bằng Macro của Mod Xuanthanh nhé:

Demo

Do trong VBA không hỗ trợ Tiếng Việt (TV) có dấu nêm mình dùng tblTiengViet để lưu các câu TV sau đó chèn vào các đoạn mã ( như hiển thị thông báo Msgbox, hoặc trong trường hợp như VD trên...)
VD:
Mã:
Private Sub cmdHienMenuTrogiup_Click()
    Dim strTenMenu As String
    strTenMenu = DLookup("[ND1]", "[tbltiengviet]", "[ID] = 'Menu'")
    Application.CommandBars("mrcMain").Controls(strTenMenu).Visible = True
End Sub

Hoặc đơn giản hơn bạn viết như sau:
Mã:
Private Sub cmdHienMenuTrogiup_Click()
    Application.CommandBars("mrcMain").Controls(4).Visible = True
End Sub
Tuy nhiên liên quan đến vấn đề này bạn nên đọc các bài viết về phân quyền sử dụng Menu đã có nhiều trên diễn đàn

P/s: Nếu đọc thấy bài viết nào có ích thì nên bấm nút "Thanks" để cổ vũ tinh thần cho người viết bạn nhé 015
Chữ ký của MatTroiNguQuen Thời gian nước chảy... da mòn
Ngủ quên một chốc thấy còn bộ xương!
Reply
Những người đã cảm ơn Noname


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  Cách đề tạo Combo Box và List Box Tương ứng Godspear 10 314 6 Giờ trước
Bài mới nhất: toancvp
  [Hỏi] Refresh Form và tiếp tục hoạt động Godspear 2 84 08-12-16, 12:48 PM
Bài mới nhất: Godspear
  [Hỏi] Cách thêm dữ liệu vào form Main_Sub NganNguyen 1 39 06-12-16, 02:23 AM
Bài mới nhất: maidinhdan
  Tự động hiện Form khi loading hết thời gian ChiMai 1 49 02-12-16, 08:59 PM
Bài mới nhất: ongke0711
Photo [Hỏi] Mở Form trên access 2007 báo lỗi jason 5 195 22-11-16, 09:23 AM
Bài mới nhất: jason

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ơ