Chuyển thông số giữa các biểu mẫu trong MS Access

Question

Tôi đã tạo biểu mẫu đăng nhập có tên đăng nhập nơi tên người dùng được nhập vào hộp văn bản txtEmployee và tôi cần hiển thị như vậy ở trang thứ hai dưới dạng khác trong MS Access.

Answer 1

DoCmd.OpenForm cho phép bạn chuyển giá trị tùy ý làm thông số cuối cùng. Giá trị này có thể được truy cập trong hình thức mới như Me.OpenArgs:

' Invoked by some Button on the first form ' 
Sub GoToSecondPage() 
    DoCmd.OpenForm "MySecondPage", acNormal, , , , , txtEmployee.Value 
End Sub 

' Second form ' 
Sub Form_Open(Cancel As Integer) 
    If Not IsNull(Me.OpenArgs) Then 
     lblShowEmployeeName.Value = Me.OpenArgs 
    End If 
End Sub 

(. Mã ví dụ chưa được kiểm tra)

Answer 2

Cá nhân tôi sẽ vượt qua chúng thông qua các đối số mở khi mở biểu mẫu. Ví dụ từ hình thức Một bạn sẽ viết

DoCmd.OpenForm "frmB", , , , , acDialog,”Badger” 

Và sau đó trong sự kiện OnOpen của form B bạn có thể chụp những gì bạn đã gửi như thế này

Me.txtSomething=Me.OpenArgs 

Bạn chỉ có thể vượt qua một điều tuy nhiên Những gì tôi làm rất nhiều là vượt qua một chuỗi phân cách đường ống trong các đối số mở và sau đó tách ra.

Answer 3

Một vài ý tưởng ...

Sử dụng các sự kiện AfterUpdate trên các lĩnh vực tên đăng nhập để viết tên cho một biến toàn cầu, sau đó cư lĩnh vực này trên trang thứ hai với sự kiện onload.

Hoặc, nếu bạn có kế hoạch rời khỏi nhật ký ở dạng mở bất cứ lúc nào bạn có thể thiết lập giá trị mặc định của lĩnh vực này trực tiếp đến = [Forms]! [LogInForm]! [UserName]

Answer 4

Tại sao không tạo ra một chức năng công cộng lưu trữ &/hoặc truy lục một biến toàn cục mà bạn lưu trữ sau khi biểu mẫu đầu tiên được thực thi? Điều này sẽ cho phép bạn không chỉ sử dụng nó trên một hoặc nhiều biểu mẫu, mà còn là tiêu chí trong một truy vấn (ví dụ, để trả về các bản ghi khớp với tên người dùng bạn đã lưu trữ).

Tôi đồng ý điều này là bảo mật "giả", nhưng cũng có những lúc nó đủ cho nhu cầu của bạn. Tôi đã thực hiện điều này trước đây, nơi tôi kết hợp tên người dùng chuỗi môi trường với một mục nhập trong bảng người dùng.

BTW, tôi gọi tính năng này là cá nhân hóa chứ không phải bảo mật.

Chỉ là một ý nghĩ.

Answer 5

Bạn có thể vượt qua một chuỗi giới hạn như tham số OpenArgs:

DoCmd.OpenForm FormName:="miscForm", OpenArgs:=paramstring 

Dưới đây là một thói quen để xử lý một chuỗi ống được phân định thông qua như là tham số để DoCmd.OpenForm:

Dim Pstring As Variant 

If Len(Me.OpenArgs) > 0 Then 
    Pstring = Split(Me.OpenArgs, "|") 
    var1 = Pstring(0) 
    <etc..> 
End If