seek com 2 criterios

Boa tarde!
como escrevo a funçao para buscar um seek com 2 criterios?
Private Sub cmdGravar_Click()
   Dim db As DAO.Database
   Dim rs As DAO.Recordset
Set db = CurrentDb
Set rs = OpenForSeek("TBSALDO")
rs.Index = "IDIDENT"
rs.Seek "=", ([TXANO], [TXMES])
Dim F As Variant
F = DMax("IDENT", "TBSALDO")
If IsNull(F) Then F = 0
If Not rs.NoMatch Then
rs.Edit
rs("MES") = rs("MES")
rs("ANO") = Me.ANO
rs("BANCO") = 1
rs("VALOR") = Saldobanco + Texto23
rs.Update
MsgBox " ATUALIZADO"
Else
rs("IDENT") = (F + 1)
rs("MES") = Me.MES
rs("ANO") = Me.ANO
rs("BANCO") = 1
rs("VALOR") = Saldobanco + Texto23

rs.Update
MsgBox "LANÇADO!"
End If
End Sub
rs.Seek "=", [TXANO], [TXMES] <== esssa linha esta dando erro
se eu coloco somente um criterio no caso (txano), o codigo funciona, mas se ponho 2 criterios , que e o que preciso da erro.

Att Ney Santos

Boa noite Ney!

Teste o código desta forma:

Código:



Private Sub cmdGravar_Click()
  Dim db As DAO.Database
  Dim rs As DAO.Recordset
 
  Set db = CurrentDb
  Set rs = OpenForSeek("TBSALDO")
  rs.Index = "IDIDENT"
 
  'Criar a string com a condição de pesquisa usando Concatenate
  Dim searchCondition As String
  searchCondition = "=" & Me.TXANO & " AND MES = " & Me.TXMES
 
  rs.Seek searchCondition
 
  Dim F As Variant
  F = DMax("IDENT", "TBSALDO")
 
  If IsNull(F) Then F = 0
 
  If Not rs.NoMatch Then
      rs.Edit
      rs("MES") = rs("MES")
      rs("ANO") = Me.ANO
      rs("BANCO") = 1
      rs("VALOR") = Saldobanco + Texto23
      rs.Update
      MsgBox "ATUALIZADO"
  Else
      rs("IDENT") = (F + 1)
      rs("MES") = Me.MES
      rs("ANO") = Me.ANO
      rs("BANCO") = 1
      rs("VALOR") = Saldobanco + Texto23
      rs.Update
      MsgBox "LANÇADO!"
  End If
End Sub




Prezadp Adriano, obrigado por se manifestar; infelismente nao funcionou da o erro 3421.
Vou explicar melhor:
Tenho duas tabelas
uma e o moviomento e outra guarda o saldo.
oque preciso e ao filtrar o ano e o mes me seja mostrado o saldo ref ao mes anterir, para que apos novos lançamentos seja atualizados.
vou anexar parte do bd para ver se fica mais facil a compreesão

Opa! Tentou já usando uma instrução sql? Eu fiz um exemplo aqui, mas como não estou com todos objetos envolvidos, você pode testar aí:

Código:


Dim db As DAO.Database
Dim rs As DAO.Recordset

Set db = CurrentDb
Set rs = OpenForSeek("TBSALDO")
rs.Index = "IDIDENT"

' Criar a string com a condição de pesquisa usando Concatenate
Dim searchCondition As String
searchCondition = "= " & Me.TXANO & " AND MES = " & Me.TXMES

rs.Seek searchCondition

Dim F As Variant
F = DMax("IDENT", "TBSALDO")

If IsNull(F) Then F = 0

If Not rs.NoMatch Then
    db.Execute "UPDATE TBSALDO SET ANO = " & Me.ANO & ", BANCO = 1, VALOR = " & Saldobanco + Texto23 & " WHERE IDENT = " & rs("IDENT").Value
    MsgBox "ATUALIZADO"
Else
    db.Execute "INSERT INTO TBSALDO (IDENT, MES, ANO, BANCO, VALOR) VALUES (" & F + 1 & ", " & Me.MES & ", " & Me.ANO & ", 1, " & Saldobanco + Texto23 & ")"
    MsgBox "LANÇADO!"
End If



da erro 3421

up