[Resolvido]Condição ao executar Recordset

Bom dia.

Procurei algum artigo que sanasse minha dúvida mas não achei.

Gostaria de saber se, ao executar o recordset, dependendo do que estiver escrito na caixa de texto (ex: "Acima do esperado") seja lançado na tabela um valor (ex: "7").

Grato desde já.

meu código:

Private Function Cadastro_Monitoria()

Dim rs As Recordset

Set db = CurrentDb

Set rs = db.OpenRecordset("TabApontamentos")


rs.AddNew


rs("Chave") = Me.Texto180
rs("Serviço") = Me.Combinação174
rs("Hora") = Me.Texto138
rs("Data") = Me.Texto136
rs("Condução") = Me.comb1
rs("Inicio") = Me.Comb2
rs("Objetividade") = Me.Comb3
rs("pausas") = Me.Comb4
rs("Gramatica") = Me.Comb5
rs("InfoCorret") = Me.Comb6
rs("InfoComp") = Me.Comb7
rs("Segurança") = Me.Comb8
rs("Procedimento") = Me.Comb9
rs("Resolutividade") = Me.Comb10
rs("Argumentacao") = Me.Comb11
rs("Disponibilidade") = Me.Comb12
rs("Cortesia") = Me.Comb13
rs("Etica") = Me.Comb14
rs("Sigilo") = Me.Comb15
rs("Observacoes") = Me.Texto142
rs("Usuario") = Me.txtUsuarioAtual


rs.Update
'rs.Close


End Function

Bruno

Não disse quais caixas de texto, mas aqui está um exemplo, com uma parte do teu exemplo


rs("Etica") = Me.Comb14
rs("Sigilo") = Me.Comb15

If me.minhatextbox = "Acima do esperado" then
rs(CampoTabela) = 7
else
rs(Campo tabela) = Um outro valor

End If

rs("Observacoes") = Me.Texto142
rs("Usuario") = Me.txtUsuarioAtual


[ ]'s

Deu certo camarada!!

Muito obrigado!

Que bom que ajudei !

Boa sorte!