Form Help

[jcaptchaos2]

Hello,

I am using this code to pull the shift number from one table to another when and employee scans there ID, I am wondering if I could also use something like this to have a box pop up when they scan saying something like "Transaction accepted Bob" or what ever their name is. The name is in the same table and the field name is [Employeename]

Private Sub Employee_Number_AfterUpdate()
shift = DLookup("[Shift]", "[employeetbl]", "[Employee #]= " & [Forms]![ParollTimeofffrm]![EmployeeNumber])
End Sub

Thanks

[pbaldy]

Sure; you can look up the name the same way (a recordset would be more efficient for multiple values), and then

MsgBox "Transaction accepted " & YourVariableName

[jcaptchaos2]

Thanks, would I create a text box and then use the MsgBox code it that, this info would not need to be stored in any table it would just let them know that the transaction went through.

[pbaldy]

You can use a textbox, but you don't need to. You can use a variable as in my first example or just:

MsgBox "Transaction accepted " & DLookup(...)

[jcaptchaos2]

Where do I place this code?

[pbaldy]

Wherever you want the message. You mentioned when they scan, so that same after update event is a likely candidate.

[jcaptchaos2]

Thanks pbaldy

[jcaptchaos2]

Ok tried this but it errors out on the MsgBox part. I want to be able to have it so after the employee scans thier badge it acknowledges it by saying Transacted Accepted and then thier name. The only thing they do is scan thier badge on this form so I don't know where else to put the code other that with the shift code.

Private Sub EmployeeNumber_AfterUpdate()
shift = DLookup("shift", "employeetbl", "employeeNumber=" & EmployeeNumber)
MsgBox "Transaction accepted " & DLookup("Employee Name", "employeetbl", "employeeNumber=" & EmployeeNumber)
End Sub

[pbaldy]

You probably need to bracket the field name due to the inadvisable space:

[Employee Name]

[jcaptchaos2]

You are correct Sir, thank you for your continued help: )

[pbaldy]

No problem, glad it worked for you.