Đá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
  [Hỏi] Viết code có điều kiện " lệnh Chạy tiếp khi đóng tbl cho sẵn" Trần Linh 3 136 21-10-16, 11:11 AM
Bài mới nhất: Minh Tiên
  Giải thích ý nghĩ của đoạn code feeling 3 191 06-10-16, 10:18 AM
Bài mới nhất: vulhu06
  Đổi màu chú thích trong VBA hungle2006 5 280 30-03-16, 07:26 AM
Bài mới nhất: hungle2006
  [Thủ Thuật] [Share Code] Demo Quay số trúng thưởng theo danh sách trong table maidinhdan 9 1,496 10-03-16, 11:43 AM
Bài mới nhất: phamlong24
  [Help] viết code lấy dữ liệu từ sheet khác thanhquyt 1 265 14-02-16, 11:40 AM
Bài mới nhất: Xuân Thanh

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ơ