Applies ToAccess cho Microsoft 365 Access 2024 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 sẽ bị vô hiệu hóa nếu Dịch vụ Biểu thức Phản lực của Microsoft đang chạy trong chế độ hộp cát, điều này ngăn không cho đá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ề chuỗi gắn với biến môi trường hệ điều hành. Không khả dụng trên Macintosh

Cú pháp

Environ( { envstring | số } )

pháp hàm Environ có các đối số sau đây:

Đối số

Mô tả

ghen t thủy

Không bắt buộc. Biểu thức chuỗi chứa tên của biến môi trường.

number

Không bắt buộc. Biểu thức số tương ứng với thứ tự số của chuỗi môi trường trong bảng chuỗi môi trường. Đối số dạng số có thể là bất kỳ biểu thức số nào, nhưng được làm tròn tới một số nguyên trước khi được đánh giá.

Chú thích

Nếu không thể tìm thấy chuỗi ghen thiệp trong bảng chuỗi môi trường, thì trả về chuỗi có độ dài bằng 0 (""). Nếu không, Environ trả về văn bản được gán cho dấu chữ khắc đã xác định; nghĩa là, văn bản sau dấu bằng (=) trong bảng chuỗi môi trường cho biến môi trường đó.

Nếu bạn chỉ định số, chuỗi chiếm vị trí số đó trong bảng chuỗi môi trường sẽ được trả về. Trong trường hợp này, Environ trả về tất cả văn bản, bao gồm cả chữ ghen thiển. Nếu không có chuỗi môi trường ở vị trí được chỉ định, Environ sẽ trả về chuỗi có độ dài bằng 0.

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 Environ để cung cấp số mục nhập và độ dài của câu lệnh PATH từ bảng chuỗi môi trường. Không khả dụng trên Macintosh.

Dim EnvString, Indx, Msg, PathLen    ' Declare variables.Indx = 1    ' Initialize index to 1.Do    ' Get environment variable.    EnvString = Environ(Indx)    ' Check PATH entry.    If Left(EnvString, 5) = "PATH=" Then        ' Get length.        PathLen = Len(Environ("PATH"))        Msg = "PATH entry = " & Indx & " and length = " _               & PathLen        Exit Do    Else        ' Not PATH entry, so increment.        Indx = Indx + 1    End IfLoop Until EnvString = ""If PathLen > 0 Then    ' Display message.    MsgBox MsgElse    MsgBox "No PATH environment variable exists."End If

Bạn cần thêm trợ giúp?

Bạn muốn xem các tùy chọn khác?

Khám phá các lợi ích của gói đăng ký, xem qua các khóa đào tạo, tìm hiểu cách bảo mật thiết bị của bạn và hơn thế nữa.

Cộng đồng giúp bạn đặt và trả lời các câu hỏi, cung cấp phản hồi và lắng nghe ý kiến từ các chuyên gia có kiến thức phong phú.