Adapting VBA to merge two UI fields into one

[Steven19]

Hi All

I have the following code, which is designed to allow me to enter boldt suppliers and a box, each bolt has a sequential number on it with a prefix. Now the table I have has a field for the prefix and the bolt number, but is there a way I can adapt this code so that BoltNum = x Cane become BoltNum = Prefix and X (No spaces)

Private Sub Command30_Click()
Dim rs As Recordset, x As Integer
Set rs = CurrentDb.OpenRecordset("SELECT * FROM Seals WHERE 1=0")
For x = Me.StartRange To Me.EndRange
rs.AddNew
rs!BoltNum = x
rs!BoxID = Me.Box_ID
rs!SealTypes = Me.Seal_Types
rs!SupplierLookup = Me.Supplier
rs!Prefix = Me.Prefix
rs!DateAdded = Me.Date_Added
rs.Update
Next
End Sub



The result in the field now is
010
011
012 etc
What I want is
WW010
WW011
WW012

Any help greatly appreciated.

[pbaldy]

I'd probably leave them separate, but:

rs!BoltNum = Me.Prefix & x

[Steven19]

I get an debug error when doing that.

[pbaldy]

What's the error message? If that field is numeric, you certainly can't put the alpha characters in it.

[Steven19]

sorry no I was half aasleep I forgot one was a text field and the other was a number field. all fine now. thanks,

[pbaldy]

No problem. Like I said, I'd probably keep them separate anyway. Generally it's easier to put things together than split them apart. You can put them together when presenting to users.