Estou bem enferrujado no quesito access, e não me lembro de ter feito/utilizado algo assim.
Contudo creio que o programa/rotina não esteja "enchergando" o objeto excel aberto,
Talvez algo assim
objxlAp.activate
objxlwb.close
objxlap.close
Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Pesquisa resultou em 1537 ocorrências
- Sex Set 30, 2022 4:10 pm
- Fórum: Geral
- Tópico: Fechar planilha pelo VBA do Access
- Respostas: 1
- Exibições: 5374
- Sex Set 30, 2022 3:58 pm
- Fórum: Excel + Access
- Tópico: Dados do código mais recente
- Respostas: 12
- Exibições: 6301
Re: Dados do código mais recente
Ao utilizar o Group By em uma consulta sql, e esperado que todos os dados/termos dos registros sejam iguais, havendo uma diferença de um dos "termos" , e considerado um outro registro. Como em seu modelo/exemplo temos; por exemplo; "visitante" TESTE2 (entre outros) com uma entrad...
- Sex Set 30, 2022 8:55 am
- Fórum: Excel + Access
- Tópico: Dados do código mais recente
- Respostas: 12
- Exibições: 6301
Re: Dados do código mais recente
Para aceitar e preciso que os anexos estejam compactados (Zip/Rar/7z...)
- Qui Set 29, 2022 8:20 am
- Fórum: Excel + Access
- Tópico: Dados do código mais recente
- Respostas: 12
- Exibições: 6301
Re: Dados do código mais recente
Se possivel disponibilise uma pequena versão de seu modelo (BD e FE) com alguns dados significativos da estrutura; ficticios se necessario; para uma analise
- Qua Set 28, 2022 5:14 pm
- Fórum: Excel + Access
- Tópico: Dados do código mais recente
- Respostas: 12
- Exibições: 6301
Re: Dados do código mais recente
Lendo o descritivo da demanda, e a(s) rotinas dispostas; e sem modelo para poder analisar o banco/interface fico na suposição: a primeira rotina nomeada como "Private Sub UserForm_Activate()" (que parece incompleta pois não localizei um "End Sub"); e utilizada para povoar um comb...
- Sex Set 02, 2022 9:57 am
- Fórum: Freelancers e Serviços
- Tópico: FREELANCE VBA
- Respostas: 4
- Exibições: 7841
Re: FREELANCE VBA
Nakashima, está é uma sala onde os usuarios "OFERECEM" ou "SOLICITAM" serviços pagos; normalmente para um desenvolvimento completo e com certa urgencia. No Forum existem outras salas, (veja na pagina de Index); onde o usuario abre um tópico explicando sua duvida/problema pontuais...
- Ter Ago 30, 2022 2:04 pm
- Fórum: VBA Básico
- Tópico: Carregar Listview com banco de dados
- Respostas: 3
- Exibições: 854
Re: Carregar Listview com banco de dados
Assim no escuro, fica muito complicado, mas... talvez... o campo em questão (creo que obs) não esteja com "valores" na tabela access tente validar esse campo antes da atribuição em vez de Lista.ListSubItems.Add Text:=Rs(8) experimente algo +/- If Not IsNull(Rs(8)) Then Lista.ListSubItems.A...
- Sex Ago 26, 2022 8:45 am
- Fórum: VBA Básico
- Tópico: Preenchimento igual com diferentes criteiros
- Respostas: 2
- Exibições: 698
Re: Preenchimento igual com diferentes criteiros
Talvez:
Código: Selecionar todos
if textbox1.value=folha1.range.("a2") or textbox1.value=folha1.range.("a4") then
textbox5.value=folha1.Range.("C2")
end if
- Sex Jul 29, 2022 12:28 pm
- Fórum: VBA Básico
- Tópico: Erro ao deslocar para a esquerda
- Respostas: 6
- Exibições: 1208
Re: Erro ao deslocar para a esquerda
Talvez: Sub AjustaColunas() Dim lngNumLinhas As Long, lngNumColunas As Long Dim lngLinha As Long, lngColuna As Long, lngcol2 As Long With Sheets("Plan1") lngNumLinhas = .Range("A1").SpecialCells(xlLastCell).Row lngNumLinhas = .Range("A1").SpecialCells(xlLastCell).Column...
- Qui Jul 28, 2022 9:37 am
- Fórum: VBA Básico
- Tópico: Erro ao deslocar para a esquerda
- Respostas: 6
- Exibições: 1208
Re: Erro ao deslocar para a esquerda
Disponibilize um modelo com alguns dados; porem que sejam significativo da estrutura de sua planilha (dados ficticios se necessario); demonstre como estão os dados e de como deseja/necessita que fiquem