Chủ đề: A/c giúp e hàm Do while với.
-
11-13-2012, 05:13 PM #1Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
A/c giúp e hàm Do while với.
Em có 1 Bảng tên là DMTHUOC_TOA.
Em muốn tính tổng tiền thuốc trên toa đó bằng cách lấy ra (DonGia,SoLuong) những dòng nào có số thự tự toa là 15 để tính.
Code của em như sau:
Private Sub Command0_Click()
Dim DB As Database
Dim Rs As Recordset
Dim hope As Boolean
Dim stt As Integer
Dim dongia As Double
Dim tien As Double
Dim sluong As Integer
Set DB = CurrentDb()
Set Rs = DB.OpenRecordset("DMTHUOC_TOA", DB_OPEN_TABLE)
If (Rs.BOF) Then
MsgBox "KHONG CO DU LIEU"
Rs.Close
Exit Sub
End If
Rs.MoveFirst
bhope = False
'...
Do While ((Not Rs.EOF) And (Not bhope = True))
stt = Rs!STTToa
Debug.Print "stt toa..........", stt
If (stt = 15) Then
Debug.Print "11111111111111111111"
dongia = Rs!dongia
sluong = Rs!SoLuong
tien = dongia * sluong
Debug.Print "tong tien.....:", tien
bhope = True
Else
Rs.MoveNext
Debug.Print "22222222222222222"
End If
Loop
Rs.Close
End Sub
Nhưng em chỉ lấy ra đường dòng đâu tiền có số thứ tự toa là 15 thôi, mặc dù trong bảng của em có tất cả là 2 dòng như thế.?
Không biết là code e viết như thế sai ở chỗ nào mà ko đc như ý.
Mong sớm nhận đc sự hồi âm.View more random threads:
- Vấn đề với sự kiện BeforeDelConfirm ?
- Có cách nào để lấy về thời gian hệ thống của 1 máy qua mạng Lan không mọi người ?
- Thêm item mới vào combobox Access
- Ai giúp mình với nhỉ? Sao không ai giúp vậy :(
- Hỏi về cách tô màu từ tìm kiếm và mở 1 form mới từ form trước đó
- Tìm kiếm từ nhiều subform
- Học Access bằng cách xây dựng một ứng dụng cụ thể - Quản lý Mua và Bán hàng - Phần 1 - Mô tả
- Access
- giúp e tìm và xóa dữ liệu
- Đổi từ Yes thành Có và No thành Bỏ qua
Hiện nay, trên mạng cũng có rất nhiều diễn đàn mà cánh nam giới chia sẻ với nhau về nghệ thuật bế tinh và coi đó là bí kíp để gìn giữ sức khỏe và tư thế đàn ông. Tuy nhiên, theo giáo sư Trần Quán...
Tư thế yêu mà không xuất của quý ông. Tác hại như thế nào?