Ir ao conteúdo

Posts recomendados

Postado

olá... beleza pessoal?!?!?! posso contar com a preciosa ajuda de vcs????

tenho um form com botao excluir que preciso adaptar uma condicao comparando datas e somar qtd de dias  para definir o criterio de exclusao:

garantia de 90 dias dos produtos vendidos;

preciso de excluir todos os produtos(registros) do listbox/planilha que ultrapassaram a data da venda + 90 dias, ou seja:

textboxdtVenda (dt da venda) + 90 > label_dtAtual (hoje) =  exclur

lembrando que a textbox_dtVenda tmb recebe valor vazio("") ate que ocorra o fato da venda do produto; a label_dtAtual ta no inicialize...

tentei fazer com until, while, mas nao consegui fazer rodar dejeito nenhum!

segue codigo atual:

Public geral As ListObject
Public registros As ListRow
Private Sub CommandButton_Excluir_Click()
If EnableEvents = False Then Exit Sub
Call desproteger
Set registros = geral.ListRows(Me.ListBoxTabGeral.ListIndex + 1)
    If Me.TextBoxDtVenda = "" Then
        MsgBox "Disponível. Venda não concretizada!", vbCritical, "Atenção!!!"
        Me.ListBoxTabGeral.ListIndex = -1
        Exit Sub
        End If
Dim resp As Integer
resp = MsgBox("Confirma a exclusão:  " & UCase(TextBoxVeiculo.Value) & "_" & UCase(TextBoxAno.Value) & "_" & UCase(TextBoxPlaca.Value), vbYesNo, "Excluir!")
If resp = vbYes Then
    registros.Delete
End If
If resp = vbNo Then
    Exit Sub
End If
  Me.ListBoxTabGeral.ListIndex = -1
  Call limparCampos
  Set geral = Plan1.ListObjects("TabGeral")
Call proteger
End Sub

 

Crie uma conta ou entre para comentar

Você precisa ser um usuário para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...

LANÇAMENTO!

eletronica2025-popup.jpg


CLIQUE AQUI E BAIXE AGORA MESMO!