finde max, min værdi i felter på en formular

How have you found the average?

=(([Inds_t1_1]+[Inds_t1_2]+[Inds_t1_3]+[Inds_t1_4]+[Inds_t1_5]+[Inds_t1_6]+[Inds_t1_7]+[Inds_t1_8]+[Inds_t1_9]+[Inds_t1_10])*0,1)/Forms!Kvalitetscertifikat!Prøver.Form!Text89

This is NOT tested! It may give problems if values are NULL.

You use it similiar to your example

=MyMin()

or

=MyMax


Function frmMin() As Double
Dim dblMin As Double

    dblMin = Me("Inds_t1_" & 1)
    For i = 2 To 10
        If Me("Inds_t1_" & i) < dblMin Then dblMin = Me("Inds_t1_" & i)
    Next i

    frmMin = dblMin
   
End Function

Function frmMax() As Double
Dim dblMax As Double

    dblMax = Me("Inds_t1_" & 1)
    For i = 2 To 10
        If Me("Inds_t1_" & i) > dblMax Then dblMax = Me("Inds_t1_" & i)
    Next i

    frmMin = dblMax
   
End Function

status?

Sorry, jeg har været ved at prøve lidt men har stadig ikke fået det til at virke, jeg skal lige prøve lidt mere, så skal du nok få besked.

Jeg kan ikke rigtigt få det til at virke, hvor skal jeg placere koden ?

You can either have the code in module or in the code to the form
If you are having problems then I can take a look if you can send me your dB?

eksperten@NOSPAMsanthell.dk

remove NOSPAM

Have you received my mail?

Jeg har modtaget din mail, mange tak for hjælpen. jeg prøver at kopiere funktionen  sådan at jeg også kan få min, max vist i de andre felter.

Den kode som thomas har svaret i spm 591600, virker sådan set også godt, men hvis man opretter en ny record og ikke får tastet noget i underformularene, så er det ikke muligt at indtaste senere, kan mån få den til at oprette et felt i hver underformular så man er sikker på der bliver lavet en record  ?

Hi Rene
Ref spm. 591600 An idea would be to create a new record in the sub form tables then refresh the form (me.requery)

You can insert the records using something like this. THis creates a record with the primary key fields which is necessary!

Docmd.runsql "INSERT into TheSubTable (Stm_prodordre, loebenr) Values (" & Me.Stm_prodordre & "," & Me.loebenr & ")"

Run the code in the AFTER INSERT event.

det virker fint hvordan kommer jeg uden om warnings ?

Har fundet ud af det med warnings,
DoCmd.SetWarnings False
Koden
DoCmd.SetWarnings True

Tak for hjælpen

René

Thanks René

did you get the other fields working too?

Jeg var vist lige hurtig nok til at aceptere der, der kommer en fejl efter jeg har udfyldt formularen, så vil den igen fyre sql´en af og oprette recorden igen. Men det kan den ikke da det vil give dublicate record, hvor den kan jeg komme uden om det ?

How can you run the SQL again if the code is in the main forms AFTER INSERT?

Jeg tror ikke det er sql´en det kører igen. men når jeg taster noget i under formularen går det galt, hvis jeg går en record tilbage og så frem igen kan jeg godt indtaste i underformularen ?

Det hjælper at sætte denne kode ind efter sql´en i after insert

DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70

Jeg ved ikke helt havd den gør, men det er taget fra en refresh knap jeg har lavet på formen ?

OK, so its all working now then?

ja, det virker

GREAT