Der skal indtastes værdi i felt i underformular.

Det kan gøres på fle måder. I formularens hændelse VedLukning kan Du lægge en kode:

If IsNull(Me.feltnavn) then
Msgbox "Der er ikke indtastet en værdi"
end if

Du kan også lægge koden i det enkelte felt BeForeUpdate

Det er i en underformular, er det så på underformularens eller hovedformularen jeg skal lægge koden ?

Hændelsen VedLukning, hvad hedder den på engelsk ?

Jeg ville nok nøjes med at gøre det i BeforeUpdate.

Koden fra mugs virker kun hvis Påkrævet (required) er sat til Nej (no) for det pågældende felt i tabellen. Dette er dog det normale.

Følgende skulle virke i begge tilfælde, og fanger også hvis brugeren blot har indtastet mellemrumstegn:

If IsNull(Me.feltnavn) or Trim(Me.feltnavn & "")="" Then
    Msgbox "Der er ikke indtastet en værdi"
End If

VedLukning = OnClose

I underformularen. Det reserverede ord Me refererer altid til den aktuelle formular.

Hændelsen VedLukning hedder "On Close" på engelsk.

Sikke man kan krydse hinanden... :o)

Det virker ikke ved BeforeUpdate, men ved On Close viker det næsten, den lukker min formular og viser så en msgbox, den skal ikke lukke formularen med vise msgboksen også hoppe ned på det felt der ikke er indtaste i

> Det virker ikke ved BeforeUpdate

Kommer der en dialogboks, eller sker der bare ingenting?

Der var en fejl i koden til BeforeUpdate - der manglede en tilskrivning til Cancel:

Private Sub feltnavn_BeforeUpdate(Cancel As Integer)
    If IsNull(Me.feltnavn) or Trim(Me.feltnavn & "")="" Then
        Msgbox "Der er ikke indtastet en værdi"
        Cancel = True
    End If
End Sub

Desuden skal denne programkode indsættes på BeforeUpdate-eventen på alle de felter, som ikke må være tomme. Altså som angivet feltnavn_BeforeUpdate. Husk at oprette disse events i Properties for feltet, og ikke blot ved at tilføje programkoden, ellers virker det vist ikke.

Ved BeforeUpdate sker der ingenting ?

Den lukker stadig formularen og derefter viser den msgboxen
så man bliver jo ikke tvunget til at skrive noget i feltet.

Så må jeg vist melde pas.

Denne er afprøvet og fungerer:

Private Sub kunde_BeforeUpdate(Cancel As Integer)
If IsNull(Me.kunde) Then
MsgBox "Der skal indtastes en kunde"
Cancel = True
End If
End Sub

Hm, er det mig der er blind, eller hvor er forskellen i forhold til den udgave jeg skrev? Altså bortset fra at den også fanger lidt mere?

Jeg er nysgerrig - jeg vil også gerne lære noget her! :o)

jhertel > Din kode er afprøvet og fungerer perfekt. Min er lidt mere simpel, men den fanger skam også mellemrum :o)

Okay, så forstår jeg bedre.

Virker din også hvis Required er sat til Yes for det pågældende felt i tabellen???

Det er jo lige før jeg må bide i det sure æble og selv afprøve det i virkeligheden, i stedet for blot at afprøve det i hovedet :o)

Ved du hvad, mugs, jeg trækker mig bare helt tilbage og går hjem og lægger mig. Din kode ser jo ud til at virke fint i alle tilfælde.

:o)