Antonio Haele Arnaut 23/2/2023, 00:27
É um projeto que nasceu pequeno, em 2009; e cresceu pelas oportunidades e necessidades. Viva o Access!
Hoje, é um front-end vinculado a 30 beck-end's - Uma pilha.
Funciona muito bem, em rede e em 80 máquinas; sem problemas de conflito e accessibilidade.
Eliminei o máximo de consultas, filtrando diretamente no botão de abrir dos fomulários. É rápido.
A atualização de 32 para 64 Bits, com ptr Saf, foi executada. Abre normalmente em minha máquina. Não está abrindo na máquina do cliente, depois que mudei para 64 Bits. A máquina do cliente está compatível com 64 Bits.
A compilação indica um erro de módulo, na LINHA EM NEGRITO. O Módulo não é meu; acredito que obtive a bastante tempo, no Fórun.
Removí alguns módulos antigos, que já não faziam sentido, e o aplicativo abriu na máquina do cliente.
Em compensação, o formulário de login ficou travado.
Ainda estou invstigando; mas já pude determinar que os problemas estão em um ou mais módulos.
Mod_ProcurarArquivo: (Não me lembro por quê incluí este módulo, penso que não uso esta função; vou retirar, expeimentalmente, em uma cópia)
Public Function fncLocalizarArquivo()
Dim fd As Office.FileDialog
On Error GoTo trataerro
Set fd = Application.FileDialog(msoFileDialogOpen)
With fd
With .Filters
.Clear
.Add "Banco de Dados", "*.accdb", 1
.Add "Todos", "*.*", 2
End With
.Title = "Selecionar Banco de Dados)"
.AllowMultiSelect = False
.InitialFileName = "c:\"
.InitialView = msoFileDialogViewPreview
If .Show Then
fncLocalizarArquivo = .SelectedItems(1)
End If
End With
sair:
Exit Function
trataerro:
fncLocalizarArquivo = ""
Resume sair:
End Function