Avatar billede grind Nybegynder
28. maj 2004 - 18:37 Der er 7 kommentarer og
1 løsning

linieskift problemer i importerede data

Jeg importerer data til Access fra Oracledatabase og får her et tegn for linieskift der ligner et rektangel. Er der nogen der kan hjælpe med at finde en løsning der kan lave dette tegn om til et linieskift i Access så det kan ses i rapporter dannet på rundlag af disse data. Access forstår tydeligvis ikke at et rektangel fra Oracle er et linieskift. Kan det evt. løses med et stykke visual basic kode i forbindelse med dannelse af rapporter i "Detaljesektion_Print()" procedure?
28. maj 2004 - 19:42 #1
Først skal du have identificeret reaktanglet. Det gør du ved at markere det og kopiere (ctrl+C).

I din rapport, kan du lave en forespørgsel, baseret på tabellen (hvis du ikke allerede har det), hvor du laver det aktuelle felt om ved at lave en ny kolonne:

NytFelt: Replace([Dit gamle felt];"█";chr(13) & chr(10))

Dette nye felt skulle nu have rigtige linieskift i.

/Thomas
28. maj 2004 - 19:44 #2
hmm Eksperten erstattede lige mit reaktangel med "█"
Ideen var, at der skulle stå:
NytFelt: Replace([Dit gamle felt];"[reaktangel]";chr(13) & chr(10))
Avatar billede grind Nybegynder
28. maj 2004 - 19:47 #3
Hvorfor skal jeg kopiere rektanglet? og hvor vil du jeg skal indsætte det??
Og der hvor jeg skal indsætte "replace" - er det direkte i forespørgslens SQL eller er det i visual basic?
Avatar billede grind Nybegynder
28. maj 2004 - 20:01 #4
Jeg er vist ikke helt med på hvor vi er??
Jeg formoder du mener, at jeg i en visual basic procedure skal lave en sætning som den du viser ovenfor? Men det slipper jeg ikke heldigt fra.. Syntax error...
Kan du se hvad det er jeg gør galt???

Private Sub Gruppehoved1_Print(Cancel As Integer, PrintCount As Integer)
If [FILENAME] <> "" Then
Me![Billede].Picture = "h:\Bs_pict\" & [FILENAME]
End If

Replace([TEKST];"&#9608;";chr(13) & chr(10))

End Sub
29. maj 2004 - 06:59 #5
Nej, jeg mener, at det kan klares lettest uden Visual Basic. Det hele sker i den forespørgsel, som du skal bruge til rapporten.

SQL'en til forespørgslen skal se nogenlunde således ud:

Select *, Replace([Ditfelt],"[Rektangel]",chr(13) & chr(10)) as NytFelt From [Din importerede tabel]

Alternativt kan du erstatte alle reaktangle i tabellen med chr(13) & chr(10) inden udskriften (det er måske det optimale?)
Det gør du ved at køre denne forespørgsel én gang:
Update [Din importerede tabel] Set [Ditfelt] = Replace([Ditfelt],"[Rektangel]",chr(13) & chr(10))


[Rektangel] erstattes med det symbol, som er forkert i tabellen.
Avatar billede grind Nybegynder
29. maj 2004 - 09:20 #6
Tak for hjælpen!
Avatar billede grind Nybegynder
29. maj 2004 - 09:21 #7
hvorfor får du nu ikke lige dine point når jeg trykker accepter...?
29. maj 2004 - 09:50 #8
selv tak :o)

Du skal klikke på mit navn i boksen til venstre før du klikker på Accepter-knappen (det er utroligt, at de ikke laver det om - der er så mange, som ikke kan acceptere, fordi der ikke er bedre information)
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