ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   Adding a button to a VB form (https://www.excelbanter.com/excel-programming/429701-adding-button-vbulletin-form.html)

dj

Adding a button to a VB form
 
Very VB novice - have basic form which is being used to fill a database. Need
to add 4 buttons which will be used to determine what type of data is coming
in i.e. question, comment, idea etc.

All work - can see buttons on form but when I select one of them when I run
get TRUE or FALSE in relevant column.

What do I need to do to get text as outlined above?
--
DJ

JLGWhiz[_2_]

Adding a button to a VB form
 
Part 1:
Button usually refers to command button, but in your case it looks like
either an option button (circle with dot) or a checkbox, since both ot these
types have values of True or False.

Part 2:
Assuming that the "buttons" are option buttons, then you can add code to
them by entering design mode and right clicking the button and then select
"View Code" from the pop up menu. Add code similar to this:

Private Sub OptionButton1_Click()
If Me.OptionButton1.Value = True Then
ActiveSheet.Range("A1") = "Question"
End If
Me.OptionButton1.Value = False
End Sub

You would need to change A1 to the appropriate cell reference, for each
OptionButton and assign the appropriate type of incoming data.

If you are using a command button, then you would not need the If statement.

Private Sub CommandButton1_Click()
ActiveSheet.Range("A1") = "Question"
End If




"DJ" wrote in message
...
Very VB novice - have basic form which is being used to fill a database.
Need
to add 4 buttons which will be used to determine what type of data is
coming
in i.e. question, comment, idea etc.

All work - can see buttons on form but when I select one of them when I
run
get TRUE or FALSE in relevant column.

What do I need to do to get text as outlined above?
--
DJ





All times are GMT +1. The time now is 01:47 AM.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com