Avatar billede juks Novice
01. oktober 2003 - 08:29 Der er 17 kommentarer og
1 løsning

autokey i under rapport

kan man lave en public funtion der tilføjer en ny post i en subform
Avatar billede terry Ekspert
01. oktober 2003 - 10:39 #1
Hi Juks :o)
I would say you can, but what exactly is it you are trying to do! I could give a number of soultions but they all really depend on what you are doing.
Avatar billede fynbohans Nybegynder
01. oktober 2003 - 11:39 #2
Overskriften passer vist ikke til teksten
Avatar billede juks Novice
01. oktober 2003 - 13:34 #3
jeg har en kode i en knap i underformularen der opretter en ny post i samme dvs. acNewRec.
denne function vil jeg gerne knytte til en hotkey istedet. derfor skal jeg have lavet et modul hvortil jeg vil knytte koden ....

jeg har prøvet med 
---------
Forms![Behandling_tbl subform].acNewRec
---------
men uden held
Avatar billede juks Novice
01. oktober 2003 - 13:41 #4
sory det med overskriften det var meningen der skulle stå underformular
Avatar billede fynbohans Nybegynder
01. oktober 2003 - 14:51 #5
Du skal lave en makro som skal hedde Autokeys (se Hjælp).
Den valgte tastkombination gælder overalt i basen, men som regel har det
igen betydning. Ellers må du lave en betingelse.
Den handling som makroen skal udføre er KørKomamndo/GåTilNyPost
Avatar billede juks Novice
01. oktober 2003 - 15:41 #6
fynbohans--->
1 det skal laves i VB
2 din løsning fungere ikke da den vil prøve at tilføje en ny post i hoved formularen ikke i subformen.
Avatar billede fynbohans Nybegynder
01. oktober 2003 - 15:49 #7
Rigtigt! Der skal først sættes fokus på Underformularen.
Mener ikke det kan laves i VBA - hvad siger Terry?
Avatar billede juks Novice
01. oktober 2003 - 15:55 #8
det kan laves i VB ...
kan bare ikke huske det
Avatar billede terry Ekspert
01. oktober 2003 - 18:43 #9
I have tried using the following but dont seem to be able to get it to work
Docmd.GoToRecord acDataForm,"forms!TheMainForm.TheSubForm",acNewRec

This works though, and how you get this into a macro or module is up to you juks :o)
forms!TheMainForm.TheSubForm.setfocus
Docmd.GoToRecord,,acNewRec
Avatar billede juks Novice
01. oktober 2003 - 18:53 #10
behøver jeg nævne at jeg have låst for tilføjelse af nye poster i formularen :-)
takker for hjælpen
Avatar billede fynbohans Nybegynder
01. oktober 2003 - 18:54 #11
Nu er jeg igen nødt til at være kværulantisk igen!
Du skriver VB...
Hvis du mener Vusual Basic kan det sagtens lade sig gøre - som i andre programeringssprog, men Access og  VBA er et andet udviklingsmiljø.
Og hvad har du igrunden imod makroer, som bare er optimeret kode og
derfor som regel mere effektiv og hurtigere end det vi selv kan lave?
Avatar billede juks Novice
01. oktober 2003 - 18:56 #12
jeg har kun det imod makroer at jeg ikke kan bruge dem til sådanne noget da jeg har mit fejlbehandlings modul der gør at jeg kan indfange og gemme alle fejl der opstår i mit program så jeg hele tiden kan optimer min bruger-venlighed '

:-)
Avatar billede terry Ekspert
01. oktober 2003 - 19:03 #13
juks>I am LOST!
You have to explain yourself MUCH better otherwise you are on your own :o)

What am I supposed to understand from this?
"behøver jeg nævne at jeg have låst for tilføjelse af nye poster i formularen :-)
takker for hjælpen"
Avatar billede juks Novice
01. oktober 2003 - 19:13 #14
ikke noget jeg havde fundet den rigtige løsning selv men den virkede ikke fordi havde sat allowadditions = false ..
men jeg kom til at give fynbohans point istedet for at dele dem.
sorry hvis du gerne vil have de 15 point opretter jeg et nyt spg.
Avatar billede terry Ekspert
01. oktober 2003 - 19:28 #15
No problem with the points juks, hadnt noticed that, I was just a little puzzled with your comment!

Can we see how your doing it?
Avatar billede juks Novice
01. oktober 2003 - 19:50 #16
Public Function ny_behandling()
On Error GoTo Err_glob_Click
If IsLoaded("kunder") = True Then



  ' Dim stDocName As String
    'Dim stLinkCriteria As String

    'stDocName = "Behandling_tbl"
  ' DoCmd.OpenForm stDocName, , , stLinkCriteria
Forms!kunder!Behandling_tbl.Form.AllowAdditions = True
Forms!kunder!Behandling_tbl.SetFocus
DoCmd.GoToRecord , , acNewRec

Else
DoCmd.RunMacro "backup"
End If
Exit_glob_Click:
    Exit Function


Err_glob_Click:
    Global_Error_Handler
Resume Exit_glob_Click
End Function
Avatar billede terry Ekspert
01. oktober 2003 - 19:55 #17
Yes your AllowAditions = True will help LOTS :o)
Avatar billede juks Novice
01. oktober 2003 - 19:57 #18
jeps lige netop :-) men tak for hjælpen
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