Ir para conteúdo
Fórum Script Brasil

Alexandre Neves

Membros
 Perfil  Explorar Conteúdo

  • Total de itens

    168

  • Registro em

  • Última visita

 Tipo de Conteúdo 

Posts postados por Alexandre Neves

  5. (Resolvido) Dúvidas para Profissionais - Importação TXT via VBA

    em Access

    Postado

    Bom dia, Andrezosa

    A tabela TBL_TEMP deve ter todos os registos existentes com o campo KEY preenchido.

    Ultize o seguinte código que funcionará:

    Option Compare Database
Option Explicit


Private Sub Comando0_Click()
On Error GoTo msg_erro
Dim InputDir, ImportFile As String, Base_Name As String

InputDir = "C:\BASES_IMPLANTACAO" 'Diretório Origem dos Arquivos'
ImportFile = Dir(InputDir & "\*.txt") 'Selecionar todos arquivos texto'

Do While Len(ImportFile) > 0

Base_Name = Left(ImportFile, (InStr(1, ImportFile, ".") - 1)) 'Identificar o nome do arquivo implantado'
DoCmd.TransferText acImportDelim, "LAYOUT", "TBL_TEMP", ImportFile 'Comando p/ import. Lay-out pré-definido, Tabela Final - TBL_TEMP'

ImportFile = Dir
CurrentDb.Execute "UPDATE TBL_TEMP SET KEY='" & Base_Name &"' WHERE IsNull(KEY) or KEY='';"
Loop
Exit Sub

msg_erro:
MsgBox Err.Description

End Sub

  9. Relatório autonumerado

    em Access

    Postado

    Crie uma tabela com registo de impressão do relatório.

    Tipo: Tabela Impressao, campo NomeRelatorio (texto,50), campo DataImpresso (Data), Impressao (Número inteiro)

    Ao formatar o relatório, incremente o número da impressão e passe esse número para a numeração do relatório

  10. (Resolvido) Ajuda com Update e Delete

    em Access

    Postado

    Boa noite, beer

    Para UPDATE pode utilizar duas variantes:

    1 - Tem valores para actualizar em cada campo

    - Parece-me ser o seu caso, assim utilize

    UPDATE SuaTabela SET Campo1=1234, Campo2='MeuNome', DataRegisto=#8-13-2009# [WHERE Condições];

    2 - Actualiza os campos com valores doutros campos obedecendo determinados critérios

    UPDATE Tabela1 LEFT JOIN Tabela2 ON Tabela1.CampoX=Tabela2.CampoY SET Tabela1.CampoTal=Tabela2.CampoTal, Tabela2.CampoA=Tabela1.CampoA;

    Para eliminar:

    DELETE * FROM SuaTabela WHERE Campo1='MeuNome' and DataRegisto=#8-13-2009#

  17. (Resolvido) Soma com arredondamento

    em Access

    Postado

    Boa noite, Carlos

    Não dá elementos para saber o que pretende.

    Suponhamos que tem uma caixa de texto (TxtMedia) para mostrar a média de 4 disciplinas (TxtDisciplina1, TxtDisciplina2,TxtDisciplina3 e TxtDisciplina4).

    Coloque num módulo a função que lhe forneci guarde o módulo

    Na caixa de texto TxtMedia, no acontecimento Ao Sair, coloque o seguinte código:

    TxtMedia=ArredondaMedia(TxtDisciplina1,TxtDisciplina2,Disciplina3,Disciplina4)

    Se não isto, dê elementos

  20. (Resolvido) Soma com arredondamento

    em Access

    Postado

    Boa noite, Carlos

    Utilize

    Function ArredondaMedia(Valor1 As Double, Valor2 As Double, Valor3 As Double, Valor4 As Double) As Integer
    'criada por Alexandre Neves
    'em 2009-07-28
    'para Carlos Pontes
    'do fórum ScriptBrasil
    If (Valor1 + Valor2 + Valor3 + Valor4) / 4 = CInt((Valor1 + Valor2 + Valor3 + Valor4) / 4) Then
        ArredondaMedia = (Valor1 + Valor2 + Valor3 + Valor4) / 4
    Else
        ArredondaMedia = CInt((Valor1 + Valor2 + Valor3 + Valor4) / 4) + 1
    End If
End Function

×
×
  • Criar Novo...