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/