Problemi passando a office2019

amedeo

il 18 apr 2019, 18:04

4 risposte

amedeo

Pochi posts

Iscritto da: ott, 2015

Messaggi:: 19

Problemi passando a office2019

18 apr 2019, 18:43

Salva a tutti.
Ho un applicativo che finora ha sempre funzionato.
Passando da Office 2016 (32 bit) a office 2019 (64 bit) riscontro problemi con le funzioni che permettono di allegare le tabelle col BE.

Function GetLink()
'Nel caso di Collegamento al SERVER fisso la seguente
'parte del Codice deve essere rimossa.
On Error GoTo Err_Getlink
If Not ActLink Then
'----------------------------------------------------------------------------------
Dim strMsg As String
If DbDatiPath = "" Then
Relink_Table:
strMsg = MsgBox("Mantieni la stessa PATH del FrontEnd (Si/No) ", vbQuestion + vbYesNo, "Attenzione...!")
Select Case strMsg
Case vbYes
DbDatiPath = GetPathPart(CurrentDb.NAME)
Case vbNo
DbDatiPath = cmdlgFile
End Select
If DbDatiPath = "" Then
MsgBox "Impossibile allegare le Tabelle...", vbExclamation, "Relink Fallito...!"
Exit Function
End If
'-----------------------------------------------------------------------------------
'
'Questa parte è da tenere
If Not ReLinks() Then
DoCmd.Close acForm, "Link"
MsgBox "Relinks non effettuato...", vbCritical, "Errore..."
Exit Function
'CHIUDI programma
Else
DoCmd.Close acForm, "Link"
'--------------------------------------------------------------------------------------
MsgBox "Relinks effettuato con successo !!!!", vbInformation, "Effettuato..."
'--------------------------------------------------------------------------------------
End If
'Eliminare la riga seguente nel caso di collegamento Fisso al SERVER
End If
'--------------------------------------------------------------------------------------
End If
DoCmd.OpenForm "Finestra iniziale"
Exit_GetLink:
Exit Function
Err_Getlink:
If Err.Number = 3031 Then
MsgBox "Password di connessione errata...!"
PWD_Err = True
End If
Resume Relink_Table
End Function

Volendo cambiare il path del file mdb da collegare, mi dice sempre "Impossibile collegare le tabelle.
Eppure non ho fatto nessuna modifica.
Mi potete aiutare?

4 Risposte

willy55
Molto attivo
Iscritto da
nov, 2015
Messaggi:
836
Re: Problemi passando a office2019
18 apr 2019, 23:02
Devi imparare ad effettuare il debug del tuo codice (e magari presentarlo con indentazione, in modo da facilitare la lettura).
Giusto per dire il messaggio da te evidenziato: "Impossibile collegare le tabelle." scaturisce quando DbDatiPath = "" e questo è legato alle funzioni GetPathPart(CurrentDb.NAME) oppure cmdlgFile non native di Access, che non presenti e che probabilmente hai trascritto dal web.
Nel merito, effettuando una ricerca per:

- GetFilePath
https://www.devhut.net/2011/06/07/vba-extract-the-path-from-a-file-name/
https://www.iprogrammatori.it/forum-programmazione/access/memorizzazione-percorso-cartella-t33854.html+
https://wellsr.com/vba/2018/excel/vba-select-files-with-msoFileDialogFilePicker/
è da valutare se magari si appoggia all'oggetto FileDialog od altro componente
https://stackoverflow.com/questions/4746938/is-there-an-open-file-dialog-for-access-2010-64bit
https://access-programmers.co.uk/forums/showthread.php?t=217340

- cmdlgFile
https://answers.microsoft.com/it-it/msoffice/forum/all/proteggere-il-proprio-db/ad3e100e-69fe-43bc-b6fb-2a8f22484210
https://forum.ialweb.it/forum_posts.asp?TID=16257129&PN=4&title=risolto-spostare-file-access-collegati
http://www.vbforums.com/showthread.php?330450-Common-Dialog-help
ove l'istruzione:
```
Set loDlg = New clsCommDlg
```
fa riferimento al Microsoft Common Dialog Control che chiaramente è un componente a 32 bit.
https://social.msdn.microsoft.com/Forums/office/en-US/df02977b-dba5-4b16-8c9b-62af2a286a7f/using-common-dialog-from-within-access-2010-64-bit?forum=accessdev

Ne consegue che devi rivedere il tuo applicativo in logica 64 bit e magari compilarlo in modo condizionale.
@Alex
Super Famoso
Iscritto da
feb, 2012
Messaggi:
8731
Re: Problemi passando a office2019
19 apr 2019, 07:59
Il codice che esponi NON HA alcuna anomalia che possa essere causa del 64Bit Vs 32Bit... tuttavia non pubblichi tutto... anche se le Funzioni di STRIP di stringa dubito Fortemente possano essere l'origine del probelma:

ActLink <---- Questa cosa fa...?
GetPathPart(CurrentDb.NAME) <--- Questa immagino faccia lo Strip, quindi Funzioni Stringa non affette da problemi, ma potresti usare CurrentProject.Path
ReLinks() <---- Questa cosa fa...?
cmdlgFile <---- Questa non sarà per caso una chiamata API...? (Se usi le API hai un problema, usa FileDialog)

Se il cmdlgFile fosse semplicemente il riferimento all'oggetto FileDialog usato in LateBinding non darebbe alcun problema.
A
amedeo
Pochi posts
Iscritto da
ott, 2015
Messaggi:
19
Re: Problemi passando a office2019
19 apr 2019, 09:36
Ecco cosa fa CMDLGFILE
Public Function cmdlgFile() As String
Dim loDlg As clsCommDlg
Dim strFileTitle As String
Dim strFileName As String
Dim strFileDir As String
Set loDlg = New clsCommDlg
With loDlg
.Filter = "Database Access (.mdb)|*.mdb"
.Title = "Cerca il Percorso del Db(BE) per allegare le Tabelle"
.StartDir = "C:\Programmi"
.ModeOpen = True
.Action
strFileTitle = .FileTitle
strFileDir = .FileDir
End With
cmdlgFile = strFileDir
End Function
P
Philcattivocarattere
Utente Famoso
Iscritto da
giu, 2014
Messaggi:
2231
Re: Problemi passando a office2019
19 apr 2019, 10:28
amedeo ha scritto:
Ecco cosa fa CMDLGFILE
Public Function cmdlgFile() As String
Dim loDlg As clsCommDlg
...
Set loDlg = New clsCommDlg
...
e non sappiamo cosa contine il modulo di classe clsCommDlg, anche se con tutta probabilità è quanto riportato nel punto
1.16 Riallegare tabelle (3) ( Funziona anche se il Backend e' protetto da password)
di SitoComune, autore tale Alessandro Baraldi (chi era costui?)
Il file è A97 (che da A2016 non è più leggibile), cercando in rete, se uno non vuole andare a vedere tutto il codice, con tutta probabilità è stato trascritto anche qui ed è evidente che fa uso di API ed in particolare del file comdlg32.dll. A quel tempo non c'erano alternative; ora, come ti hanno già detto, c'è FileDialog.
Ovviamente bisogna capire il codice, che sempre l'autore, tale Alessandro Baraldi (chi era costui?), definisce "ampliamente commentato"
Il resto del codice non l'ho guardato

Devi accedere o registrarti per scrivere nel forum

4 risposte

Problemi passando a office2019

Problemi passando a office2019

4 Risposte

Re: Problemi passando a office2019

Re: Problemi passando a office2019

Re: Problemi passando a office2019

Re: Problemi passando a office2019