Io ho un form con 4 campi : Cognome,Nome,Ruolo,Alias.Il campo
alias sono obbligato ad inserirlo solo se nome e cognome sono
già presenti nel db.
Io inserisco per la prima volta: Mario,Rossi,Insegnante.
Se io inserisco un'altra volta il nome e cognome Mario,Rossi siccome
li trova già nel db mi dice di dover inserire anche l'alias.
Mi trovo nell'evento click del bottone salva, come posso fare
questo salvataggio?









Private Sub cmdSalva_Click()
Dim dbConn As New ADODB.Connection
Dim dbrec As New ADODB.Recordset
Dim strConnectionString As String
Dim strSQL As String
Dim strSQL1 As String

Dim iNome, iCognome, iRuolo, iAlias

iAlias = txtAlias.Text
iNome = txtNome.Text
iCognome = txtCognome.Text


If txtNome.Text = "" Or txtCognome.Text = "" Or cmbRuolo.Text = "" Then
MsgBox "Inserisci i campi obblibatori * mancanti", vbInformation
Exit Sub
End If

g_strConnectionString = "maia"


'Apro una connessione con il database
dbConn.ConnectionString = g_strConnectionString
dbConn.Open
Dim aRes As Boolean
aRes = controlladati(iCognome, iNome, dbConn)
If aRes = True Then
Beep
MsgBox "Inserisci l'ALIAS", vbInformation
Else
dbrec.Open "Ruolo", dbConn, adOpenForwardOnly, adLockOptimistic, -1
While Not dbrec.EOF
ruolo = dbrec("Ruolo")
'cmbRuolo.AddItem ruolo
Dim collRuolo As New Collection
collRuolo.Add Int(dbrec("ID_Ruolo")), ruolo
dbrec.MoveNext
Wend

aRuolo = collRuolo(cmbRuolo.Text)
strSQL = "INSERT Into Staff (Nome,Cognome,Alias,ID_Ruolo) VALUES ('" & iNome & "','" & iCognome & "','" & iAlias & "','" & aRuolo & "')"


DoEvents
dbConn.Execute strSQL


MsgBox ("Dati inseriti")
dbConn.Close
Set dbConn = Nothing
End If

End Sub