Tùy chọn
Thủ Thuật Access
-
Trang chủ
|
Viết bởi: VuNH 04-06-21, 09:56 AM Chuyên mục: Report - Bài trả lời (4) |
Nay em có vấn đề cần giúp đỡ như sau: Em có tạo Report để in các loại giấy xác nhận (nguồn dữ liệu là link table từ excel - Data_IN) , em cần là khi in dòng dữ liệu nào xong rồi, sẽ xóa dòng đó trong link table và chuyển sang table In_ThongTin có sẵn. Mong mọi người giúp đỡ, cám ơn ah
|
Viết bởi: tt1212 03-06-21, 01:24 PM Chuyên mục: Thủ thuật VBA - Bài trả lời (2) |
|
Viết bởi: dotrung 01-06-21, 07:50 AM Chuyên mục: Forms - Bài trả lời (5) |
Rất mong mọi người giúp đỡ, dotrung xin cảm ơn!
link hình : https://uphinh.vn/image/jWLLG
Trích dẫn:Private Sub MaVach_AfterUpdate()
Beep
'------------------------------------------------------------------ neu ma vach khong co hoac khong dung thi canh bao.
If DLookup("[Makho]", "qry_NXT_BC", "Mahang='" & Forms![frmPhieuXuatKho_khac]![MM] & "'") <> DLookup("Khobanle", "Index") Then
msgBoxOK DLookup("[NDUNG1]", "tblTHONGBAO", "[SOTB] = 15"), vbInformation, DLookup("[TIEUDE]", "tblTHONGBAO", "[SOTB] = 1")
Exit Sub
Else
'--------------------------------------------------- Neu co du lieu thi cong don theo ma hang va tinh tien
Forms![frmPhieuXuatKho_khac]!Image.Picture = DLookup("[hinh]", "tbldanhmuchanghoa", "[Mavach]=Forms![frmPhieuXuatKho_khac]![Mavach]")
If (Not IsNull(DLookup("[MAHANG]", "tblPhieunhapxuatchitiet", "[MAHANG]=[MM] and [Sochungtu]=[txtsochungtu]"))) Then
Forms![frmPhieuXuatKho_khac]!Image.Requery
Dim sotang
sotang = DLookup("[SoLuong]", "tblPhieunhapxuatchitiet", "[MAHANG]=[MM]and[Sochungtu]=[Forms]![frmPhieuXuatKho_khac]![txtSochungtu]")
Me.TSL = sotang + 1
DoCmd.OpenQuery "A_UPDATE_TSL_MAVACH"
DoCmd.OpenQuery "A_UPDATE_TINHTIEN_MAVACH"
Forms![frmPhieuXuatKho_khac]![frmPhieuXuatKhoChiTiet_khac_Subform].Form.Requery
DoCmd.GoToRecord , , acNext
DoCmd.GoToRecord , , acPrevious
Me.Mavach.SetFocus
Mavach = Null
Me.Refresh
'---------------------------------------------------------------- Nguoc lai them moi mat hang
Else
DoCmd.OpenQuery "APP_THEM_HANGHOA_MAVACH", acViewNormal
Forms![frmPhieuXuatKho_khac]![frmPhieuXuatKhoChiTiet_khac_Subform].Form.Requery
DoCmd.GoToRecord , , acNext
DoCmd.GoToRecord , , acPrevious
Me.Mavach.SetFocus
Mavach = Null
Me.Refresh
End If
End If
End Sub
|
|
Viết bởi: AnNguyen 28-05-21, 05:43 PM Chuyên mục: Thủ thuật VBA - Bài trả lời (6) |
Vậy có cách nào để mình tạo 1 ứng dụng làm sao để nó có thao tác gì mà ngăn không cho khóa màn hình desktop lại không ạ. Vì em đã thử đè bàn phím vào 1 chỗ những vẫn khóa màn hình ạ. Em cảm ơn.
|
|
Viết bởi: tvn_hut 27-05-21, 11:51 PM Chuyên mục: Thủ thuật VBA - Bài trả lời (1) |
Mình có câu lệnh, tuy nhiên khi chọn giá trị trên CboID (Format là General Number) để gọi dòng thông tin trong bảng TblSCSboxHeader theo ID (autonumber) nhưng không được. Mình nghi ngờ viết sai cấu trúc [ID] = CboID. Riêng với format text thì mình làm OK ([BoxID] = '" & Me.CboBoxID & "'"), còn với số mình ko biết cấu trúc nó viết sao cho đúng. Các bạn chỉ giúp mình với
Private Sub CboID_AfterUpdate()
Me.TxtBox = DLookup("[BoxID]", "TblSCSBoxHeader", "[ID]= CboID") --> Câu này chạy đúng
On Error GoTo Handle
Me.RecordSource = "SELECT * FROM TblSCSboxHeader WHERE [ID] = CboID" --> Câu này chạy ko đúng với format này.
Me.Requery
Handle:
If Err <> 0 Then
MsgBox "Invalid ID Number !"
Exit Sub
End If
End Sub
| 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,345 |
| 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: 146 |
| 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: 160 |
| 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,101 |
| 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: 182 |
| Đồ 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: 660 |
| 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: 186 |
| 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: 632 |
| 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,616 |
| 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: 285 |
| 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 đủ |