Tùy chọn
Thủ Thuật Access
-
Trang chủ
|
Viết bởi: hadangpr 17-02-12, 05:07 PM Chuyên mục: Thủ thuật VBA - Bài trả lời (5) |
CSDL trên SQL server 2000 khi mình chạy nút lện tính tồn kho thì báo lỗi tại dòng
Set TonKho = csdl.OpenRecordset("tsoduvattuhanghoa", dbOpenDynaset)
đây là nguyên đoạn code
Function TinhTonKho(THANG, NAM)
Dim csdl As Database, TonKho As ADODB.Recordset, NhapXuat As ADODB.Recordset, SoDu As ADODB.Recordset
Set csdl = CurrentDb()
Set TonKho = csdl.OpenRecordset("tsoduvattuhanghoa", dbOpenDynaset)
Set NhapXuat = csdl.OpenRecordset("txuatnhaptam", dbOpenDynaset)
Set SoDu = csdl.OpenRecordset("qvattutonkho", dbOpenDynaset)
'Xaùc ñònh thaùng, naêm "tröôùc" vaø thaùng, naêm "sau" cuûa thaùng, naêm hieän haønh
If THANG = 1 Then
THANGTRUOC = 12: NAMTRUOC = NAM - 1
Else
THANGTRUOC = THANG - 1: NAMTRUOC = NAM
End If
If THANG = 12 Then
THANGTOI = 1: NAMTOI = NAM + 1
Else
THANGTOI = THANG + 1: NAMTOI = NAM
End If
'Khoùa soá dö tröôùc vaø sau khoùa soá dö hieän haønh
KhoaTruoc = NAMTRUOC & Right("0" & THANGTRUOC, 2)
KhoaHienHanh = NAM & Right("0" & THANG, 2)
KhoaToi = NAMTOI & Right("0" & THANGTOI, 2)
'Thieát laäp laïi giaù trò khôûi ñaàu cho thaùng hieän haønh
TonKho.index = "KHOASD"
TonKho.Seek ">=", KhoaHienHanh
If Not TonKho.EOF Then
Do
If TonKho!KHOASD >= KhoaToi Then Exit Do
TonKho.Close
TonKho![SLDAUKY] = 0: TonKho![TIENDAUKY] = 0: TonKho![SLNHAP] = 0
TonKho![TIENNHAP] = 0: TonKho![SLXUAT] = 0: TonKho![TIENXUAT] = 0
TonKho.Update
TonKho.MoveNext
If TonKho.EOF Then Exit Do
Loop
End If
'Chuyeån soá dö cuoái kyø tröôùc sang ñaàu kyø naøy
If SoDu.RecordCount > 0 Then
Do
If SoDu![KHOASD] >= KhoaHienHanh Then Exit Do
LUUKHOA = SoDu!KHOASD
LUUSOLG = SoDu!SLTON: LUUGTRI = SoDu!TIENTON
LUUVITRI = SoDu.Bookmark
KHOAMOI = KhoaHienHanh & Mid(LUUKHOA, 7)
TonKho.Seek "=", KHOAMOI
If TonKho.EOF Then
TonKho.AddNew: TonKho.Update: TonKho.MoveFirst: TonKho.Close
TonKho!KHOASD = KHOAMOI
TonKho.Update
End If
TonKho.Close
TonKho![SLDAUKY] = LUUSOLG: TonKho![TIENDAUKY] = LUUGTRI
TonKho![SLNHAP] = 0: TonKho![TIENNHAP] = 0
TonKho![SLXUAT] = 0: TonKho![TIENXUAT] = 0
TonKho.Update: 'TonKho.Bookmark = LUUVITRI
TonKho.MoveNext: SoDu.MoveNext
If SoDu.EOF Then Exit Do
Loop
End If
'Xöû lyù caùc soá lieäu phaùt sinh trong thaùng
If NhapXuat.RecordCount > 0 Then
NhapXuat.MoveFirst
Do Until NhapXuat.EOF
KHOACHINH = KhoaHienHanh & "-" & NhapXuat!makho & "-" & NhapXuat!MAHH
TonKho.Seek "=", KHOACHINH
If TonKho.EOF Then
TonKho.AddNew: TonKho.Update: TonKho.MoveFirst: TonKho.Close
TonKho!KHOASD = KHOACHINH
TonKho![SLDAUKY] = 0: TonKho![TIENDAUKY] = 0: TonKho![SLNHAP] = 0
TonKho![TIENNHAP] = 0: TonKho![SLXUAT] = 0: TonKho![TIENXUAT] = 0
TonKho.Update
End If
TonKho.Close
If NhapXuat!mact = "01PN" Then
TonKho!SLNHAP = TonKho!SLNHAP + NhapXuat!SOLUONG
TonKho!TIENNHAP = TonKho!TIENNHAP + NhapXuat!tien
Else
TonKho!SLXUAT = TonKho!SLXUAT + NhapXuat!SOLUONG
TonKho!TIENXUAT = TonKho!TIENXUAT + NhapXuat!tien
End If
TonKho.Update
NhapXuat.MoveNext
Loop
End If
If NhapXuat.RecordCount > 0 Then
NhapXuat.MoveFirst
Do Until NhapXuat.EOF
NhapXuat.Delete
NhapXuat.MoveNext
Loop
End If
TonKho.Close: NhapXuat.Close: SoDu.Close
Set csdl = Nothing
End Function
|
Viết bởi: anhbuncha 17-02-12, 03:58 PM Chuyên mục: Góc MyBB - Bài trả lời (1) |
|
|
Viết bởi: audition 17-02-12, 10:08 AM Chuyên mục: Forms - Bài trả lời (3) |
Mình cho đoạn code sau vào nút thêm
Dim DB As Database
Dim TB As Recordset
Set DB = CurrentDb()
Set TB = DB.OpenRecordset("congvanden", dbOpenTable)
If TB.RecordCount = 0 Then
Me.soden = "T001"
Else
DoCmd.GoToRecord , , acNewRec
TB.MoveLast
Me.soden = "T" + Format(Val(Mid(TB![soden], 2, 3)) + 1, "000")
End If
Thì nó tự động tăng STT mỗi lần thêm lên 1 đúng theo ý muốn, nhưng mình muốn ràng buộc thêm điều kiện là khi nhấn nút thêm này nó sẽ xét đến điều kiện textbox năm làm việc đã có trong bảng chưa, nếu có thì thêm như trên còn không thì quay lại T001 và tăng lên mỗi khi tìm gặp
|
|
Viết bởi: hadangpr 17-02-12, 08:57 AM Chuyên mục: Macro - Bài trả lời (5) |
Vậy anh chị nào có cách khắc phục không. Nếu không đăng nhập được thì cũng không cho sử dụng phím tắt.
http://www.mediafire.com/?ynj09ih68xsc741
|
|
Viết bởi: mrtin3 16-02-12, 11:49 PM Chuyên mục: Query - Bài trả lời (1) |
Mình có 1 table Nhanvien.
Giờ mình mún tạo query "Xóa 1 nhân viên với mã nhân viên nhập từ bàn phím" thì làm cách nào.
Xin hướng dẫn.Cám ơn.
| Chủ đề Mới nhất |
| Ứng dụng kiểm phiếu bầu c... -Chuyên mục: Thư Viện Ứng Dụng-Đăng bởi lần cuối: ongke0711-28-12-25, 01:21 AM- » Bài trả lời: 0- » Lượt xem: 44 |
| 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: chuvanthom-08-12-25, 09:12 PM- » Bài trả lời: 2- » Lượt xem: 3,282 |
| Demo - Tra cứu thông tin ... -Chuyên mục: Thư Viện Ứng Dụng-Đăng bởi lần cuối: ongke0711-16-11-25, 07:03 PM- » Bài trả lời: 26- » Lượt xem: 4,174 |
| Quản lý kho bằng Accesss -Chuyên mục: Thảo Luận Access-Đăng bởi lần cuối: hoandokhai-18-10-25, 04:48 PM- » Bài trả lời: 70- » Lượt xem: 6,042 |
| Thơ Nhạc Nhất Lang - Cảm ... -Chuyên mục: Góc Thơ -Đăng bởi lần cuối: Nguyễn Thành Sáng-09-10-25, 03:12 PM- » Bài trả lời: 1- » Lượt xem: 72 |
| 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: tt1212-09-09-25, 05:03 PM- » Bài trả lời: 32- » Lượt xem: 7,375 |
| Thử nghiệm upload hình -Chuyên mục: Phòng thử nghiệm-Đăng bởi lần cuối: Noname-29-08-25, 09:44 AM- » Bài trả lời: 2- » Lượt xem: 757 |
| Quản Lý Công Văn -Chuyên mục: Thư Viện Ứng Dụng-Đăng bởi lần cuối: Adung-23-07-25, 10:05 AM- » Bài trả lời: 8- » Lượt xem: 13,076 |
| (Update v.1.0.85 - 30/06/... -Chuyên mục: Thảo Luận Access-Đăng bởi lần cuối: Adung-22-07-25, 10:46 AM- » Bài trả lời: 270- » Lượt xem: 114,699 |
| Video Tự học Access ( Cơ ... -Chuyên mục: Thư Viện Giáo Trình-Đăng bởi lần cuối: Nguyễn Đình Thọ-21-07-25, 10:42 AM- » Bài trả lời: 7- » Lượt xem: 9,281 |
| Diễn đàn Thống kê |
|
» Thành viên: 8,328 » Thành viên mới nhất: Albertdob » Các chủ đề diễn đàn: 9,899 » Các bài viết diễn: 48,829 Thống kê đầy đủ |