Format unbound Text Box

[Loggical via AccessMonster.com]

I have an unbound Text Box in the form header that receives its information
from two text boxes in the details section of the form.
txtDepartmentIdEmployeeNumber = [txtDepartmentId] & " " &
[txtEmployeeNumber]

When txtDepartmentIdEmployeeNumber displays the text its displays GM 1. What
I am trying to display is GM000001 (A 6 digit number)

Form = frmEmployees
txtDepartmentId (Type Text)
txtEmployeeNumber (Formatted as 000000) (Type Number)
Unbound Text Box = txtDepartmentIdEmployeeNumber

Any help with this would be much appreciated.

 

[AccessVandal via AccessMonster.com]

Use the format function

txtDepartmentIdEmployeeNumber = [txtDepartmentId] & Format([txtEmployeeNumber]
,000000)

I have an unbound Text Box in the form header that receives its information
from two text boxes in the details section of the form.
txtDepartmentIdEmployeeNumber = [txtDepartmentId] & " " &
[txtEmployeeNumber]

When txtDepartmentIdEmployeeNumber displays the text its displays GM 1. What
I am trying to display is GM000001 (A 6 digit number)

Form = frmEmployees
txtDepartmentId (Type Text)
txtEmployeeNumber (Formatted as 000000) (Type Number)
Unbound Text Box = txtDepartmentIdEmployeeNumber

Any help with this would be much appreciated.

 

[Loggical via AccessMonster.com]

Use the format function

txtDepartmentIdEmployeeNumber = [txtDepartmentId] & Format([txtEmployeeNumber]
,000000)

I have an unbound Text Box in the form header that receives its information
from two text boxes in the details section of the form.

[quoted text clipped - 10 lines]

Any help with this would be much appreciated.

I tried what you did and it didn't work. Kept on reverting back
txtDepartmentIdEmployeeNumber = [txtDepartmentId] & Format([txtEmployeeNumber]

,0)

I treid the following which did work.txtDepartmentIdEmployeeNumber =
[txtDepartmentId] & Format([txtEmployeeNumber]

,"000000")

I knew it had to be a simple answer.

Thanks for your help.

 

[AccessVandal via AccessMonster.com]

Nice to hear, I forgot about putting the quotes there.

Use the format function

[quoted text clipped - 6 lines]
I tried what you did and it didn't work. Kept on reverting back
txtDepartmentIdEmployeeNumber = [txtDepartmentId] & Format([txtEmployeeNumber]

,0)

I treid the following which did work.txtDepartmentIdEmployeeNumber =
[txtDepartmentId] & Format([txtEmployeeNumber]

,"000000")

I knew it had to be a simple answer.

Thanks for your help.