don't look if you don't want to help a beginner! :)

[licoricekisses]

I will give a big kudos if anyone can remotely help me with this, much less understand what I need help on...here goes: whew, okay...i've got some option buttons, I need the user to satisfy both frames with option buttons. I know how to make a message box to ask the user to go back and click on the option button, but how do you take it step by step? Like, how do you make it so that if the user clicks on one frame, but doesn't fulfill the second one, the message box will come up. Right now, the message boxes all come right after one another when clicking the command button.

Wow! Could anybody understand that and help me?!

[phase]

I didnt understand a word you just said. Lay it out more plainly and tell us what you're actually trying to do, and what its for and then i might be able to help

[Bruce Fox]

Do ALL optButons, on each frame, need to selected by the user?
________
SexxyMolly

[phase]

lol bruce i like your quote at the bottom of your thing..rofl

[Bruce Fox]

[Bruce Fox]

Alternatly,

You could 'hide' the second Frame until the user has satisfied
your rquirments on the first.

Frame2.Visible = False

________
PaoTheMax

[phase]

Do you even understand what he is trying to do? I sure dont...

[Bruce Fox]

Yes mate,

I have an idea what she is trying to do.
________
Live sex

[Pickler]

If I understand correctly, you should be able to just use the GotFocus event.
ie:

Frame1 with 2 option buttons Opt1 and Opt2
Frame2 with 2 option buttons Opt3 and Opt4

Sub Opt3_GotFocus()
  If Opt1.Value=False and Opt2.Value=False then
       MsgBox "Please select from Frame1 options"
  end if
 
End Sub

[Nightwalker83]

Originally posted by phase
lol bruce i like your quote at the bottom of your thing..rofl

He's one funny guy.

[licoricekisses]

I think Pickler is the closest...but it still doesn't work for some reason. I'm sorry about my explanation!

Okay, take 2--> i have a form that has 2 frames --frame1 with options Undergrad/Grad. frame2 holds Resident/Nonresident. Can you guys tell i'm trying to do a tuition calculation thingie? ANyway, then there's a textbox asking the user to put in how many credits they're taking. Then a command button that calculates the tuition. Wow, I guess that explanation was probably a lot better eh?


So...I need the user to fill out all frames before pushing "Compute Tuition"

Is that better?

[Dinz]

.......... ....I think what picler has suggested is what u want....

[Bruce Fox]

Similar to what Pickler said,

Place the check in the Command Button

Private Sub Command_Click()
 
  If Opt1.Value=False And Opt2.Value=False And Opt2.Value=False And Opt3.Value=False Then
       MsgBox "Please select an option"
  End if
 
End Sub

________
Godess_N_Passion

[licoricekisses]

okay, so this is the problem I'm encountering upon doing those statements. if i haven't filled out any of the frames it gives me a message stating i need to choose my class standing. that's great, but opon pressing the ok button, it goes to say i need to select my residency status, then goes to the next please provide a numeric value.

how do i separate them where each individual error message will display one at a time? when the error is actually made?

[Bruce Fox]

Post ur code
________
Pepper cam

[Pickler]

Hi Licoricekisses,

Can you post what code you have.

[licoricekisses]

Please don't laugh at me!! (and the hmm part i'm still figuring out. trying to limit the user with just number values. )




If optUndergrad.Value = False And optGrad.Value = False Then
MsgBox "Please select your class standing", vbInformation, "pa4"
End If

If optResident.Value = False And optNonresident.Value = False Then
MsgBox "Please select your resident status", vbInformation, "pa4"
End If

If txtNumberCredits.Text = "" Then
MsgBox "Please provide your number of credits", vbInformation, "pa4"
If IsNumeric(hmmm) Then
MsgBox "Please provide a numeric value", vbInformation, "pa4"
End If
End If

[Pickler]

Cool, no probs.
There is more than one way to fix this.
One way.

If optUndergrad.Value = False And optGrad.Value = False Then 
  MsgBox "Please select your class standing", vbInformation, "pa4" 
elseIf optResident.Value = False And optNonresident.Value = False Then 
  MsgBox "Please select your resident status", vbInformation, "pa4" 
elseIf txtNumberCredits.Text = "" Then 
  MsgBox "Please provide your number of credits", vbInformation, "pa4" 
elseIf IsNumeric(hmmm) Then 
  MsgBox "Please provide a numeric value", vbInformation, "pa4" 
End If

PS hmmm=txtNumberCredits.Text

Hope it helps

[licoricekisses]

