Giúp tạo query với hàm IIF
Nhờ mọi người chỉ cho tôi cách dùng hàm iif để tạo cột Htttoan từ query Q_QLHOADON ( được tạo bởi 2 table T_HOADON , T_CTHOADON ) như sau :Nếu Httt là TP thì ghi Tín phiếu , TM thì ghi Tiền mặt , NO thì ghi Nợ .Tôi đã viết công thức như sau : Htttoan:IIf([Httt]="TP","Tín phiếu",IIf([Httt]="TM","Tiền mặt","Nợ")) nhưng khi vào xem Q_QLHOADON ở chế độ datasheet thì gặp thông báo lỗi , không biết là lỗi gì ? Mong nhờ anh em chỉ giúp !Thank! Đây là file của mình :
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?
Bác nào cho e xin code phần mêm quản lý điểm được không?...
Help me!!
TInh ton kho CSDL trên SQL server 200
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
Xin Mod shop và cash việt hóa diễn đàn đang dùng
Admin có thể share mình mod shop ( kèm items) đã việt hóa và tiền diễn đàn đang dùng ko vậy. Hướng dẫn mình nữa nhé, Cảm ơn nhiều.
Lại vấn đề về STT nhờ giúp
Có bảng như sau: thongtin(ma, ten,năm làm việc)
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
Chủ đề Mới nhất |
offtopic
-Chuyên mục: Trao đổi Góp ý-Đăng bởi lần cuối: ellahodge-4 Giờ trước-
» Bài trả lời: 0-
» Lượt xem: 2
|
Seattle Storm Introduces ...
-Chuyên mục: Forms-Đăng bởi lần cuối: MichaelWnba-4 Giờ trước-
» Bài trả lời: 0-
» Lượt xem: 1
|
Loyd Nets 29, Storm Grabs...
-Chuyên mục: Chuyện bốn phương-Đăng bởi lần cuối: MichaelWnba-4 Giờ trước-
» Bài trả lời: 0-
» Lượt xem: 2
|
Dòng Thơ Nhạc Trích Đoạn
-Chuyên mục: Góc Thơ -Đăng bởi lần cuối: Nguyễn Thành Sáng-Hôm qua, 01:13 PM-
» Bài trả lời: 3-
» Lượt xem: 40
|
[Demo-Phần 4] Tạo khóa bả...
-Chuyên mục: Thư viện thủ thuật-Đăng bởi lần cuối: ngochuong279-24-04-24, 06:13 PM-
» Bài trả lời: 38-
» Lượt xem: 5,451
|
Trợ giúp về Textbox với c...
-Chuyên mục: Forms-Đăng bởi lần cuối: Nguyên Thông-18-04-24, 10:15 PM-
» Bài trả lời: 16-
» Lượt xem: 5,923
|
In mã vạch tạo từ access ...
-Chuyên mục: Forms-Đăng bởi lần cuối: huyhoang22-15-04-24, 11:25 AM-
» Bài trả lời: 38-
» Lượt xem: 20,782
|
Kết nối bảng từ access A ...
-Chuyên mục: Thủ thuật VBA-Đăng bởi lần cuối: hieunx-11-04-24, 01:23 PM-
» Bài trả lời: 5-
» Lượt xem: 75
|
Lấy dữ liệu từ 1 cột của ...
-Chuyên mục: Query-Đăng bởi lần cuối: ongke0711-09-04-24, 11:34 AM-
» Bài trả lời: 11-
» Lượt xem: 641
|
Quản lý kho bằng Accesss
-Chuyên mục: Thảo Luận Access-Đăng bởi lần cuối: recca123-07-04-24, 11:27 PM-
» Bài trả lời: 38-
» Lượt xem: 1,506
|
Diễn đàn Thống kê |
» Thành viên: 4,484
» Thành viên mới nhất: ellahodge
» Các chủ đề diễn đàn: 9,859
» Các bài viết diễn: 48,440
Thống kê đầy đủ
|
| | | | |