I can't figure out why this doesn't work:
MyForm.Detail.Height = MyForm.Detail.Height - Int(0.75 * 1439.98848009216)
I have a start-up that if a data-logger is not detected, I move other various control a little higher as in:
Set MyForm = Forms!frmstartup
For Each CTL In MyForm.Controls
If InStr(CTL.Tag, "NOLOGGER") > 0 Then CTL.Visible = False
Next
'
For Each CTL In MyForm.Controls
If InStr(CTL.Tag, "SHIFTUP") > 0 Then CTL.Top = CTL.Top - (0.75 * 1439.98848009216)
Next
'
MyForm.Detail.Height = MyForm.Detail.Height - Int(0.75 * 1439.98848009216)
The only problem is that the control of the overall detail section height does not work. If I break point the code, and check the detail height, the result is .75" shorter that it had been. When the form is actually seen it is the same size it was designed at.
Any ideas?
Dave
MyForm.Detail.Height = MyForm.Detail.Height - Int(0.75 * 1439.98848009216)
I have a start-up that if a data-logger is not detected, I move other various control a little higher as in:
Set MyForm = Forms!frmstartup
For Each CTL In MyForm.Controls
If InStr(CTL.Tag, "NOLOGGER") > 0 Then CTL.Visible = False
Next
'
For Each CTL In MyForm.Controls
If InStr(CTL.Tag, "SHIFTUP") > 0 Then CTL.Top = CTL.Top - (0.75 * 1439.98848009216)
Next
'
MyForm.Detail.Height = MyForm.Detail.Height - Int(0.75 * 1439.98848009216)
The only problem is that the control of the overall detail section height does not work. If I break point the code, and check the detail height, the result is .75" shorter that it had been. When the form is actually seen it is the same size it was designed at.
Any ideas?
Dave