[Resolvido]Usar IF em formulário para multiplicação

Formulário:

Campo1: txt_TipoCobranca
Campo2: txt_DataInicial
Campo3: txt_DataFinal
Campo4: txt_DiasTotal (txt_DataFinal-txt_DataInicial)
Campo5: txt_SubTotal

Coloquei no evento "após atualizar" do campo txt_DataFinal o seguinte código:
Private Sub DataFinal_AfterUpdate()
'respostas possíveis para txt_TipoCobranca = "Diária";"Semana";"Quinzena";"Mensal";"Bimestral";"Trimestral";"Quadrimestral";"Semestre";"Anual"
If txt_TipoCobranca = "Diária" Then
Me.txt_SubTotal.Value = Me.txt_TotalDias * Me.txt_Custo
ElseIf txt_TipoCobranca = "Semana" Then
Me.txt_SubTotal.Value = Me.txt_TotalDias / 7 * Me.txt_Custo
ElseIf txt_TipoCobranca = "Mensal" Then
Me.txt_SubTotal.Value = Me.txt_TotalDias / 30 * Me.txt_Custo
ElseIf txt_TipoCobranca = "Bimestral" Then
Me.txt_SubTotal.Value = Me.txt_TotalDias / 60 * Me.txt_Custo
ElseIf txt_TipoCobranca = "Trimestral" Then
Me.txt_SubTotal.Value = Me.txt_TotalDias / 90 * Me.txt_Custo
ElseIf txt_TipoCobranca = "Quadrimestral" Then
Me.txt_SubTotal.Value = Me.txt_TotalDias / 120 * Me.txt_Custo
ElseIf txt_TipoCobranca = "Semestre" Then
Me.txt_SubTotal.Value = Me.txt_TotalDias / 180 * Me.txt_Custo
ElseIf txt_TipoCobranca = "Anual" Then
Me.txt_SubTotal.Value = Me.txt_TotalDias / 360 * Me.txt_Custo
End If

End Sub

Meu problema ele só faz a conta na primeira linha do formulário contínuo.

Para fazer o que pretende teria que usar dlookup e VBA é bastante complexo eu prefiro resolver este problema desta forma criei uma tabela com nome de TipoCobranca_tbl com os campos :

id_TipoCobranca (Numeração Automática / chave primária )
Tipo ( Diária,Semanal,Quinzenal,Mensal , etc...)
Fator ( 1 , 7 , 15 , 30 , etc...)

Sendo assim :

Lá no formulário no CampoSubTotal fica Assim :

=[DiasTotal]/[Fator]*[Custo]












"https://www.maximoaccess.com/t1533-funcao-dlookup-explicacao"

Olá!

Uma outra opção é usar o SELECT

Private Sub DataFinal_AfterUpdate()
Dim k%
Select Case Me.txt_TipoCobranca
   Case "Diária" : k = 1
   Case "Semana" : k = 7
   Case "Quinzena" : k = 15
   Case "Mensal" : k = 30
   Case "Bimestral" : k = 60
   Case "Trimestral" : k = 90
   Case "Quadrimestral" : k = 120
   Case "Semestre" : k = 180
   Case "Anual" : k = 360
End Select
Me.txt_SubTotal.Value = Me.txt_TotalDias / k * Me.txt_Custo
End sub

Sucesso!

Problema resolvido!

Fiquei na dúvida qual exemplo usou , como não poderia deixar de aprender com Mestre Avelino testei o exemplo dele e não funcionou justamente por quê repetia todos o mesmo valor em todas as linhas em se tratando de formulário contínuo. Então lembrei de um exemplo do Mestre Dilson e segue ai o exemplo unindo os dois códigos e funcional . Access 2010 / Windows 7 32 Bits.