[Resolvido]Resgatando valores especificos

Galera, preciso da ajuda de vocês, quem puder... =D
Já dei uma pesquisada nao só aqui no forum como em outros sites e ainda nao me acertei com os codigos, talvez eu nao tenha procurado corretamente neste forum, ja que sou novo e nao peguei a "manha", peço que me desculpe caso seja este o caso!

Tenho um pequeno sistema em desenvolvimento no qual tenho o objetivo de informar um valor calculado por uma formula...
Para calcular esse valor, eu preciso retirar valores de registros de uma tabela, só que para resgatar os valores, eu uso um critério. Ja tenho pronta uma parte da estrutura que faria o procedimento, e esta no evento ao atualizar de uma combobox.

A estrutura funcionaria da seguinte maneira:
Se o valor da combobox "lista_meses" for "Fevereiro 2012", entao
a caixa de texto "meta_valor" receberia o valor de "hi" (variavel que recebe um pequeno calculo), dividido por um valor tirado da tabela "t_total_mes", só que esse valor deverá ser correspondente ao registro do mes correto, ou seja, na tabela, os campos do registro sao: Mes e Total,
se Mes é Fevereiro12, o valor de Total que seria retirado seria o valor desse registro.
o valor final desse calculo ( hi / Total de Fevereiro2012 ) será mostrado na caixa de texto "meta_valor".


Download do sistema

http://www.4shared.com/rar/m2cVTUG9/Controle_da_Manuteno_dos_Vecul.html?

Estrutura da combobox

Private Sub lista_meses_AfterUpdate()
'Variáveis da fórmula
Dim ca As String
Dim hi As String

ca = DCount("*", "t_carros")
hi = (8 * 30 * ca)

'Aplicação da formula

Dim db As DAO.Database
Dim rs As DAO.Recordset
Set db = CurrentDb
Set rs = db.OpenRecordset("t_total_mes")

Select Case lista_meses
Case Is = "Janeiro 2012"
Me.meta_valor = hi / rs!Total
Case Is = "Fevereiro 2012"
Me.meta_valor = hi /
Case Is = "Março 2012"
Me.meta_valor = hi /
Case Is = "Abril 2012"
Me.meta_valor = hi /
Case Is = "Maio 2012"
Me.meta_valor = hi /
Case Is = "Junho 2012"
Me.meta_valor = hi /
Case Is = "Julho 2012"
Me.meta_valor = hi /
Case Is = "Agosto 2012"
Me.meta_valor = hi /
Case Is = "Setembro 2012"
Me.meta_valor = hi /
Case Is = "Outubro 2012"
Me.meta_valor = hi /
Case Is = "Novembro 2012"
Me.meta_valor = hi /
Case Is = "Dezembro 2012"
Me.meta_valor = hi /
Case Else
Me.meta_valor = ""
End Select
End Sub

Bom dia GbCorrea, seja bem vindo ao Fórum...

Para isto não é necessário a utilização de um procedimento recordset, podes utilizar o Dlookup....

Se na sua tabela tiver o campo com o mes da forma como está no case podes tentar assim:

Select Case lista_meses
Case Is = "Janeiro 2012"
Me.meta_valor = hi / Dlookup("CpdoCalculo","NomeDaTabela","CampoMes = '" & Me.SuaCombo.Value & "'")

Algo por ai

Cumprimentos.