hướng dẫn hàm làm tròn hàng trăm trong access (1 người xem)

[DichVuHuyenTrang]

tôi muốn hàm tròn hàng trăm:
ví dụ như tôi có bảng tính tiền bao gồm:

tenhang, soluong, giaban, thanhtien.

thanhtien= soluong*giaban

nhưng ở dòng thanhtien sẽ được làm tròn len hàng trăm ví dụ:

1250 = 1300
1240 = 1200
1655 = 1700
1635 = 1600
tức là cứ hàng chục .=50 thì được làm tròn thành 100, nếu dưới ,=50 thì sẽ tính là 0.
Thanks

có bác nào cho hướng dẫn chi tiết viết query update như thế nào cho nó làm tròn giúp em với

 

[SA_DQ]

Đã quá lâu mình không sờ đến ACCESS

Đành viết hàm tự tạo trong excel, bạn đem qua access xài thử xem nha:

Option Explicit
Function Tron100(Num As Double) As Double
 Dim Chuc As Byte
 
 Chuc = (Num \ 10) Mod 10
 Tron100 = (Num \ 100) * 100
 If Chuc > 4 Then Tron100 = Tron100 + 100
End Function

(Nhớ khi xưa fát lương, thưởng mình cũng viết hàm làm tròn đến ngàn đống trong access rồi; Giờ đã là xa lắc lơ!)

 

[DichVuHuyenTrang]

Đành viết hàm tự tạo trong excel, bạn đem qua access xài thử xem nha:

Option Explicit
Function Tron100(Num As Double) As Double
 Dim Chuc As Byte
 
 Chuc = (Num \ 10) Mod 10
 Tron100 = (Num \ 100) * 100
 If Chuc > 4 Then Tron100 = Tron100 + 100
End Function

(Nhớ khi xưa fát lương, thưởng mình cũng viết hàm làm tròn đến ngàn đống trong access rồi; Giờ đã là xa lắc lơ!)

Cái của bác mình có nghiên cứu rồi nhưng mà nó không làm tròn được. Bác có thể nghiên cứu xem thử có file access demo nào không gởi giúp mình xem thử

 

[SA_DQ]

Biếu bạn cách xài trong query & form luôn

Cũng gần như mới hoàn toàn

 

[app]

Trong QBE, bạn điền vào các mục như sau nhé:

Update to: Round([SOLUONG]*[GIABAN]/1000)*1000

 

[thanhphuong]

tôi muốn hàm tròn hàng trăm:
ví dụ như tôi có bảng tính tiền bao gồm:

tenhang, soluong, giaban, thanhtien.

thanhtien= soluong*giaban

nhưng ở dòng thanhtien sẽ được làm tròn len hàng trăm ví dụ:

1250 = 1300
1240 = 1200
1655 = 1700
1635 = 1600
tức là cứ hàng chục .=50 thì được làm tròn thành 100, nếu dưới ,=50 thì sẽ tính là 0.
Thanks

có bác nào cho hướng dẫn chi tiết viết query update như thế nào cho nó làm tròn giúp em với

Sao không đưa ra form mà nhập liệu? Tạo một form bằng trình thuật sĩ(tự động), sau đó desgin form và dùng các sự kiện Update cho 2 textbox sl và giaban nư sau

Private Sub sl_AfterUpdate()
     Me.thanhtien = Round(Me.sl * Me.giaban, 2)
End Sub