Re: Dane z kilku rekordów w jednym polu

Article View: pl.comp.bazy-danych.msaccess

Article #137185

Back to pl.comp.bazy-danych.msaccess Previous Next

#137185

From: MaciejF
Date: Sun, 08 May 2016 12:11

57 lines
2856 bytes

wersja w której założyłem, że w raporcie będą pola:

txtIDmeczu pole tekstowe
i
memStrzelcy typu memo


Poniżej jeszcze kilka poprawek:


Sub Strzelcy_memo()

Dim rs AS Recordset, rs2 As Recordset
Dim sListaStrzelcow As String
Dim sIDMeczu As String
Dim db AS Database
Dim sSQL As String, sSQL1mecz As String
Dim j As Integer

Set db = CurrentDB

sSQL = "SELECT DISTINCT IDmeczu FROM tblBramki ORDER BY IDmeczu;"

Set rs = db.OpenRecordset(sSQL)

rs.MoveFirst

Do while rs.EOF	
	sIDMeczu = CStr(rs.IDmeczu)
		
	sSQL1mecz = "SELECT * FROM tblBramki WHERE IDmeczu = " & rs.IDmeczu & " ORDER BY IDbramki;"
	Set rs2 = db.OpenRecordset(sSQL1mecz)
		
	With rs2
		For j = 1 to Max(.IDbramki)
		If j = 1 Then
			sListaStrzelcow = .IDbramki & Chr(44) & Chr(32) & .wynik & Chr(44) & Chr(32) & .imię & Chr(32) & .nazwisko 
		Else
			sListaStrzelcow = sListaStrzecow & vbCrLf &  .IDbramki & Chr(44) & Chr(32) & .wynik & Chr(44) & Chr(32) & .imię & Chr(32) & .nazwisko 
		End IF
		Next j
	End With
	rs2.close
	Set rs2 = Nothing

	Me!txtIDmeczu = sIDMeczu
	Me!memStrzelcy = sListaStrzelcow
	
	
	rs.MoveNext
Loop
   
rs.Close
Set rs = Nothing
Set db = Nothing
 
 End Sub

Technical Details

Message-ID: <72e83152-0e93-4b05-a8cb-39cc8f5b459d@googlegroups.com>

Path:

mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!agh.edu.pl!news.agh.edu.pl!newsfeed2.atman.pl!newsfeed.atman.pl!goblin3!goblin.stu.neva.ru!news.ripco.com!news.glorb.com!88no2697542qga.1!news-out.google.com!uv8ni203igb.0!nntp.google.com!i5no5497821ige.0!postnews.google.com!glegroupsg2000goo.googlegroups.com!not-for-mail

References:

<f888caf4-0356-481f-a9b8-a9c6ff880161@googlegroups.com> <0c43c0a8-3aaf-4c80-934d-99b351a020c0@googlegroups.com> <e28664a5-a556-4b73-aa6f-4b62bc6f9667@googlegroups.com> <b5a161ea-d8ed-46c2-bbe9-c6030081fae2@googlegroups.com> <4178be2f-bf1f-4f7b-b486-01b3ef6c02af@googlegroups.com> <f575f9e6-8141-48f3-8b90-e95f475f75ab@googlegroups.com> <43564fe5-e6fe-482b-819c-fdb19dc01073@googlegroups.com>

Show Full Headers

Complete Article Headers

X-Received: by 10.129.85.76 with SMTP id j73mr19708073ywb.55.1462709501795;        Sun, 08 May 2016 05:11:41 -0700 (PDT)
X-Received: by 10.36.254.1 with SMTP id w1mr2046ith.5.1462709501737; Sun, 08 May 2016 05:11:41 -0700 (PDT)
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!agh.edu.pl!news.agh.edu.pl!newsfeed2.atman.pl!newsfeed.atman.pl!goblin3!goblin.stu.neva.ru!news.ripco.com!news.glorb.com!88no2697542qga.1!news-out.google.com!uv8ni203igb.0!nntp.google.com!i5no5497821ige.0!postnews.google.com!glegroupsg2000goo.googlegroups.com!not-for-mail
Newsgroups: pl.comp.bazy-danych.msaccess
Date: Sun, 8 May 2016 05:11:40 -0700 (PDT)
In-Reply-To: <43564fe5-e6fe-482b-819c-fdb19dc01073@googlegroups.com>
Complaints-To: groups-abuse@google.com
Injection-Info: glegroupsg2000goo.googlegroups.com; posting-host=77.253.55.141; posting-account=kc7ZIQoAAAB5PkdJgxjq1dd8jnBK4MVp
NNTP-Posting-Host: 77.253.55.141
References: <f888caf4-0356-481f-a9b8-a9c6ff880161@googlegroups.com> <0c43c0a8-3aaf-4c80-934d-99b351a020c0@googlegroups.com> <e28664a5-a556-4b73-aa6f-4b62bc6f9667@googlegroups.com> <b5a161ea-d8ed-46c2-bbe9-c6030081fae2@googlegroups.com> <4178be2f-bf1f-4f7b-b486-01b3ef6c02af@googlegroups.com> <f575f9e6-8141-48f3-8b90-e95f475f75ab@googlegroups.com> <43564fe5-e6fe-482b-819c-fdb19dc01073@googlegroups.com>
User-Agent: G2/1.0
MIME-Version: 1.0
Message-ID: <72e83152-0e93-4b05-a8cb-39cc8f5b459d@googlegroups.com>
Subject: Re: Dane z kilku rekordów w jednym polu
From: MaciejF <maciejfr@onet.pl>
Injection-Date: Sun, 08 May 2016 12:11:41 +0000
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

Reply to Parent Message