• Tùy chọn
• Đăng nhập
• Đăng ký
• Xem như trên Máy tính
• Accelerated Mobile Pages Theme

Dùng hàm Do while lấy dữ liệu từ table lên form

• Trang chủ

  • Thủ Thuật Access
  • Access Cơ Bản
  • Forms
  • [Help] Dùng hàm Do while lấy dữ liệu từ table lên form
• Dùng hàm Do while lấy dữ liệu từ table lên form

• Dùng hàm Do while lấy dữ liệu từ table lên form

  vannguyen0206 > 13-11-12, 02:52 PM

  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.

• RE: Dùng hàm Do while lấy dữ liệu từ table lên form

  nhannt4 > 14-11-12, 12:23 PM

  Sao không dùng Query để tính cho nó đơn giản mà viết code VBA lằng nhằng vậy bạn?
  Hoặc muốn sửa Code thì sửa lại như sau:
  

  Mã PHP:

  Private Sub Command0_Click()
    Dim DB As Database
    Dim Rs As Recordset
    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
    tien = 0
    Rs.MoveFirst
    Do While Not Rs.EOF
        stt = Rs!stt
        If (stt = 15) Then
            dongia = Rs!dongia
            sluong = Rs!SoLuong
            tien = tien + (dongia * sluong)
            Rs.MoveNext
        Else
            Rs.MoveNext
        End If
    Loop
    Rs.Close
    MsgBox "Tong tien: " & tien
End Sub 

• Bài trước Bài tiếp