MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    Importar de Excel e trabalhar parâmetros para banco em Access

    Digaummax
    Digaummax
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 42
    Registrado : 30/06/2012

    Importar de Excel e trabalhar parâmetros para banco em Access Empty Importar de Excel e trabalhar parâmetros para banco em Access

    Mensagem  Digaummax 19/4/2013, 21:27

    Boa tarde!
    Estou com a seguinte duvida.
    Preciso exportar um Excel para o Access, porem desta tabela do Excel eu preciso de somente alguns dados.
    Vamos pensar que já importei ela. Então minha duvida fica o seguinte. Preciso de um comando no Access que pegue apenas uma determinada parte da tabela. Como não coloquei nenhum nome na tabela todos os nomes esta como “ campo”. Ou seja preciso dos dados a partir do campo 6. E a partir da linha 9. A partir disto ele pode deletar essa parte da tabela ou copiar ela para outra. O que seria o essencial era pegar a tabela importada pegar os campos necessários e colocar eles em outra tabela.

    Estou aberto para qualquer tipo de opinião de como resolver esse problema. Seja com uma consulta ou criando alguma rotina para fazer a tratativa de dados.
    Para uma melhor analise estou postando o modelo do Excel que estou importando.
    Enfim, como sempre agradeço desde já.

    Abraço.
    Anexos
    Importar de Excel e trabalhar parâmetros para banco em Access Attachmentreport (5).xlsx
    Você não tem permissão para fazer download dos arquivos anexados.
    (12 Kb) Baixado 21 vez(es)
    Digaummax
    Digaummax
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 42
    Registrado : 30/06/2012

    Importar de Excel e trabalhar parâmetros para banco em Access Empty Re: Importar de Excel e trabalhar parâmetros para banco em Access

    Mensagem  Digaummax 24/4/2013, 14:27

    Bom dia, realizei alguns testes. Consegui importar para o Access. Agora o que eu preciso e chamar todos os nomes cadastrados de uma tabela e fazer uma analise de dados e jogar em outra tabela.
    Mas meu Rs.EOF nao funciona, tentei outras alternativas mas nao consigo. Segue abaixo o ultimo codigo que utilizei para tentar essa tarefa.

    Private Sub Comando36_Click()

    Dim i As Integer, j As Integer, b As Integer
    i = 1
    b = 5

    For j = i To b

    conexao
    sql = "Select * from func_dados order by codigo desc "
    validar_leitura2
    'If sr.EOF = False Then
    'Do While RS.EOF = False
    'i 'f RS.BOF = True Then
    lst_colaborador.AddItem (RS.Fields("nome"))
    txt_func_matricula = UCase(RS.Fields("matricula"))
    txt_col_nome = UCase(RS.Fields("nome"))
    txt_col_cota = RS.Fields("Cota")
    txt_func_cota = RS.Fields("Cota")
    bt_col_departamento = UCase(RS.Fields("departamento"))
    bt_col_vinculo = UCase(RS.Fields("vinculo"))
    txt_col_matricula = UCase(RS.Fields("Matricula"))

    acumlador = 0
    acumulador2 = 0
    acumulador = txt_col_cota
    acumulador2 = txt_col_impressoes

    If acumulador >= acumulador2 Then
    txt_col_ultrapassou_cota = "Não"
    End If
    If acumulador < acumulador2 Then
    txt_col_ultrapassou_cota = "Sim"
    End If

    conexao

    sql = "SELECT * from tab_imp_colaborador WHERE Nome Like '" & txt_col_nome & "'"
    gerar_codigo
    validar_leitura3
    db.Execute "INSERT INTO tab_imp_colaborador(matricula,Nome,Cota2,Ultrapassou_Cota,Total_Impressao, Departamento, Vinculo, Semana,Mes_Impressao) VALUES ( '" & txt_col_matricula & "','" & txt_col_nome & "', " & txt_col_cota & ",'" & txt_col_ultrapassou_cota & "' ," & txt_col_impressoes & ", '" & bt_col_departamento & "', '" & bt_col_vinculo & "', '" & bt_col_semana & "','" & bt_col_mes & "')"
    MsgBox ("Dados Inseridos")
    ' RS.MoveNext
    limpar_dados2
    Next j
    'RS.MoveNext
    ' Loop
    ' End If
    'RS.MoveNext
    End Sub

      Data/hora atual: 25/1/2022, 17:00