wow pickler! thanks a lot! i can't believe i forgot that elseif statement! i totally brain-farted!

i'm trying to call a function...why won't it let me do it? here, i'll show you...and don't laugh at my redundancy with the function! (how would you alleviate that anyway?)

Private Sub cmdComputeTuition_Click()

Dim Standing As String
Dim Residency As String
Dim NumberCredits As Integer
Dim TotalTuition As Currency

If optUndergrad.Value = False And optGrad.Value = False Then
MsgBox "Please select your class standing", vbInformation, "pa4"
ElseIf optResident.Value = False And optNonresident.Value = False Then
MsgBox "Please select your resident status", vbInformation, "pa4"
ElseIf txtNumberCredits.Text = "" Then
MsgBox "Please provide your number of credits", vbInformation, "pa4"
txtNumberCredits.SetFocus
Exit Sub
ElseIf Not IsNumeric(txtNumberCredits) Then
MsgBox "Please provide a numeric value", vbInformation, "pa4"
txtNumberCredits.SetFocus
txtNumberCredits.SelStart = 0
txtNumberCredits.SelLength = Len(txtNumberCredits.Text)
Exit Sub
Else
NumberCredits = Val(txtNumberCredits.Text)
End If



TotalTuition = Cost(Standing, Residency, NumberCredits)
lblDisplayTuition.Caption = Format(TotalTuition, "Currency")

End Sub

Private Function Cost(Standing As String, _
Residency As String, NumberCredits As Integer) As Currency

If (Standing = "Undergrad") And (Residency = "Resident") Then
Cost = 35 * NumberCredits
ElseIf (Standing = "Undergrad") And (Residency = "Nonresident") Then
Cost = 65 * NumberCredits
ElseIf (Standing = "Grad") And (Residency = "Resident") Then
Cost = 70 * NumberCredits
ElseIf (Standing = "Grad") And (Residency = "Nonresident") Then
Cost = 135 * NumberCredits
End If

End Function

WHAT AM I MISSING? hmmm...

[Pickler]

I can see where you set the NumberCredits.
But I can't see where you set your Standing and Residency variables before calling your Cost function.

From what I can see they should be declared at Form level.
( not in your button click event )
and set when lciking your option buttons.

Cheers


( my chips are getting cold )

[Bruce Fox]

Option Explicit
Private Sub cmdComputeTuition_Click()
 
Dim Standing As String
Dim Residency As String
Dim NumberCredits As Integer
Dim TotalTuition As Currency
 
If optUndergrad.Value = False And optGrad.Value = False Then
  MsgBox "Please select your class standing", vbInformation, "pa4"
ElseIf optResident.Value = False And optNonresident.Value = False Then
  MsgBox "Please select your resident status", vbInformation, "pa4"
ElseIf txtNumberCredits.Text = "" Then
  MsgBox "Please provide your number of credits", vbInformation, "pa4"
  txtNumberCredits.SetFocus
  Exit Sub
ElseIf Not IsNumeric(txtNumberCredits) Then
  MsgBox "Please provide a numeric value", vbInformation, "pa4"
  txtNumberCredits.SetFocus
  txtNumberCredits.SelStart = 0
  txtNumberCredits.SelLength = Len(txtNumberCredits.Text)
  Exit Sub
Else
  NumberCredits = Val(txtNumberCredits.Text)
End If
 
If optUndergrad Then ' If Undergrad selected = TRUE, then Standing = "Undergrad"
  Standing = "Undergrad"
Else
  Standing = "Grad" ' If optUndergrad = FALSE, then Standing = "Grad"
End If
 
If optResident Then
  Residency = "Resident"
Else
  Residency = "Nonresident"
End If
 
TotalTuition = Cost(Standing, Residency, NumberCredits)
lblDisplayTuition.Caption = Format(TotalTuition, "Currency")
 
End Sub
 
Private Function Cost(Standing As String, _
Residency As String, NumberCredits As Integer) As Currency
 
If (Standing = "Undergrad") And (Residency = "Resident") Then
  Cost = 35 * NumberCredits
ElseIf (Standing = "Undergrad") And (Residency = "Nonresident") Then
  Cost = 65 * NumberCredits
ElseIf (Standing = "Grad") And (Residency = "Resident") Then
  Cost = 70 * NumberCredits
ElseIf (Standing = "Grad") And (Residency = "Nonresident") Then
  Cost = 135 * NumberCredits
End If
 
End Function

________
BUY MFLB

[licoricekisses]

Thank you so much! I can't believe I forgot to do that...your help is much appreciated!