Du kan jo lave en opdateringsforespørgsel, som opdatere alle tider med det antal minutter, som er angivet i Pause. På feltets EfterOpdatering, kan du køre følgende kode:
Dim SQLStr as String SQLStr = "Update DinTabel Set Tid = Dateadd('n', Minute(#" & Me!Pause & "#), Tid) Where Karnr = " & Me!Karnr & " And Tid > #" & Me!Tid & "#" Currentproject.Activeconnection.Execute SQLStr
(Det er skrevet direkte her, så der kan forekomme småfejl, men så skriver du bare lige tilbage)
Hmm, det er jo sådan set korrekt nok. Derved vil koden kægge 0 minutter til og det bliver jo....det samme.
Problemet er lidt, at du gemmer Pause som dato. I stedet burde det være et heltal. Derved ville du kunne skrive -30 i pause hvorefter det hele bliver rykket tilbage.
HVIS du vælger at lave Pause om til et heltal, skal koden laves lidt om: Dim SQLStr as String SQLStr = "Update DinTabel Set Tid = Dateadd('n', " & Me!Pause & ", Tid) Where Karnr > " & Me!Karnr Currentproject.connection.Execute SQLStr
Nej, men det gør at du kan snyde den ved at skrive -30 og bagefter skrive 0. Så skulle Tid være på plads.
Ideen mad at lade Tid styre af Pause er ikke så god. I stedett bør man lave f.eks. en knap hvor brugeren kan indsætte pause på et vist antal minutter. Men det kræver stadig noget styring, som jeg ikke kender systemet godt nok til at kunne vurdere eller give bud på.
Om det er en knap eller felt er egentlig ikke problemet. jeg skal bare have skubbet tiden foran mig ligesom i hverdagen :-)
Tak for hjælpen
Synes godt om
Ny brugerNybegynder
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.