Combining 2 fields into another 3rd field and leading zeros

[travellinman]

Hi, I'm trying to combine the text in two original fields and paste them into another 3rd field on a form, but the problem is that there are leading zeros in both original fields, which access does not copy into the 3rd field.

For example, if field 1 = 07 and field 2 = 0001, i'd like the 3rd field to be 070001, but instead access returns 71 in the 3rd field.

Adding to the complexity a bit is that field 2 is an autonumber field. so when i want that autonumber field to have a value when creating a new record, i have to fill in at least one of the other fields on the form. I'll be using field 4 for this.

The code I'm currently using is:

Private Sub Field4_Exit(Cancel As Integer)
Me.Field3= Me.Field1 & Me.Autonumber
End Sub

How can i modify this code so that the leading zeros are included?

Thanks a lot!

[Rabbit]

Hi, I'm trying to combine the text in two original fields and paste them into another 3rd field on a form, but the problem is that there are leading zeros in both original fields, which access does not copy into the 3rd field.

For example, if field 1 = 07 and field 2 = 0001, i'd like the 3rd field to be 070001, but instead access returns 71 in the 3rd field.

Adding to the complexity a bit is that field 2 is an autonumber field. so when i want that autonumber field to have a value when creating a new record, i have to fill in at least one of the other fields on the form. I'll be using field 4 for this.

The code I'm currently using is:

Private Sub Field4_Exit(Cancel As Integer)
Me.Field3= Me.Field1 & Me.Autonumber
End Sub

How can i modify this code so that the leading zeros are included?

Thanks a lot!

Private Sub Field4_Exit(Cancel As Integer)
Me.Field3 = Right("0" & Me.Field1, 2) & Right("000" & Me.Field2, 4)
End Sub

[travellinman]

Thanks! this works great

[Rabbit]

No problem, good luck.