Ir para conteúdo
Fórum Script Brasil

wanderleyalves

Membros
  • Total de itens

    4
  • Registro em

  • Última visita

Sobre wanderleyalves

  • Data de Nascimento 01/09/1988

Perfil

  • Gender
    Male

wanderleyalves's Achievements

0

Reputação

  1. Olá, alguém tem um script php que busca um arquivo pdf em um diretório especifico, tenho uma tela de login com CPF e Senha, gostaria que na hora que o cliente fizesse o login já mostrasse os arquivos que contenha o cpf no nome do arquivo, exemplo: Nomedodocumento_CPF.pdf (Contrato_12345678901.pdf), lembrando que irei fazer o upload dos arquivos pra pasta via ftp, não e necessário tela de upload. Este script abaixo mostra o resultado de uma busca comum (com formulário) mais assim qualquer um pode buscar qualquer arquivo no diretório, e não quero isso. <?php $arquivo = $_POST['arquivo']; $nome = "$arquivo"; $dir = 'documentos/'; $arquivos_pattern = glob($dir . $nome . "*.*"); $i = 0; if($arquivos_pattern !== false) { foreach($arquivos_pattern as $arquivo) { echo "<a href=\"".$arquivo."\">" . basename($arquivo) . "</a><br />"; $i++; } echo $i > 0 ? "<br>" : NULL; } echo $nome_user; echo ", foram encontrados <strong>".$i."</strong> registros clique no link para imprimir"; ?>
  2. Resolvido!!! O amigo Agostinho o fera do VB ajudou por e-mail e vou postar a solução para os amigos que tiverem o mesmo problema Na TextBox Data de Nascimento (TextBox31) ele uso o seguinte código que carrega os dados pra TextBox4. Private Sub TextBox31_LostFocus() Dim hoje As Date Dim dataNascimento As String On Error GoTo trataerro hoje = Format(Now, "yyyy") dataNascimento = TextBox31 dataNascimento = Right$(dataNascimento, 4) TextBox4.Text = hoje - CDate(dataNascimento) Exit Sub trataerro: MsgBox "Data Inválida" End Sub ______________________________________________________________________ Private Sub TextBox4_Change() End Sub Talvez o amigo Agostinho possa postar um comentário explicando o código melhor. mais o que realmente importa e que ajudou d+. Obrigado...
  3. Agostinho seguinte, quando clico no campo Data de Nascimento (DN) tipo DTPicker e escolho uma data, o campo idade aparecerá a idade completa do paciente, favor desconsiderar os meses que citei no post anterior. segue link do print http://www.grupoelite.net.br/print.png
  4. Olá Amigos sou novo por aqui e venho pedir ajuda dos cérebros amigos, estou criando um formulário para atendimento clinico nutricional para minha esposa e como não sei nada de VBA, gostaria que me ajudassem a obter a idade e meses usando o DTPicker ou outro, vou postar o código talvez fique mais fácil entender, lembrado que o resultado deve aparecer na TextBox4. Private Sub ComboBox1_DropButtonClick() ComboBox1.List = Array("Masculino", "Feminino", "Indefinido") End Sub Private Sub DTPicker1_CallbackKeyDown(ByVal KeyCode As Integer, ByVal Shift As Integer, ByVal CallbackField As String, CallbackDate As Date) End Sub Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) KeyAscii = Asc(UCase(Chr(KeyAscii))) End Sub Private Sub TextBox4_Change() End Sub Private Sub TextBox7_Change() End Sub Private Sub TextBox8_Change() End Sub Private Sub TextBox10_Change() End Sub aguardo
×
×
  • Criar Novo...