Este fórum está sendo desativado

[Kledison]

Boa noite Gurus!

Estou ajudando um amigo a resolver uma situação, que se resume no seguinte.

a planilha tem três etapas para serem preenchidas (CADASTRO, PRÉ ANÁLISE e ANÁLISE RETORNO, o que ele pretende é salvar esses dados da planilha no banco de dados Access, mas sem utilizar userForm, ou seja, salvar os dados que estiverem nas células.

Ele vai precisar fazer pesquisas também, que será através do CÓDIGO, como se fosse um PROCV, buscando os dados do BD para a planilha.

Se puderem ao menos mostrar o caminho das pedras ficarei grato.



Segue anexo a planilha utilizada.

Att

[mucascosta]

Tente assim:
Módulo para Access
Chamar: Call AbrirExcel
==========================================================
Sub AbrirExcel()
'Executar macro no Excel
Dim oApp As Object

Set oApp = CreateObject("Excel.Application")
Set E = CreateObject("Excel.Application")
sFol = CurrentProject.Path & "\"
Set pasta = E.Workbooks.Open(sFol & "SuaPlanilha.xlsm")
E.Visible = True 'False 'True
E.Run "DadosAccess" 'Macro na planilha que copia dados a transferir p/access

oApp.Application.Quit
Set oApp = Nothing
DoCmd.SetWarnings False
DoCmd.RunSQL "DELETE * FROM tbl_Dados"
DoCmd.OpenTable "tbl_Dados"
DoCmd.RunCommand acCmdRecordsGoToLast
DoCmd.RunCommand acCmdSelectRecord
DoCmd.RunCommand acCmdPasteAppend
DoCmd.RunCommand acCmdSaveRecord
DoCmd.SetWarnings True
DoCmd.Close acTable, "tbl_Dados"
E.Application.Quit
End Sub

[Kledison]

Boa noite,

obrigado pelo retorno Mucascosta.

Então, conseguimos fazer a parte do cadastro, estamos com dificuldade em fazer a consulta do ACCESS retornar todos os campos, por exemplo, faço a consulta pelo código, na 1ª Pré Análise (começa em C31 até J40), só está retornando a primeira linha de C31 até J31, mesma coisa na segunda análise.

Também não consigo criar a parte para alterar os dados no Excel e salvar no ACCESS.

Att

[mucascosta]

Me desculpe, mas tá muito confuso...

[Kledison]

Tranquilo amigo, eu também concordo que está, mas como disse, essas informações eu as recebi, vou colocar mais tarde os dois anexos para que vc possa enter o que ele está querendo.

[Kledison]

Boa tarde!

O que ele pretende é preencher a planilha Excel que está dividida em três etapas :

1 - Cadastro de Teste de Rua
2 - 1ª Pré Análise
3 - 2ª Análise Retorno

Após preencher os dados, clicar no Botão Gravar Novo para que os dados sejam salvos no Access

Quando clicar no botão Consultar, que os dados sejam buscados no Access, o critério dessa busca é a célula C16 (Código)
Eu fiz essa consulta acrescentado uma coluna para buscar o código da célula C16, não sei se é a melhor forma de se fazer.

Em alguns casos será necessário alterar ou acrescentar informações que não foram inclusas no cadastro, essa parte que estou garrado. rsrsrs

No BD ACCESS criei três tabelas para receberem os dados, (tblCadastro; tblAmostra - corresponde a 1ª Análise e tblRetorno - corresponde a 2ª Análise)

Fiz algumas adaptações com alguns códigos e alguma coisa está funcionando (rsrs).

Obrigado.