+ Rispondi al messaggio
Pagina 2 di 2 primaprima 12
Visualizzazione dei risultati da 11 a 17 su 17

db access condiviso in rete

  1. #11
    Apri il Task Manager (Gestione Attività) e controlla se esiste Word in esecuzione e in questo caso terminalo.
    ℹ️ Leggi di più su AntonioG ...

  2. #12
    angelo_dima non è in linea Scolaretto
    infatti tentanto di cancellarlo mi dice che è bloccato da un file word, queste sono le istruzioni che ho messo

    Dim oword As Object
     Dim odoc As Object
       Set oword = CreateObject("Word.Application")
            Set odoc = CreateObject("Word.document")
     oword.Visible = True
     oword.Activate
     Set odoc = oword.Documents.Add(PERCORSO) ' questo è un file .dot come modello
      With odoc
            .Content.Font.Name = "arial"
            .SaveAs FileName:=PERCORSO2  ' lo salvo con un nome .docx
      End With
     Set odoc = oword.Documents.Open(PERCORSO2)   ' apro il file appena salvato con nome .docx 
    odoc.Close
    
    Set oword = Nothing
    Set odoc = Nothing
    
    oword.Application.Quit
    
    Ultima modifica di @Alex; 17-09-2021 10:56  Motivo: TAG per il codice

  3. #13
    angelo_dima non è in linea Scolaretto
    grazie ho risolto con questa soluzione semplice e banale ma non ci avevo pensato, ora mi resta capire bene come gestire la creazione di un file word partendo da un file .dot (impostato con i campi unione ) per poi salvarlo con nome in formato .docx in modo che l'utente non debba utilizzare la funzione dal menu "lettere\finalizza e unisci" per creare un file singolo senza i campi della stampa unione, scusate se non sono stato chiaro
    saluti

  4. #14
    L'avatar di @Alex
    @Alex non è in linea Moderatore Globale
    Intanto impara ad usare i TAG per il codice..!!!
    Quel codice non dice nulla, se non che:
    1) Crei un Word Document inutilmente dal momento che lo istanzi poi con il metodo ADD di Documents
    2) Salvi il file appena aperto in un secondo percorso, e lo riapri sulla stessa variabile oggetto, io non lo farei...
    3) Avendo sostituito l'istanza di PERCORSO con PERCORSO2 rimane appesa la 1°
    4) in caso di errore non si capisce cosa accade...

    Le premesse per avere qualche rogna ci sono tutte...!
    ℹ️ Leggi di più su @Alex ...

  5. #15
    angelo_dima non è in linea Scolaretto
    Ho risolto da pannello di controllo interrompendo Word, ora mi rimane di capire bene come gestire le seguenti istruzioni

    - aprire un file .dot ( modello con i campi della stampa unione )
    - salvarlo con nome in formato docx in modo che l'utente non debba usare le funzioni del menu "lettere\finalizza e unisci" per creare un altro file con i dati del singolo record visualizzato sulla form di access
    - chiudere le istanze di word

    saluti e grazie

  6. #16
    angelo_dima non è in linea Scolaretto
    Ammetto che non mi sono chiari gli step per:

    - aprire un file modello di word .dot
    - salvarlo con nome .docx con i dati personalizzati presi dalla form attiva
    chiudere le due istanze word ( modello .dot e docx )

    in un altro caso ho utilizzato il modello .dot con all'interno inseriti dei bookmarks ai quali faccio riferimento con l'istruzione seguente per scriverci i dati provenienti dalla form

    odoc.Bookmarks("indata").Range.InsertAfter Forms![mensile]![datareport]

    però ripeto forse sto facendo confusione tra gli step da fare per aprire file word o crearne dei nuovi partendo da file esistenti e poi chiuderli

    grazie ancora
    ciao

  7. #17
    L'avatar di @Alex
    @Alex non è in linea Moderatore Globale
    Premesso che serve una Gestione errori, io ho una cosa simile, che provo a semplificare... :
    	On Error Goto Err_Handler
    	Dim oword 		As Object
    	Dim odoc 		As Object
    	
    	Set oword = CreateObject("Word.Application")
    	oword.Options.ReplaceSelection = True
    	' Dal momento che apri-compili e chiudi, ha senso renderlo VISIBILE...?
    	' oword.Visible = True
    	' oword.Activate
    	Set odoc = oword.Documents.Add(NomeTemplate) ' questo è un file .dot come modello
    	With odoc
    		' -------------------------------------------------------------------------------------------------
    		' Elenco dei Bookmark da compilare
    		' -------------------------------------------------------------------------------------------------
    		If .Bookmarks.Exists("NomeAzienda") Then
    			.Bookmarks(strBookmark).Select
    			.Selection.TypeText Text:="Prova.SPA"
    		End If
    	
    		If .Bookmarks.Exists("Indirizzo") Then
    			.Bookmarks(strBookmark).Select
    			.Selection.TypeText Text:="Via Giulio Romano 27"
    		End If
    		
    		' -------------------------------------------------------------------------------------------------
    		' Se hai un Elenco di Bookmark corrispondenti ai Nomi dei campi di un Recordset puoi fare un CICLO
    		'For Each fld In Me.Recordset.Fields
    		'	If .Bookmarks.Exists(fld.Name) Then
    		'		.Bookmarks(fld.Name).Select
    		'		.Selection.TypeText Text:=fld.value
    		'	End If
    		'Next
    		' -------------------------------------------------------------------------------------------------
    
    		' Salvi
    		.SaveAs FileName:=NuovoNomeFile  ' lo salvo con un nome .docx
    	End With
    
    Exit_Here:
    On Error resume next
    	If not odoc Is Nothing then 
    		odoc.Close
    		set odoc=Nothing
    	End if
    	If not oword is Nothing then 
    		oword.Quit
    		Set oword = Nothing
    	End if
    	Exit Sub/Function
    	
    Err_Handler:
    	Select Case Err.Number
    		Case XXX
    		Case else
    			msgbox Err.Number & " " err.Description,,"ERRORE"
    	End Select
    	Resume Exit_Here
    End Sub/Function
    
    ℹ️ Leggi di più su @Alex ...

+ Rispondi al messaggio
Pagina 2 di 2 primaprima 12

Potrebbero interessarti anche ...

  1. chiarimenti riguardo db access e utilizzo condiviso in rete
    Da untipo nel forum Visual Basic .Net
    Risposte: 2
    Ultimo Post: 02-02-2016, 20:36
  2. Excel condiviso in rete lento
    Da ginopizza nel forum Microsoft Excel
    Risposte: 2
    Ultimo Post: 08-06-2013, 21:39
  3. [ASP] Problemi di connessione al .MDB condiviso in rete.
    Da StegcO nel forum ASP 3, ASP .Net
    Risposte: 6
    Ultimo Post: 25-10-2011, 17:27
  4. DB condiviso in rete
    Da ucrew nel forum Microsoft Access
    Risposte: 4
    Ultimo Post: 16-04-2011, 22:06
  5. [ACCESS] Progetto condiviso sulla rete e protetto
    Da niclo nel forum Microsoft Access
    Risposte: 1
    Ultimo Post: 28-01-2008, 21:33