Mark A Matte
markamatte at hotmail.com
Thu Nov 20 08:13:36 CST 2008
Make that 3 parts!!!!! ********CODE FROM FORM THAT MOVES STUFF ON MAIN FORM**********Private Sub cboImageType_AfterUpdate()Me!cboControlNumber.RequeryMe!sfrmtblDesign.RequeryMe!cboControlNumber = NullMe!cboLT.Enabled = TrueMe!cboDN.Enabled = TrueSelect 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 SelectIf Me!cboControlNumber.Column(0) = "V" Then Me!VHTable = 1Else Me!VHTable = 2End IfEnd Sub Private Sub cboUP_Click()Dim I As ControlDim L As ControlDim C As ControlDim ChoicevMove = Me!DistanceSelect 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 SelectSaveSetupEnd Sub Private Sub cboRT_Click()Dim I As ControlDim L As ControlDim C As ControlDim ChoicevMove = Me!DistanceSelect 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 SelectSaveSetupEnd Sub ***>>>TO BE CONTINUED<<<*** _________________________________________________________________ Windows Live Hotmail now works up to 70% faster. http://windowslive.com/Explore/Hotmail?ocid=TXT_TAGLM_WL_hotmail_acq_faster_112008