CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg

Log ind eller opret profil

Du kan også logge ind via nedenstående tjenester

-anders- Juniormester

31. oktober 2017 - 09:14 Der er 6 kommentarer og
2 løsninger

Oprettelse af ny tabel på basis af data i felter fra en anden tabel herunder et memofelt

Kære eksperter

Denne er her tricky, og jeg har ikke kunne finde noget på nettet der kan hjælpe, så nu prøver jeg her. Jeg arbejder i Access 2010.

Jeg har en tabel med data i (ca, 500 poster). Tabellen er navngivet TBLdata, og indeholder nedenståender felter.

Felt1
Felt2
Felt3
Felt4
Felt5

Felterne fra Felt1 til Felt4 er af datatypen tekst, Felt5 er af datatypen, Memo.
Der er data i alle felterne.

Felterne fra Felt1 til Felt 4 indeholder tekst uden linjeskift
Felt5 (som jo er et memofelt) indeholder udenlukkende tekst med linjeskift (der er aldrig dobbelte linjeskift, kun enkelte) fx:

Information 1
Information 2
Information 3
Information 4

Der kan i det enkelte poster sagtens stå mere i memofeltet, men ens for alle poster er, at der kun er et enkelt linjeskift.
Når jeg viser en post ser det i dag sådan ud:

anj, Anders Jensen, Danmark, e-mailadresse
Information 1
Information 2
Information 3
Information 4

Problem:
Jeg vil gerne oprette en ny tabel hvor koden skal oprette en ny post for hver linje der er i memofeltet for de enkelte poster i TBLdata, så data i den nye tablel vil se sådan ud:

anj, Anders Jensen, Danmark, e-mailadresse, Information 1
anj, Anders Jensen, Danmark, e-mailadresse, Information 2
anj, Anders Jensen, Danmark, e-mailadresse, Information 3
anj, Anders Jensen, Danmark, e-mailadresse, Information 4

Er der nogen der ved om dette er muligt, og i så fald hvordan? Som sagt har jeg søgt en del på nettet, men finder ikke noget.
Jeg har en lille Test database (Access 2010) som godt kan sendes, hvis det er :-)

På forhånd tak for hjælpen.

Hilsen
Anders

Synes godt om

terry Ekspert

31. oktober 2017 - 10:12 #1

Hi Anders
Can you send the dB to me "ekspertenATsanthell.dk" and I'll take a look.
AT = @
Its obviously going to require a bit of code to do it but would think it is possible.

I'm also busy with other things but will reply when I have time.

Terry

Synes godt om

-anders- Juniormester

31. oktober 2017 - 10:23 #2

Hej Terry

Tak for dit indlæg. Jeg har netop sendt testdatabassen til dig som en .zip fil.

Synes godt om

terry Ekspert

31. oktober 2017 - 12:55 #3

You can have a button on the form and in the OnClick event use this code which assumes the fields are the same as in TBLData.

Dim strField5 As String
Dim strArray() As String
Dim intCount As Integer
Dim strSQL As String

strArray() = Split(Felt5, vbCrLf)
DoCmd.SetWarnings False

For intCount = LBound(strArray) To UBound(strArray)
strSQL = "INSERT INTO TBLNewData VALUES('" & Felt1 & "', '" & Felt2 & "', '" & Felt3 & "', '" & Felt4 & "', '" & Trim(strArray(intCount)) & "')"

DoCmd.RunSQL strSQL

Next

DoCmd.SetWarnings True

Synes godt om

terry Ekspert

31. oktober 2017 - 13:01 #4

You dont need Dim strField5 As String

Synes godt om

-anders- Juniormester

31. oktober 2017 - 13:42 #5

Hej Terry

Tak for indsatsen, din kode virker perfekt. Ville det være muligt at få koden til at løbe alle poster igennem fra TBLdata, så man ikke "manuelt" skal eksekvere koden for hver post!

PS. Jeg sender dig lige en mail omkring betragtninger på databasen.

Synes godt om

terry Ekspert

31. oktober 2017 - 14:40 #6

Function Copy2TBLNewData()

Dim rs As Recordset

Dim strArray() As String
Dim intCount As Integer

Dim strSQL As String

strSQL = "SELECT * FROM TBLData"

Set rs = CurrentDb.OpenRecordset(strSQL)

If Not rs.BOF And Not rs.EOF Then

DoCmd.SetWarnings False

rs.MoveFirst
While (Not rs.EOF)

strArray() = Split(rs.Fields(4), vbCrLf)

For intCount = LBound(strArray) To UBound(strArray)

strSQL = "INSERT INTO TBLNewData VALUES('" & rs.Fields(0) & "', '" & rs.Fields(1) & "', '" & rs.Fields(2) & "', '" & rs.Fields(3) & "', '" & Trim(strArray(intCount)) & "')"

DoCmd.RunSQL strSQL

Next

rs.MoveNext

Wend

DoCmd.SetWarnings True

End If

End Function

Synes godt om

-anders- Juniormester

31. oktober 2017 - 15:18 #7

Hej Terry

Din kode til at løbe hele TBLdata igennem virker perfekt. Så nåede jeg endnu engang målstregen, og kun takket være din store hjælp. Du skal have mange tak for indsatsen.

Ha, en god Halloween aften :-)

Synes godt om

terry Ekspert

31. oktober 2017 - 15:24 #8

Thanks, same to you Anders ;-)

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
Filter tal Af hlnviv i Access	10	17/12/202413:35	18/12/202412:31
Søgeknap Af erlandsen i Access	3	02/12/202415:32	02/12/202417:04
Hændelse ved tryk på knap Af erlandsen i Access	1	01/12/202413:51	01/12/202413:54
Vis Valuta og Pris i SQL Af per2edb i Access	7	28/11/202411:48	28/11/202417:31
Kan en kombinationsbox formateres om til en text box og omvendt Af per2edb i Access	3	21/11/202418:03	22/11/202411:38

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