Tùy chọn
xin giai thich ho cai code tìm Giá Bán
- xin giai thich ho cai code tìm Giá Bán
-
xin giai thich ho cai code tìm Giá Bán
cuongvan09 > 17-06-12, 11:42 AM
mấy anh ơi giai thích hộ cho e cái code ở trên với, giải thích dùm e chỗ phần "Public Function TimGBan(nNgay As Date, mMaso As String)" là cái "(nNgay As Date, mMaso As String)" nó có ý nghĩa như thế nào và nó từ đâu mà raMã:Option Compare Database
Public Function TimGBan(nNgay As Date, mMaso As String)
Dim StrSQL As String
Dim DB As DAO.Database
Dim rs As DAO.Recordset
Set DB = CurrentDb
StrSQL = "Select Top 1 DonGia From GIABAN Where Masp='" & mMaso
StrSQL = StrSQL & "' And format(Ngay,'yyyy/mm/dd')<='" & Format(nNgay, "yyyy/mm/dd") & "' order by Ngay desc"
Set rs = DB.OpenRecordset(StrSQL)
If Not rs.EOF Then
TimGBan = rs!DonGia
Else
TimGBan = Null
End If
End Function
e cảm ơn các anh nhiều:
cry_smile:
-
RE: xin giai thich ho cai code tìm Giá Bán
Noname > 17-06-12, 12:02 PM
Public Function TimGBan(nNgay As Date, mMaso As String)
Có ý nghĩa là Khi gọi Hàm TimGBan, người ta truyền thêm tham số Ngày và mã số. Hàm này sẽ trả về giá bán của mặt hàng đó trong ngày truyền vào.
Ví dụ để kiểm tra mặt hàng A, bán vào ngày 20/5/2012
bạn có thể gọi trong sự kiện click của một nút nhấn nào đó như sau:
Mã:msgbox "Giá bán của A là: " & TimGBan(#05/20/2012#,'A')
@nhắc nhở: Mình đã nhiều lần nhắc bạn về cách đặt tiêu đề. Và vừa phải sửa tiêu đề cho bạn. Mong bạn lưu ý hơn!