Hi guy's, can anyone put me right on this one please ? probably can't see the wood for the trees!!
Code:Dim MyZero As Long, MySort As Long, MySort2 As Long If Me.cboOptionsIndex6 = "Check Zero Qty" Then MyZero = "0" MySort = "1" MySort2 = "10" Set rs = CurrentDb.OpenRecordset("Select * From tblStock WHERE StartQty = " & MyZero & " And SortNo Between " & MySort & " And " & MySort2 & " & Order By SortNo;")