IF sætning Virker ikke

Har du prøvet med IsNull istedet?

If IsNull(Me.Firmanavn) Then

Private Sub Firmanavn_LostFocus()
If IsEmpty(Me.Firmanavn) Then
MsgBox "Du Skal Skrive et Firmanavn"
Me.Firmanavn.SetFocus
End If
End Sub

The function fldIsEmpty (which I think originates from me) may not be correct!


Change to


Private Sub Firmanavn_LostFocus()
  If Trim(Len(Me.Firmanavn)) = 0 Then
    MsgBox "Du Skal Skrive et Firmanavn"
    Me.Firmanavn.SetFocus
  End If
End Sub

can you show the function fldIsEmpty here, maybe I can fix it!

or replace with

Function fldIsEmpty(fld As Variant) As Boolean

    fldIsEmpty = True

    If Len(Trim(fld)) > 0 Then fldIsEmpty = False
   
End Function

sorry venner men den virker så der kommer en msgbox men den sætter ikke fokus i Firmanavn...?

Is IsNull(Me.Firmanavn) Then
MsgBox "Du skal skrive et firmanavn."
DoCmd.GoToControlelement "Firmanavn"
End If

is this the last field in a detail section? If so then when you leave the field you are more than likely on th enext record!

So you need to use the forms BEFORE UPDATE event to check that the field contains data. If it deosnt then set the Cancel parameter to True

mugs  > det virker ikke dit eksempel
terry > Jeg har sat min kode ind på min underformular - BEFORE UPDATE. men det virker ikke..? hvordan får jeg den til at sætte fokus osv. fra min underformular til min hovedformular

Private Sub Firmanavn_LostFocus()
If IsEmpty(Me.Firmanavn) Then
MsgBox "Du Skal Skrive et Firmanavn"
Me.Firmanavn.SetFocus
End If
End Sub

prøv med Me!Parent!Firmanavn.SetFocus

Hov det skal vist være Me.Parent!Firmanavn.SetFocus

The form AFTER UPDATE event occurs only when you have altered data or inserted a new record, it doesnt occur when you move from the field Firmanavn to another control.

So you will VERY likely need to have code in more than one event. For example when you INSERT a new record you will need to check that your fields are valid BEFORE the record gets written to the dB (Forms BEFORE update) but just because the cursor is in the fields firmanavn and you move from it (lost focus) you can not be sure that you have altered the record. So there may be no need to inform the user that it needs entering.


You can check the forms dirty property to see if the record has changed.


If Me.Dirty Then ......

woodgaard -> Min kode er ikke afprøvet, men burde fungere. Fejlen er, at du ikke fra starten har angivet, at det drejer sig om en underformular. Hvis du står i en formular og vil checke et felt i en undeformular, er du nødt til først (som hubs angiver), at sætte fokus først på underformularen og dernæst på det pågældende felt i underformularen.

Den anden vej fra underformular til hovedformular, kan du nøjes med at sætte fokus på hovedformularen, så vil markøren gå til det første tabulatorindeks i hovedformularen.

Så moralen er: Husk altid at angive, at det drejer sig om en underformular.

If the user is in a field,  be it on a the main form OR a sub form, then as long as the focus doesnt move FROM the sub form TO the main form then there should be NO REASON to set focus back to the sub form!

If we are in a detail record and the last field in the detail (tabe order not visual) is Firmanavn then losing focus will move to the next record unless we have set the forms cycle property to current record

Jeg har fundet den løsning som det til at virke jeg satte denne hændelse på et tekst felt i underformularen:

If fldisempty(Me.Parent.Firmanavn) Then
MsgBox ":: Du skal først indtaste et Firmanavn ::"
Me.Parent!Firmanavn.SetFocus
End If

Beklager at jeg har sagt forkert fra start af :-)
Læg Et svar hubs så for i alle terry, mugs, hubs point for jeres tid og hjælp ;)

Det er helt okay gi' bare de andre point'ne de har lagt noget mere arbejde i det end mine små kommentarer. :c)

.