AJUDA, BLOQUEIO DE INSER?ÃO DE DADOS VB6
Amigos, acredito que seja fácil resolver isso ... mas não encontrei uma solução viável automaticamente.
Montei um pequeno sistema para gerenciamento de ocorrências (em VB6) onde são inseridos dados ao longo do mês. Mas estou com um pequeno problema:
Preciso que sempre no dia 2 (dois) do mês atual o sistema deve Bloquear a entrada de dados do mês anterior [Ô]impedindo assim que o usuário insira dados retroativos após o fechamento do mês[Ô].[
Montei um pequeno sistema para gerenciamento de ocorrências (em VB6) onde são inseridos dados ao longo do mês. Mas estou com um pequeno problema:
Preciso que sempre no dia 2 (dois) do mês atual o sistema deve Bloquear a entrada de dados do mês anterior [Ô]impedindo assim que o usuário insira dados retroativos após o fechamento do mês[Ô].[
Certo, e qual sua dificuldade?
if day(date)=2 then
msgbox [Ô]nao lacar[Ô]
end if
msgbox [Ô]nao lacar[Ô]
end if
Muito obrigado,
depois de matutar bastante ontem e hoje, acabei fazendo uma validação utilizando um [Ô]Select Case[Ô] seguido por duas IF[ô]s
Case Is = [Ô]fev[Ô]
BloqueioSis = [Ô]31/01/[Ô] & ano
If Date - 3 >= CDate(BloqueioSis) Then
If CDate(txtDataTreinamento) <= CDate(BloqueioSis) Then
MsgBox [Ô] ... [Ô]
End If
End If
depois de matutar bastante ontem e hoje, acabei fazendo uma validação utilizando um [Ô]Select Case[Ô] seguido por duas IF[ô]s
Case Is = [Ô]fev[Ô]
BloqueioSis = [Ô]31/01/[Ô] & ano
If Date - 3 >= CDate(BloqueioSis) Then
If CDate(txtDataTreinamento) <= CDate(BloqueioSis) Then
MsgBox [Ô] ... [Ô]
End If
End If
Tópico encerrado , respostas não são mais permitidas