Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Como manter o campo...
 
Notifications
Clear all

Como manter o campo Data de Pagamento null

 
2024 - VBA & Macros
Post Recente por Fernandox 6 anos atrás
6 Posts
3 Usuários
0 Reactions
1,708 Visualizações
RSS
 Fernandox
(@fernandox)
Posts: 68
Trusted Member
Topic starter
 

Ola Pessoal, deparei com um pequeno problema, quando efetuado o lançamento do contas a receber é inserido a Data de Emissão, Data de Vencimento e a data de Pagamento deixo em branco, para quando ocorrer o pgamento possa ser preenchido, gostaria de saber como devo deixar o campo data de pagamento em null pois quando gero algum relatorio esta gerando no campo data de pagamento 00/01/1900, grato a quem puder ajudar, abraço

  'Data Pagamento
     W_WSSort.Cells(W_LinTab, 10).Copy Destination:=W_WSRel.Cells(W_LinRel, 8)
     W_WSRel.Cells(W_LinRel, 8).HorizontalAlignment = xlLeft
     W_WSRel.Cells(W_LinRel, 8).ColumnWidth = 10

W_lintab, 10 - localização do campo dataPagamento na tabela
Na tabela esta tudo em branco, apenas esta apresentando esta data 00/01/1900 no relatorio conforme o código acima descrito. Não vou poder enviar o código completo pois é da empresa na qual estou trabalhando, grato

 
Postado : 28/08/2018 1:48 pm
NERI S
 NERI S
(@neri-s)
Posts: 0
Estimable Member
 

Fernandox
Eu uso assim e funciona.

Para Salvar:

Private Sub SalvaRegistro(ByVal id As Long, ByVal indice As Long)
        If txtdata.Value = "" Then
            .Cells(indice, colData).Value = Date
        Else: .Cells(indice, colData).Value = CDate(Me.txtdata.Text)
        End If

Para o relatório em listview uso:

          If IsNull(rst.Fields(2).Value) Then
            li.ListSubItems.Add Text:=""
          Else
            li.ListSubItems.Add Text:=rst.Fields(2).Value
          End If

Veja se serve este comando.

 
Postado : 28/08/2018 3:21 pm
Wagner Morel
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

NERI S,

Boa noite!

Pedimos, por gentileza, ao postar código VBA, utilizar a ferramenta CODE existente logo acima da caixa de mensagens (quinto botão da esquerda para a direita).

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 28/08/2018 3:41 pm
NERI S
 NERI S
(@neri-s)
Posts: 0
Estimable Member
 

Wagner
desculpe... realmente errei postando daquela forma. Eu andei meio afastado e esqueci...mas alterei.
Obrigado por lembrar (novamente).

Tentei ajudar o nosso amigo e estava na corrida... mas sem desculpes (kkk). Ajustei.

 
Postado : 28/08/2018 4:06 pm
Wagner Morel
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

Valeu NERI S!

Obrigado.

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 29/08/2018 9:21 am
 Fernandox
(@fernandox)
Posts: 68
Trusted Member
Topic starter
 

Ola Neri, fico grato pelo envio do código, foi satisfatório e resolveu minha dúvida, abraço
Meu código abaixo

  'Data Pagamento
     If IsNull(W_WSSort.Cells(W_LinTab, 10).Value) Then
            W_WSRel.Cells(W_LinRel, 8) = " "
     End If
 
Postado : 29/08/2018 1:25 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico