Ny post maxnr. +1

Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "Video"
    DoCmd.OpenForm stDocName, , , stLinkCriteria, acFormAdd
    DoCmd.Close acForm, Me.Name

og indsæt =DMax("Mitfelt", "MinTabel")
som standardværdi for feltet i formularen, hvor Mitfelt er feltet i tabellen.

Umiddelbart ser det for mig ud som om du har lukket den formular,
hvor linjen "DoCmd.GoToRecord , , acNewRec" står.
Hvorfor skal formularen lukkes. Er det ikke meningen, du senere
skal kunne vende tilbage til din "forside"?

Er her igen, jeg var nødt til gå tidligere.
fynbohans:
Jeg lukker forside, for at sikre opdatering af data, inden jeg vender tilbage til forside igen, har prøvet alt andet, det  var den måde som virkede bedst.

men det er nok det som er problemet.

Hekla:
=DMax("Mitfelt", "MinTabel")+1
Det giver en ny post et nummer større.
da jeg lukker forside får jeg fejlmeddelelsen, det indtatede udtryk referer til et objekt der er blevet lukket.
Kan jeg ikke bare undertrykke denne fejlmeddelelse. men hvilket nummer har denne fejlmeddelelse.

Du kan opdatere din formular inden du lukker med:

Dim MinFormular As Form
Set MinFormular = Me.FormularensNavn
MinFormular.Requery

Jeg kan ikke se den ny post i forsiden før den har været lukket?
jeg ved godt at det skulle jeg kunne med Me.Requery

Jeg prøvede at fordele de 60 point
det lykkedes ikke
Hekla:
havde du et svar på det med fejlmedelelsen?
kan man finde fejlmeddelsernes numre et sted?

Hvis du ikke kan se posten på forsiden, er det fordi den ikke er gemt. Prøv med rækkefølgen

Dim MinFormular As Form
Set MinFormular = Me.FormularensNavn
DoCmd.RunCommand acCmdSaveRecord
MinFormular.Requery

Der skal vist mere til end det! :-)

slutter for nu, kigger forbi i morgen. Arbejde.

Har du fjernet linien:    DoCmd.GoToRecord , , acNewRec
?

Burde det ikke være nok i "Video" VedAktuel at indtaste:

If Me.NewRecord = True Then
MitFelt =DMax("MitFelt", "MinTabel"]
End If

Når denne lukkes vil tabellen blive opdateret, Forside er dog ikke opdateret før den får en Me.Refresh.

Får at opfasnge fejlen, kan du indsætte en errorhandler:

On Error GoTo Errorhandler
If Me.NewRecord = True Then
MitFelt =DMax("MitFelt", "MinTabel"]
End If
Errorhandler:
MsgBox Err.Number & " " & Err.Description

Når der opstår en fejl, vil du få en msgbox med fejlnr. og beskrivelse. Når fejlen påstår har du fejlnr. Du kan herefter ændre koden til:

On Error GoTo Errorhandler
If Me.NewRecord = True Then
MitFelt =DMax("MitFelt", "MinTabel"]
End If
Errorhandler:
If ErrorNumber = 1234 Then
Resume Next
End If

Selvom jeg nok vil mene, at det er langt bedre at finde ud af hvorfor fejlen opstår, og derefter ændre koden, så det ikke sker.

Efter komprimering og rep. så jeg ikke mere til fejlmeddelsen. Så det virker helt fint nu.
Tak for jeres kommentarer, dem får jeg sikkert nytte af en anden gang. :-)