Macro åbner altid samme record

Prøv denne:

DoCmd.OpenForm "FORMULARNAVN"
Forms!FORMULARNAVN!LKP NR.SetFocus
DoCmd.FindRecord Me!LKP NR

Det er en uskik at have mellemrum / specialtegn i feltnavnene.

3. commandment:

http://www.mvps.org/access/tencommandments.htm

tak for hjælpen...

jeg skynder mig at rette de små fejl :o)

:o)

kan denne funktion ikke udvides lidt.. :o)

jeg får nemlig også vist en knap ved den sidste record (Ny) og hvis man trykker på knappen får man en fejlmeddelelse pga. at der ikke findes en værdi der 'Null'...

Er det ikke muligt at gå til 'Ny record', hvis der ikke findes et match?

der er selvfølgelig point... 50.

DoCmd.OpenForm "FORMULARNAVN"
Forms!FORMULARNAVN!LKP NR.SetFocus
DoCmd.FindRecord Me!LKP NR
If Me!LPK NR <> Forms!FORMULARNAVN!LPK NR Then
DoCmd.GoToRecord acForm, "FORMULARNAVN", acNewRec
End If

der et eller andet galt...

hvis jeg benytter dit eks. så får jeg fejl i line 3, men hvis jeg gør dette..
Private Sub Kommandoknap14_Click()

DoCmd.OpenForm "ProjektUdstyr"
Forms!ProjektUdstyr!Navn.SetFocus

If Me!Navn <> Forms!ProjektUdstyr!Navn Then
DoCmd.GoToRecord acForm, "ProjektUdstyr", acNewRec

DoCmd.FindRecord Me!Navn

End If

End Sub

...åbner den på den første record??

På forhånd tak :o)

Først åbner du en formular og søger efter en bestemt post. Derefter vil du gå til en ny post hvis den søgter post ikke findes. Det harmonerer ikke rigtigt:

DoCmd.OpenForm "ProjektUdstyr"
Forms!ProjektUdstyr!Navn.SetFocus
If Me!Navn <> Forms!ProjektUdstyr!Navn Then
DoCmd.GoToRecord acForm, "ProjektUdstyr", acNewRec
DoCmd.FindRecord Me!Navn
End If

Prøv denne:

DoCmd.OpenForm "ProjektUdstyr"
Forms!ProjektUdstyr!Navn.SetFocus
DoCmd.FindRecord Me!Navn
If Me!Navn <> Forms!ProjektUdstyr!Navn Then
DoCmd.GoToRecord acForm, "ProjektUdstyr", acNewRec
End If

det fungerer ikke, den fejler stadig i linie 3 - DoCmd.FindRecord Me!Navn - når knappen aktiveres udfor den sidste tomme record i underformularen.

Det du skriver 'Harmonerer ikke',men det er præcis det jeg leder efter...

I en underformular har jeg en række records og udfor disse har jeg placeret denne knap, som ved klik går direkte til den aktuelle record og her er der så mulighed for at redigere i denne record, men allernederst i denne underformular ses en tom record, som er forberedt til en ny record og udfor denne er så også denne knap og ved klik på denne var ideen så at man kunne komme frem til en ny record.

En eventuel løsning kunne også være at forhindre underformularen i at præsentere denne sidste tomme record??

håber ikke du er helt forvirret :o)

En underformular - det er en helt anden snak. For at arbejde i en underformular, er du nødt først at sætte fokus på underformularen:

Me.UNDERFORMULARENS NAVN.SetFocus

underformularen hedder ProjektUdstyrUnderformular... og jeg har nu denne kode:

DoCmd.OpenForm "ProjektUdstyr"
Me.ProjektUdstyrUnderformular.SetFocus
DoCmd.FindRecord Me!Navn
If Me!Navn <> Forms!ProjektUdstyr!Navn Then
DoCmd.GoToRecord acForm, "ProjektUdstyr", acNewRec
End If

men nu virker intet? - fejl i linie 2 - Me.ProjektUdstyrUnderformular.SetFocus

Denne linie:

DoCmd.OpenForm "ProjektUdstyr"

Åbner jo en ny formular. Derefter:

Me.ProjektUdstyrUnderformular.SetFocus

Vil du sætte fokus på en underformular. eksisterer denne underformular i formularen "ProjektUdstyr". Normalt er underformularer jo bundet sammen med en hovedformular med et unikt id. Så jeg er lidt i tvivl om, hvad du vil opnå.

arbejder lige lidt videre... vender tilbage senere

OK ;o)