Mark A Matte
markamatte at hotmail.com
Thu Nov 20 09:43:18 CST 2008
Make that 3 parts!!!!!
********CODE FROM FORM THAT MOVES STUFF ON MAIN FORM**********
Private Sub cboImageType_AfterUpdate()
Me!cboControlNumber.Requery
Me!sfrmtblDesign.Requery
Me!cboControlNumber = Null
Me!cboLT.Enabled = True
Me!cboDN.Enabled = True
Select Case Me!cboImageType
Case "bar__b"
Me!Adjust.Visible = True
Me!VHTable.Visible = False
Me!Adjust = 2
Case "pool_p"
Me!Adjust.Visible = False
Me!VHTable.Visible = True
Case "dine_d"
Me!Adjust.Visible = False
Me!VHTable.Visible = False
Case "stools"
Me!Adjust.Visible = False
Me!VHTable.Visible = False
End Select
If Me!cboControlNumber.Column(0) = "V" Then
Me!VHTable = 1
Else
Me!VHTable = 2
End If
End Sub
Private Sub cboUP_Click()
Dim I As Control
Dim L As Control
Dim C As Control
Dim Choice
vMove = Me!Distance
Select Case Left(Me!cboControlNumber, 1)
Case "p"
Choice = "Pool_" & Me!cboControlNumber
Set I = Forms!frmtables(Choice)
I.Top = I.Top - vMove
Me!txtLeft = I.Left
Me!txtTop = I.Top
Choice = "Label" & Me!cboControlNumber
Set L = Forms!frmtables(Choice)
L.Top = L.Top - vMove
Choice = "count" & Me!cboControlNumber
Set C = Forms!frmtables(Choice)
C.Top = C.Top - vMove
Case "b"
Choice = "Bar__" & Me!cboControlNumber
Set I = Forms!frmtables(Choice)
If Me!Adjust = 1 Then
I.Height = I.Height + vMove
Me!txtHeight = I.Height
Me!txtWidth = I.Width
Me!txtTop = I.Top
Me!txtLeft = I.Left
Else
I.Top = I.Top - vMove
Me!txtLeft = I.Left
Me!txtTop = I.Top
Me!txtHeight = I.Height
Me!txtWidth = I.Width
End If
Case "d"
Choice = "Dine_" & Me!cboControlNumber
Set I = Forms!frmtables(Choice)
I.Top = I.Top - vMove
Me!txtLeft = I.Left
Me!txtTop = I.Top
Choice = "Label" & Me!cboControlNumber
Set L = Forms!frmtables(Choice)
L.Top = L.Top - vMove
Me!txtLeft = L.Left
Me!txtTop = L.Top
Case "s"
Choice = "Stool" & Me!cboControlNumber
Set I = Forms!frmtables(Choice)
I.Top = I.Top - vMove
Me!txtLeft = I.Left
Me!txtTop = I.Top
Choice = "Label" & Me!cboControlNumber
Set L = Forms!frmtables(Choice)
L.Top = L.Top - vMove
Me!txtLeft = L.Left
Me!txtTop = L.Top
End Select
SaveSetup
End Sub
Private Sub cboRT_Click()
Dim I As Control
Dim L As Control
Dim C As Control
Dim Choice
vMove = Me!Distance
Select Case Left(Me!cboControlNumber, 1)
Case "p"
Choice = "Pool_" & Me!cboControlNumber
Set I = Forms!frmtables(Choice)
I.Left = I.Left + vMove
Me!txtLeft = I.Left
Me!txtTop = I.Top
Choice = "Label" & Me!cboControlNumber
Set L = Forms!frmtables(Choice)
L.Left = L.Left + vMove
Choice = "count" & Me!cboControlNumber
Set C = Forms!frmtables(Choice)
C.Left = C.Left + vMove
Case "b"
Choice = "Bar__" & Me!cboControlNumber
Set I = Forms!frmtables(Choice)
If Me!Adjust = 1 Then
I.Width = I.Width + vMove
Me!txtLeft = I.Left
Me!txtTop = I.Top
Me!txtHeight = I.Height
Me!txtWidth = I.Width
Else
I.Left = I.Left + vMove
Me!txtLeft = I.Left
Me!txtTop = I.Top
Me!txtHeight = I.Height
Me!txtWidth = I.Width
End If
Case "d"
Choice = "Dine_" & Me!cboControlNumber
Set I = Forms!frmtables(Choice)
I.Left = I.Left + vMove
Me!txtLeft = I.Left
Me!txtTop = I.Top
Choice = "Label" & Me!cboControlNumber
Set L = Forms!frmtables(Choice)
L.Left = L.Left + vMove
Me!txtLeft = L.Left
Me!txtTop = L.Top
Case "s"
Choice = "Stool" & Me!cboControlNumber
Set I = Forms!frmtables(Choice)
I.Left = I.Left + vMove
Me!txtLeft = I.Left
Me!txtTop = I.Top
Choice = "Label" & Me!cboControlNumber
Set L = Forms!frmtables(Choice)
L.Left = L.Left + vMove
Me!txtLeft = L.Left
Me!txtTop = L.Top
End Select
SaveSetup
End Sub
***>>>TO BE CONTINUED<<
_________________________________________________________________
Get more done, have more fun, and stay more connected with Windows Mobile®.
http://clk.atdmt.com/MRT/go/119642556/direct/01/