VALIDANDO STRING

IRENKO 24/02/2011 11:16:53
#366453
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?
SACOFRITO 24/02/2011 11:22:03
#366457
Nao seria mais facil voce colocar isso numa combo com a propriedade style como dropdownlist e colocar todos os meses na propriedade list?
IRENKO 24/02/2011 11:28:53
#366458
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.
JONATHANSTECKER 24/02/2011 11:35:24
#366460
Resposta escolhida
Caso queira uma função mesmo, é só fazer uma verificação.

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)
MARCELO.TREZE 24/02/2011 11:38:11
#366461
olha coloque um combo com os meses, e ao lado uma textbox para o ano depois basta pesquisar assim

cbMes.Text & [Ô]/[Ô] & txtAno.Text

IRENKO 25/02/2011 10:41:20
#366559
Jonathan, sua sugestão caiu perfeitamente ao me proposito, valeu! Marcelo, obrigado pela dica.
Tópico encerrado , respostas não são mais permitidas