If Then Statement Help

[Kapelluschsa]

Hey everyone,

At the moment I have an access program that contrains a list of products. When you double click, a generic report opens up. I then wrote three seperate reports (one for each of the three different types of products) and am attempting to write code that will open up the appropriate report depending on the product type.

Not too familiar with the visual basic language.

Right now my code just reads

Private Sub Combo46_DblClick(Cancel As Integer)
If [Table]![Basic Program Info]![Products] = "Red" Then
DoCmd.OpenReport "Reportx"
Else If [Table]![Basic Program Info]![Products] = "Blue" Then
DoCmd.OpenReport "Reporty"
Else
DoCmd.OpenReport "Reportz"
End If
End Sub

Not too sure if i am on the right track or not. Any input would be greatly appreciated.

[pbaldy]

You're in the ballpark, but not on the playing field.

Presuming the product is on the form the code is on, the test would be:

If Me.[Products] = "Red" Then

The open would look like:

DoCmd.OpenReport "Reportx"

[Kapelluschsa]

Thanks a lot for the quick reply. So the value im comparing is in a list box on the form. Does the Me.[Product] command still apply?

Thanks again for the help.

[pbaldy]

As long as it's not a multi-select listbox, yes. It would be:

Me.ListBoxName

[Kapelluschsa]

Alright, thanks. I'm getting pretty close to having it work. As of now my code reads

Private Sub Combo46_DblClick(Cancel As Integer)
If Me.Combo46 = "Red" Then
DoCmd.OpenReport "Reportx", acViewPreview
Else If Me.Combo46 = "Blue" Then
DoCmd.OpenReport "reporty", acViewPreview
Else
DoCmd.OpenReport "reportz", acViewPreview
End If
End Sub

It seems like its almost working, except it always opens reportz. Do I have to somehow modify the Me.Combo46 to tell it what column in the combo box to look into to read the color?

[pbaldy]

If Me.Combo46.Column(x) = "Red" Then

The column property is zero based, so 0 is the first column.