-
Cách tạo macro làm ẩn nút Button trong form
sinhvien08 > 10-12-12, 01:12 AM
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 -
RE: Cách tạo macro làm ẩn nút Button trong form
ledangvan > 10-12-12, 11:03 AM
(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 -
RE: Cách tạo macro làm ẩn nút Button trong form
cpucloi > 11-12-12, 06:34 AM
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
-
RE: Cách tạo macro làm ẩn nút Button trong form
duyhiep > 05-01-13, 02:09 PM
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 đủ
-
RE: Cách tạo macro làm ẩn nút Button trong form
quanghoasla > 06-01-13, 12:29 AM
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ẻ. -
RE: Cách tạo macro làm ẩn nút Button trong form
ductria3 > 24-02-14, 03:45 PM
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 -
RE: Cách tạo macro làm ẩn nút Button trong form
MTNQ > 25-02-14, 02:23 AM
(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 -
RE: Cách tạo macro làm ẩn nút Button trong form
ductria3 > 02-03-14, 09:46 AM
thank bạn, mình đã làm được.cách này đỡ tốn thời gian rất nhiều
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 -
RE: Cách tạo macro làm ẩn nút Button trong form
MTNQ > 03-03-14, 12:02 PM
(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
Bạn đang sử dụng AC 2003 ?
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
VD sau khi người dùng đăng nhập thành công bạn thêm code sau vào:
Với [Dang nhap] là tên của menu mà bạn tạo trên thanh menu có tên [mrcMain]Mã:Application.CommandBars("mrcMain").Controls("Dang nhap").Visible = False
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:
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 đànMã:Private Sub cmdHienMenuTrogiup_Click()
Application.CommandBars("mrcMain").Controls(4).Visible = True
End Sub
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é