Buongiorno,
ho una tabella dove cerco di far avanzare un contatore, il problema e' che rileva sempre il campo EDUCATRICE a 0 (anche se e' diverso)
chi mi potrebbe aiutare?
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim sqlstring As String
Set dbLocal = CurrentDb
sqlstring = "SELECT EDUCATRICE,ANNO,CONTATORE FROM RETTA_TRAVASO_TESTATA_aghe"
Set rs = CurrentDb.OpenRecordset(sqlstring, dbOpenDynaset)
Dim CONTA0 As Integer
Dim CONTA1 As Integer
Dim CONTA2 As Integer
CONTA0 = 1
CONTA1 = 1
CONTA2 = 1
Do Until rs.EOF
Select Case (EDUCATRICE)
Case 0
rs.Edit
rs.Fields("CONTATORE") = CONTA0
rs.Update
CONTA0 = CONTA0 + 1
Case 1
rs.Edit
rs.Fields("CONTATORE") = CONTA1
rs.Update
CONTA1 = CONTA1 + 1
Case 2
rs.Edit
rs.Fields("CONTATORE") = CONTA2
rs.Update
CONTA2 = CONTA2 + 1
End Select
rs.MoveNext
Loop
rs.Close