Tildele felt i en underformular en funktion

er det en funktion du selv har skrevet ??

Hvis det er en textbox, kan man alt efter hvordan funktionen er bygget op skrive:
=Chkdate([feltnavn])

prøv at forklar lidt nærmere hvad du vil.

Niels

IN the one of the fields events in the properties write =ChkDate()
Which event depends on what your wanting to do

If you want to check the dates entered on the sub form then I would think it best to call your function. In theis event you can check your fiields and if they arent OK you set Cancel = True which stops the record being written to the database

Forms Before Update

Lets get this right!
If you want to check the dates entered on the sub form then I would think it best to call your function in the forms Before Update event. In this event you can check your fields and if they arent OK you set Cancel = True which stops the record being written to the database

jeg har lavet denne funktion:
On Error GoTo err_CHKDATE
If Forms!Tiderunderformular!dato > Date Then
MsgBox \"Du har indtastet en dato som ligger efter Dagsdato\", vbCritical, \"Ugyldig dato\"
End If

CHKDATE_exit:
    Exit Function
   
err_CHKDATE:
MsgBox Error$
    Resume CHKDATE_exit:

men når jeg sætter datofeltet afterupdate =CHKDATE()

kommer der en meddelelse \"svømmedatabasen kan ikke finde formularen *tiderunderformular*, der refereres til i Visual Basic-kode

/ncbr

You need to return a value from your function

If Forms!Tiderunderformular!dato > Date Then
MsgBox \"Du har indtastet en dato som ligger efter Dagsdato\", vbCritical, \"Ugyldig dato\"

CheckDate = False
else
CheckDate = True
End If


In the forms before update event you write

If Not CheckDate Then Cancel = True

Man kan henvise til en underformular på flg. måde

Me.Tiderunderformular.Form.dato > date

Niels

Sorry

Me.Tiderunderformular.Form![dato] > date

Niels

in which form \"tiderunderformular\" the main form \"Fsvoemmer\" ?

Pass the date to the function.

If Not CheckDate(Me.DateField) Then Cancel = True



The function CHECKDATE should look like this

Function CHECKDATE( TheDate as Date) AS Boolean

On Error GoTo err_CHKDATE
If TheDate > Date Then
MsgBox \"Du har indtastet en dato som ligger efter Dagsdato\", vbCritical, \"Ugyldig dato\"
End If

CHKDATE_exit:
    Exit Function
   
err_CHKDATE:
MsgBox Error$
    Resume CHKDATE_exit:




End Function

If you pass the date to the function then you can use the same function for other date checking.

Nu tror jeg at jeg ved hvad der menes.

du skal kalde funktionen i underformularens beforeupdate hændelse - OG IKKE FRA hoved formularen.

Glem alt om hovedformularen, fordi dit tjek af indtastet dato skal foregå i underformularen....

Niels

Jeg fatter ikke en lyd, lige nu, sorry :)

Den nemme løsning er vel at lægge funktionen ind i en hændelse på datofeltet afterupdate, eller ?

Private Sub Form_BeforeInsert(Cancel As Integer)

  if txtboxnavn > date then
    msgbox \"bla. bla\"
    cancel = true
  end if

End Sub

denne kode lægger du i underformularen\'s hændelse \'før indsættelse\'.  txtboxnavn er navnet på txtboxen hvor der skal indtastes en dato.

Niels

if me![dato] > date then

er måske bedre - her henviser du direkte til feltet dato som kommer fra den underliggende forespørgsel /tabel i UNDERFORMULAREN.

Niels
   

Det er den løsning jeg har valgt, der er ingen grund til at gøre det sværere end højest nødvendigt.

/ncbr

What do you think Terry ???? -

Jeg har ikke Access på den her PC - så det hele er efter hukommelsen - (den svigter mig en gang imellem) ;)

Niels

ncbr ->

Jeg tror ikke du behøver en særskilt function. Skriv din kode direkte i underformularens \'før indsættelse\' hændelse

Niels

ncbr ->

Har du problemmer med at finde hændelsen ???

Niels

Jeg har fået det til at virke sådan her:

Private Sub Dato_AfterUpdate()
On Error GoTo err_CHKDATE
If Me.dato > Date Then
MsgBox \"Du har indtastet en dato som ligger efter Dagsdato\", vbCritical, \"Ugyldig dato\"
Me.tid.SetFocus
Me.dato = Date
Me.dato.SetFocus
End If

CHKDATE_exit:
    Exit Sub
   
err_CHKDATE:
MsgBox Error$
    Resume CHKDATE_exit:
End Sub

Hi Niels!
The only comment I have is which event procedure its in: I would us the before Update event. The before Insert is (I believe) only for new records, and what if he changes it?

I also agree that a seperate function isnt necessary.

mvh
Terry

ncbr>Great! points all round :o)

Or should that be  PINTS all round :O))))

Du har ret det var beforeUpdate event jeg mente - men det er jo svært at vide når jeg skriver noget andet...
Som dit svar 12:59:45  !!!

Niels

If you swing by my place I\'ll have a Pint ready :)

I live in Odense.

Well thats not so far from Vejle. I love Guinness!

I will keep that in mind next time I\'me there!

and have a great weekend :o)

likewise

ncbr