Newsgroup: it.comp.appl.access
Titolo: LUNGO Gestione Curricula: ancora problemi con il codice.

Ciao, ho seguito i suggerimenti di Ale Cara per la gestione dei CV  -
vedere altro post - e beh...sono andato su casa, il tutto funzionava ma
adesso non funziona più.
Due sono i problemi:
1. ogni volta che AGGIUNGO/ELIMINO un CV Access mi chiede se voglio a)
SALVARE IL RECORD b) COPIARE IL CONTENUTO NEGLI APPUNTI c) NON SALVARE
IL RECORD.
Se non salvo mi da errore di runtime.
Se salvo tutto ok.
2. quando elimino un CV e resto nel record corrente mi si apre lo
stesso, anche se è eliminato! Evidentemente l'indirizzo del documento
rimane memorizzato da qualche parte che io ignoro (il controllo
nascosto, sorgente dell'HyperlinkAddress si svuota, ho controllato).
Riporto qui di seguito il codice completo di:
ANTEPRIMACV - AGGIUNGICV - ELIMINACV
CODICE
Private Sub cmdAnteprimaCV_Click()
Me.Requery
If (Me!subCurriculumLink.Value = "") Or IsNull(Me!subCurriculumLink)
Then
    MsgBox "Nessun curriculum per l'utente selezionato", vbInformation,
"Anteprima Curriculum"
Else
    Me.cmdAnteprimaCV.HyperlinkAddress = Me!subCurriculumLink
End If
End Sub
-------------------------------------------
Private Sub cmdAggiungiCV_Click()
Dim strAttach As Variant
Dim rif As Variant
rif = [Forms]![frmSchedaPrimoContatto]![id]
    strAttach = cmdlg_file("C:\", "All files (*.*)" & Chr(0) & "*.*" &
Chr(0))
    If strAttach <> "" Then
        Me!subCurriculumLink.Value = strAttach
        DoCmd.RunSQL "UPDATE tblUtenti SET CurriculumLink ='" &
strAttach & "'WHERE idUtente = " & rif
        Me!subCurriculumLink.Requery
    End If
End Sub
------------------------------------------------
Private Sub cmdEliminaCurriculum_Click()
Dim strAttach As Variant
Dim rif As Variant
rif = [Forms]![frmSchedaPrimoContatto]![id]
If (Me!subCurriculumLink <> "") Then
    If MsgBox("Sei sicuro di voler eliminare il CV di " &
UCase([Forms]![frmSchedaPrimoContatto]![Nome] & " " &
[Forms]![frmSchedaPrimoContatto]![Cognome]) & " ?", vbQuestion +
vbYesNo, "Eliminazione Curriculum") = vbYes Then
        DoCmd.RunSQL "UPDATE tblUtenti SET CurriculumLink = '' WHERE
idUtente = " & rif
        Me!subCurriculumLink.Requery
        Me.Requery
        MsgBox "CV eliminato", vbInformation, "Eliminazione Curriculum"
        Me.cmdAnteprimaCV.HyperlinkAddress = ""
    End If
Else
    MsgBox "Nessun CV per l'utente corrente", vbInformation,
"Eliminazione Curriculum"
    Exit Sub
End If
End Sub
NOTA:
subCurriculumLink è un controllo nascosto presente nella form che
ospita i bottoni
di comando e associato al campo CurriculumLink della tabella tblUtenti
origine record della form stessa.
Spero possiate aiutarmi a capire l'arcano!
Grazie mille!

AGGIUNGO:
Inoltre quando chiudo un documento Word specifico (mi è sempre
capitato con quello
ma non so se è un caso) ho un Errore di runtime 5825 - Il documento è
stato eliminato;
il debug punta al codice seg.
Option Explicit
Private Sub Document_Close()
On Error GoTo Close_error
    If ActiveDocument.Variables(strPOST_WIZ_BLN).Value = "1" Then
<<----- DEBUG PUNTA QUI
        If fPostWizBlnOpen Then
            objPostWizBln.Close
            fPostWizBlnOpen = False
        End If
    End If
Close_error:
    Err.Clear
End Sub
Private Sub Document_New()
    Common.StartWizard
End Sub
Boh!