Transferring the value of a form's text control to another form's text control

[Jesse Jones]

I have a login form that I am using to direct particular people to a customized switchboard. All of the login process is working perfectly. (I am not doing this for security but for simplicity, so there is no concern about the faults of VBA for security.)

What I need is to get an unbound text control on the formSwitchboard to lookup the EID that was entered on the login form. How can I do this?

Thank you in advance!

[NeoPa]

When you open the Switchboard form, use the OpenArgs parameter to pass the value across.

The details of how to do this are covered in a very recent thread (How to pass a variable from one form to another form).

[Jesse Jones]

Thank you for the link. I'm sorry, but I am a complete programming newbie, really. Just a few months experience with any programming of any kind.

What I am trying to do is pass the value that is in the control "txtEID" on formLogin to a control "txtEIDGrab " on fromSwitchboard . formSwitchboard opens after the credentials are verified through a VBA sequence that runs on a command click on formLogin. If the credentials are legitimate, the proper switchboard is opened.

Code you please help me with the code that should run on open of the formSwitchboard ?

Thank you!

[NeoPa]

We don't often respond well to simple requests for code, but as you asked nicely and had the intelligence to provide the names of the objects to work with I'm sure we can make a little exception here.

It's only short, but try :

Private Sub Form_Open(Cancel As Integer)
    Me.txtEIDGrab = Me.OpenArgs
End Sub

[Jesse Jones]

Thank you for your help. I'm sorry I'm so ignorant. I must be missing something because that string doesn't work, and I'm honestly not sure how it could (because I don't understand it). Here is the total code that runs on click of the login command button on formLogin.

Private Sub cmmndLogIn_Click()
'Ensure an EID is entered
    If Me.txteid = "" Or IsNull(Me.txteid) Then
        MsgBox "You must enter a valid EID and password", vbOKOnly, "Required Data!"
        Me.txteid = ""
        Me.txtPassword = ""
        Me.txteid.SetFocus
        Exit Sub
    End If

'Ensure the EID is for an active employee
    If Me.txtEmploymentStatusLookup <> "Active" Then
        MsgBox "You must enter a valid EID and password", vbOKOnly, "Required Data!"
        Me.txteid = ""
        Me.txtPassword = ""
        Me.txteid.SetFocus
        Exit Sub
    End If
    
'Ensure a password is entered
    If Me.txtPassword = "" Or IsNull(Me.txtPassword) Then
        MsgBox "You must enter a valied EID and password", vbOKOnly, "required Data!"
        Me.txteid = ""
        Me.txtPassword = ""
        Me.txteid.SetFocus
        Exit Sub
    End If

'Ensure the password is correct
    If Me.txtPassword <> Me.txtPasswordLookUp Then
        MsgBox "You must enter a valid EID and password", vbOKOnly, "Required Data!"
        Me.txteid = ""
        Me.txtPassword = ""
        Me.txteid.SetFocus
        Exit Sub
    End If

'Open formSwitchboard
    DoCmd.OpenForm "formSwitchboard"


End Sub

(I will add the code deciding which switchboard the user is directed to later.)

Here is the on open event for formSwitchboard

Private Sub Form_Open(Cancel As Integer)
'Grab the user's EID from formLogin and enter it into txtEIDGrab
Me.txtEIDGrab = Me.OpenArgs

End Sub

It looks (from some of my internet research) that I'm supposed to mark in the first form what is to be carried to the other form, but I haven't a clue how to do it.

I'm sorry again. Any hints would be greatly appreciated.

[Mihail]

If you have an BOUND text box (the text box refer a field in a record in a table or query) the text box value can be NULL but, as far as I know, can not be "" . So, in this case, should work this code:

If IsNull(txtPassword) Then ....

If you have an UNBOUND text box, the text box value can be "" but can not be NULL. So, in this case, should work this code:

If txtPassword = "" Then ....

Also note that the keyword Me is unnecessary.

Hope this is a help for you.
Good luck !

[NeoPa]

Mihail:
Also note that the keyword Me is unnecessary.

This is very true (although there can be exceptions to this where field names clash with control names), but many people nevertheless feel it is worth including for the sake of clarity. It gives a clue to any reader of the code what type of object to look for. This can be particularly helpful within large and complex databases/projects.

The other point (Controls <> "") is a good one, and I will illustrate this in my next post for Jesse.

[NeoPa]

Jesse Jones:
Code you please help me with the code that should run on open of the formSwitchboard ?

I'm happy to help with that too Jesse, but your earlier post asked specifically for the code in the switchboard form (which I duly provided).

If you look at line #39 of the code you posted for your cmmndLogIn_Clic k() procedure, you'll see that it doesn't include anything for the OpenArgs parameter. This needs to be added, but there are various ways of doing this. I'll use named parameters as I find positional parameters harder to read, especially when any are blank :

Call DoCmd.OpenForm(FormName:="formSwitchboard", OpenArgs:=Me.txteid)

As a bonus, and to illustrate the good point Mihail made, I'll post here an example of how you could write your cmmndLogIn_Clic k() procedure a little more succinctly :

Private Sub cmmndLogIn_Click()
Dim strMsg As String
Dim ctlMe As Control

With Me
    Select Case True
    Case IsNull(.txteid)
        'Ensure an EID is entered
        strMsg = "You must enter an EID and a password"
        Set ctlMe = .txteid
    Case IsNull(.txtPassword)
        'Ensure a password is entered
        strMsg = "You must enter an EID and a password"
        Set ctlMe = .txtPassword
    Case .txtEmploymentStatusLookup <> "Active"
        'Ensure the EID is for an active employee
        strMsg = "Employee status must be 'Active'"
        Set ctlMe = .txteid
    Case .txtPassword <> .txtPasswordLookUp 
        'Ensure the password is correct
        strMsg = "The password entered must be valid"
        Set ctlMe = .txtPassword
    End Select

    If strMsg > "" Then
        With ctlMe
            .Value = Null
            Call ctlMe.SetFocus
        End With
        Call MsgBox(strMsg, vbOKOnly Or vbExclamation, "Required Data!"
        Exit Sub
    End If

    'Open formSwitchboard
    Call DoCmd.OpenForm(FormName:="formSwitchboard", OpenArgs:=.txteid)
End With
End Sub

[Jesse Jones]

Thank you both so much. You have been very, very helpful. Everything is working great!

[NeoPa]

Good for you Jesse. Pleased to hear it went well :-)

[Mihail]

Thank you, NeoPa !

[Jesse Jones]

Is it possible to send two different controls through?

I would like txtDate on frmAttendanceDa ta to pass through to txtGroupDate on frmAttendanceEn ter

and cmbEvent on frmAttendanceDa ta to pass through to txtGroupEvent on frmAttendanceEn ter.

Is that possible?

[NeoPa]

You have a single value to pass through to the new form. In most cases it's easy to see how you could include both the required values in a single parameter. I'd use a string with a separator character myself.

If you wanted to pass two numeric values for instance, you might pass them as (Assuming values of 3 & 45) "3;45". The receiving code would need to separate them back out again of course. Split() is a good function for that sort of thing.