il codice della funzione incriminata è questo :
Private Sub addstud_Click()
Call OpenFileStud
NumeroElementi = LOF(1) / Len(Studente)
For I = 1 To NumeroElementi
Get #1, I, Studente
If Login.Text = Trim(User.Login) Then
MsgBox "La login inserita è gia presente!", vbInformation, "Cambia login!"
txtlogin.Text = ""
Call CloseFileStud
Exit Sub
End If
Next
Studente.Login = Login.Text
Studente.Password = cripta(Password.Text)
Studente.Nome = Nome.Text
Studente.Cognome = Cognome.Text
Studente.Descrizione = Descrizione.Text
Studente.Livello = Livello.ListIndex
Studente.Cellulare = Cell.Text
Studente.Città = City.Text
Studente.Classe = ClassCombo.ListIndex
Studente.CodFiscale = CodFisc.Text
Studente.DataNascita = Nascita.Text
Studente.Email = mail.Text
Studente.Specializzazione = SpecCombo.ListIndex
Studente.Telefono = Tel.Text
Studente.Via = Via.Text
Put #1, NumeroElementi + 1, Studente
Call CloseFileStud
MsgBox "Studente inserito con successo!", vbInformation, "Successfull!"
Call pulisci(True)
End Sub
