Private Sub cmdInvia_Click()
If txtCognome = "" Or txtNome = "" Then
MsgBox "Inserisci i campi obblibatori * mancanti", vbInformation
Else
'assegni a due variabili il contenuto di txtCognome e txtNome
iCognome=txtCognome
iNome=txtNome
'ora apri ed entri nel database, e scorri i record
'ciclo while db
'se i campi della tabella Nome AND Cognome sono uguali a iCognome
'e iNome
if CampoNome=iNome AND CampoCognome=iCognome then
beep
msgbox("Noem e cognome già presenti")
'chiudi la connessione al DB
exit sub 'esci dalla routine
end if
move prossimo record
wend
'sei uscito dal ciclo, il che significa la non presenza
'di iNome e iCognome
'se nome cognome non sono presenti rispettivamente nei campi del db
'fai update di iNome e iCognome sui campi Nome e Cognome della tabella
'chiudi la connessione al DB
end if


link
homepage http://%77%77%77%2e%74%77%6f%72%6b%2e%69%74/
forum http://%77%77%77%2e%74%77%6f%72%6b%2...um/default.asp