Sub btnPosta_OnClick
  Dim TheForm
  Set TheForm = Document.posta
  If (TheForm.mail.Value) = "" Then    	
   Msgbox "ATTENZIONE!! Il modulo deve essere compilato in ogni sua parte.",,"ERRORE"
  Else
  	TheForm.submit
  End if
End Sub



Sub btnEnter1_OnClick
  Dim TheForm
  Set TheForm = Document.curriculum

  If (TheForm.nome.Value) = "" or (TheForm.cognome.value) = "" or (TheForm.giorno.value) = "" or (TheForm.giorno.value) = "gg" or (TheForm.mese.value) = "" or (TheForm.mese.value) = "mm" or (TheForm.anno.value) = "" or (TheForm.anno.value) = "anno" or (TheForm.indirizzo.value) = "" or (TheForm.cap.value) = "" or (TheForm.citta.value) = "" or (TheForm.provincia.value) = "" or (TheForm.telefono.value) = "" or (TheForm.mail.value) = "" or (TheForm.titolo_studio.value) = "" Then
   Msgbox "ATTENZIONE!! Il modulo deve essere compilato in ogni sua parte.",,"ERRORE"
  Else
  	TheForm.submit
  End if
End Sub


Sub btnControllo_OnClick
  Dim TheForm
  Set TheForm = Document.FrontPage_Form1


  If (TheForm.veicolo.Value) = "" or (TheForm.veicolo.value) = "SELEZIONA" or (TheForm.marca.value) = "..." or (TheForm.alimentazione.value) = "..." or (TheForm.anno.value) = "" or (TheForm.anno.value) = "..." or (TheForm.anno.value) = "" or (TheForm.modello.value) = "" Then
   Msgbox "ATTENZIONE!! Il modulo deve essere compilato in ogni sua parte.",,"ERRORE"

  Else

  	If (TheForm.targa.value) = "" then
	 Msgbox "ATTENZIONE!! Inserire il numero di targa, parametro indispensabile per una futura cancellazione"
	
	Else
	 TheForm.submit
	
	End if	  
	

  	
  End if
End Sub