Hi Guy's can anyone tell me why i get runtime error 3061 on rs9 ???
Cust = Forms!frmMainMenu!frmIndex1!cboCustomer
Src = "Acc"
MyStatus = "Planning"
MyStatus2 = "Friday"
MyStatus3 = "Monday"
mHold = "On Hold"
mYes = "Yes"
MyDate = Format(Me.txtUpdate, "mm/dd/yyyy")
Set rs8 = CurrentDb.OpenRecordset("SELECT tblAssign.ProductNo, tblAssign.SONumber, tblAssign.DelTo, tblAssign.ProductType, tblAssign.PONumber, tblAssign.Shipped, tblAssign.DeliveryDate, tblAssign.xlRow FROM tblAssign WHERE Customer = '" & Cust & "'" & " And Source = '" & Src & "'" & " And LiftType = '" & FL & "'" & " And DeliveryDate = #" & MyDate & "#" & " ORDER BY xlRow;")
Set rs9 = CurrentDb.OpenRecordset("SELECT tblCollections.ProductNo, tblCollections.SONumber, tblCollections.DelTo, tblCollections.ProductType, tblCollections.PONumber, tblCollections.Shipped, tblCollections.CollectionDate, tblCollections.xlRow FROM tblCollections WHERE Customer = '" & Cust & "'" & " And Source = '" & Src & "'" & " And CollectedDate = #" & MyDate & "#" & " ORDER BY xlRow;")
with regards