Ẩn Nút Office Button tên file Access 2007 *.accdb
Trên Access 2007 trở lên chúng ta có thanh Ribbon và nút Office Button. Và đôi khi hoàn thiện một ứng dụng đã khoá các thuộc tính, chúng ta muốn người dùng không vọc phá tay chân, và lick phải vào thanh này để hiện những cái chúng ta cần giấu đi.Giải pháp sau sẽ làm được chuyện đó: ( Mong các bạn thông cảm, do không tìm thấy bài viết về vấn đề này nên đành đăng bài mới cùng chia sẽ với các bạn, nếu đã có rồi xin bỏ qua.)
DoCmd.ShowToolbar "Ribbon", acToolbarNo
Cả nhà vui vẻ!  
Hàm tạo Mã (dùng cho Học Sinh, Sinh Viên, Cán Bộ, Hộ Khẩu....)
Khi thiết kế các chương tình quản lý Học viên, Hộ khẩu, Nhân sự...ta thường phải tạo Mã cho Học viên, Nhân Khẩu, Nhân viên... Có nhiều cách tạo mã cho các trường hợp này. Xin giới thiệu với các bạn hàm CreateCode mà tôi hay sử dụng. Hàm này dựa vào khai báo Họ Tên, Ngày Sinh, Giới tính để tạo Mã
1/ Lấy các chữ cái đầu của Họ tên để tạo ra thành phần HOTEN
Ví dụ : Nguyễn Văn Thanh thì HOTEN = NVT, Trần Thị Mộng Hoài thì HOTEN = TTMH
2/ Lấy Năm của Ngày sinh, Tháng của Ngày Sinh(2 số), Ngày của Ngày Sinh(2 số) ghép lại tạo thành NGAYSINH
Ví dụ Ngày sinh = 15/11/1958 thì NGAYSINH = 19581115, Ngày sinh = 3/7/1965 thì NGASINH = 19650703
3/ Lấy Giới tính tạo ra GIOITINH
Ví dụ Giới tính = Nam thì GIOITINH = M, Giới tính = Nữ thì GIOITINH = F
Và CreateCode = HOTEN & NGAYSINH & GIOITINH
Ví dụ Nhân viên Trần Thị Mộng Hoài, sinh 3/7/1965, giới tính nữ thì Mã Nhân Viên sẽ là NTMH19650703F
Với cách tạo mã tự sinh như thế này thì trong một bộ hồ sơ ít xảy ra trường hợp bị trùng Mã
Mời các bạn tham khảo hàm CreateCode
Mã PHP: Function CreateCode(strName As String, strDateOfBirth As Date, strGender As String) As String Dim sName As String Dim sNowName As String sNowName = Trim(strName) sName = Left(sNowName, 1) Dim i As Integer For i = 1 To Len(sNowName) If Mid(sNowName, i, 1) = Space(1) Then sName = sName & Mid(sNowName, i + 1, 1) End If Next Dim sDate As String sDate = Year(strDateOfBirth) & Right("0" & Month(strDateOfBirth), 2) & Right("0" & Day(strDateOfBirth), 2) Dim sGender As String sGender = IIf(strGender = "Nam", "M", "F") CreateCode = sName & sDate & sGender End Function
Chúc các bạn vui
Thân mến
Tạo số ngẫu nhiên trong access
Xin chào các cao thủ giúp tôi:
Tôi muốn viết chương trình quay số ngẫu nhiên: số được lấy ngẫu nhiên trong 01 tables nhập từ bàn phím. Có nút "bắt đầu" và khi bấm nút này số chạy hỗn loạn. Có nút "Kết quả" và khi bấm nút này nó dừng lại và đưa ra 1 số ngẫu nhiên trong tables. (Ghi chú số đã đưa ra rồi sẽ bị xóa trong tables tức là chỉ xuất hiện một lần thôi)
Tôi làm hoài mà nó không được như yêu cầu của đề ra./.
Help: lỗi Data Type mismatch in criteria expression
mình đang học VBA cho access nhưng gặp lỗi này mà không biết sửa sao nhờ mọi người giúp đỡ với ah. code đây:
Private Sub Command1_Click()
Dim db As DAO.Database
Dim rs As DAO.Recordset
Set db = CurrentDb
Set rs = db.OpenRecordset("SELECT * FROM Hoadonnhap WHERE sohoadon = '10'")
If rs.RecordCount > 0 Then
rs.MoveFirst
rs.Edit
rs.Fields("remark") = "dasua"
rs.Update
End If
End Sub
lỗi ở dòng câu lệnh select. sohoadon la type dang number
Mong mọi người giúp đỡ ạ
Cho em hỏi Làm sao để tính tồn kho và Tìm Kiếm
Em có 1 table HANGHOA có MAHH, TENHH. 1 Table CThoadonX, có MAHDX, SOLUONGX và 1 table CTHOADONN có MAHDN và SOLUONGN. Em muốn hỏi làm sao mà khi mình xuất HD bán hàng, nếu hàng trong kho hết thì nó báo lỗi và không cho xuất, em tính tồn kho là lấy SOLUONGN-SOLUONGX, có nhiều cái nó bị âm luôn.
Cho em hỏi nữa là e có 1 table SINHVIEN có trường HoTen, e tạo được cái form tìm kiếm rồi nhưng nó phải ghi rõ đầy đủ hết họ tên nó mới tìm được em muốn tìm kiếm 1 đoạn VD. Lê văn A, em tìm theo họ Lê có bao nhiêu sinh viên họ Lê thì nó liệt kê ra thì làm thế nào ạ?
Mong các Anh Chị giúp đỡ em với.
Cho em hỏi cách tính doanh số trong tháng thì mình tính thế nào?
| Chủ đề Mới nhất |
|
Quản Lý Phòng Khám Tư Nhâ...
-Chuyên mục: Thư Viện Ứng Dụng-Đăng bởi lần cuối: Le Duc-24-09-26, 12:03 AM-
» Bài trả lời: 34-
» Lượt xem: 8,341
|
|
Tạo Form không có khung v...
-Chuyên mục: Thư viện thủ thuật-Đăng bởi lần cuối: ongke0711-05-09-26, 10:12 PM-
» Bài trả lời: 0-
» Lượt xem: 138
|
|
Tải hàng loạt hóa đơn PDF...
-Chuyên mục: Thành viên giúp nhau-Đăng bởi lần cuối: dotrung-16-08-26, 10:29 PM-
» Bài trả lời: 6-
» Lượt xem: 156
|
|
Quản lý kho bằng Accesss
-Chuyên mục: Thảo Luận Access-Đăng bởi lần cuối: AKBui-09-08-26, 12:52 AM-
» Bài trả lời: 77-
» Lượt xem: 8,059
|
|
Tra cứu Mã số thuế - phần...
-Chuyên mục: Share Code-Đăng bởi lần cuối: ongke0711-03-07-26, 02:10 PM-
» Bài trả lời: 0-
» Lượt xem: 176
|
|
Đồ cổ đây - một chút hoài...
-Chuyên mục: Góc ảnh-Đăng bởi lần cuối: Noname-12-06-26, 09:21 AM-
» Bài trả lời: 1-
» Lượt xem: 647
|
|
Tra cứu thông tin DN qua ...
-Chuyên mục: Thư Viện Ứng Dụng-Đăng bởi lần cuối: ongke0711-02-06-26, 11:36 PM-
» Bài trả lời: 0-
» Lượt xem: 182
|
|
Homestay chill đà lat
-Chuyên mục: Góc Blogger-Đăng bởi lần cuối: tt1212-01-06-26, 02:51 PM-
» Bài trả lời: 0-
» Lượt xem: 618
|
|
Quản lý quầy thuốc nhỏ lẻ
-Chuyên mục: Thư Viện Ứng Dụng-Đăng bởi lần cuối: ongke0711-09-05-26, 11:24 AM-
» Bài trả lời: 4-
» Lượt xem: 3,611
|
|
TẠO THÔNG BÁO NHẮC NHỞ CÔ...
-Chuyên mục: Tương tác Chương trình ngoài-Đăng bởi lần cuối: ongke0711-07-04-26, 10:46 AM-
» Bài trả lời: 2-
» Lượt xem: 281
|
| Diễn đàn Thống kê |
» Thành viên: 0
» Thành viên mới nhất:
Không có ai
» Các chủ đề diễn đàn: 0
» Các bài viết diễn: 0
Thống kê đầy đủ
|
| | | | |