Avatar billede elizabeth Nybegynder
14. december 2004 - 17:27 Der er 5 kommentarer og
1 løsning

Overfør værdi fra formular til formular

Hej Allesammen,
Jeg har et temmeligt let spørgsmål til jer.
jeg sidder med en "opret ny post" formular, hvor jeg gerne vil overføre en værdi i et af felterne fra den foregående formular.
Jeg har prøvet lidt ud fra setfocus modelen, men ved ikke hvad jeg skal bruge i stedet for setfocus. Måske noget a la setvalue. Her er min kode.

DoCmd.OpenForm "FORMULARNAVN2"
    Forms!FORMULARNAVN2!ID.SetFocus
    DoCmd.FindRecord Me!ID
    DoCmd.Close acForm, "FORMULARNAVN1"

Er jeg tæt på eller er det helt ved siden af.
Avatar billede terry Ekspert
14. december 2004 - 17:52 #1
you could try this

    DoCmd.OpenForm "YourFormNameGoesHere", , , , acFormAdd
    Forms!YourFormNameGoesHere.TheFieldNameGoesHere = SomeValue
Avatar billede elizabeth Nybegynder
14. december 2004 - 18:05 #2
im trying to do what your suggesting, but this line appaenrently has bad syntax: Forms!Betaling opret ny.ID = DoCmd.FindRecord Me!ID
Is it the spacing in the form name?
Avatar billede elizabeth Nybegynder
14. december 2004 - 18:23 #3
Ok just figured it out. The spacing was a problem but can be remedied by surrounding the form name with square brackets, for example:

Forms![Betaling opret ny].ID = DoCmd.FindRecord Me!ID
Avatar billede elizabeth Nybegynder
14. december 2004 - 18:32 #4
Nope doesn't work after all. The Forms![Betaling opret ny].ID part works but I cant seem to transer the ID from the previous form at least not woth the code im using (DoCmd.FindRecord Me!ID). Anyone any suggestions?
Avatar billede mugs Novice
15. december 2004 - 00:04 #5
Du kna benytte flg. kode, der her er vist med et alfanumerisk felt, et numerisk og et datofelt. Koden kraver en reference til DAO i VBA-editoren Tools References > Brows ned igennem bibliotekerne og fin Microsoft DAO 3,xx Library. references kan hedde lidt forskelligt afhængig af din programversion, men blot der står DAO er det OK. Sæt er checklmærke i den lille boks i venstre side:

Private Sub Form_Current()
Dim rs As DAO.Recordset
If Me.NewRecord Then
Set rs = Me.RecordsetClone
rs.MoveLast
Me!felt1.DefaultValue = "'" & rs!felt1 & "'"
Me!dato.DefaultValue = "#" & rs!dato & "#"
Me!talfelt.DefaultValue = "" & rs!talfelt & ""
rs.Close
End If
End Sub
Avatar billede terry Ekspert
15. december 2004 - 18:24 #6
Sorry Elizabeth, didnt see you had problems here!

FindRecord means that you are trying to find a record on a form, but that c ant be the case when you are creating one "...jeg sidder med en "opret ny post" formular"
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Dyk ned i databasernes verden på et af vores praksisnære Access-kurser

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester