Newsgroup: it.comp.appl.access
Titolo: problema a 64 bit

Salve ecco il mio problema..
su un computer con windows a 32 bit per lanciare un file di access uso 
questo codice..
Shell "C:\Programmi\Microsoft Office\OFFICE11\MSAccess.exe D:\apps.mdb", 
vbNormalFocus
DoCmd.Quit
ma quando uso un computer con windows a 64 bit, mi d� errore di cendomi di 
non trovare il file.
Sicuramente perch� office non si trova pi� dentro Programmi ma dentro 
Programmi (x86)
Come va cambiato il codice per Programmi (x86) ?
Grazie
 

 Grazie
 
magari invece di C:\progrmmi\... mettere C:\Programmi (86)\...  ???? che
ne dici? ;)
 
-- 
------------
Pablitomf
Napoli sempre nel "Q"uore!
"mammasantissima" si nasce, non si diventa.
 
TheSpaceCowboy : 
Britos deve recuperare per arrivare in forma al prossimo
infortunio - 24/10/12
 

 Come va cambiato il codice per Programmi (x86) ?
 
 
 
Devi intercettare con SysComd() il percorso dell'eseguibile di Access
 
SysCmd(acSysCmdAccessDir) & "MSACCESS.EXE"
 
Saluti 
 
 

 Devi intercettare con SysComd() il percorso dell'eseguibile di Access
 
Pardon:     SysCmd() 
 
 

Non funziona..!

se non sbaglio dovrebbe essere cosě....
 
Shell "SysCmd(acSysCmdAccessDir) & MSACCESS.EXE D:\apps.mdb", vbNormalFocus
 
ma non funziona..... puoi corregermelo in maniera che funzioni....
grazie. 
 

 Non funziona..!
 
Certo che funziona...


 Pardon:     SysCmd() 
 
si ma cosi' rischi di prendere l'ultima versione utilizzata di Access (che
potrebbe non essere adatta al db che stai aprendo)... se il sistema ne
contiene "n", magari non usi quella giusta ;)


 ma non funziona.....
 
Shell SysCmd(acSysCmdAccessDir)  & "MSAccess.exe D:\apps.mdb"
 
-- 
Ciao
Karl
*********
Access FAQ:  
http://www.donkarl.com/it
 
 

ma se ti dico che non funziona........

Si adesso funziona.....
grazie Karl

 ma se ti dico che non funziona........
 
ma se ti dico di si...
 
forse non cogli bene i suggerimenti ;)


ma cosè un indovinello ?
non puoi essere chiaro ? 
 

Shell SysCmd(acSysCmdAccessDir)  & "MSAccess.exe D:\apps.mdb"
Salve Karl. Spero tu possa leggere questo mio messaggio: ti conosco di
fama e credo che tu sia in grado di darmi un aiuto efficace. Qualche
giorno fa ho lasciato un post che forse ti é sfuggito o per il quale
non avevi interesse. Sono rimasto senza risposte concrete e, dopo aver
sperato di ricevere una soluzione, ho deciso di contattarti così.
Qui sotto potrai leggere qual é il mio problema, così come l'ho posto
nella discussione:
 
Anni fa ho preparato un database con Access 2007 per catalogare le mie
piante. Ho da poco cambiato pc ed invece di XP utilizzo WIndows 8. 
Lanciando il programma funziona tutto, tranne la routine predisposta
per salvare i nuovi dati. Infatti, appena "clicco" sul pulsante
"Salva", vien fuori il msg di errore riportato nel file allegato.
Aggiungo qui sotto l'intera routine in cui si blocca la procedura;
l'errore viene segnalato sulla 4^  riga sull'istruzione
 
"Set dbs_Piante = CurrentDb"
 
Ecco la routine:
 
    On Error GoTo Err_cmd_Salva_Click
    Dim dbs_Piante As DAO.Database
    Dim rst_Piante As DAO.Recordset
    Set dbs_Piante = CurrentDb
    Set rst_Piante = dbs_Piante.OpenRecordset("tbl_Piante")
 
    'Apre la tabella "tbl_Piante" per aggiornarla
    rst_Piante.AddNew
 
    'Immette nei campi di "tbl_Piante" i valori presi dalle variabili
