You signed in with another tab or window. Reload to refresh your session.You signed out in another tab or window. Reload to refresh your session.You switched accounts on another tab or window. Reload to refresh your session.Dismiss alert
{{ message }}
This repository has been archived by the owner on Mar 14, 2023. It is now read-only.
SQL = "SELECT Count (*) FROM _tCountSlipPrint WHERE Print=Yes"
Set Lrs = db.OpenRecordset(SQL)
NumLocations = Lrs.Fields(0).Value
'db.Close
'Set db = CurrentDb()
'SQL2 = "SELECT DormName FROM _tCountSlipPrint WHERE Print=Yes"
SQL = "SELECT DormName FROM _tCountSlipPrint WHERE Print=Yes"
Set Lrs = db.OpenRecordset(SQL)
Dim iL As Integer
Dim LocationTextBox As Variant
For iL = 1 To NumLocations
Set LocationTextBox = GroupHeader0.Controls("txtLocation" & (iL))
LocationTextBox.Value = Lrs.Fields(0).Value
Lrs.MoveNext
Next
SQL = "SELECT tUnits.Unit FROM tUnits INNER JOIN _tCountSlipPrint ON tUnits.UnitID = [_tCountSlipPrint].UnitID WHERE ((([_tCountSlipPrint].Print)=Yes))"