Give besked hvis me.test er 0 eller ingen ting

If IsNull(Me!test) then
msgbox "Feltet er ikke udfyldt"
end if

men hvad nu hvis feltet er tomt " "

IsNull = Tom

Men jeg synes nu, at dit spørgsmål er lidt forvirrende:

Den skal give besked hvis test er > 0. Her skal du jo ind i en Len og tælle antal tegn i test og feltet er udfyldt hvis Len er > 0

Men samtidig skal den give besked hvis test ikke er udfyldt altså = Null!

ja, det er rigtigt me.test skal være >0 men hvis feltet er slettet (" ") så skal også give besked.

If Len(test)> 0 Then
gør noget
end if

If IsNull(Me!test) then
msgbox "Feltet er ikke udfyldt"
end if

Måler henholdsvis og antallet af karakterer i test er > 0, eller om der er karakterer i feltet

'mugs'det ser ikke ud til at virke. me.test er et tekst felt

Afprøvet og fungerer:

Private Sub Kommandoknap2_Click()
If Len(test) > 0 Then
MsgBox "Der er karakterer i feltet"
End If
If IsNull(Me!test) Then
MsgBox "Feltet er ikke udfyldt"
End If
End Sub

Men der er jo dobbelt konfekt. Du kan nøjes med den ene:

Private Sub Kommandoknap2_Click()
If IsNull(Me!test) Then
MsgBox "Feltet er ikke udfyldt"
docmd.gotocontrol "test"
End If
End Sub

DEr sikrer dig, at markøren ikke kan lande i et andet felt end test, hvis dette ikke er udfyldt.

If (IsNull(Me!test)) or (me!test = "") Then
  msgbox "Feltet er tomt"

Hej mugs
null og en tom tekststreng er ikke det samme

Niels

Jeg har en gang fået følgende function
Function Tom(MyControl As Control) As Integer
    Tom = False
    If IsNull(MyControl) Then
        Tom = True
    Else
        If MyControl = "" Then
            Tom = True
        End If
    End If
End Function

Derefter kan du tjekke om et felt er 'tomt'
If Tom(Me!Felt) then

'nih' og 'mugs' Det ser ud til at 'nih' er den bedste funktion, men hvordan får nedestående indeflettet i 'nih' foreslag

Dim stDocName As String

    stDocName = "Agreement-Crewlist"
    DoCmd.OpenReport stDocName, acPreview, , "ID=" & Me!ID
    DoCmd.SendObject acReport, stDocName, acFormatSNP, "crew@herning-shipping.dk", , , shipname() + ", Agreement, " + First_name + " " + Surname, "Herewith agreement for " + First_name + " " + Surname + " signed on " + commence_date + " In " + commence_at

Den skal selvfølgelig se sådan ud:

Private Sub Command119_Click()
Me.Refresh

If Tom(Me!eksrta6) Then MsgBox "Der er karakterer i feltet"



If Tom(Me!eksrta6) = False 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() + ", Agreement, " + First_name + " " + Surname, "Herewith agreement for " + First_name + " " + Surname + " signed on " + commence_date + " In " + commence_at
Exit_Command119_Click:
    Exit Sub

Err_Command119_Click:
    MsgBox Err.Description
    Resume Exit_Command119_Click
End If

End Sub

Du får et svar :o)