Newsgroup: it.comp.appl.access
Titolo: Errore 2501

Aiuto!
E' il mio primo DB "serio" che tento a fare.
Tutto sembra funzionare bene sul mio PC.
Quando lo invio al mio cliente (per altro "potenziale"), al tentativo di
apertura di una maschera mediante pressione di un bottone, segnala l'errore
2501.
Ho provato a seguire i sugerimenti fin'ora elargiti qualche messaggio fa, ma
non mi ritrovo.
Io, per esempio, non annullo nessuna operazione in nessuna finestra di
dialogo, e non apro nessuna finestra gią aperta!
Qualcuno puņ aiutarmi?
Grazie
Fede








bhe' 4 messaggi si notano :)
Hai provato ha compilare il db dal editor del VB per vedere se ti da'
qualche messaggio di errore ?
Hai provato a controllare la sintassi dalla routine di apertura della
maschera e del pulsante ?
Hai provato ad importare tutto il tuo programmino in un nuovo db per vedere
se da' l'errore anche li ?
Hai provato a verificare i riferimenti nel VB editor del clliente ?
Hai verificato che la Tabella collegata alla Form sia corretta ?  e che il
db si apre in modo corretto ?
Piu' che una risposta sono mille domande .. lo so' .. ma Sorry ;( di piu'
non zo' :)
Ciao,
--
(^o^))~    Lorenzo   (^o^))~
"Preimaginare e' lo imaginare le cose che saranno..."
"Postimaginare e' imaginare le cose passate ..."
(Leonardo Da Vinci)

 non zo' :)
Ma ben vengano, ed anzi, grazie per la collaborazione ;-))
Fede

 ha scritto nel messaggio
news:9cpqlb$er2$1...@fe2.cs.interbusiness.it...

Si Si .. ho capito anche che da te funziona. eheh!:))
Anche da me funzionano certi db poi li porto dal cliente ePuff come per
magia appare il BugBastard che mi fa' fare figuraccia. ehhe!:))
Le due routine che ti metto sotto sono la prima per vedere i riferimenti ed
i relativi dati , che puoi modificare per vedere solo l'elenco dei
riferimenti
la seconda per aggiungere i riferimenti da codice ... p.s. prese e
leggermente modificate rispetto all'help di access.
Poi al limite mandami il codice che usi o il pezzo del programmino che non
ti va' e gli do' un occhiata sul mio pc  :)) non si sa' mai. ehhe!
Ciao
--
(^o^))~    Lorenzo   (^o^))~
"Preimaginare e' lo imaginare le cose che saranno..."
"Postimaginare e' imaginare le cose passate ..."
(Leonardo Da Vinci)
========== Rotine =========
' Mostra tutti i dati dei riferimenti installati
Function referencetest()
Dim ref As Reference
Dim s
s = References.Count
   MsgBox s
For Each ref In References
    's = ref.Collection
    s = "Builtin " & ref.BuiltIn
    s = s & vbCrLf & "fullpath " & ref.FullPath
    s = s & vbCrLf & "guid " & ref.Guid
    s = s & vbCrLf & "idbroken " & ref.IsBroken
    s = s & vbCrLf & "kind " & ref.Kind
    s = s & vbCrLf & "major " & ref.Major
    s = s & vbCrLf & "minor " & ref.Minor
    s = s & vbCrLf & "name " & ref.Name
    MsgBox s
Next ref
End Function
'aggiunge i riferimenti ad access in stumenti -> riferimeti
Function ReferenceFromFile(strFileName As String) As Boolean
    Dim ref As Reference
    On Error GoTo Error_ReferenceFromFile
    Set ref = References.AddFromFile(strFileName)
    ReferenceFromFile = True
Exit_ReferenceFromFile:
    Exit Function
Error_ReferenceFromFile:
    MsgBox Err & ": " & Err.description
    ReferenceFromFile = False
    Resume Exit_ReferenceFromFile
End Function


Si, vedo che hai capito :-)) hehe
Stero di fare tesoro delle tue indicazioni.
Grazie della disponibilitŕ, ti farň sapere.
Ciao
Fede