Re: Dane z kilku rekordów w jednym polu

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

Article #137182

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

#137182

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

44 lines
2478 bytes

kolejne poprawki:

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)
		sIDMeczu = rs.IDmeczu
		
		sSQL1mecz = "SELECT * FROM tblBramki WHERE IDmeczu = '" & .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
	Next i
   
rs.Close
Set rs = Nothing
Set db = Nothing
 
 End Sub

/
MF

Technical Details

Message-ID: <4178be2f-bf1f-4f7b-b486-01b3ef6c02af@googlegroups.com>

Path:

mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.icm.edu.pl!newsfeed2.atman.pl!newsfeed.atman.pl!goblin2!goblin1!goblin.stu.neva.ru!88no2524382qga.1!news-out.google.com!k10ni105igv.0!nntp.google.com!i5no5140853ige.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>

Show Full Headers

Complete Article Headers

X-Received: by 10.31.218.4 with SMTP id r4mr3645559vkg.8.1462653394882;        Sat, 07 May 2016 13:36:34 -0700 (PDT)
X-Received: by 10.36.160.70 with SMTP id o67mr1205ite.2.1462653394824; Sat, 07 May 2016 13:36:34 -0700 (PDT)
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.icm.edu.pl!newsfeed2.atman.pl!newsfeed.atman.pl!goblin2!goblin1!goblin.stu.neva.ru!88no2524382qga.1!news-out.google.com!k10ni105igv.0!nntp.google.com!i5no5140853ige.0!postnews.google.com!glegroupsg2000goo.googlegroups.com!not-for-mail
Newsgroups: pl.comp.bazy-danych.msaccess
Date: Sat, 7 May 2016 13:36:34 -0700 (PDT)
In-Reply-To: <b5a161ea-d8ed-46c2-bbe9-c6030081fae2@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>
User-Agent: G2/1.0
MIME-Version: 1.0
Message-ID: <4178be2f-bf1f-4f7b-b486-01b3ef6c02af@googlegroups.com>
Subject: Re: Dane z kilku rekordów w jednym polu
From: MaciejF <maciejfr@onet.pl>
Injection-Date: Sat, 07 May 2016 20:36:34 +0000
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

Reply to Parent Message