if then else... not sure how to do it

[Fspinelli]

Good morning!

I have to develop the means for an end user to click on a drop down (or radio button) and produces a report based on all records with that drop down choice.

For example...I have a call table that has a drop down box with follow up dates (such as: 1 week, 2 weeks, 1 month, 6 months).

If the user click on the drop down "1 week"
Then preview a report of all calls needed to follow up in 1 week.
Else if it's 2 weeks,
Then preview a report of all calls needing a follow up marked 2 weeks...

etc and so on.

I'm no quiet sure how to code that in VB. Are there any resources here that I can read that explains this in laymen terms (or in my case, laywoman).

Thank you!

Kind regards,
Faith

[mshmyob]

I think a simple Select Case would work better than the nested if then else.

cheers,

[Fspinelli]

Thank you mshmyob!

Ok...where would I learn how to do make a select case?

[mshmyob]

Look online for "Select Case in Access".

Code might look something like this:

Assuming you have a combo box called cboDates and put this code in the Onclick event.

 
Select Case (Me.cboDates.Column(1))
 
    Case Is = "1 Week"
        ' put code here
 
    Case Is = "2 Weeks"
        ' put code here
 
    Case Is = "1 Month"
        ' put code here
 
    Case Is = "6 Months"
        ' put code here
 
    End Select
 
 

The case statement will only execute the first case that is true.

cheers,

[Kaloyan Krumov]

Download from here developer refference. This link is for Office 2010 if you are using prior version you can find it on this site also. Folow instalation isntructions then pres F1 and search help. You will find all you need there.

[Fspinelli]

Thank you, Kaloyan.

[Fspinelli]

mshmyob,

What am I doing wrong?

I have a report based off of a query. I have a combo box that lists the various follow up times, and a command button with this code behind it:

Private Sub cmdFU_Click()
Select Case (Me.cboFU.Column(1))
Case Is = "1 Week"
DoCmd.OpenReport "follow_up_report"

Case Is = "2 Weeks"
DoCmd.OpenReport "follow_up_report"

Case Is = "1 Month"
DoCmd.OpenReport "follow_up_report"

Case Is = "6 Months"
DoCmd.OpenReport "follow_up_report"

End Select
Exit Sub
End Sub

I'm missing code, yes?

[mshmyob]

Hard for me to tell what you are doing wrong since you haven't told me what is happening.

But you should remove the Exit Sub line since that is not needed.

My example assumed you had 2 columns in your combo box - a hidden key column (primary key) and a descriptive column. I referenced the descriptive column (column(1)).

If your combo box only has a single column then change the column index from 1 to 0.

If that doesn't work please tell me what is happening and I can be more helpful.

cheers,

[ADezii]

Do you have a single Report, or multiple Reports based on each of the Intervals?

[Fspinelli]

Maybe if I explain what I have to do first then direct me?

I have a table with a date field. it's a field the end user enters a date when he/she wants to follow up with a contact.

I need to make it so that when the end user starts up the switchboard that a message (or something printable is the preference) pops up and tells the end user that they need to follow up with (bla bla bla) because the query looked at the follow up date field.

I don't want to do a date parameter - i need the query to start up when the switchboard does and let the user know who they need to follow up with today.

Know what I mean? Does this help?

Thank you very much.
Faith