(Resolvido) Access-VB-FindFirst com duas variáveis

[Welter]

Tenho um postado um tópico sobre o assunto, sem qualquer manifestação, até agora.

Talvez não tenha sido claro ao apresentar o problema.

Na rotina abaixo quero localizar no recordset dytotal campos que contenham, ao mesmo tempo, os dados de Country e BUNit, que coincidam com os existentes em dywork, para editar ou incluir um novo registro, conforme o caso.

Ao promover o FindFirst tenho como resposta "tipos incompatíveis".

Já pesquisei no Google e não encontrei nenhuma resposta que pudesse me ajudar a resolver o problema.

Prece simples, mas estou levando uma bela surra.

Peço, por isso, mais uma vez, ajuda daqueles mais capacitados que eu.

Sub LValor()

Dim banco As DAO.Database
Dim sqrst As String
Dim dywork As Recordset
Dim dytotal As Recordset
Set banco = OpenDatabase("c:\Treport\Treport.mdb")

sqrst = "select * from Work where dat =  #" & cc & "# and LVal<> 0 order by Country "
Set dywork = banco.OpenRecordset("Work", DB_OPEN_DYNASET)
Set dytotal = banco.OpenRecordset("Total", DB_OPEN_DYNASET)

banco.Execute "delete * from Total"


With dywork
Do While Not .EOF
    CDat = dywork("Dat")
    CCountry = dywork("Country")
    CLVal = dywork("LVal")
    CLBUnit = dywork("LBUnit")
    
With dytotal
    dytotal.FindFirst "Country='" & CCountry & "'" And "BUNit= '" & CLBUnit & "'"
    If dytotal.EOF Then
    dytotal.AddNew
        dytotal("dat") = CDat
        dytotal("Country") = CCountry
        dytotal("BUnit") = CLBUnit
        dytotal("val") = CLVal
    dytotal.Update
    Else
        dytotal.Edit
        dytotal("val") = dytotal("val") + CLVal
        dytotal.Update
    End If
    dytotal.MoveFirst
End With
.MoveNext
Loop
End With
End Sub

[Alexandre Neves]

Boa tarde, Welter

A sua explicação está um pouco confusa, mas veja se resolve:

Substitua If dytotal.EOF Then por If dytotal.NoMatch Then

[Welter]

Obrigado pelo seu interesse.

Problema reside exclusivamente na linha do FindFirst.

Ao executar a rotina recebo a mensagem de "tipos incompatíveis" para esta instrução.

Já tentei diversos formatos, porém contiunuo com o problema.

O que há de errado neste código?

dytotal.FindFirst "Country='" & CCountry & "'" And "BUNit= '" & CLBUnit & "'"

[Alexandre Neves]

Novamente

Só agora reparei que incluiu umas aspas pelo meio

Será dytotal.FindFirst "Country='" & CCountry & "' And BUNit= '" & CLBUnit & "'"

Senão,

Se Coutry for texto

dytotal.FindFirst "Country='" & CCountry & "'

Se BUnit for número

" And BUNit=" & CLBUnit

Se BUnit for texto

" And BUNit='" & CLBUnit &"'"

[Welter]

Alexandre,

Funcionou perfeitamente!!!!!!!!

Muito obrigado, mesmo.

Um grande abraço e desejos de paz e sucesso em sua vida.

P.S. - Deixo um agradecimento também àqueles que se interessaram pela mensagem, mesmo sem respondê-la