Boa noite a todos os amigos do VBWEB.
Alguem pode me dar uma fora, esse é o meu primeiro progaminha, e nao consigo fazer reconhecer a data ex.
se o Tb_codigo = Txt_codigo.text e a Tb_data = txt_data.text
atualiza
se Tb_codigo <> ou txt_codigo.text ou Tb_data <> txt_data.text
salva
Estou usando o Bd fireBoard.
acontece o seguite sempre salva um novo registro, e o certo seria atualizar, salvar só quando for uma vova data ou uma mercadoria ainda nao vendida no dia. como resolver isso?
End Function
Public Function Tratar()
Tratar = False
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
Else
Salvar
End If
Case Else
Salvar
End Select
End Function
