![]() |
Viết bởi: Noname 08-08-10, 10:43 AM Chuyên mục: Chức năng diễn đàn - Không có hồi đáp |
[Spoiler= phần hiển thị] Nội dung cần ẩn[/spoiler]
[Spoiler= nội dung cuộc chiến] Nội dung cần ẩn[/spoiler]
[Spoiler= Chương 1] Nội dung cần ẩn thứ nhất[/spoiler]
[Spoiler= Chương 2] Nội dung cần ẩn thứ nhất[/spoiler]
[Spoiler= Chương 3] Nội dung cần ẩn thứ nhất[/spoiler]
![]() |
Viết bởi: Noname 08-08-10, 10:17 AM Chuyên mục: Chức năng diễn đàn - Bài trả lời (2) |
[video=youtube]http://www.youtube.com/watch?v=teB-l85MZ4c[/video]
![]() |
Viết bởi: Hạ Vàng 07-08-10, 02:04 AM Chuyên mục: Ms PowerPoint - Không có hồi đáp |
![]() |
Viết bởi: Noname 06-08-10, 12:59 PM Chuyên mục: Thư viện thủ thuật - Bài trả lời (6) |
hungtan Đã viết:bạn tạo 1 table T2, tạo field có tên là userTime, kiểu number
Khi user mở starup form, ở sự kiện open của form, bạn viết 1 đoạn code mở table trên và edit thêm sự kiện như sau:
Private Sub Form_Open(Cancel As Integer)
Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset("T2")
With rs
.MoveFirst
.Edit
!UserTime = !UserTime + 1
.Update
End With
rs.Close
End Sub
![]() |
Viết bởi: Noname 06-08-10, 12:54 PM Chuyên mục: Thư viện thủ thuật - Bài trả lời (2) |
ndtoan123 Đã viết:Mình cho vd nhé: Giả sử bạn có bảng nhân viên(MaNV;TenNV) bây giờ tại Form: Frmnhanvien bạn có 1 combobox(tên là Cboma) để gõ mã nhân viên và 1 Textbox(tên là txttenNV) để hiển thị tên nhân viên ứng với mã NV đã chọn. VD khi gõ vào combobox mã nhân viên NV01 thì textbox sẽ hiển thị là Nguyễn Văn A; khi gõ vào nhân viên NV02 thì textbox hiển thị là Nguyễn văn B...Cách 2:
Muốn vậy tại textbox trên Form frmnhanvien: chọn Text txttenNV gõ vào công thức:
=Dlookup("tenNV","nhanvien","nhanvien!maNV=[Forms]![frmNhanvien]![Cboma]")
thì bạn sẽ có được kết quả ngay nhưng nhớ đặt thuộc tính Looked= Yes cho Textbox txttenNV (Mục đích là textbox này chỉ để hiển thị kết quả, không cho sửa đổi)
pinkair Đã viết:Ví dụ bạn có Table la NhanVien gồm hai trường MaNV, TenNV
Bạn tạo Form có 1 Combo la CmbMaNV; 1 Text Box là txtTenNV
Source của CmbMaNV là table NhanVien trên.
Đoạn code như sau:
Private Sub cmbMaNV Click()
Me.txtTenNV.Value = Me.cmbMaNV.Column(1)
End Sub
Mình đã làm rồi, rất là OK bạn ah, bạn có thể sử dung
Chủ đề Mới nhất |
Câu lệnh SQL không chạy k... -Chuyên mục: Thủ thuật VBA-Đăng bởi lần cuối: ongke0711-6 Phút trước- » Bài trả lời: 2- » Lượt xem: 18 |
Trang web chia sẻ hơn 40 ... -Chuyên mục: Thư Viện Ứng Dụng-Đăng bởi lần cuối: ongke0711-12 Phút trước- » Bài trả lời: 6- » Lượt xem: 3,308 |
[Demo P1] Code Ẩn tất cả ... -Chuyên mục: Thư viện thủ thuật-Đăng bởi lần cuối: havinhlong-Hôm qua, 03:16 PM- » Bài trả lời: 215- » Lượt xem: 74,941 |
QLCTY DUOC -Chuyên mục: Thư Viện Ứng Dụng-Đăng bởi lần cuối: thanhdl1-Hôm qua, 02:03 PM- » Bài trả lời: 4- » Lượt xem: 276 |
TÌM BẠN GIỎI ACESS LÀM DỰ... -Chuyên mục: Tương tác Chương trình ngoài-Đăng bởi lần cuối: ongke0711-Hôm qua, 02:43 AM- » Bài trả lời: 7- » Lượt xem: 99 |
Thơ Những Mối Tình Buồn -Chuyên mục: Góc Thơ -Đăng bởi lần cuối: Nguyễn Thành Sáng-24-03-23, 10:09 PM- » Bài trả lời: 9- » Lượt xem: 81 |
Quản lý tủ tài liệu điện ... -Chuyên mục: Liên Kết Website-Đăng bởi lần cuối: Ngocmai858-24-03-23, 12:02 PM- » Bài trả lời: 0- » Lượt xem: 14 |
Import Dữ Liệu Từ Excel V... -Chuyên mục: Tương tác Chương trình ngoài-Đăng bởi lần cuối: tt1212-22-03-23, 10:54 PM- » Bài trả lời: 34- » Lượt xem: 34,386 |
[Update-Add in]Công cụ So... -Chuyên mục: Add-In-Đăng bởi lần cuối: havinhlong-22-03-23, 09:13 PM- » Bài trả lời: 72- » Lượt xem: 5,502 |
Nhờ kiểm tra code -Chuyên mục: Trao đổi Góp ý-Đăng bởi lần cuối: ongke0711-22-03-23, 12:18 AM- » Bài trả lời: 3- » Lượt xem: 53 |
Diễn đàn Thống kê |
» Thành viên: 4,763 » Thành viên mới nhất: doanhkhoa.st@gmail.com » Các chủ đề diễn đàn: 9,734 » Các bài viết diễn: 47,643 Thống kê đầy đủ |