Følgende felter skal indeholde tekst eller må mail ikke sendes

Hej

Indlæg loop ind i starten af udførslen:
if isnull(me.commence_at) then
  msgbox "Du har ikke udfyldt.."
  exit sub
  else if isnull(me.ekstra7) then
        msgbox "Du har ikke udfyldt.."
        exit sub
.....osv
me.ekstra8
me.date
me.at

5 * end if

mvh Flemming

Hej Flemming

Kan ikke få din kode til at køre i access, der er fejl i else, den skriver else:

/Jan

Prøv lige at vis mig koden i din procedure.

Den ser sådan ud, men kører ikke

Private Sub Command119_Click()
Me.Refresh

If Tom(Me!eksrta6) Then MsgBox "Employee ID No. Empty..."
DoCmd.GoToControl "eksrta6"


Else: If Me.commence_at = " " Then MsgBox "Commence Place is empty..."
DoCmd.GoToControl "commence at"
Exit Sub

Else: If Me.eksrta6 = 0 Then MsgBox "Employee ID No. contain a zero!"
DoCmd.GoToControl "eksrta6"
Exit Sub

Else: If Tom(Me.date) Then MsgBox "Sign on date is missing"
DoCmd.GoToControl "date"
Exit Sub

Else: If Tom(Me.at) Then MsgBox "Commence port are missing"
DoCmd.GoToControl "at"
Exit Sub
End If
End If
End If

If Me.eksrta6 > 0 Then

On Error GoTo Err_Command119_Click
    Dim stDocName As String

    stDocName = "Agreement-Crewlist"
    DoCmd.OpenReport stDocName, acPreview, , "ID=" & Me!ID
    DoCmd.SendObject acReport, stDocName, acFormatSNP, "crew@herning-shipping.dk", , , shipname() + ", " + eksrta6 + ", " + "SIGNED ON, " + commence_date + ", " + commence_at
Exit_Command119_Click:
    Exit Sub

Err_Command119_Click:
    MsgBox Err.Description
    Resume Exit_Command119_Click
End If

End Sub

Prøv at compilere dette og giv mig en tilbage melding:

Private Sub Command119_Click()
Me.Refresh

If isnull(Me!eksrta6) Then MsgBox "Employee ID No. Empty..."
    DoCmd.GoToControl "eksrta6"
    exit sub
End if

If Me.commence_at = " " Then MsgBox "Commence Place is empty..."
  DoCmd.GoToControl "commence at"
  Exit Sub
end if

If Me.eksrta6 = 0 Then MsgBox "Employee ID No. contain a zero!"
  DoCmd.GoToControl "eksrta6"
  Exit Sub
end if
If isnull(Me.date) Then MsgBox "Sign on date is missing"
  DoCmd.GoToControl "date"
  Exit Sub
end if

If isnull(Me.at) Then MsgBox "Commence port are missing"
  DoCmd.GoToControl "at"
  Exit Sub
End If

If Me.eksrta6 > 0 Then

On Error GoTo Err_Command119_Click
    Dim stDocName As String

    stDocName = "Agreement-Crewlist"
    DoCmd.OpenReport stDocName, acPreview, , "ID=" & Me!ID
    DoCmd.SendObject acReport, stDocName, acFormatSNP, "crew@herning-shipping.dk", , , shipname() + ", " + eksrta6 + ", " + "SIGNED ON, " + commence_date + ", " + commence_at
Exit_Command119_Click:
    Exit Sub

Err_Command119_Click:
    MsgBox Err.Description
    Resume Exit_Command119_Click

End If

End Sub

Hej Flemming, får fejl ved den føørste endif

Private Sub Command119_Click()
Me.Refresh

If IsNull(Me!eksrta6) Then MsgBox "Employee ID No. Empty..."
    DoCmd.GoToControl "eksrta6"
    Exit Sub
End If

Hvilken fejl får du?

koden stopper ved endif

Du kan evt. zippe en kopi og sende den til mig på fl_poulsen@hotmail.com hvis du vil have hjælp til debugging.

sendt

returneret i eksekverbar tilstand

'flemming39' tak for hjælpen, gider du lave et svar?

Velbekomme