Form Automation

[pushrodengine via AccessMonster.com]

In need a code that will move the value of a text box to another text box
when a specific value is entered into a combo box.

When “Place 1â€, “Place 2â€, “Place 3†or “Place 4†is select from the
“Location†combo box, the form will automatically input the value of Textbox
“Distance†into Textbox “Coverageâ€.

Thank You

 

[ruralguy via AccessMonster.com]

You can use the AfterUpdate event of the ComboBox to set the two TextBoxes
the same with:
Me.Coverage = Me.Distance
...and you can use a Select Case to determine when to execute the code.

 

[pushrodengine via AccessMonster.com]

How do I use Select Case excute:

Me.Coverage = Me.Distance

when “Place 1â€, “Place 2â€, “Place 3†or “Place 4†is select from the
“Location†combo box, the form will automatically input the value of Textbox
“Distance†into Textbox “Coverage�

Thanks

 

[Albert D. Kallal]

How do I use Select Case excute:

I don't believe you need a select case in this situation at all.

What you do is build your combo box based on a table with the two collums of
data. (in fact I suspect that this point in time to, boxes likely based on
the table, and thus you wanna pull the additional column into another text
box on the form.

collum 1them to columns of data

So, assuming your combo box has two collums like:

Place distance

Place 1 20
Place 2 30
Place 3 40
Place 4 50

In the after update event of the combo box, you simply go:

me.Distance = me.MyComboBox.column(1)

the note that the column function is zero based, and thus zero means the
first column

Thus, you only need one line of code to do this whole job .....

 

[ruralguy via AccessMonster.com]

In case you *do* need a Select Case then:

--------------------------------------------------
Private Sub Location_AfterUpdate()

Select Case Me.Location
Case "Place 1"
Me.Coverage = Me.Distance
Case "Place 2"
Me.Coverage = Me.Distance
Case "Place 3"
Me.Coverage = Me.Distance
Case "Place 4"
Me.Coverage = Me.Distance
Case Else
'-- Do Nothing!!
End Select

End Sub
-------------------------------------------------

 

[pushrodengine via AccessMonster.com]

The code works great, but is there a way to make...
_________________________________________________
Select Case Me.Location
Case "Place 1"
Me.Coverage = Me.Distance
Case "Place 2"
Me.Coverage = Me.Distance
Case "Place 3"
Me.Coverage = Me.Distance
Case "Place 4"
Me.Coverage = Me.Distance
Case Else
'-- Do Nothing!!
End Select

End Sub
__________________________________________________

...part of my Add Incident Button On Click code below:

__________________________________________________
Private Sub AddIncident_Click()
On Error GoTo Err_AddIncident_Click
Me!chkOKToClose = True
DoCmd.GoToRecord , , acNewRec

Exit_AddIncident_Click:
Exit Sub

Err_AddIncident_Click:
MsgBox Err.Description
Resume Exit_AddIncident_Click
End Sub
____________________________________________________

Thanks

 

[pushrodengine via AccessMonster.com]

I got it. Thank you all for your help!

 

[ruralguy via AccessMonster.com]

You're welcome. Glad we could help.

I got it. Thank you all for your help!