della maschera "frm_Inserimento_Dati"
    rst_Piante!Nome_volgare = txt_Nome_Volgare.Value
    rst_Piante!Descrizione = txt_Descrizione.Value
    rst_Piante!Nome_altro = txt_Altro_Nome.Value
    Percorso = ""
 
    rst_Piante!Avversità = txt_Avversità.Value
    rst_Piante!Consiglio = txt_Consiglio.Value
 
    If Cornice10.Value = 1 Then
        rst_Piante!Interno = "S"
        rst_Piante!Esterno = "N"
        rst_Piante!Grassa = "N"
        Percorso = "\Interno\"
    End If
    If Cornice10.Value = 2 Then
        rst_Piante!Esterno = "S"
        rst_Piante!Interno = "N"
        rst_Piante!Grassa = "N"
        Percorso = "\Esterno\"
    End If
    If Cornice10.Value = 3 Then
        rst_Piante!Grassa = "S"
        rst_Piante!Interno = "N"
        rst_Piante!Esterno = "N"
        Percorso = "\Grasse\"
    End If
 
    rst_Piante!Immagine = Percorso & txt_Immagine.Value & ".jpg"
 
    If Casella_Nostra.Value = -1 Then
        rst_Piante!Nostra = "S"
    Else
        rst_Piante!Nostra = "N"
    End If
 
    rst_Piante!Famiglia = txt_Famiglia.Value
    rst_Piante!Genere = txt_Genere.Value
    rst_Piante!Nome_Botanico = txt_Nome_Botanico.Value
    rst_Piante!Provenienza = txt_Provenienza.Value
    rst_Piante!Durata = txt_Durata.Value
    rst_Piante!Altezza = txt_Altezza.Value
    rst_Piante!Periodo_Fioritura = txt_Periodo_Fioritura.Value
    rst_Piante!Esposizione = txt_Esposizione.Value
    rst_Piante!Temperatura = txt_Temperatura.Value
    rst_Piante!Clima = txt_Clima.Value
    rst_Piante!Substrato = txt_Substrato.Value
    rst_Piante!Irrigazione = txt_Irrigazione.Value
    rst_Piante!Concimazione = txt_Concimazione.Value
    rst_Piante!Propagazione = txt_Propagazione.Value
    rst_Piante!Rinvaso = txt_Rinvaso.Value
    rst_Piante!Potatura = txt_Potatura.Value
 
    'Aggiorna la tabella
    rst_Piante.Update
 
    'Chiude la tabella
    rst_Piante.Close
 
   'Ripulisce tutti i campi della maschera
    txt_Nome_Volgare = "": txt_Descrizione = "": txt_Altro_Nome = ""
    txt_Avversità = "": txt_Consiglio = ""
    Cornice10.Value = 1: Casella_Nostra.Value = "":
    txt_Famiglia = "": txt_Genere = "": txt_Nome_Botanico = "":
txt_Provenienza = ""
    txt_Durata = "": txt_Altezza = "": txt_Periodo_Fioritura = "":
txt_Esposizione = ""
    txt_Temperatura = "": txt_Clima = "": txt_Substrato = "":
txt_Irrigazione = ""
    txt_Concimazione = "": txt_Propagazione = "": txt_Rinvaso = "":
txt_Potatura = ""
 
 
Exit_cmd_Salva_Click:
    Exit Sub
Err_cmd_Salva_Click:
    MsgBox Err.Description
    Resume Exit_cmd_Salva_Click
End Sub
 
Preciso che con le versioni precedenti di Windows tutto funzionava al
meglio. Ritengo possa essere un problema di DLL ma non riesco a
venirne a capo.
Qualcuno più esperto mi può dare una mano? Grazie
Gianni
 
Ecco Karl come stanno le cose. Potresti darmi un aiuto? Grazie

 non puoi essere chiaro ? 
 
piu' chiaro di quello? te l'ho scritto... basta mettere la path giusta tra
virgolette... null'altro.
