Re: Dane z kilku rekordów w jednym polu

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

Article #137183

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

#137183

From: MaciejF
Date: Sat, 07 May 2016 20:58

40 lines
2648 bytes

po poprawkach:

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)

    'For i = Min(rs.IDmeczu) to Max(rs.IDmeczu)
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
Loop
   
rs.Close
Set rs = Nothing
Set db = Nothing

Technical Details

Message-ID: <f575f9e6-8141-48f3-8b90-e95f475f75ab@googlegroups.com>

Path:

mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.icm.edu.pl!newsfeed2.atman.pl!newsfeed.atman.pl!goblin3!goblin2!goblin.stu.neva.ru!newsfeed.xs4all.nl!newsfeed8.news.xs4all.nl!newspeer1.nac.net!border2.nntp.dca1.giganews.com!nntp.giganews.com!88no2529177qga.1!news-out.google.com!k10ni126igv.0!nntp.google.com!sq19no3767951igc.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>

Show Full Headers

Complete Article Headers

X-Received: by 10.13.215.210 with SMTP id z201mr17759858ywd.4.1462654731174;        Sat, 07 May 2016 13:58:51 -0700 (PDT)
X-Received: by 10.50.150.5 with SMTP id ue5mr45649igb.5.1462654731134; Sat, 07 May 2016 13:58:51 -0700 (PDT)
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.icm.edu.pl!newsfeed2.atman.pl!newsfeed.atman.pl!goblin3!goblin2!goblin.stu.neva.ru!newsfeed.xs4all.nl!newsfeed8.news.xs4all.nl!newspeer1.nac.net!border2.nntp.dca1.giganews.com!nntp.giganews.com!88no2529177qga.1!news-out.google.com!k10ni126igv.0!nntp.google.com!sq19no3767951igc.0!postnews.google.com!glegroupsg2000goo.googlegroups.com!not-for-mail
Newsgroups: pl.comp.bazy-danych.msaccess
Date: Sat, 7 May 2016 13:58:50 -0700 (PDT)
In-Reply-To: <4178be2f-bf1f-4f7b-b486-01b3ef6c02af@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>
User-Agent: G2/1.0
MIME-Version: 1.0
Message-ID: <f575f9e6-8141-48f3-8b90-e95f475f75ab@googlegroups.com>
Subject: Re: Dane z kilku rekordów w jednym polu
From: MaciejF <maciejfr@onet.pl>
Injection-Date: Sat, 07 May 2016 20:58:51 +0000
Lines: 42
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

Reply to Parent Message