Sub test()


Dim DBCorrente As DAO.Database
Dim Tabella As DAO.Recordset
Dim Altre As DAO.Recordset
Dim app, i, z, count
Dim progrtemp

count = 0
i = 1234


'Apertura DB
Set DBCorrente = CurrentDb
 
'Apertura tabella
Set Tabella = DBCorrente.openrecordset("STR Soci", DBopendynaset)
Set Altre = DBCorrente.openrecordset("altretessere", DBopendynaset)


app = Tabella.Fields("ccp") 'definisco una variabile di appoggio per il campo ccp
'Lettura dati
Do Until Tabella.EOF
    
If IsNull(Tabella.Fields("ccp")) Then
    z = 0
    Tabella.MoveNext
  
    Else
        If Tabella.Fields("ccp") = "049" Or Tabella.Fields("ccp") = "024" Or Tabella.Fields("ccp") = "097" Or Tabella.Fields("ccp") = "205" Then
        z = 1
        'il programma si limita a saltare le provincie di cui non ci occupiamo noi
        
        Else
            If app = Tabella.Fields("ccp") Then
                count = count + 1 'conto quanti sono i record per provincia
                'progrtemp = Tabella.Fields("progr") ' per ora questa funzione non mi serve, forse la uso dopo
                i = i + 1
                'z = 1 'questo è uno switch per capire se deve scrivere o meno
         Else:
            i = i + 1
            Altre.Edit
            Altre.Fields("inizioprogr") = i
            Altre.Fields("ccp") = app
            Altre.Fields("conta") = count
            Altre.Update
            Altre.MoveNext
            app = Tabella.Fields("ccp")
            i = 1234
            'z = 1 'questo è uno switch per capire se deve scrivere o meno
            'i = Tabella.Fields("progr")
         End If
        Tabella.MoveNext
        
   End If

End If
Loop

End Sub