efteropdatering af formular skal et andet felt vælges

regnrlejebil.setfocus

but why do you need to do this in th emiddle of entering data?

Denne får db til at finde den samme post du stod på efter en Requery:

Dim VARa As Long
DoCmd.GoToControl "id"
VARa = Me.id
Me.Requery
DoCmd.FindRecord VARa, acEntire, False, , True, acCurrent, True

det er fordi jeg har en underformular med prisoplysninger som er afhængig af hvad værdi(konto nr) der står i kombiboksen på hoved formularen.

men da det er en lejekontrakt hvor man først indtaster regnr, bruger kontonr og betalende kontonr, hvor betalende kontonr bestemmer prisens værdi i underformularen.

så opdaterer den underformularen og hovedformularen for at vise den korrekte pris, men så starter hoved formularen forefra i indtastningen pga opdateringen.

men nu vil jeg lige prøve din ide.

Me.Requery on the main form will requery th emain form and all sub forms, is that what you want to do? I would have thought it wold be enough to just requery the sub form

Terry have tried the other but found out with Mugs that I needed to do a Me.requery too.
Because it would'nt update the subform until it updated the main form.

by the way
regnrlejebil.setfocus

works fine. post an answer and I'll accept it.

OK :o)

what is ityoare updating on the subform? If it is information based on calculatiosn which are not yet made from the main form then I can maybe understand that a requery might help as it will write the pending changes to the dB. But if that isnt the cas ethen I wouldnt have thought it necessary.

ups fandt lige et problem, når den opdaterer med en ny post i hovedformularen, hopper den til den først oprettet post i databasen, og ikke den nye/valgte

Is it REALLY necessary to requery the main form? If so then you need to use some code to save the bookmark and then go back to that record. (Maybe the same as mugs has given will help)

ved mugs foreslag siger den fejl ved

DoCmd.GoToControl "id"


skal id ændres til noget andet?

her er den komplette kode:
Private Sub Kombinationsboks162_AfterUpdate()
Me!test_kontrakt_bruger_pris.Requery
Dim VARa As Long
DoCmd.GoToControl "id"
VARa = Me.Id
Me.Requery
DoCmd.FindRecord VARa, acEntire, False, , True, acCurrent, True

slettede bare Me.Requeery igen så virker det tilsyneladende

altså denne kode:

Private Sub Kombinationsboks162_AfterUpdate()
Me!test_kontrakt_bruger_pris.Requery
Dim VARa As Long
DoCmd.GoToControl "id"
VARa = Me.Id
DoCmd.FindRecord VARa, acEntire, False, , True, acCurrent, True

ID er navnet på posten unikke felt.

ja foresten den helt nøjagtige kode er jo denne:

Private Sub Kombinationsboks162_AfterUpdate()
Me!test_kontrakt_bruger_pris.Requery
Dim VARa As Long
DoCmd.GoToControl "regnrlejebil"
VARa = Me.Id
DoCmd.FindRecord VARa, acEntire, False, , True, acCurrent, True

tak, if it works then great