Tùy chọn
Đổi nội dung nút lệnh trên 1 button
- Đổi nội dung nút lệnh trên 1 button
-
Đổi nội dung nút lệnh trên 1 button
longkd_bvct@yahoo.com.vn > 18-12-19, 12:01 PM
Chào mọi người ạ. Em đang làm 1 form nhập liệu. Gồm các nút lệnh: Thêm, Chỉnh, Xóa, Đóng
Em muốn khi click vào nút "Thêm" thì nó sẽ tự chuyển thành nút "Lưu", còn nút "Chình" sẽ chuyển thành "Bỏ qua" và ẩn nút "Xóa"
Và khi em click nút "Chỉnh" thì nút "Thêm" sẽ chuyển thành nút "Lưu", và bản thân nút "Chỉnh" sẽ chuyển thành "Bỏ qua". Và kèm theo icon của từng nút ạ.
Em đã làm được nút "Thêm", "Xóa", còn nút "Chỉnh" em chưa làm dc. Nhờ mọi người giúp ạ. Em chân thành cảm ơn.
https://drive.google.com/file/d/1_umXdFC...sp=sharing -
RE: Đổi nội dung nút lệnh trên 1 button
tranthanhan1962 > 18-12-19, 02:05 PM
(18-12-19, 12:01 PM)longkd_bvct@yahoo.com.vn Đã viết: Chào mọi người ạ. Em đang làm 1 form nhập liệu. Gồm các nút lệnh: Thêm, Chỉnh, Xóa, Đóng
Do code VBA sẽ bị lỗi khi gỏ tiếng Việt, nên bạn phải tạo thêm các Label mẫu để xử lý các các Caption cho nút lệnh: Them_Label (Caption "Thêm"), Luu_Label (Caption "Lưu"), Chinh_Label (Caption "Chỉnh")...
Em muốn khi click vào nút "Thêm" thì nó sẽ tự chuyển thành nút "Lưu", còn nút "Chình" sẽ chuyển thành "Bỏ qua" và ẩn nút "Xóa"
Và khi em click nút "Chỉnh" thì nút "Thêm" sẽ chuyển thành nút "Lưu", và bản thân nút "Chỉnh" sẽ chuyển thành "Bỏ qua". Và kèm theo icon của từng nút ạ.
Em đã làm được nút "Thêm", "Xóa", còn nút "Chỉnh" em chưa làm dc. Nhờ mọi người giúp ạ. Em chân thành cảm ơn.
https://drive.google.com/file/d/1_umXdFC...sp=sharing
Đã có các caption thì cứ dùng hàm if để xử lý thôi.
Private Sub cmdThem_Click()
Lệnh xử lý của cmdThem...
cmdThem.Caption=Luu_Label.Caption
cmdChinh.Caption=BoQua_Label.Caotion
cmdXoa.Visible=False
End Sub
--------
Private Sub cmdChinh_Click()
Lệnh xử lý của cmdChinh...
cmdThem.Caption=Luu_Label.Caption
cmdChinh.Caption=BoQua_Label.Caotion
cmdXoa.Visible=False
End Sub
Còn về icon của các nút lệnh bạn tạo sẳn các nút lệnh mẫu có sẳn các icon muốn sử dụng Đặt tên thành mau01, mau02, mau03 hoặc mauthem, mauxoa, mauchinh...
Khi muốn nút lệnh có icon nào thì đưa code vào:
Ví dụ muốn muốn cmdThem có icon lưu: cmdThem.PictureData = mauluu.PictureData khi muốn nó trở về icon thêm thì cmdThem.PictureData = mauthem.PictureData
Nói chung bạn xử lý tốt công việc của mình chỉ vướng cái caption khi muốn thay đổi vì VBA không hỗ trợ unicode tiếng Việt nên chỉ cần tạo các label mẫu tiếng Việt để nó lấy sử dụng. Tương tự các mẫu icon cũng làm sẵn để nó sử dụng khi cần thay đổi. Thiết đặt các mẫu này visible = false để khi mở form nó không hiển thị.
Chúc bạn thành công -
RE: Đổi nội dung nút lệnh trên 1 button
longkd_bvct@yahoo.com.vn > 18-12-19, 03:36 PM
(18-12-19, 02:05 PM)tranthanhan1962 Đã viết:
Cám ơn anh đã hướng dẫn ạ.(18-12-19, 12:01 PM)longkd_bvct@yahoo.com.vn Đã viết: Chào mọi người ạ. Em đang làm 1 form nhập liệu. Gồm các nút lệnh: Thêm, Chỉnh, Xóa, Đóng
Do code VBA sẽ bị lỗi khi gỏ tiếng Việt, nên bạn phải tạo thêm các Label mẫu để xử lý các các Caption cho nút lệnh: Them_Label (Caption "Thêm"), Luu_Label (Caption "Lưu"), Chinh_Label (Caption "Chỉnh")...
Em muốn khi click vào nút "Thêm" thì nó sẽ tự chuyển thành nút "Lưu", còn nút "Chình" sẽ chuyển thành "Bỏ qua" và ẩn nút "Xóa"
Và khi em click nút "Chỉnh" thì nút "Thêm" sẽ chuyển thành nút "Lưu", và bản thân nút "Chỉnh" sẽ chuyển thành "Bỏ qua". Và kèm theo icon của từng nút ạ.
Em đã làm được nút "Thêm", "Xóa", còn nút "Chỉnh" em chưa làm dc. Nhờ mọi người giúp ạ. Em chân thành cảm ơn.
https://drive.google.com/file/d/1_umXdFC...sp=sharing
Đã có các caption thì cứ dùng hàm if để xử lý thôi.
Private Sub cmdThem_Click()
Lệnh xử lý của cmdThem...
cmdThem.Caption=Luu_Label.Caption
cmdChinh.Caption=BoQua_Label.Caotion
cmdXoa.Visible=False
End Sub
--------
Private Sub cmdChinh_Click()
Lệnh xử lý của cmdChinh...
cmdThem.Caption=Luu_Label.Caption
cmdChinh.Caption=BoQua_Label.Caotion
cmdXoa.Visible=False
End Sub
Còn về icon của các nút lệnh bạn tạo sẳn các nút lệnh mẫu có sẳn các icon muốn sử dụng Đặt tên thành mau01, mau02, mau03 hoặc mauthem, mauxoa, mauchinh...
Khi muốn nút lệnh có icon nào thì đưa code vào:
Ví dụ muốn muốn cmdThem có icon lưu: cmdThem.PictureData = mauluu.PictureData khi muốn nó trở về icon thêm thì cmdThem.PictureData = mauthem.PictureData
Nói chung bạn xử lý tốt công việc của mình chỉ vướng cái caption khi muốn thay đổi vì VBA không hỗ trợ unicode tiếng Việt nên chỉ cần tạo các label mẫu tiếng Việt để nó lấy sử dụng. Tương tự các mẫu icon cũng làm sẵn để nó sử dụng khi cần thay đổi. Thiết đặt các mẫu này visible = false để khi mở form nó không hiển thị.
Chúc bạn thành công
Thật sự thì em đang vướng chổ nút Bỏ qua và Lưu khi chỉnh sửa k biết viết code như thế nào ạ. nà nút xóa thì lại chỉ xóa Dòng đầu tiên cho dù chọn dòng khác ạ.
Nếu được nhờ mọi người demo giúp ạ.
https://drive.google.com/file/d/1_umXdFC...sp=sharing -
RE: Đổi nội dung nút lệnh trên 1 button
longkd_bvct@yahoo.com.vn > 19-12-19, 08:37 AM
Ai có thời gian giúp em với ạ. -
RE: Đổi nội dung nút lệnh trên 1 button
ongke0711 > 19-12-19, 12:29 PM
Để thay đổi Caption (tiếng Việt có dấu) của nút lệnh + icon nút thì tốt nhất là bạn tạo 1 table để lưu dữ liệu cho tác vụ này.
Table sẽ có field tên nút, field hình ảnh icon nút lênh - dạng OLE object để lưu thẳng lên database luôn (các icon này có dung lượng thấp nên lưu thẳng luôn không sao).
Cách gọi ra thì giống anh tranthanhan1962 đã hướng dẫn. Đối với icon thì cứ dùng Dlookup là ok.
Vd: cmdSua.PictureData = Dlookup(....)
(Chút nữa sẽ sửa code các nút cho bạn.)
File demo: http://www.mediafire.com/file/nr3xfsy8c9...accdb/file
![[Hình: 49241732876_153c2145db_o.png]](https://live.staticflickr.com/65535/49241732876_153c2145db_o.png)
-
RE: Đổi nội dung nút lệnh trên 1 button
Xuân Thanh > 19-12-19, 01:21 PM
Có một cách khác đơn giản và tiện lợi nhiều cho việc viết code. Đó là tạo nút và viết code cho nút đó bình thường khi thiết kế và đặt chồng khít chúng lên nhau. Khi bấm nút A thì cho hiện nút B rồi ẩn nút A và ngược lại
Mã:Private Sub A_Click()
Me.B.Visible = True
Me.A.Visible = False
....code cho nút A
End Sub
Private Sub B_Click()
Me.A.Visible = True
Me.B.Visible = False
....code cho nút B
End Sub
Nếu muốn cho nút nào hiện trước thì khi Open Form viết lệnh Visible = True cho nó -
RE: Đổi nội dung nút lệnh trên 1 button
Nguyen SVN > 19-12-19, 02:40 PM
đại loại bạn có thể làm như sau
Private Sub A_Click()
If Me!thêm.Caption = "thêm" Then
Me!thêm.Caption = "đang thêm"
Me!thêm.ForeColor = "255"
................................
Else if Me!Thêm.Caption = "Lưu"
Me!Thêm.Caption = "Lưu"
Me!Thêm.ForeColor = "8388608"
.................................
else
....................................
End If
End Sub -
RE: Đổi nội dung nút lệnh trên 1 button
ongke0711 > 19-12-19, 04:40 PM
Xem file cập nhật ở trên nhé. -
RE: Đổi nội dung nút lệnh trên 1 button
ongke0711 > 20-12-19, 12:57 AM
(18-12-19, 12:01 PM)longkd_bvct@yahoo.com.vn Đã viết: Chào mọi người ạ. Em đang làm 1 form nhập liệu. Gồm các nút lệnh: Thêm, Chỉnh, Xóa, Đóng
Em muốn khi click vào nút "Thêm" thì nó sẽ tự chuyển thành nút "Lưu", còn nút "Chình" sẽ chuyển thành "Bỏ qua" và ẩn nút "Xóa"
Và khi em click nút "Chỉnh" thì nút "Thêm" sẽ chuyển thành nút "Lưu", và bản thân nút "Chỉnh" sẽ chuyển thành "Bỏ qua". Và kèm theo icon của từng nút ạ.
File demo theo yêu cầu của bạn đây.
Link: http://www.mediafire.com/file/nr3xfsy8c9...accdb/file
Các control (textbox, command button...) có một thuộc tính mà ít bạn khai thác đó là Tag (nằm trong Properties - Other).
Trong trường hợp một nút lệnh có nhiều chức năng thì sử dụng .Tag cũng là một trong các giải pháp.
Vd: khi bấm một nút lệnh [Thêm], bạn sẽ gán cho Tag của nút đó là: "luu". Khi bấm lần nữa, sẽ dùng code kiểm tra cái Tag này, nếu nó là "luu" thì thực hiện code lưu, nếu nó là "them" thì thực hiện các code tưng ứng.
Trong demo trên tôi sử dụng thuộc tính Tag này cho nút lệnh.
Góp ý riêng về code trong file của bạn longkd_bvct@yahoo.com.vn:
- Khi khai báo "Dim rs As Recordset", bạn nên khai báo tường minh hơn là "Dim rs As DAO.Recordset" vì: nếu trong file của bạn có khai báo thư viện ADODB thì với cách khai báo đầu tiên của bạn, Access có khi sẽ hiểu là ADO Recordset chứ không phải DAO Recordset và các phương thức, thuộc tính của 2 loại recordset này là khác nhau.
- Đối với các Action query (Insert, delete, update) thì bạn nên dùng câu lệnh SQL để thực thi sẽ nhanh hơn so với dùng Recordset:
Vd: CurrentDb.Execute "UPDATE tblCsyt SET tencsyt = '" & Me.txtTenCsyt & "'", dbFailOnError
sẽ chạy nhanh hơn là
Dim rs As DAO.Recordset
Set rs = CurrentDb. OpenRecordset ("SELECT * FROM tblCsyt WHERE macsyt ='" & me.txtmacsyt & "'", dbOpenDynaset)
rs.Edit
...
rs.Update
- Đối với table tblCsyt, tôi phải thêm một trường ID dạng "Auto Number" để làm thêm một mã định danh cho từng dòng. Bạn dùng [macsyt] làm khoá chính (Primary key) nhưng bạn cũng cho phép sửa luôn trường này trong Form (unbound) -> vậy khi update thì bạn dựa vào field nào của record để xác định đúng là dòng mình cầp cập nhật vô? bạn đã sửa luôn khoá chính rồi.
- Tương tự cái lỗi trên khi bạn bấm nút [Xoá] mà nó xoá dòng đầu tiên như bạn đã đề cập. Lý do là code nút xoá của bạn nó không xác định được dòng nào cần xoá.
Set rs = currentDb.OpenRecordset ("tblCsyt", dbOpenDynaset)
rs.Delete -->>??? Xoá dòng nào? có từ khoá nào để xác định ?
Mặc định khi OpenRecordset thì con trỏ sẽ nằm ở dòng đầu tiên của Recordset nên nó sẽ xoá dòng đầu tiên thôi.
Nếu bạn muốn dùng Recordset để xoá thì bạn phải lọc ra đúng dòng cần xoá
Vd:
Dim sSQL As String
sSQL =" Select * From tblCsyr Where macsyt ='" & me.txtmacssyt & "'" --> trả về đúng 1 dòng
Set rs = currentDb.OpenRecordset (sSQL, dbOpenDynaset)
rs.Delete
...
- Khi bạn bẫy lỗi kiểm tra một Textbox có rỗng hay không để bắt người dùng nhập liệu đầy đủ:
If Me.txtcsyt ="" Then ... --> câu lệnh này chưa đủ vì còn trường hợp Null mà bạn chưa bẫy lỗi. Null khác "" nhé. -
RE: Đổi nội dung nút lệnh trên 1 button
longkd_bvct@yahoo.com.vn > 20-12-19, 08:39 AM
(20-12-19, 12:57 AM)ongke0711 Đã viết:
Em chân thành cảm ơn anh nhiều ạ. Vì em tự học nên có nhiều việc cũng k hiểu rõ ạ.(18-12-19, 12:01 PM)longkd_bvct@yahoo.com.vn Đã viết: Chào mọi người ạ. Em đang làm 1 form nhập liệu. Gồm các nút lệnh: Thêm, Chỉnh, Xóa, Đóng
Em muốn khi click vào nút "Thêm" thì nó sẽ tự chuyển thành nút "Lưu", còn nút "Chình" sẽ chuyển thành "Bỏ qua" và ẩn nút "Xóa"
Và khi em click nút "Chỉnh" thì nút "Thêm" sẽ chuyển thành nút "Lưu", và bản thân nút "Chỉnh" sẽ chuyển thành "Bỏ qua". Và kèm theo icon của từng nút ạ.
File demo theo yêu cầu của bạn đây.
Link: http://www.mediafire.com/file/nr3xfsy8c9...accdb/file
Các control (textbox, command button...) có một thuộc tính mà ít bạn khai thác đó là Tag (nằm trong Properties - Other).
Trong trường hợp một nút lệnh có nhiều chức năng thì sử dụng .Tag cũng là một trong các giải pháp.
Vd: khi bấm một nút lệnh [Thêm], bạn sẽ gán cho Tag của nút đó là: "luu". Khi bấm lần nữa, sẽ dùng code kiểm tra cái Tag này, nếu nó là "luu" thì thực hiện code lưu, nếu nó là "them" thì thực hiện các code tưng ứng.
Trong demo trên tôi sử dụng thuộc tính Tag này cho nút lệnh.
Góp ý riêng về code trong file của bạn longkd_bvct@yahoo.com.vn:
- Khi khai báo "Dim rs As Recordset", bạn nên khai báo tường minh hơn là "Dim rs As DAO.Recordset" vì: nếu trong file của bạn có khai báo thư viện ADODB thì với cách khai báo đầu tiên của bạn, Access có khi sẽ hiểu là ADO Recordset chứ không phải DAO Recordset và các phương thức, thuộc tính của 2 loại recordset này là khác nhau.
- Đối với các Action query (Insert, delete, update) thì bạn nên dùng câu lệnh SQL để thực thi sẽ nhanh hơn so với dùng Recordset:
Vd: CurrentDb.Execute "UPDATE tblCsyt SET tencsyt = '" & Me.txtTenCsyt & "'", dbFailOnError
sẽ chạy nhanh hơn là
Dim rs As DAO.Recordset
Set rs = CurrentDb. OpenRecordset ("SELECT * FROM tblCsyt WHERE macsyt ='" & me.txtmacsyt & "'", dbOpenDynaset)
rs.Edit
...
rs.Update
- Đối với table tblCsyt, tôi phải thêm một trường ID dạng "Auto Number" để làm thêm một mã định danh cho từng dòng. Bạn dùng [macsyt] làm khoá chính (Primary key) nhưng bạn cũng cho phép sửa luôn trường này trong Form (unbound) -> vậy khi update thì bạn dựa vào field nào của record để xác định đúng là dòng mình cầp cập nhật vô? bạn đã sửa luôn khoá chính rồi.
- Tương tự cái lỗi trên khi bạn bấm nút [Xoá] mà nó xoá dòng đầu tiên như bạn đã đề cập. Lý do là code nút xoá của bạn nó không xác định được dòng nào cần xoá.
Set rs = currentDb.OpenRecordset ("tblCsyt", dbOpenDynaset)
rs.Delete -->>??? Xoá dòng nào? có từ khoá nào để xác định ?
Mặc định khi OpenRecordset thì con trỏ sẽ nằm ở dòng đầu tiên của Recordset nên nó sẽ xoá dòng đầu tiên thôi.
Nếu bạn muốn dùng Recordset để xoá thì bạn phải lọc ra đúng dòng cần xoá
Vd:
Dim sSQL As String
sSQL =" Select * From tblCsyr Where macsyt ='" & me.txtmacssyt & "'" --> trả về đúng 1 dòng
Set rs = currentDb.OpenRecordset (sSQL, dbOpenDynaset)
rs.Delete
...
- Khi bạn bẫy lỗi kiểm tra một Textbox có rỗng hay không để bắt người dùng nhập liệu đầy đủ:
If Me.txtcsyt ="" Then ... --> câu lệnh này chưa đủ vì còn trường hợp Null mà bạn chưa bẫy lỗi. Null khác "" nhé.
Có 1 vấn đề em muốn hỏi thêm là viết code thế nào để khi mình nhấn bỏ qua thì nó sẽ tự load dữ liệu từ subform lên unbound lên trở lại ạ.