03. januar 2002 - 17:34Der er
5 kommentarer og 2 løsninger
Ændre værdien i et felt
Hej,
jeg har følgende tabel:
id, id2
Hvor id2 henter sin værdi fra id. Jeg ønsker så at manipulere med værdien i id2. Jeg har programmeret i det i ASP, men jeg er ikke den store haj til MS Access 2000.
if request.form(\"number\") <> \"\" then intValue = digitcount(Trim(Request.form(\"number\")), 14) \'number = digitcount(intValue, 14)
Function TotalTvrSum(number) nr = 2 value = 0 ArrNumber = MakeArray(number) ArrNumber = Split(ArrNumber, \";\") For i = 0 to Ubound(ArrNumber) if nr = 2 then value = value + TvrSum((ArrNumber(i)*1)) nr = 1 elseif nr = 1 then value = value + TvrSum((ArrNumber(i)*2)) nr = 2 End if Next TotalTvrSum = value End function
Function MakeArray(value) For i = 1 to Len(value) tmpValue = tmpValue & Left(value, 1) & \";\" value = Right(value, Len(value)-1) Next if Len(tmpValue) > 1 then MakeArray = Left(tmpValue, Len(tmpValue)-1) else MakeArray = tmpValue End if End function
Function digitcount(value, antal) For i = 1 to antal-Len(value) tmpValue = 0 & tmpValue Next digitcount = tmpValue & value End function
Function TvrSum(value) v = 0 tmpArr = MakeArray(value) Arr = Split(tmpArr, \";\") for i = 0 to ubound(Arr) v = v + Arr(i) next TvrSum = v End function
tabellen er en forespørgsel og ændringen af værdien skal ske så snart der bliver oprettet nye poster.
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
Jeg har puttet koden ind i et modul og den brokker sig ikke umiddelbart, den foretager bare ikke beregningen.
Jeg har en formular, hvorfra jeg overfører id til en anden formular, som skal have id2. Jeg benytter en makro til det og man kan vel \"putte\" beregningen af feltet ind i den makro?
Du kan refere til dine felter på formularen ved f.eks me!ID hvis det er samme formular eller forms![formsnavn]![id] hvis det er en anden formular. Så kan du jo manipulere id2 ved f.eks.
jeg skal ikke lave beregningen \"Me!id2 = forms![formsnavn]![id] + 100\", men den jeg har beskrevet i ASP og det er det mit spørgsmål egentlig går ud på.
Jeg har puttet følgende kode ind i et modul:
Function KontrolCiffer(value) If (TotalTvrSum(value) Mod 10) = 0 Then KontrolCiffer = 10 Else KontrolCiffer = (TotalTvrSum(value) Mod 10) End If End Function
Function TotalTvrSum(number) nr = 2 value = CInt(0) ArrNumber = MakeArray(number) ArrNumber = Split(ArrNumber, \";\") For i = 0 To UBound(ArrNumber) If nr = 2 Then value = value + CInt(TvrSum((CInt(ArrNumber(i)) * 2))) nr = 1 ElseIf nr = 1 Then value = value + CInt(TvrSum((CInt(ArrNumber(i)) * 2))) nr = 2 End If Next TotalTvrSum = value End Function
Function MakeArray(value) For i = 1 To Len(value) tmpValue = tmpValue & Left(value, 1) & \";\" value = Right(value, Len(value) - 1) Next If Len(tmpValue) > 1 Then MakeArray = Left(tmpValue, Len(tmpValue) - 1) Else MakeArray = tmpValue End If End Function
Function TvrSum(value) v = 0 tmpArr = MakeArray(value) Arr = Split(tmpArr, \";\") For i = 0 To UBound(Arr) v = v + Arr(i) Next TvrSum = v End Function
Jeg ønsker så at \"køre\" funktionen kontrolciffer i en formular med en værdi og ændre den værdi til den nye værdi efter kontrolciffer beregningen er overstået.
Hej Accesspro, jeg skulle bare kalde min funktion på værdien kontrolciffer(Forms![Formnavn]![ID2]) istedet.
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.