[ACCESS] how can I insert a global variable within a field?

Question

0.00/5 (No votes)

See more:

Hello first of all I explain what I have in my hands.
Two masks, in mask A, there is the "user" field and other fields (what interests me is "user"). While in Mask B it would be the login, with username and password.

When I enter a User in Mask A, I automatically open the Login Form with which I identify who accesses. In this way I would like to take (when the credentials are entered correctly) username of the person who logs in and put it with "User" in Mask A.

I created a global variable "Username1".
This is the code I did test and the message I used to understand works. But I can not use it by putting it in the box I would like.

VB

Private Sub Employee_AfterUpdate()

DoCmd.OpenForm FormName:="login", WindowMode:=acDialog
MsgBox username1

End Sub

This is the global variable.

VB

Option Compare Database
Option Explicit

Public username1 As String

I hope I explained myself. Thank you

Code of Login

VB

Private Sub Command0_Click()
DoCmd.CloseDatabase
End Sub

Private Sub Command1_Click()

    If IsNull(Me.tb_ID) Or IsNull(Me.tb_pwd) Then
      MsgBox "You must enter password or login ID.", vbOKOnly + vbInformation, "Required Data"
      Me.tb_ID.SetFocus
        Exit Sub
    End If
    
    If Me.tb_pwd.Value = DLookup("[psw]", "Utenti", "[User]='" & Me.tb_ID.Value & "'") Then
      username1 = Me.tb_ID.Value
      DoCmd.Close acForm, "login", acSaveNo
      DoCmd.OpenForm "Work Hours List"
    Else
      MsgBox "Password or login ID incorrect. Please Try Again", vbOKOnly + vbExclamation, "Invalid Entry!"
      Me.tb_pwd.SetFocus
    End If
    
End Sub

Code of what i tried with the field Employee

VB

Private Sub Employee_AfterUpdate()

DoCmd.OpenForm FormName:="login", WindowMode:=acDialog
MsgBox username1

End Sub


Private Sub Form_Close()

DoCmd.OpenForm "login"

End Sub

What I have tried:

VB

Private Sub Employee_AfterUpdate()

DoCmd.OpenForm FormName:="login", WindowMode:=acDialog
MsgBox username1

End Sub

Private Sub Form_Close()

DoCmd.OpenForm "login"

End Sub

VB

Private Sub EmployeeText_AfterUpdate()

DoCmd.OpenForm FormName:="login", WindowMode:=acDialog
MsgBox username1
Me.EmployeeText.Value = username1

End Sub

Posted 2-Jan-19 22:49pm

Atipos

Updated 3-Jan-19 2:36am

v4

Add a Solution

1 solution

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Gustav Brock · Accepted Answer · 2019-01-02T23:58:00

Solution 1

I have no idea what your Mask A and Mask B could be, and the explanation is very confusing.

The title, however, is clear, and the answer is simple. In the form, where you have that field bound to a control (textbox), assign the global to the Value property in, say, the OnOpen event of the form:

VB

Me!YourTextbox.Value = username1

Posted 2-Jan-19 23:58pm

Gustav Brock

Updated 3-Jan-19 0:00am

v2

Comments

Atipos 3-Jan-19 6:14am

The problem is that the field hasn't a value property. It gives me this error: "Object doesn't support this property or method"

The field is "employee", with it i can select an employee from a list of them, when i select the name of the employee it will open the login form, with this i will put the username and password.
What i like to do is that the username

Gustav Brock 3-Jan-19 7:57am

I can see on SO, that you don't have a field but a label. For a label, assign the global to the Caption property of the label.

Atipos 3-Jan-19 8:32am

I really appreciate your availability and I thank you. Using the caption property what I'd like to do, it works great. But unfortunately changes the title of the column. Thanks to you I understand that I have to operate on that precise field.

Now I wrote:

Me.Employee_Label.Caption = username1

Having done this, as written a little above, change the title of the column.

If you now put:

Me.EmployeeText.Value = username1

I'm back to the run-time error 2113, the value you enteres is not valid for this field.

https://imgur.com/JuMjLNn
- I upload a little image of what i like to change with the global

