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.
