[Resolvido]Duvida Consulta VBA

Boa Tarde a Todos

Estou aprendendo aos poucos VBa e estou com uma dificuldade muito simples pra vcs que são mais avançados no VBA, pq pra mim ja ta me irritando.rsrs

Então eu tenho um formulario que tem um campo chamado programa e outro descrição.
Eu estou fazendo um código simples no VBA para Auto preencher o campo Descrição, só que com meus atuais conhecimentos eu só consigo compara uma string inteira
ex.: "Windows XP" usando esse código.

If Me.Programa = "Windows XP" Then
Me.Descrição = "Sistema Operacional"
End If

Mas eu quero fazer o programa auto preencher o campo Descrição com "Sistema Operacional" Tudo que começar com Windows. Já tentei por "*" no final do Windows, mas nao deu certo deve ter outra arte-manha. Alguem me ajuda por favor

Obrigado

boas
tem aqui um exemplo altere as suas necessidades,
se não conseguir coloque o seu cod.

Dim sistemaOperacional As String
Dim sistemasOperativos As String
Dim descricao As String
sistemasOperativos = "windowsXp"
sistemaOperacional = "Windows"
If sistemaOperacional = Mid(sistemasOperativos, 1, 7) Then
descricao = sistemasOperativos

cumps
acao

Obrigado pela ajuda amigo, mas isso ja é o que eu
já fiz só que de um jeito diferente, Mas seu código é bem interessante. Acho que não fui muito claro com minha duvida então vou tentar esclarecer um pouquinho melhor.
Vcs podem me ajudar a fazer um codigo que quando o Campo "Programa" começar com "Windows" e terminar com qualquer coisa o campo descrição assume o valor de "Sistema Operacional". Do jeito que eu fiz o meu codigo não assume essa necessidade e com isso eu tenho que colocar um if para cada windows, exemplo: "Windows XP,Windows 7, Windows Vista" e eu quero fazer só um if. Segue o Código.


Private Sub Programa_LostFocus()

If Me.Programa = "Avast" Then
Me.Descrição = "AntiVírus"

ElseIf Me.Programa = "Windows XP" Then
Me.Descrição = "Sistema Operacional"

ElseIf Me.Programa = "Windows 7" Then
Me.Descrição = "Sistema Operacional"

ElseIf Me.Programa = "Windows vista" Then
Me.Descrição = "Sistema Operacional"

ElseIf Me.Programa = "Office" Then
Me.Descrição = "Ferramenta de Escritório"


ElseIf Me.Programa = "Hijackthis" Then
Me.Descrição = "Aux. Caça Vírus"


ElseIf Me.Programa = "PageMaker" Then
Me.Descrição = "Editor de Texto"

End If

End Sub

Outra Duvida o Comando if nao aceita "Ou" na condição? Ex.: Se o campo Programa começar com "Windows" ou "Linux" o campo Descrição é igual a "Sistema Operacional". Eu fiz assim:

If Me.Programa = "Windows XP" Or "Linux" Then
Me.Descrição = "Sistema Operacional"
End If

Quando esse codigo executa acontece o seguinte erro: Erro em tempo de execução '13':
Tipos imcompatíveis. Alguem sabe me dizer pq isso acontece?

boas
já percebi o que você quer.
diga como você tem dos dados ( linux, windowsxp, avast,etc.) é numa variavel, recordset, ou texto escrito.
e assim que me seja possivel eu passo-lhe a inf.
cumps
acao

boas
veja se é isto:

Private Sub Programa_LostFocus()
Dim vsistemasWin As String
vsistemasWin = "Windows"

If Me.Programa = "Avast" Then
Me.Descrição = "AntiVírus"

ElseIf Me.Programa = "Linux" Or Mid(Me.Programa, 1, 7) = vsistemasWin Then
Me.Descrição = "Sistema Operacional"

ElseIf Me.Programa = "Office" Then
Me.Descrição = "Ferramenta de Escritório"


ElseIf Me.Programa = "Hijackthis" Then
Me.Descrição = "Aux. Caça Vírus"


ElseIf Me.Programa = "PageMaker" Then
Me.Descrição = "Editor de Texto"

End If

End Sub

deveria colocar um else para se alguma coisa falhar vai ficar ali. imagine que windows está mal escrito, com erro,
tem esse escape.


cumps
acao

Nossa cara, parabens é isso mesmo que eu queria. Vc foi Ninja usar o Mid. Eu não conhecia esse comando, mas eu já vi na internet como ele funciona e achei muito útil.

Obrigado