Boa noite a todos.

 Mais uma vez  estou precisando de uma ajudinha dos nobres amigos.

tenho uma tb_vendas a qual a cada venda feita tem q ser salva onde codigomerc = codigo da mercadoria, data , valorvenda, quantidade.

so que eu preciso q verifique se existe o codigomerc se sim verifica se a data é a mesma, caso seja so atualiza a venda caso contrario salve o novo registr

ate ai tudo bem so q quando faz uma coisa nao faz outra.

o q esta errado sou principiante

    

Public Function Tratar()

 

  Tbv.Filter = "CODIGOMERC = '" & Txt_CodigoProduto.Text & "'"

   If Tbv.RecordCount = 1 Then

   If Txt_CodigoProduto.Text = Tbv!CODIGOMERC Then

   Tratar = True

   Else

   Tratar = False

  End If

  End If

End Function

 

Public Function Ver()

Ver = False

 Tbv.Filter = "DATA = '" & Mk_data.Text & "'"

   If Tbv.RecordCount = 1 Then

    If Mk_data.Text = Tbv!Data Then

    Ver = True

     Else

     Ver = False

    End If

    End If

   

End Function

Public Function Confirma()

Select Case Ver

      Case Ver = True

         If Tratar & Ver = True Then

             Atualiza_TBV

             MsgBox "VER E TRATAR E = TRUE"

             Else

             Salvar

             MsgBox "UM É FALSE "

            End If

        Case Else

         Salvar

         MsgBox "VER É FALSE"

          End Select

                

End Function