[Resolvido]Ajuda em case ou if em textbox

Ajuda em criar if ou case para textbox_cadastro, Digamos quando o cliente digitar o numero de serie no textbox_cadastro ele auto selecinar algums campos do cadastro.

EXp:

Se numero de seria começar com "BR" ao todo são 20 digitos ele auto selecionar na combobox_marca a opção DELL


Se numero de seria começar com "4568" ao todo são 10 digitos ele auto selecionar na combobox_marca a opção CCE


Se numero de seria começar com "XD8" ao todo são 9 digitos ele auto selecionar na combobox_marca a opção SEMP



quem poder me ajudar neste caso serei muito grato..

Seria algo assim:

If Left(Me.txtbox_cadastro, 2) = "BR" Then
    Me.combobox_marca.Column(0) = "DELL"
ElseIf Left(Me.txtbox_cadastro, 4) = "4567" Then
    Me.combobox_marca.Column(0) = "CCE"
ElseIf Left(Me.txtbox_cadastro, 3) = "XD8" Then
    Me.combobox_marca.Column(0) = "SEMP"
...
End If

Erro em tempo de execução '424'
O objeto é obrigatorio.


caro amigo as opções ja estão definidas na combobox,

Tente retirar o .Column(0) das instruções.

Este topico foi resolvido porem tenho mais uma duvida
queria algo assim tbm
-------------------------------------------------------------------------

Se
textbox_cadastro contiver 7 caracteres letras ou numeros então


Auto selecionar na combobox_marca a opção DELL

&

Auto selecionar na combobox_tipo a opção t5

-------------------------------------------------------------------------

Mais uma vez muito obrigado.

Teste:

If Left(Me.txtbox_cadastro, 2) = "BR" Then
    Me.combobox_marca = "DELL"
ElseIf Left(Me.txtbox_cadastro, 4) = "4567" Then
    Me.combobox_marca = "CCE"
ElseIf Left(Me.txtbox_cadastro, 3) = "XD8" Then
    Me.combobox_marca = "SEMP"
ElseIf Len(Me.txtbox_cadastro) = 7 Then
    Me.combobox_marca = "DELL"
    Me.combobox_tipo = "t5"
End If

Consegui tbm de outra forma aqui

da seguin..


Private Sub txtbox_cadastro_BeforeUpdate(Cancel As Integer)
If (Me.txtbox_cadastro) Like "?????" Then 'PHILCO CONVEX SE FOR 5 CARC...
Me.TIPO = "PHILCO"
Me.FORNECEDOR = "CONVEX"
ElseIf (Me.txtbox_cadastro) Like "???????" Then 'DELL ALUGA INFO SE FOR 7 CARAC...
Me.TIPO = "DELL"
Me.FORNECEDOR = "ALUGAINFO"
End If
End Sub




Valeu muito obrigado