Private Sub JobLocation_AfterUpdate()
Dim CBx As ComboBox, Prefix As String, Cri As String
Dim NextNum As Long, DQ As String
Set CBx = Me!JobLocation
DQ = """"
Prefix = Switch(CBx = "Gatwick", "GWO-", _
CBx = "Woking", "WWO-")
Cri = "Left([JobNo],4) =...