Newsgroup: it.comp.appl.access
Titolo: Access 2007 e Windows 8 - Clip2.jpg (0/1)

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

>     Dim dbs_Piante As DAO.Database
 
Dim dbs_Piante As Database
 
prova senza DAO
 
-- 
------------
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
 

prova senza DAO
 
Ci avevo già provato, ma non va.

 ha scritto:

che errore ti da?


che errore ti da?
Lo vedi nell'allegato. Comunque cerco di spiegartelo:
si apre una finestra dal titolo "Errore di compilazione" e nella
finestra compare il msg "Errore caricamento DLL".
E' per questa ragione che nel primo post avevo scritto che ho un
dubbio sul modo in cui Win 8 gestisce le librerie di Win XP.
Che ne pensi?

 Che ne pensi?
 
L'allegato nell'NG non esiste!
 
cmq...
nei rif. del DB, ce l'hai quella dll?
 
se si, ri-registra la DLL...
 
1) Fare clic su Starte quindi fare clic su Esegui.
2) Nella finestra di dialogo Esegui , digitare i seguenti comandi nella casella
Apri e quindi fare clic su OK:
 
Regsvr32.exe "<<TuaDLL.dll_Path>>"
 
Il segnaposto di <<TuaDLL.dll_Path>> ï¿œ il percorso assoluto del file TuaDLL.dll


Il segnaposto di <<TuaDLL.dll_Path>> � il percorso assoluto del file TuaDLL.dll
 
L'allegato c'� perch� l'ho letto io ed altri utenti. Probabilmente ti
� sfuggito (aveva lo stesso nome di questo post) e non lo hai
scaricato. 
A parte questo, mi viene segnalato l'errore ma non quale sia la DLL
che d� il problema.
Ho controllato quelle che dovrebbe utilizzare, ci sono tutte e sono
tutte registrate.
Mah... ci sto perdendo la testa.