Function ValidarFormulario(Campos)
	For i = 1 To Len(Campos)/2
		Campo = Cint(Mid(Campos,i*2-1,2))
		if form1.item(Campo).value = VbNullString Then
			msgbox "El campo " & form1.item(Campo).alias & " no puede estar vacio por favor llene este campo antes de guardar los cambios", ,"Tecniya"
			form1.item(Campo).focus()
			ValidarFormulario = False
			exit function
		end if
	Next
	ValidarFormulario = True
End Function

Sub NoObligatorios(Campos)
	For i = 1 To Len(Campos)/2
		Campo = Cint(Mid(Campos,i*2-1,2))
		if form1.item(Campo).value = VbNullString Then
			form1.item(Campo).value = " "
		end if
	Next
End Sub


Sub EnviarEmail()
	If Not ValidarFormulario("000102030405060708") Then Exit Sub
	Form1.submit
End Sub