[Resolvido]Como exportar resultado Combo para tabela?

Bom dia.
Tenho uma combo não acoplada com 4 opções:
Total, Intensa, Leve e Residual.
Onde em cada escolha ela representará um valor X.
Total = 100, Intensa = 75, Leve = 25 e Residual = 12,50.

E que este valor fosse registrado na tabela no campo pertinente a essa combo.



A escolha da combo ficaria como abaixo:

Private Sub CboNivel_AfterUpdate()
   If CboNivel = "Total" Then
   
   ElseIf CboNivel = "Intensa" Then

e assim sucessivamente.

Todavia, o que posso acrescentar para que ocorra a escolha e esse valor vá para a tabela?

Obrigao.

Boa tarde,

Se entendi bem, a combo só poderá ter um valor de cada vez, certo? Nesse caso é simples. Voce pode abrir um recordset e já cadastrar o valor da combo na tabela.

Código:

Private Sub CboNivel_AfterUpdate()

    dim rs as recordset

    set rs = currentdb.openrecordset("SELECT codigo, nivel FROM tblNivel WHERE codigo = " & txtCodigo & "")
    
    rs.edit

    select case CboNivel
        case "Total "
            rs("nivel") = 100
        case "Intensa"
            rs("nivel") = 75
        Case "Leve"
            rs("nivel") = 25
        case "Residual"
            rs("nivel") = 12.50
    End select

    rs.update
End Sub

Supus que voce está editando um registro, onde "codigo" é o indentificador do registro e txtCodigo é este indicador no formulário. "Nivel" é o campo da tabela pertinente à CboNivel.

Se tiver dúvidas poste o bd.

Abraço.

Cássio
Não rodou.
Em anexo.
Obrigado.

Mudei a codificação para....

"SELECT IDDPVAT, nivel FROM Tbl_DPVAT WHERE IDDPVAT = " & CboNivel1 & ")

e não rodou.

Boa tarde,

Voce copiou exatamente a função que fiz, porém eu não tinha os nomes corretos e campos e tabelas então, logicamente, não iria rodar no seu sistema. Mas no seu caso aí, acho que fica muito mais fácil simplesmente acoplar cada combo ao campo correspondente da tabela. Neste caso, basta alterar o valor do campo que automaticamente o access salvará o valor da combo na tabela. O problema maior neste caso é que salvará o valor em texto. Mas voce pode resolver isso resgantando o valor númerico numa tabela auxiliar, quando necessário.

Abraço.

Ok
Obrigado

Resolvido.
Muito obrigado.