Sub Controlli ()
	window.event.returnValue = False
	If frm1.Data.value <> "" Then
		If Not IsDate(frm1.Data.value) Then
			msgbox "Inserire una data corretta", vbcritical, "Valore errato"
			frm1.Data.focus()
			Exit Sub
		End If
	End If
	If frm1.DDal.value <> "" Then
		If frm1.DAl.value = "" Then
			msgbox "Inserire Data fine periodo", vbcritical, "Inserire valore"
			frm1.DAl.focus()
			Exit Sub
		End If
		If Not IsDate(frm1.DDal.value) Then
			msgbox "Data inizio periodo errata", vbcritical, "Valore errato"
			frm1.DDal.focus()
			Exit Sub
		End If
		If frm1.Data.value <> "" Then
			msgbox "Non selezionare la singola data se è stato inserito il periodo dal - al ", vbcritical, "Valore errato"
			frm1.Data.focus()
			Exit Sub
		End If
	End If
	If frm1.DAl.value <> "" Then
		If frm1.DDal.value = "" Then
			msgbox "Inserire Data inizio periodo", vbcritical, "Inserire valore"
			frm1.DDal.focus()
			Exit Sub
		End If
		If Not IsDate(frm1.DAl.value) Then
			msgbox "Data di fine periodo errata", vbcritical, "Valore errato"
			frm1.DAl.focus()
			Exit Sub
		End If
		DataD = dateserial(year(frm1.DDal.value),month(frm1.DDal.value), day(frm1.DDal.value))
		DataA = dateserial(year(frm1.DAl.value),month(frm1.DAl.value), day(frm1.DAl.value))
		If DataD > DataA Then
			msgbox "La data di fine periodo deve esse maggiore a quella di inizio periodo", vbcritical, "Valore errato"
			frm1.DAl.focus()
			Exit Sub
		End If
	End If
	'ho passato tutti i controlli
	window.event.returnValue = True
End Sub