Re: Dane z kilku rekordów w jednym polu

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

Article #137184

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

#137184

From: MaciejF
Date: Sat, 07 May 2016 21:02

43 lines
2569 bytes

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 i As Integer, 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(32) & Chr(44) & .wynik & Chr(32) & Chr(44) & .imię & Chr(32) & .nazwisko 
		Else
			sListaStrzelcow = sListaStrzecow & CrLf &  .IDbramki & Chr(32) & Chr(44) & .wynik & Chr(32) & Chr(44) & .imię & Chr(32) & .nazwisko 
		End IF
		Next j
	End With
	rs2.close
	Set rs2 = Nothing

	rs.MoveNext
Loop
   
rs.Close
Set rs = Nothing
Set db = Nothing
 
 End Sub

Technical Details

Message-ID: <43564fe5-e6fe-482b-819c-fdb19dc01073@googlegroups.com>

Path:

mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.icm.edu.pl!newsfeed.pionier.net.pl!feeder.erje.net!2.us.feeder.erje.net!news.glorb.com!sq19no3769672igc.0!news-out.google.com!k10ni126igv.0!nntp.google.com!sq19no3769664igc.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>

Show Full Headers

Complete Article Headers

X-Received: by 10.182.242.116 with SMTP id wp20mr17233641obc.4.1462654977693;        Sat, 07 May 2016 14:02:57 -0700 (PDT)
X-Received: by 10.50.112.166 with SMTP id ir6mr46075igb.2.1462654977462; Sat, 07 May 2016 14:02:57 -0700 (PDT)
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.icm.edu.pl!newsfeed.pionier.net.pl!feeder.erje.net!2.us.feeder.erje.net!news.glorb.com!sq19no3769672igc.0!news-out.google.com!k10ni126igv.0!nntp.google.com!sq19no3769664igc.0!postnews.google.com!glegroupsg2000goo.googlegroups.com!not-for-mail
Newsgroups: pl.comp.bazy-danych.msaccess
Date: Sat, 7 May 2016 14:02:56 -0700 (PDT)
In-Reply-To: <f575f9e6-8141-48f3-8b90-e95f475f75ab@googlegroups.com>
Complaints-To: groups-abuse@google.com
Injection-Info: glegroupsg2000goo.googlegroups.com; posting-host=178.36.96.152; posting-account=kc7ZIQoAAAB5PkdJgxjq1dd8jnBK4MVp
NNTP-Posting-Host: 178.36.96.152
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>
User-Agent: G2/1.0
MIME-Version: 1.0
Message-ID: <43564fe5-e6fe-482b-819c-fdb19dc01073@googlegroups.com>
Subject: Re: Dane z kilku rekordów w jednym polu
From: MaciejF <maciejfr@onet.pl>
Injection-Date: Sat, 07 May 2016 21:02:57 +0000
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

Reply to Parent Message