Invalid Use of Null

[Steven19]

So I get the Invalid Use of Null, but am not familiar with fixing this. My code is thus:



Private Sub SaveBtn_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 = Me.Prefix & x
rs!BoxID = Me.Box_ID
rs!SealTypes = Me.Seal_Types
rs!SupplierLookup = Me.Supplier
rs!DateAdded = Me.Date_Added
rs!Site = Me.Site
rs.Update
Next

For x = Me.StartRange To Me.EndRange is highlighted as Invalid use of Null when these fields are unbound.

If I set their Control Source to the fields for them, then I end up with data in the fields StartRange and EndRange, and I dont need that.

I need a solution so that when I send the database to a colleague they can start with field 1 bland, and not have error 94 come up.

Help much appreciated.

[June7]

What value do you want to provide if null - 1?

For x = Nz(Me.StartRange, 1) To Nz(Me.EndRange, 1)

[Steven19]

the thing is, the fields are never null., I'm always entering data here, the bolts will always hav a range, a start number in sequece to several hundred. Its just strange that access thinks there is no data here when creating the first record.

So I enter test data 3 for start and 7 for end and it saves those values in my table, in the first row all the time, I have to overwrite it all the time, but the rest of the code works as expected.

[Steven19]

thats a good fix thank you.
Just when adding the amendment I keep forgetting I have to save, close it out and re-start it again for it to take hold.
THanks for your help.