Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[Help] xin giai thich ho cai code tìm Giá Bán
#1
Lightbulb 
Mã:
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
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à ra
e cảm ơn các anh nhiều:
cry_smile:Cry_smileCry_smile
Chữ ký của cuongvan09 Xin chào, mình là cuongvan09, Tham gia http://thuthuataccess.com/forum từ ngày 17-03 -12.
Reply
Những người đã cảm ơn
#2
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!
Chữ ký của Noname 020
ღღღღღTài sản của Noname (View All Items) ღღღღღ
Reply
Những người đã cảm ơn


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  Unicode trên cửa sổ viết code VBA (IDE) lehongduc 0 257 10-12-17, 09:49 AM
Bài mới nhất: lehongduc
  Hướng Dẫn Thêm nút lăn chuột giao diện viết code VBA maidinhdan 0 198 27-11-17, 05:03 PM
Bài mới nhất: maidinhdan
  [Lỗi] Code để bảo vệ văn bản trừ các đoạn formfield vuthaiha90 10 857 14-11-17, 05:31 PM
Bài mới nhất: vuthaiha90
  Làm sao chạy được code cả trong access 32 bit và access 64 bit haquocquan 1 372 12-09-17, 11:15 PM
Bài mới nhất: maidinhdan
  code chuyển đổi Hex sang ASCII trong access thanhtruong 9 1,974 13-02-17, 10:34 PM
Bài mới nhất: ongke0711

Chuyển nhanh:


User(s) browsing this thread: 1 Guest(s)
Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ| PMA Nha Trang| Gỗ Acrylic Không Đường Line