Tomás Vásquez Fórum

Reinaldo

Para constar, da maneira que esta a rotina informada. Como a célula/coluna inicial (activeCell) continua fixa em A2 ("Range("A2").Select"); todo deslocamento (Offset) tem como base essa referencia. ocorrem nas colunas: 'ATUALIZA OS DADOS ActiveCell.Offset(0, 0).Value = caixa_prontuario4 'Atualiza Co...

Reinaldo

Uma possibilidade: Private Sub CommandButton1_Click() Dim data_ini As String Dim data_fin As String Dim Fornec As String If TextBox1.Text <> "" Then data_ini = Format(TextBox1, "mm/dd/yyyy") Else data_ini = Format("01/01/1900", "mm/dd/yyyy") End If If TextBox1.Text <> "" Then data_fin = Format(TextB...

Reinaldo

Não entendi o objetivo da Sub Exames; principalmente o trecho abaixo que se repete varias vezes For COLUNA = 17 To 40 Next COLUN Pode fornecer maiores detalhes e em que tabela do access espera/precisa/deseja ter algo similar "...quero entender se ela abre... Veja se os comentários ajudam Sub fncMain...

Reinaldo

"...como consigo colocar formula na coluna do access de modo..." Há na definição de tipo do campo na tabela access (modo design) onde define texto/numero... um tipo considerado "Calculado", que ao ser selecionado abre o construtor de expressões. Nota: Usualmente não é recomendado incluir campo calcu...

Reinaldo

"...com banco de dados fechado..." Como sua rotina e bem segmentada, ao efetuar as checagens diversas a conexão com o BD e aberta e fechada constantemente. Em uma das sub rotinas o BD e fechado e retorna para a rotina inicial para fechar o bd, gerando o erro. Não pude precisar exatamente o ponto, po...

Reinaldo

Por favor, evite escrever tudo em maiúsculo, nos fóruns/internet representa estar gritando mesmo sendo verdade :mrgreen:), ou que não é legal. :D "...mas está dando os seguintes erros..." Ao utilizar o Access (ou outro banco ) é preciso alguns cuidados. O principal é: O banco somente irá aceitar inc...

Reinaldo

Na rotina acima não é indicado como é obtido o valor da Variável Vencimento? Assim fica dificil entender o que ocorre.
Mas tentemos supondo que a origem seja planilha coluna "A"
Veja no anexo a coluna B o retorno

Reinaldo

Apesar do modelo cadastro ser muito bom e ter sido adaptado para uma infinidade de utilizações, o uso do mesmo (ou suas adaptações) em um ambiente multiusuário, eu particularmente, não vejo nenhum "Pro" .O sistema de "Trabalho em compartilhamento" do Excel deixa muito a desejar, e como o colega Tov ...

Reinaldo

Algum motivo especifico para utilizar DataDiff? Pelo exposto a simples diferença de data, aparentemente, atende Supondo que o comparativo seja Vencimento vx Data de Hoje; teremos Algo +/- assim: =SE(DataVencimento-DataHoje>15;"No Prazo";SE(E(DataVencimento-DataHoje>0;DataVencimento-DataHoje<16);"Fal...

Reinaldo

Pela configuração desse campo em seu projeto.
No Editor VBE, Selecione o TxtLevel, vá na janela Propriedades e procure por PasswordChar; está "="
Se quiser ver o valor deixe sem nada

Pesquisa resultou em 1189 ocorrências

Re: Atualizar célula já Cadastrada após a coluna Z

Re: Filtro Avançado com VBA

Re: modelos de sistema - gestão de clinica.

Re: modelos de sistema - gestão de clinica.

Re: modelos de sistema - gestão de clinica.

Re: modelos de sistema - gestão de clinica.

Re: Regra DataDiff

Re: modelos de sistema - gestão de clinica.

Re: Regra DataDiff

Re: Textbox procurarando valor errado no arquivo TXT