[Resolvido]Soma de campo

Então habitantes da selva, não consegui encontrar algo sobre minha intenção;

No formulário frmDiarias, apos inserir da data, funcionário, destino, data saida, data retorno e marcar Detalhamento, abre o outro formulário onde após preencher os campos Data, HSaida, HRetorno, ele calcula o valor (campo txtValor, vinculado ao campo [Valor] da tabela temporária tblDiaTemp).

Então caso eu informe no frmDiarias a saida 01/06/2023 e o retorno 02/06/2023, no formulario frmHist deverei preencher duas linhas mas, independente a quantidade de linhas, a intenção é de colocar um campo total a receber no rodapé que deverá somar (no formulário) o os valores do campo txtvalor.

no evento no atual do frmHist

Me.ttGeral = DSum("Valor", "qryHAdia")

Obrigaduuuu.

Boa tarde,

Estou com uma dificuldade. Tenho um formulário que eu totalizo no controle com a seguinte função:

=Nz(Soma(SeImed([me]="USD" E [cpo_localitem]="F";[TotalC];0));0) funciona perfeitamente.

O que preciso e não consigo achar a solução é trocar "USD" por um controle que será varíavel.

o controle "rotME1" receberá vários valores tipo USD, EUR, BRL que são as siglas das moedas de uma cotação. Dessa forma preciso algo do tipo:

