CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg

Log ind eller opret profil

Du kan også logge ind via nedenstående tjenester

bbkdk Seniormester

25. marts 2023 - 10:04 Der er 3 kommentarer og
1 løsning

Opret variabler

Jeg har lavet talrige databaser, men et problem har jeg aldrig fået løst.
Nemlig oprettelse af variabler (midlertidige variabler).

Spørgsmålet kan konkretiseres således:

Jeg har en database med et bogførings program. Det virker ret professionelt, men der mangler en ting, nemlig muligheden for at ændre de faste konti til moms (indgående og udgående), samt kasse og bank, uden at skulle gå ind i VBA-koden.

Disse faste konti er angivet i VBA, som vist nedenstående, Men hvis en anden (ikke så erfaring bruger), skal anvende bogføringsprogrammet, er det jo ikke sikkert, at han vil anvende den samme kontoplan.

Uddrag af VBA koden:

Private Sub Kommandoknap28_Click()

If Momskode = 1 Then

DoCmd.RunCommand acCmdSelectRecord
DoCmd.RunCommand acCmdCopy
DoCmd.GoToRecord acForm, "FrmKassekladde", acNewRec
DoCmd.RunCommand acCmdSelectRecord
DoCmd.RunCommand acCmdPaste
Me.Beløb = -Beløb * 0.2
DoCmd.GoToRecord , , acNewRec
DoCmd.GoToRecord , , acPrevious
Me.Kontonummer = Kontonummer
DoCmd.RunCommand acCmdSelectRecord
DoCmd.RunCommand acCmdCopy
DoCmd.GoToRecord acForm, "FrmKassekladde", acNewRec
DoCmd.RunCommand acCmdSelectRecord
DoCmd.RunCommand acCmdPaste
Me.Beløb = Beløb * 5
DoCmd.GoToRecord , , acNewRec
DoCmd.GoToRecord , , acPrevious
Me.Kontonummer = 2120
DoCmd.RunCommand acCmdSelectRecord
DoCmd.RunCommand acCmdCopy
DoCmd.GoToRecord acForm, "FrmKassekladde", acNewRec
DoCmd.RunCommand acCmdSelectRecord
DoCmd.RunCommand acCmdPaste
Me.Beløb = -Beløb * 0.2
DoCmd.GoToRecord , , acNewRec
DoCmd.GoToRecord , , acPrevious
Me.Kontonummer = 2130

DoCmd.GoToRecord , , acNext

"Me.Kontonummer = 2120" i ovenstående kode gør, at beløbet bogføres på bankkontoen.

Men hvis bankkontoen i den aktuelle database ikke har nummer 2120, duer systemet ikke.

Er der nogen der har et bud på, hvorledes der kan oprettes en funktion, der ude fra forsiden af databasen gør det muligt at sætte de faste konti, som den aktuelle bruger ønsker. Det er formentlig funktionen (eller makroen) "Midlertidig variabel", der skal anvendes, men hvordan gøres det helt konkret?

Synes godt om

Gustav Ekspert

25. marts 2023 - 10:28 #1

Gem dem i en tabel, her SystemKonti, og hent dem, når du skal bruge dem, fx:

Me!Kontonummer.Value = DLookup("MomsKontoInd", "SystemKonti")
Me!Kontonummer.Value = DLookup("MomsKontoUd", "SystemKonti")

Synes godt om

bbkdk Seniormester

25. marts 2023 - 17:15 #2

Mange tak for svaret, det ser ud til at virke fint.

Når jeg skriver "ser ud til" er det fordi, jeg er begyndt at få en fejl, når jeg anvender programmet. Jeg skal skynde mig at tilføje, at den var der før jeg indsatte din løsning. Og den er kommet "ud af det blå". Jeg har på intet tidspunkt været ude og pille i VBA, før den dukkede op.

Jeg har aldrig mødt fejlen før, men nu forhindrer den programmet i at fungere optimalt.

Når jeg klikker på knappen "Bank", eller "Kasse", for at foretage en automatisk bogføring, kommer der en fejlmeddelelse:

"Bogføring kan ikke indsættes i udklipsholder, fordi udklipsholder ikke svarer".

Ved en debug er det linjen "DoCmd.RunCommand acCmdPaste", der er markeret.

Der er en bruger, der har haft et problem med at sætte ind, og som har givet en løsning på i hvert fald hans problem i denne tråd:

https://stackoverflow.com/questions/72075278/how-to-avoid-ms-access-error-the-command-or-action-paste-is-not-available-now

