Option Group

FCVIII

Registered User.
Local time
Today, 08:30
Joined
Jun 13, 2002
Messages
14
OK I made big steps in my database thanks to this board.

It updates the field I need from an option group however it does not highlight the option that was selected and once you let go of the mouse "the focus " appears to move back to option 1 even if option 1is not selected.

Right now the code I have is executed "on click."

So my question is how do I get the circle to be filled in?
 
Post the code in the event procedure and hopefully we could offer a quick solution.
 
Option Compare Database ' Use database order for string comparisons.
Option Explicit ' Requires variables to be declared before they are used.

Private Sub Package_Selection_Click()


-----Below is from my ...testing phase-----
-------The values are still imortant-----
'Declare Variables
Dim WeeK As Currency

Dim Monthly As Currency

Dim BiAnnual
Dim Annual

'Set Package Values
WeeK = "100.00"
Monthly = "200.00"
BiAnnual = 300
Annual = 400
----------------------------------------------------
Select Case Package_Selection
Case 1

Me![Total] = WeeK
Case 2
Me![Total] = Monthly
Case 3
Me![Total] = BiAnnual
Case 4
Me![Total] = Annual


Case 5

Dim Msg, Price, Title, Response, Month, Default
Msg = "Please enter total value of Special Package" ' Define message.
Default = "0" ' Set default.
Title = "Enter Promo UT Pricing" ' Define title.
Price = InputBox(Msg, Title, Default)
Month = InputBox(Msg, Title, Default)
MsgBox Prompt:="Thank you...chump."
Case 6

'Define message.
Msg = "Please enter total value of Promo Package"
'Set default.
Default = "0"
'Define title.
Title = "Enter Promo UT Pricing"
Price = InputBox(Msg, Title, Default)
Msg = "Please enter total value of Promo Package" ' Define message.
Month = InputBox(Msg, Title, Default)
MsgBox Prompt:="Thank you...chump."
End Select
End Sub
 
Same thing when I moved the code. It still works but the option is never visually selected. I have a text box that displays what value is entered so i know it still works.
 

Users who are viewing this thread

Back
Top Bottom