🚀 go-pugleaf

<>
Najpierw w swojej bazie musisz założyć tabelę tblStrzelcyTemp(pola: txtIDmeczu typ tekst, memStrzelcy typu nota) 
<>

Poprawiony kod poniżej


Private Sub btnStrzelcy_memo_Click() 

Dim rs AS Recordset, rs2 As Recordset, rsTbl As Recordeset 
Dim sListaStrzelcow As String 
Dim sIDMeczu As String 
Dim db AS Database 
Dim sSQL As String, sSQL1mecz As String 

Set db = CurrentDB 

'wyczyść tabelkę tymczsową tblStrzelcyTemp(pola: txtIDmeczu typ tekst, memStrzelcy typu nota) 
db.Execute ("DELETE * FROM tblStrzelcyTemp") 

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 = sListaStrzelcow & 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 

'dodawanie rekordów do tabelki tblStrzelcyTemp		
                Set rsTbl = db.OpenRecordset("tblStrzelcyTemp") 
                With rsTbl 
                .AddNew 
                !txtIDmeczu = sIDMeczu 
                !memStrzelcy = sListaStrzelcow 
                .Update 
                .Close 
                End With 
                 
                  
          
rs.MoveNext 
Loop 
    
rs.Close 
Set rs = Nothing 
Set db = Nothing 
  
  
'raport rptStrzelcy jest raportem ciągłym opartym na tabeli tblStrzelcyTemp 
DoCmd.OpenReport "rptStrzelcy", acViewNormal 
  
  
End Sub 



/
MF