- 04 Abr 2018 às 14:58
#31704
Olá amigo
Você pode por favor me ajudar nisso?
Microsoft Excel VBA
Na UserForm1 eu tenho uma MultiPage.
Page 1 = CustomerInformataionPage, contém:
Caixa de texto com dados do cliente e evento.
Caixa de combinação com tipo de serviço.
DTPickerStart e DTPickerEnd.
ListViewSearch
========= XXX =========
Page2 = InvoiceDescription, contendo:
6 Caixas de Texto para descrever o tipo de trabalho realizado.
1 caixa de texto para comentários.
Botões:
Salvar / Novo - UpDate - ClearForm - Search.
O código acima envia as informações para a planilha.
============== xxx ===========
Ao fazer a pesquisa com o CURSOR na Page1 = CustomerInformataionPage
as informações aparecem no listView e com um duplo clique na linha desejada
todos os objetos estão preenchidos corretamente.
ATÉ AQUI FUNCIONA PERFEITAMENTE.
============== xxx ===========
Começo do problema.
1. Ao fazer a alteração na Page1 = CustomerInformataionPage
e sem sair da Page1. Quando clico no botão UpDate, o
DTPickerStart e DTPickerEnd, altera para a data atual.
2. Clicando na Page2 = InvoiceDescription ou em qualquer outra Page
DTPickerStart e DTPickerEnd, altera a data para 30/12/1899
muito obrigado pelo seu tempo.
Você pode por favor me ajudar nisso?
Microsoft Excel VBA
Na UserForm1 eu tenho uma MultiPage.
Page 1 = CustomerInformataionPage, contém:
Caixa de texto com dados do cliente e evento.
Caixa de combinação com tipo de serviço.
DTPickerStart e DTPickerEnd.
ListViewSearch
========= XXX =========
Page2 = InvoiceDescription, contendo:
6 Caixas de Texto para descrever o tipo de trabalho realizado.
1 caixa de texto para comentários.
Botões:
Salvar / Novo - UpDate - ClearForm - Search.
O código acima envia as informações para a planilha.
============== xxx ===========
Ao fazer a pesquisa com o CURSOR na Page1 = CustomerInformataionPage
as informações aparecem no listView e com um duplo clique na linha desejada
todos os objetos estão preenchidos corretamente.
ATÉ AQUI FUNCIONA PERFEITAMENTE.
============== xxx ===========
Começo do problema.
1. Ao fazer a alteração na Page1 = CustomerInformataionPage
e sem sair da Page1. Quando clico no botão UpDate, o
DTPickerStart e DTPickerEnd, altera para a data atual.
2. Clicando na Page2 = InvoiceDescription ou em qualquer outra Page
DTPickerStart e DTPickerEnd, altera a data para 30/12/1899
muito obrigado pelo seu tempo.
