Hàm Tìm kiếm

Áp dụng cho
Access cho Microsoft 365 Access 2021 Access 2019 Access 2016

Lưu ý

Hàm, phương pháp, đối tượng hoặc thuộc tính được mô tả trong chủ đề này bị tắt nếu Dịch vụ Biểu thức Microsoft Jet đang chạy ở chế độ hộp cát, điều này ngăn chặn việc đánh giá các biểu thức không an toàn tiềm ẩn. Để biết thêm thông tin về chế độ hộp cát, hãy tìm kiếm "chế độ hộp cát" trong Trợ giúp.

Trả về một dạng Long xác định vị trí đọc/ghi hiện tại trong tệp được mở bằng câu lệnh Open .

Cú pháp

Tìm kiếm(số tệp)

Đối số filenumberbắt buộc là một Số nguyên chứa số tệp hợp lệ.

Chú thích

Tìm kiếm trả về giá trị giữa 1 và 2.147.483.647 (tương đương 2^31 – 1), bao gồm cả.

Phần sau đây mô tả các giá trị trả về cho mỗi chế độ truy nhập tệp.

Chế độ Giá trị Trả về
Ngẫu nhiên Số của bản ghi tiếp theo đã đọc hoặc được ghi
Nhị phân,
Đầu ra,
Gắn thêm,
Phương thức nhập		 Vị trí byte tại đó thao tác tiếp theo diễn ra. Byte thứ nhất trong tệp ở vị trí 1, byte thứ hai ở vị trí 2, v.v.

    

Ví dụ

Lưu ý

Các ví dụ sau thể hiện cách sử dụng hàm này trong mô-đun Visual Basic for Applications (VBA). Để biết thêm thông tin về cách làm việc với VBA, chọn Tham khảo dành cho Nhà phát triển trong danh sách thả xuống cạnh Tìm kiếm, rồi nhập một hoặc nhiều từ vào hộp tìm kiếm.

Ví dụ này sử dụng hàm Tìm kiếm để trả về vị trí tệp hiện tại. Ví dụ giả định là TESTFILE một tệp chứa các bản ghi thuộc loại do Recordngười dùng xác định.

Type Record    ' Define user-defined type.
    ID As Integer
    Name As String * 20
End Type

Đối với các tệp được mở trong chế độ Ngẫu nhiên, tính năng Tìm kiếm trả về số bản ghi tiếp theo.

Dim MyRecord As Record    ' Declare variable.
Open "TESTFILE" For Random As #1 Len = Len(MyRecord)
Do While Not EOF(1)    ' Loop until end of file.
    Get #1, , MyRecord    ' Read next record.
    ' Print record number to the Immediate window.
    Debug.Print Seek(1)    
Loop
Close #1    ' Close file.

Đối với các tệp được mở trong các chế độ không phải chế độ Ngẫu nhiên, Tìm kiếm trả về vị trí byte mà tại đó thao tác tiếp theo diễn ra. Giả sử TESTFILE là một tệp chứa vài dòng văn bản.

Dim MyChar
Open "TESTFILE" For Input As #1 ' Open file for reading.
Do While Not EOF(1) ' Loop until end of file.
    MyChar = Input(1, #1) ' Read next character of data.
    ' Print byte position to the Immediate window. 
    Debug.Print Seek(1) 
Loop
Close #1    ' Close file.