Tùy chọn
Thủ Thuật Access
-
Trang chủ
Share Office 2k10 pro
|
Viết bởi: bomnhauag 19-02-12, 12:06 PM Chuyên mục: Tin Học Văn Phòng - Bài trả lời (13) |
Note: chạy nhanh và "mịn" hơn 2007 nhiều lắm:
Office 2010 (cr@ck)
CÓ trục trặc j liên hệ tớ: 091 79 79 700 (mr. Long - Bợm ^..^)
đã sửa link
|
Viết bởi: phanhienthanh66 18-02-12, 05:29 PM Chuyên mục: Query - Bài trả lời (4) |
http://www.mediafire.com/?g38jvqlcez5pl95
-------------------------------------
Lưu Ý cách đặt tiêu đề bài viết
Noname
Xin code phần mêm quản lý điểm?|
|
Viết bởi: vuvanthanh 18-02-12, 03:29 PM Chuyên mục: Thư Viện Ứng Dụng - Bài trả lời (4) |
Help me!!
|
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) |
| 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,300 |
| 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: 129 |
| 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: 146 |
| 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: 7,889 |
| 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: 162 |
| Đồ 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: 596 |
| 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: 176 |
| 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: 528 |
| 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,594 |
| 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: 273 |
| 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 đủ |