Notifikationer

Markér alle som læst Log ud

2dbornot2db Nybegynder

01. marts 2005 - 20:26 Der er 8 kommentarer og
2 løsninger

Formatering af tlf.nr.

Jeg har en række tlf.nr. som er lagret i formatet:
"33445566"

Jeg bad mine brugere om at gemme på den vis fordi jeg forestillede mig, at der var en måde at formatere tallet (eks. ved udskrift). Nu kan jeg bare ikke lige komme på metoden :-)

Hvordan formaterer man f.eks. til "3344 5566"?

Hvis der er nogen der ligger inde med et stykke kode, der tager højde for landekoder eller udenlandske numre ville det også være prisværdigt

Synes godt om

Make IT Easy - Thomas Jepsen Praktikant

01. marts 2005 - 20:27 #1

Du kan bruge formattet:
0000 0000

Synes godt om

2dbornot2db Nybegynder

01. marts 2005 - 20:29 #2

Ikke forstået? Hvor skriver jeg det?

Synes godt om

mugs Novice

01. marts 2005 - 20:29 #3

@@@@ @@@@ i formatet i tabeldesign

Synes godt om

2dbornot2db Nybegynder

01. marts 2005 - 20:31 #4

-> Mugs
Jeg ønsker ikke at skrive det i tabeldesignet, men have lejlighed til at formatere ved udskrift.

Synes godt om

Make IT Easy - Thomas Jepsen Praktikant

01. marts 2005 - 20:35 #5

Du kan bruge samme kode på en tekstboks på rapporten eller på en formular.

@@@@ @@@@ er det rigtige :)

Synes godt om

mugs Novice

01. marts 2005 - 20:35 #6

Så i rapportens felt i fanen Format

Synes godt om

2dbornot2db Nybegynder

01. marts 2005 - 20:48 #7

Hmm...det virker ikke rigtigt:

Private Sub Detaljesektion_Format(Cancel As Integer, FormatCount As Integer)
If IsNull(Me.Kontakt) Then Exit Sub

If IsNumeric(Me.Kontakt) Then
me.Kontakt = Format(Me.Kontakt, "@@@@ @@@@")
Else
Me.Kontakt = Me.Kontakt
End If

End Sub

Jeg får fejlen: "Du kan ikke tildele en værdi til dette objekt"

Grunden til IsNumeric er at feltet også kan indeholde f.eks. en e-mail adresse eller en webadresse

Synes godt om

Make IT Easy - Thomas Jepsen Praktikant

01. marts 2005 - 20:50 #8

nej, i en rapport kan man ikke tildele værdier til en tekstboks via VBA..

Alternativt kan du lave det om til en tekstboks og så skrive således i stedet:

If IsNumeric(Me.Kontakt) Then
me!Kontakt.caption = Format(Me.Kontakt, "@@@@ @@@@")
Else
Me!Kontakt.caption = Me.Kontakt
End If

Synes godt om

2dbornot2db Nybegynder

01. marts 2005 - 21:11 #9

Tak for hver jeres bidrag :-)

Synes godt om

Make IT Easy - Thomas Jepsen Praktikant

01. marts 2005 - 21:15 #10

Selv tak :o)

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
en word dotx fil stilles om til at blive gemt i skyen Af per2edb i Access	9	16/04/202620:11	21/04/202615:43
AI integreret i Access Af per2edb i Access	3	06/04/202610:42	06/04/202612:58
Autonummerering Af hlnviv i Access	2	06/03/202606:24	06/03/202607:48
stigende sortering på et Link felt Af hlnviv i Access	6	03/03/202613:18	04/03/202608:09
Access database udskriver ikke rammer korrekt Af Uvanga i Access	8	18/11/202500:24	18/11/202510:25

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