Open form based on field value

[rmatkovic]

Hi,
I have one database and form. I would like to open some other form with dblclick on field value and depending of filed value open different form. For example I have filed value = SAND, and I want on dblclick open form named subfrmAnalizePijesak. My try with VBA code is here:

Private Sub cboGage_DblClick(Cancel As Integer)

Select Case DoCmd.OpenForm

Case 1
    Me.Gage = "SAND"
    DoCmd.OpenForm "subfrmAnalizePijeska"
    
Case Else
   Do.Nothing = ""

End Select
        
End Sub

But, something I made wrong
Please, I need help

Thanks

 

[theDBguy]

Maybe?

Select Case Me.cboGage 

    Case "sand"
...

 

[LarryE]

Hi,
I have one database and form. I would like to open some other form with dblclick on field value and depending of filed value open different form. For example I have filed value = SAND, and I want on dblclick open form named subfrmAnalizePijesak. My try with VBA code is here:

Private Sub cboGage_DblClick(Cancel As Integer)

Select Case DoCmd.OpenForm

Case 1
    Me.Gage = "SAND"
    DoCmd.OpenForm "subfrmAnalizePijeska"
 
Case Else
   Do.Nothing = ""

End Select
     
End Sub

But, something I made wrong
Please, I need help

Thanks

If Me.Gage="SAND" Then
    DoCmd.OpenForm "subfrmAnalizePijeska"
End If

 

[Pat Hartman]

Does this solve the problem?

Private Sub cboGage_DblClick(Cancel As Integer)

Select Case Me.Gage

Case "SAND"
    DoCmd.OpenForm "subfrmAnalizePijeska"   
Case "Dirt"
    DoCmd.OpenForm "subfrmAnalizePijeska2"   
Case "Rocks"
    DoCmd.OpenForm "subfrmAnalizePijeska3"   
Case Else
    Msgbox "Unknown value"
End Select
        
End Sub

 

[cheekybuddha]

Do you actually intend to open a subform as a standalone form?

Or are you trying to set a subform control's SourceObject dependent on the value of Me.Gage ?

 

[Gasman]

When you are unsure about any syntax, Google for it.
VBA Select Case

Also look for examples
Vba select case examples

 

[azhar2006]

In the double click event of the intended field, open the code and write the following code:

 On Error Resume Next
 Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "frmName"
    
    stLinkCriteria = "[ID]=" & Me![ID]
    DoCmd.OpenForm stDocName, , , stLinkCriteria