VALIDANDO STRING
Em um campo da tabela eu gravo como texto EXEMPLO:
JANEIRO/2009
FEVEREIRO/2009
MARCO/2010
No TextBox de um Form digito da mesma maneira, o problema é que preciso validar o nome do mês pois o usuario não pode digitar errado pois o mesmo vai ser usado como parametro de pesquisa. Pensei em criar uma variavel com todos os meses do ano e fazer a validação atraves dessa variavel. Alguem tem uma ideia para essa função?
JANEIRO/2009
FEVEREIRO/2009
MARCO/2010
No TextBox de um Form digito da mesma maneira, o problema é que preciso validar o nome do mês pois o usuario não pode digitar errado pois o mesmo vai ser usado como parametro de pesquisa. Pensei em criar uma variavel com todos os meses do ano e fazer a validação atraves dessa variavel. Alguem tem uma ideia para essa função?
Nao seria mais facil voce colocar isso numa combo com a propriedade style como dropdownlist e colocar todos os meses na propriedade list?
Pensei nisso só que na digitação fica assim, exemplo:
JANEIRO/2011
no combobox eu tenho q carregar JANEIRO SEM /2011 por que muda o ano.
JANEIRO/2011
no combobox eu tenho q carregar JANEIRO SEM /2011 por que muda o ano.
Caso queira uma função mesmo, é só fazer uma verificação.
Porém eu também aconselho a usar um ComboBox, muito mais prático para o usuário e para você.
Faça 02 ComboBox, uma para o Mês e outro para o ano.
Ou então para usar o ano atual faça assim:
Private Sub Command1_Click()
If VerificaMes(Text1.Text) = True Then
MsgBox ([Ô]Mês válido[Ô])
Else
MsgBox ([Ô]Mês inválido[Ô])
End If
End Sub
Private Function VerificaMes(pTexto As String) As Boolean
Select Case Mid(pTexto, 1, Len(pTexto) - 5)
Case [Ô]JANEIRO[Ô]
VerificaMes = True
Case [Ô]FEVEREIRO[Ô]
VerificaMes = True
Case [Ô]MARCO[Ô]
VerificaMes = True
Case [Ô]ABRIL[Ô]
VerificaMes = True
Case [Ô]MAIO[Ô]
VerificaMes = True
Case [Ô]JUNHO[Ô]
VerificaMes = True
Case [Ô]JULHO[Ô]
VerificaMes = True
Case [Ô]AGOSTO[Ô]
VerificaMes = True
Case [Ô]SETEMBRO[Ô]
VerificaMes = True
Case [Ô]OUTUBRO[Ô]
VerificaMes = True
Case [Ô]NOVEMBRO[Ô]
VerificaMes = True
Case [Ô]DEZEMBRO[Ô]
VerificaMes = True
Case Else
VerificaMes = False
End Select
End Function
Porém eu também aconselho a usar um ComboBox, muito mais prático para o usuário e para você.
Faça 02 ComboBox, uma para o Mês e outro para o ano.
Ou então para usar o ano atual faça assim:
ComboBox1.Text & [Ô]/[Ô] & Year(Now)
olha coloque um combo com os meses, e ao lado uma textbox para o ano depois basta pesquisar assim
cbMes.Text & [Ô]/[Ô] & txtAno.Text
cbMes.Text & [Ô]/[Ô] & txtAno.Text
Jonathan, sua sugestão caiu perfeitamente ao me proposito, valeu! Marcelo, obrigado pela dica.
Tópico encerrado , respostas não são mais permitidas