O.T.
Mi restano i messaggi in uscita ma non me li spedisce...
Mi scuso con tutti e lo allego qui di seguito.
p.s. Neanche dal tuo sito riesco a contattarti... ma è ancora attivo?
Ho trovato in rete il tuo programma ARCHIDOC e lo volevo provare ad utilizzare, ma ho notato un problemino sul pulsante cmdView (di cui ti allego il codice). Nella maschera continua "RICERCA" fa vedere sempre le note del primo record, su qualunque record si clikki.
Sono io che sbaglio qualcosa?
Saluti Filippo
Private Sub cmdView_Click()
Dim strFilter As String
Dim strArgs As String
If IsNothing(Me.NoteDocumento) Then
MsgBox "Nessuna nota risulta inserita.", vbInformation, "Avviso"
Else
strFilter = "DOC_CODE=" & Me.DOC_CODE
strArgs = Me.Name & ";qryDocumenti;NoteDocumento;" & strFilter
DoCmd.OpenForm "ZoomNote", , , , , acDialog, strArgs
Me.Requery
End If
End Sub