Avatar billede rsa Nybegynder
02. marts 2004 - 16:27 Der er 12 kommentarer og
1 løsning

Højrestil en numerisk værdi i et tekstfelt med foranstillede nul.

Jeg har konverteret fra en numerisk key til en tekst key (længde = 5). Resultatet er følgende:
1
10
100
2
3
Mit ønske er:
00001
00002
00003
00010
00100

Jeg har prøvet at teste på spaces og blanke. Jeg skulle måske forsøge at teste på feltets længde, hvad ved jeg.

Hvorledes er den rigtige syntax?
Avatar billede jensen363 Forsker
02. marts 2004 - 16:31 #1
Noget i retning af :

Format([value];"00000")
Avatar billede hekla Nybegynder
02. marts 2004 - 16:39 #2
Skriv 00000 i feltets format.
Avatar billede rsa Nybegynder
02. marts 2004 - 16:49 #3
Hvis jeg skal være ærlig, forstår jeg ikke svarene. I hvilken forbindelse skal jeg afgive disse indtastninger?
Avatar billede hekla Nybegynder
02. marts 2004 - 16:53 #4
I formularens eller rapportens designvisning dobbeltklikker du på feltet. Vælg fanebladet Formater. I øverste linie står der formater. Der skriver du 00000.

Hvis det er i tabellen vælger du designvisning, klikker på feltet og skriver 00000 for neden, hvor der står Format.
Avatar billede rsa Nybegynder
02. marts 2004 - 17:07 #5
Jeg opererer slet ikke i en formular eller rapport, det hele foregår i en hændelsesprocedure.
Avatar billede jensen363 Forsker
02. marts 2004 - 17:10 #6
Så er det netop også her du skal benytte Format() syntaxen ;)
Avatar billede jensen363 Forsker
02. marts 2004 - 17:11 #7
Eventuelt sent en zip version af basen, så skal jeg rettet koden til....

ose@post.dk
Avatar billede hekla Nybegynder
02. marts 2004 - 17:19 #8
Så er det altså meget nemmere for os, hvis vi må se hændelsesproceduren!
Avatar billede jensen363 Forsker
02. marts 2004 - 17:23 #9
Uanset hvad, burde output styres som hekla foreslår, altså uafhængigt af syntaxen i hændelsesproceduren ....
Avatar billede rsa Nybegynder
02. marts 2004 - 17:32 #10
Jeg kan kun sende en lille del af det der foregår, men det er forhåbentligt tilstrækkeligt:

If Mid(rec3!spmnr, 5, 1) = " " Then
  spmnr = "0" & Mid(rec3!spmnr, 1, 4)
End If
    With rec3
    .Edit
    rec3!spmnr = spmnr
    .Update
    End With

Dette fungerer naturligvis ikke!
Avatar billede jensen363 Forsker
02. marts 2004 - 17:37 #11
If Mid(rec3!spmnr, 5, 1) = " " Then
  spmnr = "0" & Mid(rec3!spmnr, 1, 4)
End If
    With rec3
    .Edit
    rec3!spmnr = Format([spmnr],"00000")
    .Update
    End With
Avatar billede rsa Nybegynder
02. marts 2004 - 17:52 #12
Det virker perfekt! Tak for hjælpen.
Avatar billede jensen363 Forsker
02. marts 2004 - 18:42 #13
Det var så lidt .... ;)
Avatar billede 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.

Loading billede Opret Preview
Kategori
Dyk ned i databasernes verden på et af vores praksisnære Access-kurser

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