Gustav Brock 3-Jan-19 9:09am

It looks like your field is a combobox bound to the field. Then you (typically) must supply the ID of the username, but - from your code - that already seems to be the case and what is stored in username1.

Try a little debugging and check that you manually can enter the value in the table.

Atipos 4-Jan-19 4:33am

If row source of combobox is

SELECT [Employees Extended].ID, [Employees Extended].[Employee Name] FROM [Employees Extended];

should i work on this? I mean, with Me.X.Value=username1.
I don't konw if i can reach an object that is on another table of the database.

Gustav Brock 4-Jan-19 4:46am

If your combobox is bound to the first field, the ID, and username1 holds an ID (from the line: username1 = Me.tb_ID.Value), you should be able to assign this ID to the combobox and it will display the name.
To "reach" another object" from another table, adjust the query to have a JOIN to that table.

Atipos 4-Jan-19 4:54am

I apologize for my ignorance but I am a beginner with vba and access. For this reason I ask: to assign the id of username1 to the combobox, do I have to do it through Employee_AfterUpdate ()?

Gustav Brock 4-Jan-19 5:09am

From within the form, you can do it anywhere. Above, I assumed a textbox, now the single code-line should read:

Me!YourCombobox.Value = username1

Atipos 4-Jan-19 5:38am

It gives me always error. What if i just check up if username1=employee?
Could it work?

Gustav Brock 4-Jan-19 5:46am

What is the error? And what value do you assign it? And is that a valid ID?

Atipos 4-Jan-19 6:20am

Always the run time 2113 the value entered isn't valid for this field.
I don't understand because when i did Me.Rmployee_Label.Caption=username1, it works but change the label.
With the Value Property give this error...

Gustav Brock 4-Jan-19 7:17am

Check what value it has and what value you try to assign. The value of a control and the caption of its associated label (if such one exists) are two different things. Value must match the data type bound to the control. Caption must be a string.

Atipos 4-Jan-19 11:29am

I understand that the global variable is not a String. But i declered it "Public username1 As String"...

This because if i rename the combobox Employee1 (when it was an employee he was in contrast with another employee) and then:

Me.Employee1.Value = username1

It comes out that the value you entered isn't valid for the field.

Gustav Brock 4-Jan-19 11:35am

If you declare the global variable as String, it will hold a string.
If tb_ID is a number, username1 should be declared as Long:

username1 = Me.tb_ID.Value

Atipos 4-Jan-19 11:40am

Yes, I declered username1=Me.tb_ID.Value already.
tb_ID is the name of the text field on the login mask, So i put a text (String) on it, so username1 should be a String.

(Btw, thank you very much for helping me in this moment, i hope you will be a fantastic weekend!)

Gustav Brock 4-Jan-19 11:44am

So ID is the name of the user? Normally, ID is a number (Long), and it doesn't match your SQL:

SELECT [Employees Extended].ID, [Employees Extended].[Employee Name] FROM [Employees Extended];

where, I guess, Name is the name of the user.

Atipos 4-Jan-19 11:51am

The row source is for the Employee that you could see on the image. It's for the mask A.
The ID of tb_ID is for Login Mask, the username, i just called tb_ID

Gustav Brock 4-Jan-19 12:00pm

That's very confusing. You should name your fields and controls to reflect the content.

If username1 holds a name that should match [Employees Extended].[Employee Name], you should bind the combobox to its second field/column, not the first - as it by default is.

Atipos 7-Jan-19 4:36am

I understood where I was wrong. I did not remember putting Employee as Integer, so username1 did not let me enter it.

Changed type and now it works perfectly. Report your answer as "Accepted Solution" because you explained perfectly.

Sorry for the mess, thank you very much

Gustav Brock 7-Jan-19 4:52am

Great! Glad you got it sorted out.

Gustav Brock 3-Jan-19 6:16am

It has. Perhaps you should reveal your code.

Atipos 3-Jan-19 6:28am

I will update the code on the main question.

Gustav Brock 3-Jan-19 6:55am

OK. But you seem not to assign username1 to anything.