bbkdk Seniormester
30. november 2020 - 11:44 Der er 1 løsning

Kan ikke kopiere og sætte linje ind ...

Jeg har lavet et lille regnskabsprogram, hvor der bl.a. er en kassekladde.

Det har virket fint, men i forbindelse med, at jeg oprettede en ny formular til indtastning i kassekladden, får jeg nu en fejl.

En linje udfyldes med dato, bilagsnummer, tekst, konto, momskode og beløb. Hvis modposten er bankkontoen, er der mulighed for at klikke på en kommandoknap (med teksten "Bank"), som autogenererer en linje, eller 2 linjer, hvilket styres af følgende VBA kode:

Private Sub Kommandoknap28_Click()

If Momskode = 1 Then

DoCmd.RunCommand acCmdSelectRecord
DoCmd.RunCommand acCmdCopy
DoCmd.GoToRecord acForm, "FrmIndtastning", acNewRec
DoCmd.RunCommand acCmdSelectRecord
DoCmd.RunCommand acCmdPaste
Me.Beløb = -Beløb * 1.25
DoCmd.GoToRecord , , acNewRec
DoCmd.GoToRecord , , acPrevious
Me.Kontonummer = 9010

DoCmd.RunCommand acCmdSelectRecord
DoCmd.RunCommand acCmdCopy
DoCmd.GoToRecord acForm, "FrmIndtastning", acNewRec
DoCmd.RunCommand acCmdSelectRecord
DoCmd.RunCommand acCmdPaste
Me.Beløb = -Beløb * 0.2
DoCmd.GoToRecord , , acNewRec
DoCmd.GoToRecord , , acPrevious
Me.Kontonummer = 9012
DoCmd.GoToRecord , , acNext

ElseIf Momskode = 2 Then

DoCmd.RunCommand acCmdSelectRecord
DoCmd.RunCommand acCmdCopy
DoCmd.GoToRecord acForm, "FrmIndtastning", acNewRec
DoCmd.RunCommand acCmdSelectRecord
DoCmd.RunCommand acCmdPaste
Me.Beløb = -Beløb * 1.25
DoCmd.GoToRecord , , acNewRec
DoCmd.GoToRecord , , acPrevious
Me.Kontonummer = 9010

DoCmd.RunCommand acCmdSelectRecord
DoCmd.RunCommand acCmdCopy
DoCmd.GoToRecord acForm, "FrmIndtastning", acNewRec
DoCmd.RunCommand acCmdSelectRecord
DoCmd.RunCommand acCmdPaste
Me.Beløb = -Beløb * 0.2
DoCmd.GoToRecord , , acNewRec
DoCmd.GoToRecord , , acPrevious
Me.Kontonummer = 9048
DoCmd.GoToRecord , , acNext

Else

DoCmd.RunCommand acCmdSelectRecord
DoCmd.RunCommand acCmdCopy
DoCmd.GoToRecord acForm, "FrmIndtastning", acNewRec
DoCmd.RunCommand acCmdSelectRecord
DoCmd.RunCommand acCmdPaste
Me.Beløb = -Beløb
DoCmd.GoToRecord , , acNewRec
DoCmd.GoToRecord , , acPrevious
Me.Kontonummer = 9010
DoCmd.GoToRecord , , acNext

End If

End Sub

Som det ses styres forløbet af momskoden. Koden har virket, men når jeg kører den nu, får jeg en fejlmeddelelse: " Kommandoen eller handlingen "SætInd" er ikke tilgængelig nu"

Når jeg debugger, er det linjen "DoCmd.RunCommand acCmdPaste" der viser fejl.

Håber der er en, der kan hjælpe, da jeg er fuldstændig tom for løsningsmuligheder.
bbkdk Seniormester
30. november 2020 - 15:30 #1
Da jeg åbnede databasen igen virkede det - undskyld ulejligheden, hvis der er nogen, der har arbejdet med mit problem
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

Opret Preview

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





Premium
Exchange-sårbarhed truer selskaber over hele kloden: Sådan blev den opdaget af Dubex fra Søborg
En række akutte sårbarheder i Microsoft Exchange Server har sendt en panisk bølge gennem Exchange-miljøet. Sårbarhederne blev opdaget af danske Dubex. Se her, hvordan de blev opdaget af det danske selskab. "Var hackerne lykkedes med det, ville det være forholdsvist voldsomt," siger Jacob Herbst fra Dubex.
Computerworld
Hånden på hjertet: Er der plads i din virksomhed til it-nørderne, der sjosker rundt i ikke nødvendigvis ens strømpesokker?
Klumme: Er der plads i din organisation til it-nørder, der går rundt på arbejdspladsen i to ikke nødvendigvis ens strømpesokker, fordi det er svært virkeligt at koncentrere sig, når skoene klemmer?
CIO
Har du rost din mellemleder i dag? Snart er de uddøde - og det er et tab
Computerworld mener: Mellemledere lever livet farligt: Topledelsen får konstant ideer med skiftende hold i virkeligheden, og moden går mod flade agile organisationer. Men mellemlederen er en overset hverdagens helt med et kæmpe ansvar. Her er min hyldest til den ofte latterliggjorte mellemleder.
Job & Karriere
IBM Danmark trækker tilbud om frivillige fratrædelser tilbage for stort antal ansatte: "IBM har taget røven på sine ansatte"
Som led i IBM Danmarks store fyringsrunde fik 130 ansatte grønt lys til at forlade selskabet på en frivillig fratrædelsesordning. Men nu har IBM Danmark trukket det oprindelige tilbud tilbage for størstedelen af de ansatte.
White paper
Fri medarbejdermobilitet - med digital bodyguard
Om at gå fra adgangsstyring på personniveau til adgangsstyring på desktopniveau. I takt med at flere og flere medarbejdere arbejder remote og logger på jeres systemer og netværk uden for virksomhedens sikkerhedsværn, risikerer de at efterlade døren til forretningen på klem. Dermed bliver endpoints som pc’ere, Mac’s og servere et oplagt mål for hackere, som vil ind i virksomhedens infrastruktur. I blandt sker det også, at medarbejdere udnytter deres privilegerede adgangsrettigheder til skadelige formål. Det er derfor mere aktuelt end nogensinde at rette opmærksomheden mod jeres endpoints og de rettigheder, der ligger her.