Newsgroup: it.comp.appl.access
Titolo: Immagini - Accodare record in tabella anzichè sostituire

Di nuovo Buongiorno
Ho anche un'altra domanda
Sto sfruttando quanto in "ACCESS VIEWER - by Silvio Savoldi" per un
lavoro che non è però un archivio di immagini propriamente detto...
nella mia cartella Foto vengono aggiunte foyto un po' per giorno e
l'utente deve, giorno per giorno "Aggiornare" la tabella foto e
completare dei campi (descrizione, scelta, ordine...) il cui contenuto
non deve andare perso ogni volta che viene "ricaricata" la tabella (cose
che invece accade con questo codice)
La prima cosa che mi viene in mente per ovviare al problema è mettere i
dati che devono restare in una altra tabella, creare una quesri che
metta insieme immagini e descrizioni e su quella creare il report che
stamperà entrambe.
Mi chiedevo però se non basti invece apportare qualche piccola
modifica/aggiunta al codice qua sotto per ottenere lo stesso risultato
senza aggiungere altre tabelle e query al mdb che è già piuttosto
"popolato"
  If Percorso <> vbNullString Then
 
       If Me!ListaFoto.Form.RecordsetClone.RecordCount <> 0 Then
            If MsgBox("Si desidera Rimuovere le voci pre-esistenti? ",
vbYesNo + vbQuestion,"Rimuove Collegamenti") = vbYes Then
             DoCmd.RunSQL "DELETE tabFoto.NomeFoto, tabFoto.Id_Foto FROM
tabFoto;"
            End If
       End If
 
    Set Rst = CurrentDb.OpenRecordset("tabFoto")
    With Application.FileSearch
        .NewSearch
        .LookIn = Percorso
        .FileName = "*.jpg"
 
      If .Execute > 0 Then
       For I = 1 To .FoundFiles.Count
       Rst.AddNew
       Rst!NomeFoto = Dir(.FoundFiles(I)) & "#" & .FoundFiles(I)& "#"
       Rst!id_imm = Left(Dir(.FoundFiles(I)), 10) 
       Rst!id_SubImm = Mid(Dir(.FoundFiles(I)), 12, 1)
       Rst.Update
       Next I
       Else
       MsgBox "La cartella è vuota", vbCritical, ""
      End If
     End With
       Rst.Close
       Set Rst = Nothing
       Me!ListaFoto.Requery
  End If
End Sub
Di nuovo Grazie per ogni consglio e aiuto
Nadia
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 ha scritto nel messaggio
news:6a6d53d694d32c5b229...@mygate.mailgate.org...

Potrei non aver capito il tuo problema, ma se devi accodare nella tabella
tabFoto nuovi record senza cancellare quelli che ci sono, basta che alla
domanda che pone il programma "Si desidera Rimuovere le voci pre-esistenti?
" tu risponta No invece di Yes; se poi non vuoi mai cancellare i record
presenti nella tabella tabFoto, elimina le seguenti righe di codice VBA:
If Me!ListaFoto.Form.RecordsetClone.RecordCount <> 0 Then
    If MsgBox("Si desidera Rimuovere le voci pre-esistenti? ", vbYesNo +
vbQuestion,"Rimuove Collegamenti") = vbYes Then
        DoCmd.RunSQL "DELETE tabFoto.NomeFoto, tabFoto.Id_Foto FROM
tabFoto;"
    End If
End If
-- 
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

 End If
In realtà se scelgo NO mi accoda sì i file, ma li accoda tutti! ovvero
mi crea più record relativi allo stesso file
Per ovviare a ciò ho "indicizzato" il campo NomeFoto (Il nome del file è
un codice univoco!) in modo che non vengano ammessi duplicati in tabella
Ma a questo punto mi viene restituito il messaggio di errore "Stai
cercando di inserire dei dati duplicati dove non si può"
Per spiegarmi meglio ciò che vorrei è ottenere l'effetto delle query di
accodamento, che ti avvisano che non potranno accodare X record perchè
"doppi" ma nel contempo ti consentono di accodare tutti quelli non
doppi!
Pensi sia possibile?
Ancora Grazie 


 Nadia


 Prova e facci sapere.
Grazie Mille Roberto, Funziona benissimo
Adesso vado a legermi l'help su come funziona esattamente questo
"DCount" cosě aggiungo una nozione in piů al bagaglio
Ancora Grazie
Nadia
Scusate se ho tagliato quasi tutto... mailgate non mi permette di
postare se il testo nuovo č piů corto del "quote" e al momento ho
problemi a conettermi al NG attraverso un server news che consenta il
post da posta elettronica
...
...
...


 Grazie Mille Roberto, Funziona benissimo
[CUT]
Prego
