Newsgroup: it.comp.appl.access
Titolo: problemi con data

Dopo aver reinstallato Access 2007-2010, ho dei problemi con la funzione data, ad esempio in una maschera con il valore predefinito in un campo Date() mi dà #Nome?, oppure in query con la presenza della data mi dà "errore di compilazione", mentre in precedenza funzionava tutto bene. 
Qualcuno mi sa suggerire una soluzione?
grazie,
felixx


controlla che ci siano tutti i riferimenti nel tuo progetto
 
ciao
BFS


 
 
ma quando debugghi il codice ti da errore?
 

Il giorno martedì 21 marzo 2017 11:19:17 UTC+1, BFS ha scritto:

già controllato, ma non ci sono riferimenti mancanti, i riferimenti disponibili (flaggati) sono: 
 
Visual Basic for Applications 
Microsoft Access 14.0 Object Library 
Microsoft Forms 2.0 Object Library 
OLE Automation 
Microsoft Visual Basic for Applications Extensibility 5.3
Microsoft Office 14.0 Access database engine Object Library 
 
Devo aggiungere qualcosa? 
Grazie,
felixx


 
Togli Forms 2.0 object Library e "extensibility 5.3".
 
Hai ancora il problema?
 
Saluti 
 
 


Ho verificato che il problema è questo codice:
---
Private Declare Function GetOpenFileName Lib "comdlg32.dll" Alias _
"GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As Long
 
Private Type OPENFILENAME
lStructSize As Long
hWndOwner As Long
hInstance As Long
lpstrFilter As String
lpstrCustomFilter As String
nMaxCustFilter As Long
nFilterIndex As Long
lpstrFile As String
nMaxFile As Long
lpstrFileTitle As String
nMaxFileTitle As Long
lpstrInitialDir As String
lpstrTitle As String
flags As Long
nFileOffset As Integer
nFileExtension As Integer
lpstrDefExt As String
lCustData As Long
lpfnHook As Long
lpTemplateName As String
End Type
 
---
con la parola "function" evidenziata in rosso.
 
E mi appare questo errore di compilazione:
Il codice del progetto deve essere aggiornato per l'utilizzo in sistemi a 64 bit. Esaminare le istruzioni Declare, quindi contrassegnarle con l'attributo PtrSafe.
 
Eliminando questo codice le date funzionano tutte.

Comdlg32.dll 
C'è  sul pc?
In che cartella?


guarda che devi avere
 
- suppongo che tu abbia windows 64 bit e access a 32
 
comdlg32.ocx e comdlg32.dll 
in C:\Windows\SysWOW64
 
e registrare l'ocx
 
cmd (come amministratore)
e digitare
regsvr32 C:\Windows\SysWOW64\comdlg32.ocx

 Eliminando questo codice le date funzionano tutte.
 
Quel codice che usi è INUTILE...!!!!
Possibile che avendo a disposizione il FileDialog anche in modalità LATEBINDING si debbano usare le API per il CommonDialog...?
 
Mi pare si vada molto alla CIECA....!
 
Prova questa, è VERSION INDIPENDENT da Access 2007 in avanti... non necessita di Riferimenti a Lib...!
 
Function mFileDialog() As String
    Dim fDialog As Object
 
    Set fDialog = Application.FileDialog(3)
 
    With fDialog
 
        .AllowMultiSelect = False
 
        .Title = "Seleziona il DATABASE ORIGINE..."
        .ButtonName = "Select"
        .Filters.Clear
        ' Esempio
        .Filters.Add "Access Databases", "*.MDB"
        .Filters.Add "New Access Databases", "*.ACCDB"      
        .Filters.Add "All Files", "*.*"
 
        If .Show = True Then
 
            mFileDialog = .SelectedItems.Item(1)
 
        Else
 
            mFileDialog = vbNullString
 
        End If
    End With
End Function
 
Saluti
@Alex

 
 
Può darsi che il codice sottostante non funzioni con Access Runtime: tu hai 
provato?


Sicuramente non funziona... con il Runtime, ma la premessa è che ha installato A2007-2010, ed a queste INFO mi sono rifatto...!
 
Dove sbaglio...?
 
;-)
 
@Alex
 

 ha scritto nel messaggio 
news:54130ad0-e13a-4f9c...@googlegroups.com...

Tu non sbagli mai!    :-)
Ma il fatto che quella feature non funzioni in modalità Runtime (se non 
faccio confusione) costituirebbe un buon motivo per utilizzare le vecchie 
API.
 
Ciao!
 
 

 Ciao!
 
Ciao
@Alex