opdatering af records

Du skal sætte en betingelse på:

If Me.newrecord Then
Me.Refresh
end if
end sub

Jeg er dog ikke sikker på, at det er nok, idet Refresh opdaterer eksisterende records men tilføjer ikke nye. Hvorimod Me.Requery tilføjer poster, men stiller sig derefter på den første post.

Du kan dog gøre det med en DlookUp:

If Me.newrecord Then
Me.FELTNAVN = DLookUp funktion
end if
end sub


Se i hjælpen efter DLookUp funktionen.

det er godt nok ikke en "ny" record, men bare en anden i tabellen af records. der er altså ikke tale om at der laves nye records...

Hvilken type beregning er det der skal laves i [pris] ?

jeg har en række poster som løbes igennem. Disse poster består af en abonements-type (i form af ja/nej felter) og tilhørende kundenr, navn osv... desuden er der et pris felt som er justeret af de enkelte ja/nej felter. Dvs. at hvis ja/nej-felt1 er ja skal pris være 100, hvis ja/nej-felt2 er ja skal pris være 200 osv osv...

Når man så browser igennem de forskellige records skal den bare opdatere feltet pris!

Er det bedre forklaret?

Ja. Er udregningen så baseret på en vba-sub eller iif  i postkilden ?

Når jeg klikker på Ja/Nej-felterne hedder koden noget lign.:
(dette virker helt perfekt, men kun når der klikkes i felterne, hvilket der jo ikke gøres når man bare browser igennem alle records...)

Private Sub Kat_A1_Click()
If Kat_A1 = -1 Then
Pris = DLookup("[Pris_A1]", "Priser")
Else: Pris = 0
End If
End Sub

Udregningen skal helst baseres på en vba-kodestump...

Så laver kan du gøre sådan her:

sub form_current()
call kat_a1_click
end sub

Form_Current():
The Current event occurs when the focus moves to a record, making it the current record, or when the form is refreshed or requeried.

Du kan derfor lave din beregninger her. Det kan godt være, at den er lidt mere kompleks end eksemplet oven over ;O)

Den går ikke. Jeg har 5 ja/nej felter og det er vilkårligt hvilket felt der er afkrydset!

Bare lidt mere komplekst...

sub form_current()
If kat_A1.checked=true then
  ... et eller andet...
Else
  If kat_A2.checked=true then
    ... noget andet...
  else...
....
...

End Sub

tja...  det er muligt... kigger lige på det!

helt i verdensklasse!

Private Sub form_current()

If Kat_A1 = -1 Then
    Pris = DLookup("[Pris_A1]", "Priser")

ElseIf Kat_A2 = -1 Then
    Pris = DLookup("[Pris_A2]", "Priser")

ElseIf ......

End If

End Sub


læg lige et svar...

Det gør jeg så lige...