Re: Dane z kilku rekordów w jednym polu

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

Article #137187

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

#137187

From: MaciejF
Date: Sun, 08 May 2016 14:14

61 lines
2926 bytes

Coś było nie tak z tą 2-gą pętelką


Teraz jest OK:

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

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)
	rs2.MoveFirst
	
	Do While rs2.EOF	
	With rs2
		If .IDbramki = 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
	End With
	rs2.MoveNext
	Loop
	
	rs2.close
	Set rs2 = Nothing

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



Pozdrawiam

/
MF

Technical Details

Message-ID: <2e2abbb4-9020-4071-af93-bdfcf90f9c9d@googlegroups.com>

Path:

mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!agh.edu.pl!news.agh.edu.pl!news.cyf-kr.edu.pl!news.nask.pl!news.nask.org.pl!goblin3!goblin.stu.neva.ru!news.ripco.com!news.glorb.com!i5no5555489ige.0!news-out.google.com!uv8ni216igb.0!nntp.google.com!i5no5555483ige.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> <72e83152-0e93-4b05-a8cb-39cc8f5b459d@googlegroups.com> <712ad851-13e3-4ad1-b3ba-52bff1ecdd22@googlegroups.com>

Show Full Headers

Complete Article Headers

X-Received: by 10.182.39.4 with SMTP id l4mr19813761obk.29.1462716858086;        Sun, 08 May 2016 07:14:18 -0700 (PDT)
X-Received: by 10.50.98.70 with SMTP id eg6mr72173igb.4.1462716858018; Sun, 08 May 2016 07:14:18 -0700 (PDT)
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!agh.edu.pl!news.agh.edu.pl!news.cyf-kr.edu.pl!news.nask.pl!news.nask.org.pl!goblin3!goblin.stu.neva.ru!news.ripco.com!news.glorb.com!i5no5555489ige.0!news-out.google.com!uv8ni216igb.0!nntp.google.com!i5no5555483ige.0!postnews.google.com!glegroupsg2000goo.googlegroups.com!not-for-mail
Newsgroups: pl.comp.bazy-danych.msaccess
Date: Sun, 8 May 2016 07:14:17 -0700 (PDT)
In-Reply-To: <712ad851-13e3-4ad1-b3ba-52bff1ecdd22@googlegroups.com>
Complaints-To: groups-abuse@google.com
Injection-Info: glegroupsg2000goo.googlegroups.com; posting-host=178.36.126.163; posting-account=kc7ZIQoAAAB5PkdJgxjq1dd8jnBK4MVp
NNTP-Posting-Host: 178.36.126.163
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> <72e83152-0e93-4b05-a8cb-39cc8f5b459d@googlegroups.com> <712ad851-13e3-4ad1-b3ba-52bff1ecdd22@googlegroups.com>
User-Agent: G2/1.0
MIME-Version: 1.0
Message-ID: <2e2abbb4-9020-4071-af93-bdfcf90f9c9d@googlegroups.com>
Subject: Re: Dane z kilku rekordów w jednym polu
From: MaciejF <maciejfr@onet.pl>
Injection-Date: Sun, 08 May 2016 14:14:18 +0000
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

Reply to Parent Message