Ok, I am probably blind (comes with age, I guess) but I can't figure out this error. When the following code is run I get the error msg "Next without For"
Set db = CurrentDb()
Set rs = db.OpenRecordset(sql, dbOpenSnapshot)
If rs.RecordCount > 0 Then
For i = 1 To 37
If...
Thanks, Paul
When I inserted your code directly, still only received one job# for each date. Tried inserting a 'do..loop until rs.nomatch' before and after the "if not rs.nomatch" segment and received a reply of "False" for those dates that had multiple jobs scheduled. Any more ideas...
Hello, I have a calender composed of 37 text boxes (one for each day of a month) which when run, uses the following code to extract job#s from a table for the appropriate date.
Set f = Forms!frmCalender
For i = 1 To 37
f("text" & i) = Null
Next i
sql = "SELECT...
I have a tabbed subform (frmProd) (the secondary tab) that contains a calclulated control (weight) using data from a subform (frmWeights)on the frmProd subform. I am able to calculate these controls by using the ctlJob_GotFocus event with the following code, this being the first control to get...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.