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

GIẢI THÍCH CÁC LỆNH KHI VIẾT CODE

• Trang chủ

  • Thủ Thuật Access
  • Access Cơ Bản
  • Forms
  • GIẢI THÍCH CÁC LỆNH KHI VIẾT CODE
• GIẢI THÍCH CÁC LỆNH KHI VIẾT CODE

• GIẢI THÍCH CÁC LỆNH KHI VIẾT CODE

  huynhbahoc > 21-05-12, 11:51 AM

  Các bạn Pro ơi cho mình hỏi tí nhé. Mình vừa giải một bài tập Access. Ở phần hướng dẫn tạo Form, khi chuyển một text box sang combo box, người ta hướng dẫn như sau: "...chọn thẻ Event, chọn After Update, Code builder, nhập đoạn code sau vào giữa Private sub và End sub:
  Dim rs As Object
  Set rs = Me.Recordset.Clone
  rs.FindFirst "[MATHE] = '" & Me![MATHE] & "'"
  If Not rs.EOF Then Me.Bookmark = rs.Bookmark
  Khi mình copy và dán vào như hướng dẫn thì Form hoạt động tốt, nhưng mình không hiểu gì về đoạn Code trên cả.
  Bạn nào rành về cách viết code trong Access thì giải thích giùm mình tại sao lại viết như vậy? (nếu bạn giải thích cụ thể từng thành phần của đoạn code trên thì càng tốt). Mình cảm ơn nhiều nhé.

• RE: GIẢI THÍCH CÁC LỆNH KHI VIẾT CODE

  Noname > 21-05-12, 12:45 PM

  Đoạn code trên thường được dùng trong các form tìm kiếm. ý nghĩa của nó là
  

  Mã:

  Dim rs As Object ' khai báo một đối tượng tên là rs
Set rs = Me.RecordsetClone ' Gán đối tượng đó bằng record source của Form hiện hành
rs.FindFirst "[MATHE] = '" & Me![MATHE] & "'" ' Tìm trong cột mã Thẻ xem có mã nào khớp với textbox MaThe không,
If Not rs.EOF Then Me.Bookmark = rs.Bookmark ' Nếu khớp thì nhảy con trỏ của form tới vị trí được tìm thấy trên đối tượng rs.

• RE: GIẢI THÍCH CÁC LỆNH KHI VIẾT CODE

  huynhbahoc > 23-05-12, 04:20 PM

  (21-05-12, 12:45 PM)Noname Đã viết: Đoạn code trên thường được dùng trong các form tìm kiếm. ý nghĩa của nó là
  

  Mã:

  Dim rs As Object ' khai báo một đối tượng tên là rs
Set rs = Me.RecordsetClone ' Gán đối tượng đó bằng record source của Form hiện hành
rs.FindFirst "[MATHE] = '" & Me![MATHE] & "'" ' Tìm trong cột mã Thẻ xem có mã nào khớp với textbox MaThe không,
If Not rs.EOF Then Me.Bookmark = rs.Bookmark ' Nếu khớp thì nhảy con trỏ của form tới vị trí được tìm thấy trên đối tượng rs.

  
  Bạn Noname thật là pro. Cảm ơn bạn đã giải thích giúp mình nhé. Mình cảm ơn bạn nhiều nhiều...

• RE: GIẢI THÍCH CÁC LỆNH KHI VIẾT CODE

  phuc_thanhtien > 26-03-16, 09:19 PM

  Mình có 1 bài tập tìm thứ trong tuần của ngày SN. Bạn nào giúp giải thích & sửa lại dùm với. Vì code chạy tốt nhưng KQ sai:
  
  

  Mã PHP:

  Private Sub CmdNS_Click()
Dim q As Byte, m As Byte, k As Byte
Dim y As Integer, j As Byte
q = Val(txtq.Value)
m = Val(txtm.Value)
y = Val(txty.Value)
If (m = 1) Or (m = 2) Then
   m = m + 12
   y = y - 1
End If
k = y Mod 100
j = y \ 100 + 1
h = (q + 26 * (m + 1) / 10 + k + k / 4 + j / 4 + 5 * j) Mod 7
Select Case h
   Case 0
       thu = "thu 7"
   Case 1
       thu = "chu nhat"
   Case 2
       thu = "thu 2"
   Case 3
       thu = "thu 3"
   Case 4
       thu = "thu4"
   Case 5
       thu = "thu 5"
   Case 6
       thu = "thu 6"
End Select
MsgBox "Ban sinh vao " & thu
End Sub 


  
  Cảm ơn nhiều.
• Bài trước Bài tiếp