USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  selecionar dois campos
Jbr
RIBEIRÃO DAS NEVES
MG - BRASIL
ENUNCIADA !
Postada em 23/05/2009 20:38 hs            
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

   
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página