[Resolvido]ao digitar a data acusar se é sabado ou domingo

tenho um campo e quero que quando digite a data dia/mês/ano apareça uma mensagem dizendo se é sabado ou domingo e pedindo para que mude para um dia util?

Olá Amigo

Sabendo-se que na função Format os dias da semana vão de 1 = Domingo até 7 (sábado), pode fazer assim:

If Format(date,"w") = 1 or Format(date,"w") = 7 then...

ou
If Format(Me.MeucampoData,"w") = 1 or Format(Me.MeucampoData,"w") = 7 then ...

ou ainda
If Format(Me.MeucampoData,"w") = 1 then
msgbox (Esta data será num domingo"
elseif Format(Me.MeucampoData,"w") = 7
msgbox (Esta data será num sábado"
endif

Abraços

Boa noite, was, e bem-vindo ao fórum

Utilize
Private Sub TxtData_Exit(Cancel As Integer)
If IsNull(TxtData) Then Exit Sub
If Weekday(TxtData) = 1 Or Weekday(TxtData) = 7 Then
If MsgBox("O dia " & TxtData & " não é dia útil." & vbCr & vbCr & "Quer alterar para o primeiro dia útil seguinte?", vbYesNo) = vbYes Then
Do
IncrementaData:
TxtData = DateAdd("d", 1, TxtData)
If Weekday(TxtData) = 1 Or Weekday(TxtData) = 7 Then
GoTo IncrementaData
Else
Exit Do
End If
Loop
End If
End If
End Sub