Per favore mi commentate queste righe:
codice:
Sub NavigaRecord(record As Naviga)
If record = Naviga.Frec Then
If Not rs.EOF Or Not rs.BOF Then rs.MoveFirst
End If
If record = Naviga.Nrec Then
If rs.EOF = False Then rs.MoveNext
If rs.EOF = True And rs.BOF = False Then rs.MoveLast
End If
If record = Naviga.Prec Then
If rs.BOF = False Then rs.MovePrevious
If rs.BOF = True And rs.EOF = False Then rs.MoveFirst
End If
If record = Naviga.Lrec Then
If Not rs.EOF Or Not rs.BOF Then rs.MoveLast
End If
If Not rs.EOF And Not rs.BOF Then
txtCodice = rs.Fields("codice")
txtDescr = rs.Fields("descr")
End If
ci sono vari if ogni if fa un controllo diverso ma nn ho capito bene cosa!
gentilmente me le commentate
grazie mille!