if statement vba in access

[mana]

hello
i wrote the following button in a form
but it doesn't go to the if statement at all
can you help me please?
where is my fault?




If Me.Fehlteil.Value = "" Then
DoCmd.OpenForm "frm_logistik_zeitfehlerein_detail_emptyfields", , , acFormDS
Else

On Error GoTo Err_Befehl14_Click
Dim stDocName As String
Dim stLinkCriteria As String




stDocName = "frm_logistik_zeitfehlerein_detail"

stLinkCriteria = "[Fehlteil]=" & "'" & Me![Fehlteil] & "'"
DoCmd.OpenForm stDocName, acFormDS, , stLinkCriteria
Exit_Befehl14_Click:
Exit Sub
Err_Befehl14_Click:
MsgBox Err.Description
Resume Exit_Befehl14_Click
End If

 

[pr2-eugin]

Could you provide full code with proper formatting please? http://access-programmers.co.uk/forums/showthread.php?t=240420

 

[mana]

hello
the following is the code

Private Sub Text52_Click()
  If Me.Fehlteil.Value = "" Then
    DoCmd.OpenForm "frm_logistik_zeitfehlerein_detail_emptyfields", , , acFormDS
    
   Else
On Error GoTo Err_Befehl14_Click
    
    Dim stDocName As String
    Dim stLinkCriteria As String
    stDocName = "frm_logistik_zeitfehlerein_detail"
    stLinkCriteria = "[Fehlteil]=" & "'" & Me![Fehlteil] & "'"
    DoCmd.OpenForm stDocName, acFormDS, , stLinkCriteria
Exit_Befehl14_Click:
    Exit Sub
Err_Befehl14_Click:
    MsgBox Err.Description
    Resume Exit_Befehl14_Click
 End If
End Sub

 

[mana]

hello

did you see the code?
can you say what my problem is please?

 

[Gasman]

Your code should be along the lines of below. I always put DIM statements at the top but that is a matter of preference I suppose.

You say it is not going to the If statement?. Have you tried setting a breakpoint on that line and F8 in Debug to see where the code goes.?

Private Sub Text52_Click()
On Error GoTo Err_Befehl14_Click

  If Me.Fehlteil.Value = "" Then
    DoCmd.OpenForm "frm_logistik_zeitfehlerein_detail_emptyfields", , , acFormDS
    
   Else

    
    Dim stDocName As String
    Dim stLinkCriteria As String
    stDocName = "frm_logistik_zeitfehlerein_detail"
    stLinkCriteria = "[Fehlteil]=" & "'" & Me![Fehlteil] & "'"
    DoCmd.OpenForm stDocName, acFormDS, , stLinkCriteria
 End If
Exit_Befehl14_Click:
    Exit Sub
Err_Befehl14_Click:
    MsgBox Err.Description
    Resume Exit_Befehl14_Click

End Sub

 

[BigHappyDaddy]

Just throwing this out there:

If the value of Me.Fehlteil.Value is null, then the true portion of the if statement will not execute.

Is this what you are seeing? If so, change the if statement to

If Nz(Me.Fehlteil.Value,"") = "" Then

 

[CJ_London]

i wrote the following button in a form

and is your button really called text52?

text52 looks like the default name for a textbox, buttons default to command52

 

[Gasman]

I think CJ has just spotted your problem.