Men jeg kan ikke finde den knap, der slår historikken i Udklipsholder fra, som der er en, der henviser til i løsning 2.

Og jeg har forsøgt at skrive "Pause = (0.1), før indsætning, som vist i løsning 1.

Men det virker stadig ikke.

Synes godt om

Gustav Ekspert

25. marts 2023 - 18:19 #3

I Windows 11 er det er nøjagtigt, som han skriver:
Indstillinger, System, Udklipsholder, Oversigt over udklipsholder.

Pause må være en brugerfunktion. Den må du søge efter - og også bruge den rigtige syntaks.
Eller prøv med DoEvents.

Alternativt med et API-kald:

' Suspends the execution of the current thread until the time-out interval elapses.
'
#If VBA7 Then
    Private Declare PtrSafe Sub Sleep Lib "kernel32" ( _
        ByVal dwMilliseconds As Long)
#Else
    Private Declare Sub Sleep Lib "kernel32" ( _
        ByVal dwMilliseconds As Long)
#End If

Den bruger millisekunder, så det ville være:

Sleep 100

Synes godt om

bbkdk Seniormester

26. marts 2023 - 00:31 #4

Det virker.

Mange tak for hjælp.

Problemet med at indsætte poster forsvandt af sig selv,

Men jeg er belært af erfaring bange for, at det kommer igen. Så vil jeg forsøge med dine forslag til at løse problemet.

Synes godt om

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.

Følg dette spørgsmål

Opret Preview

Access kurser

Dyk ned i databasernes verden på et af vores praksisnære Access-kurser

Se alle Access kurser

Flere spørgsmål fra Access kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Filter tal Af hlnviv i Access	10	17/12/202413:35	18/12/202412:31
Søgeknap Af erlandsen i Access	3	02/12/202415:32	02/12/202417:04
Hændelse ved tryk på knap Af erlandsen i Access	1	01/12/202413:51	01/12/202413:54
Vis Valuta og Pris i SQL Af per2edb i Access	7	28/11/202411:48	28/11/202417:31
Kan en kombinationsbox formateres om til en text box og omvendt Af per2edb i Access	3	21/11/202418:03	22/11/202411:38

Se alle spørgsmål i kategorien Opret spørgsmål

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

Alle kategorier på Eksperten

Seneste artiklerRSS

20/12

Netværkstest: Første mesh-sæt med komplette WiFi 7-features sætter nye rekorder for dækning og hastighed

20/12

Omsætning er steget med 100 millioner kroner på to år: Microsoft danske udviklingscenter har udbetalt milliarder i udbytte

20/12

Nørgaard: Copilot scorer pænt højt i min kendte 3D-test (Dyrt, Dumt, Dårligt)

20/12

Amazon ramt af største strejke nogensinde: Ansatte gået hjem

20/12

CISO Sarah Aalborg forlader Tivoli: Her er hendes planer for fremtiden

20/12

Sådan vil Domstolsstyrelsen nedbringe legacy og teknisk gæld: Her er den nye plan

20/12

Temu åbner stort varehus i Sverige og kan nu sende varer til danskerne endnu hurtigere: "Hvad vi frygtede, er sket"

20/12

Amerikansk spil-firma skal levere eSim-program til Forsvaret: Soldater skal lære at håndtere kampvogne på computer

20/12

Danmark har det hurtigste internet i Norden

20/12

Behov for mere vidensdeling om AI: Sådan bliver du bedre rustet

20/12

Julepynt, papkasser og drikkevarer flyder på politiets datacenter - og uautoriserede personer kan have haft adgang til serverrum

Vis flere artikler

IT-JOB

Unik System Design A/S

Strategic Customer Success Manager

UDENRIGSMINISTERIET

Udenrigsministeriet søger it-specialist

BEC

Service Integrator

Normann Copenhagen ApS

Product Data Specialist

Sydbank

Data Engineer til Digital Banking

Vis flere jobs

Seneste spørgsmål Seneste aktivitet

21/1222:16	Er "OneDrive" et "Must" ? Koster det penge ? Af Ikke-ekspert i Windows
21/1216:42	Windows Media Player - Hvilken version (Versioner) er gode til at afspille og kopiere ? Af Ikke-ekspert i Musik & videoafspillere
21/1212:54	Fejlfinding: Årsag til blank skærm og ingen BIOS fra Lenovo 90BH Af Mads i PC
21/1209:42	Outlook - kan ikke kopiere opgaver Af barth i Office & Kontorpakker
21/1200:26	Genhøre telefonsamtale Af anonym24 i Chat & Messaging