=Nz(Soma(SeImed([me]=rotME1 E [cpo_localitem]="F";[TotalC];0));0) (Já coloquei o nome do controle entre ' ', "", (), [] e nada.

Agradeço a ajuda.

Posta seu banco de dados

O primeiro controle assinado recebe os simbolos das moedas, USD, EUR, BRL que está nomeado de "rotMe1".

Já conferi e o controle "rotME1" recebe corretamente, por exemplo "USD". Controle a direita é o campo de soma que quero baseado no critério "USD"

Nos controles acima do assinalado eu consigo fazer esta soma, conforme citei na mensagem anterior, dando o valor "USD" direto na formula do controle. Mas quero referenciar o "rotME1"

Motivo da alteração:
Anteriormente conforme pode ser visto, eu tinha soma do formulário apenas para 3 moedas: USD, EUR e BRL. Mas agora me vejo obrigado a alterar de forma que eu tenha a totalização de qualquer moeda que tenha na minha cotação. Para fazer isso eu fiz:

i = 0
BuscaME = "SELECT [Cotacao Compra].NumCotacao, [Cotacao Compra].ME " & _
"FROM [Cotacao Compra] " & _
"GROUP BY [Cotacao Compra].ME, [Cotacao Compra].Numcotacao " & _
"HAVING [Cotacao Compra].numcotacao='" & Me.NumCotacao & "'"
Set DB = CurrentDb()
Set RSme = DB.OpenRecordset(BuscaME)
RSme.FindFirst "[numcotacao]='" & Me.NumCotacao & "'"
Do While Not RSme.NoMatch
MEcot(i) = RSme!ME
RSme.FindNext "[numcotacao]='" & Me.NumCotacao & "'"
i = i + 1
Loop
For j = 0 To i - 1
If j = 0 Then Me.rotme1 = MEcot(0)
If j = 1 Then Me.rotme2 = MEcot(1)
If j = 2 Then Me.rotme3 = MEcot(2)
Next

Desde já agradeço.

Tela anexada

Esses é o subform.

Achei uma solução, não sei se é a melhor.

Ao invés de fazer a soma no controle do subformulário, fiz a soma no procedimento CURRENT do FORM. Não acho que seja o ideal porque o subformulario já estava traz os dados do "numcotacao" e no procedimento abaixo eu percorro toda a tabela "cotacao compra" para fazer a soma. Aceito sugestões.

Private Sub Form_Current()
Dim DB As dao.Database
Dim RSme As dao.Recordset
Dim BuscaME As String
Dim MEcot(3) As String
Dim i, j As Integer
On Error GoTo info
i = 0
BuscaME = "SELECT [Cotacao Compra].NumCotacao, [Cotacao Compra].ME " & _
"FROM [Cotacao Compra] " & _
"GROUP BY [Cotacao Compra].ME, [Cotacao Compra].Numcotacao " & _
"HAVING [Cotacao Compra].numcotacao='" & Me.NumCotacao & "'"
Set DB = CurrentDb()
Set RSme = DB.OpenRecordset(BuscaME)
RSme.FindFirst "[numcotacao]='" & Me.NumCotacao & "'"
Do While Not RSme.NoMatch
MEcot(i) = RSme!ME
RSme.FindNext "[numcotacao]='" & Me.NumCotacao & "'"
i = i + 1
Loop
For j = 0 To i - 1
If j = 0 Then Me.rotme1 = MEcot(0)
If j = 1 Then Me.rotme2 = MEcot(1)
If j = 2 Then Me.rotme3 = MEcot(2)
Next
Me.txtCompFme1 = DSum("[totalc]", "cotacao compra", "[me]='" & Me.rotme1 & "' AND [cpo_localitem] ='F' AND [numcotacao]='" & Me.NumCotacao & "'")
Me.txtCompFme2 = DSum("[totalc]", "cotacao compra", "[me]='" & Me.rotme2 & "' AND [cpo_localitem] ='F' AND [numcotacao]='" & Me.NumCotacao & "'")
Me.txtCompFme3 = DSum("[totalc]", "cotacao compra", "[me]='" & Me.rotme3 & "' AND [cpo_localitem] ='F' AND [numcotacao]='" & Me.NumCotacao & "'")
Me.txtCompOme1 = DSum("[totalc]", "cotacao compra", "[me]='" & Me.rotme1 & "' AND [cpo_localitem] ='O' AND [numcotacao]='" & Me.NumCotacao & "'")
Me.txtCompOme2 = DSum("[totalc]", "cotacao compra", "[me]='" & Me.rotme2 & "' AND [cpo_localitem] ='O' AND [numcotacao]='" & Me.NumCotacao & "'")
Me.txtCompOme3 = DSum("[totalc]", "cotacao compra", "[me]='" & Me.rotme3 & "' AND [cpo_localitem] ='O' AND [numcotacao]='" & Me.NumCotacao & "'")
Me.txtCompDme1 = DSum("[totalc]", "cotacao compra", "[me]='" & Me.rotme1 & "' AND [cpo_localitem] ='D' AND [numcotacao]='" & Me.NumCotacao & "'")
Me.txtCompDme2 = DSum("[totalc]", "cotacao compra", "[me]='" & Me.rotme2 & "' AND [cpo_localitem] ='D' AND [numcotacao]='" & Me.NumCotacao & "'")
Me.txtCompDme3 = DSum("[totalc]", "cotacao compra", "[me]='" & Me.rotme3 & "' AND [cpo_localitem] ='D' AND [numcotacao]='" & Me.NumCotacao & "'")
Me.txtCompPme1 = DSum("[totalc]", "cotacao compra", "[me]='" & Me.rotme1 & "' AND [cpo_localitem] ='P' AND [numcotacao]='" & Me.NumCotacao & "'")
Me.txtCompPme2 = DSum("[totalc]", "cotacao compra", "[me]='" & Me.rotme2 & "' AND [cpo_localitem] ='P' AND [numcotacao]='" & Me.NumCotacao & "'")
Me.txtCompPme3 = DSum("[totalc]", "cotacao compra", "[me]='" & Me.rotme3 & "' AND [cpo_localitem] ='P' AND [numcotacao]='" & Me.NumCotacao & "'")
Set DB = Nothing
Set RSme = Nothing
Exit Sub
info:
MsgBox Err.Number & Chr(13) & Err.Description
End Sub