mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.appl.access
Titolo: due quesiti

ho due quesiti da porvi:
il primo
come faccio a visualizzare in una sottomaschera (maschere continue)un dato
prestabilito.
esempio:
ho i seguenti campi
nRiferimento
ricetta
temperatura
note
vorrei che se esempio io scelgo il numero 7 come nRiferimento nel campo note
venisse fuori "ripasso".
il secondo
ho un report con un filtato in base ad una macro
sull'evento click ho inserito la macro con
aprireport
condizione where [Settimana] Between [Forms]![data]![WIniziale] And
[Forms]![data]![WFinale]
come si esegue questo filtro in codice vb?
grazie per l'aiuto
--
ciao


docmd.applyfilter ecc.ecc. nell'evento su apertura del report
Io pero', se voglio filtrare un report in base ad un dato in una
maschera, uso come "origine dati" del report una query che ha la
condizione scritta nei "criteri". Mi sembra piu' semplice, bho...
Quando poi il filtro serve solo per le due date limite dal/al, faccio
tutto in modo ancora piu' semplice, senza neanche stare a creare una
maschera apposta per inserirle: un'espressione tipo questa
([interventi per officina].[Data richiesta]>=DAL and [interventi per
officina].[data richiesta]<=AL)
nella proprieta' filtro del report. DAL e AL sono due variabili non
definite, quando apro il report Access e' abbastanza furbo da aprire
una finestrella per richiedere il valore che gli "manca".


vediamo se mi spigo meglio
esempio:
if nRiferimento=7 then
note="ripasso"
end if
cosi' funziona su di una maschera singola.

 ha scritto nel messaggio
news:R6Na9.109342$lu5.2...@twister1.libero.it...

non ho capito la domanda probabilmente significa che chi ha voglia di
risponderti ha sete di campi, controlli, relazioni...
I controlli della sottomaschera puntano a quali campi di quale tabella?
E quelli della maschera?
In che modo sono relazionate le due tabelle?
Mandi Rob.

 wrote in message
R6Na9.109342$lu5.2...@twister1.libero.it...

Scusate l'intrusione.
Visto che stai operando con una maschera con visualizzazione a Maschere
continue, se il controllo Note è una casella di testo non assegnata prova a
scrivere nella sua origine controllo:
= IIf (nRiferimento = 7; "ripasso"; "")
Se invece Note è una casella associata ad un campo, penso che tu debba, a
fronte dell'evento "Dopo aggiornamento" di nRiferimento, aprire il
RecordsetClone della sottomaschera, posizionarti sul record corrente e
modificare il campo associato al controllo Note, quindi fare il requery
della sottomaschera.
D'altra parte le maschere continue in Access non sono il massimo della
libidine. :-)
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------
Newsgroup: it.comp.appl.access
Titolo: Condizione per casella combinata

Salve a tutti,
� possibile una condizione su una casella combinata che uso per prendere 
dati da una tabella ?
mi spiego meglio... se nella tabella da cui la casella combinata va a 
prendere dati � vuota, la casella mi rimane bianca. E' possibile mettere una 
condizione che in mancanza di dati mi dia un messaggio o mi esegua altre 
cose...?
Non so dove e come mettere la condizione.... Grazie

 Non so dove e come mettere la condizione.... Grazie
Ciao Augusto, sei un pò troppo vago, a fronte di quale evento vuoi
riconoscere la combo priva di valore ?
Come indicazione generica:
If isnull(TuaCombo) or TuaCombo=""  then   ....fai quello che vuoi.
Ciao.
Alberto

Newsgroup: it.comp.appl.access
Titolo: Collegamento...

Si hanno n database (n1.mdb, n2.mdb, ...). Ognuno di questi contiene una
tabella, di uguali caratteristiche, di nome tab.
Vi č un database principale (con altre tabelle, query, maschere, ecc.) che
deve funzionare collegando, a scelta dell'utente, la tabella tab di uno dei
database n.mdb.
Che procedura č piů idonea perchč si realizzi quanto descritto con un metodo
che semplifichi piů possibile le azioni dell'utente con magari una casella
di riepilogo?
Grazie


Puoi sfruttare la proprietà Connect della tabella e il metodo RefreshLink
per ricollegare la tabella.
La proprietà Connect restituisce una stringa del tipo:
;DATABASE=C:\TuaCartella\TuoDB.mdb
E' sufficiente cambiare questa stringa e usare il metodo RefreshLink.
Nel database di esempio Soluzioni.mdb potrai trovare una funzione che
riallega le tabelle (ma tutte le tabelle).
Anche su 
www.sitocomune.com
 trovi delle funzioni analoghe.
Leggendo la guida capirai...
Ciao, Carlo
Newsgroup: it.comp.appl.access
Titolo: Progetto ADP, come usare un SP con parametri in una casella combinata?

Usando un DB su SQL Server, ed un progetto ADP, come posso visualizzare in
una casella combinata il risultato di una SP con parametri?
Nelle proprietà della casella combinata, infatti, non ho la proprietà
"Parametri di input" (che ho invece nelle proprietà della maschera)
Cme posso fare, quindi, a passare dei parametri ad una SP usata come
sorgente dati di una casella combinata?
Grazie, Max

"MegaMax2"

Vedi se ti può essere d'aiuto
http://support.microsoft.com/default.aspx?id=kb;en-us;Q281870


Devi richiamare la sp da codice e poi attribuirla alla combo
Pietro

> Devi richiamare la sp da codice e poi attribuirla alla combo
Come faccio a chiamara la SP da codice,
E dopo, come faccio ad attribuirla alla combo box?
Cioè, devo eseguire una SP da codice via ADO, ficcare il risultato in un
recordsat, ed associare il recordset alla combo box?
Grazie, Max

 
http://support.microsoft.com/default.aspx?id=kb;en-us;Q281870
Utilissimo!
Grazie!
Usando i metodi 3 e 4 la cosa è estremamente comoda, ed è esattamente ciò di
cui avevo bisogno.
Però non capisco perchè la microsoft non permetta di lavorare così anche con
le sorgenti dati delle forms (dove invece per fare cose simili bisogna
settare la proprietà "parametri di input"); l'aproccio delle combo box è
molto più immediato.
Grazie ancora, Max

 molto più immediato.
Me lo chiesi anch'io a suo tempo: esigenze di programmazione?
Ciao: warp

 Me lo chiesi anch'io a suo tempo: esigenze di programmazione?
secondo me ci hanno pensato dopo.... ed ormai non volevano cambiare ciò che
era già fatto :-)
Max

 E dopo, come faccio ad attribuirla alla combo box?
Questo e' gia' piu' un problema
Visto che non e' possibile passare un recordset ad una combo al volo
Vedi post recenti sull'argomento del 5/03/2002 subject "elenco file"
in fondo
Pietro

> Guarda questa funzione e anche l'help in linea su Ado
Grazie, Max
Newsgroup: it.comp.appl.access
Titolo: Maiuscole minuscole

Impostando la proprietą format di una tabella o di una maschera in ">" o "<"
č possibile far visualizzare il testo di quel campo rispettivamente tutto
maiuscolo o tutto minuscolo, a prescindere da come viene immesso. Ma se
volessi far mostrare il testo con le sole iniziali maiuscole c'č un rimedio?
Grazie per collaborazione.

 ha scritto nel messaggio
news:anabq1$15p$1...@serv1.albacom.net...

Usa la funzione StrConv (vedi help).
Se stai usando il generatore di espressioni:
= StrConv([TuoCampo]; 3)
se stai usando un codice VBA:
MaiuscoloMinuscolo = StrConv(Originale, 3)
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


Grazie.
Colgo l'occasione per chiederti, visto che hai citato il Sito Comune di
it.comp.appl.access, come faccio a far funzionare la protezione di un db
tramite codice seriale hd? Ho scaricato il file dal sito suddetto ma quando
lo lancio non mi da la possibilità di fare nient'altro che leggere il
messaggio di avvertimento e di uscire. C'è un modo particolare per
installare il tutto o per visualizzare il relativo codice VBA?


La prima volta che usi il database serialHd, quando apri la maschera Menu
Principale ti compare la finestra di dialogo che ti chiede di digitare il
codice di sblocco: dopo che lo hai digitato il database si chiude.
Se rilanci nuovamente il database, quando apri la maschera Menu Principale
la finestra di riepilogo non compare più, ma ti compare i pulsanti di
comando della maschera stessa, ovvero il database è operativo.
Se a questo punto duplichi il database e lo lanci in un altro PC, tentando
di aprire la maschera Menu Principale ti comparirà sempre la finestra di
dialogo, e questo anche se digiti la giusta chiave di sblocco.
La protezione è realizzata tramite la tabella Chiave, la routine in codice
VBA generata a fronte dell'evento "Su apertura" della maschera Menu
Principale ed in base a quanto scritto nel modulo chiamato Modulo
GetSerialNumber.
Naturalmente la protezione ha maggiore efficacia usando almeno un file MDE
(se non addirittura un runtime), nascondendo la finestra Database, inibendo
alcuni tasti funzione, modificando adeguatamente la barra dei menu ecc. ecc.
Non sono comunque la persona più adatta a darti consigli di come proteggere
un database, visto che i miei database non li commercializzo e quindi non li
proteggo.



Neanche io commercializzo i miei db, è solo che quantomeno vorrei preservare
le mie creazioni da colleghi che potrebbero prendersi meriti non loro.
Newsgroup: it.comp.appl.access
Titolo: Compatibilità access 2003 / 2007

Ho creato un database con access 2007.
Siccome devo utilizzarlo anche con versioni precedenti al 2007 ho salvato il 
file anche in formato 2003, ma non funziona.
Ho provato a creare un nuovo file in formato access 2000 ed ho importato le 
tabelle, macro, maschere, ecc, ma non funziona lo stesso.. ma qual'è il 
problema?
Ho aperto un file che avevo creato precedentemente con access 2003 ed ho 
notato che fra gli elementi che spuntano a sinistra, ci sono anche le macro, 
mentre in questo non ci sono, è come se fossero incluse nella maschera.. può 
essere questo il problema?
E se si, cosa fare? 

 ha scritto nel messaggio 
news:47ff3774$0$17934$5fc...@news.tiscali.it...

Il problema era proprio quello delle Macro Incorporate.
Ho dovuto salvare tutte le macro incorporate nelle maschere. Un lavoro 
piuttosto lungo e laborioso, ma adesso funziona tutto. :-)

Newsgroup: it.comp.appl.access
Titolo: ancora sulle password

Salve,
grazie infinite a tutti per l'aiuto che mi avete dato sul quesito
precedente;
ora, dopo aver associato all'evento click di un pulsante una inputbox che
contiene una password per consentire l'accesso ad una maschera, come posso
evitare di scrivere in chiaro la password nell'inputbox,
qualcuno mi potrebbe aiutare?????
grazie anticipatamente a tutti !!!
Giuseppe

 Giuseppe
-- 
Roberto
-----------------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
----------------------------------------------------

Newsgroup: it.comp.appl.access
Titolo: query creazione tabella campo contatore

da query di creazione tabella, posso creare automaticamente una tabella 
vuota, che formatti il campo "cont" come campo contatore?
 
SELECT "" AS cont INTO Tabella;
 
il campo "cont" dev'essere un campo di tipo contatore
 
� possibile?
 
se si, ci sono altri formati possibili, tipo volessi creare una tabella con 
un capo di tipo data-ora
 
 
 
 
 

 tabella con un capo di tipo data-ora
 
Dovresti avere dati nell'enunciato che JET interpreta come data, p.e.
 
SELECT #3/26/2013# AS CampoData INTO Tabella
 
Perch� non crei a mano una tabella che contiene tutti i campi e
tipi di dati che vuoi e usi una query di accodamento per inserire
i dati? Forse ti aiuta anche 
http://www.donkarl.com/it?FAQ3.2
.
 
-- 
Ciao
Karl
*********
Access FAQ: 
www.donkarl.com/it
Newsgroup: it.comp.appl.access
Titolo: Creazione di un Report in automatico

Salve  a tutti volevo sapere se č stato realizzato da qualcuno del gruppo la 
generazione di un report in automatico selezionando i campi delle tabelle 
interessate al report con una maschera
saluti
Marcello Riaudo 

 Marcello Riaudo
Già visto qui?
www.sitcomune.com
 Sezione Reports
Ciao.
-- 
Sergio MAZZA

Newsgroup: it.comp.appl.access
Titolo: problema con query carrello da magazzino a fattura

se seleziono 3 articoli dal magazzino e uno di questi ha la descrizione 
"pippo"
dovrei aggiungere in automatico una certa riga in fattura ma questa riga 
deve essere visualizzata
esattamente prima della riga pippo
esempio
in magazzino seleziono gli articoli pluto, pippo, paperino
in voci fattura dovrò avere
pluto
frase automatica di pippo
pippo
paperino
visto che uso una query di accodamento come faccio a posizionare la frase 
proprio appena sopra pippo?
Grazie a tutti.
-- 
Simba883

 Grazie a tutti.
Non ho compreso benissimo la questione ma la butto giù così a braccio...
agg. un campo nella tabella che utilizzerai per numerare le righe in
prograssione... così le ordinerai come ti pare.
E' la prima che mi è venuta in mente.
-- 
Ciao
Pablitomf (Maurizio Facciuti)
Access : Ver.97 - 2K
----------------------------------
http://www.accessgroup.it/
http://www.sitocomune.com/
----------------------------------
Non mi fido molto delle statistiche, perchè un uomo con la testa nel forno
acceso e i piedi nel congelatore statisticamente ha una temperatura media.
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

Simba883 ha scritto:

a dire il vero non ho capito molto bene quel che vuoi dire.
In ogni caso credo che solamente con una query tu non possa farlo.
Devi farlo via codice
Newsgroup: it.comp.appl.access
Titolo: backup cartelle

Ho la necessità di fare un backup di cartelle presenti su disco che devono
essere copiate su un altro disco. Grazie per l'aiuto Nicola
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 essere copiate su un altro disco. Grazie per l'aiuto Nicola
Fare una Copya non è sufficiente...?
Sub CopyFolder()
Dim fso
Dim sfol As String, dfol As String
sfol = "c:\MyFolder" ' Cartella Iniziale
dfol = "e:\MyFolder" ' Cartella di Destinazione
Set fso = CreateObject("Scripting.FileSystemObject")
If Not fso.FolderExists(dfol) Then
    fso.CopyFolder sfol, dfol
Else
    ' Quì volendo puoi mettere MkDir e tornare su per effettuare
l'operazione
    MsgBox dfol & " already exists!", vbExclamation, "Folder Exists"
End If
End Sub
@Alex

 @Alex
Grazie e buona giornata !


Alessandro Baraldi ha scritto:



L'ho provata e funziona perfettamente nel caso però vorrei rimuovere la
cartella destinazione quale istruzione devo usare visto che RmDir vuole la
cartella vuota. Ho vistro l'istruzione Kill ma non mi sembra pratica
perchè all'interno della cartella destinazine possono esserci più cartelle
nidificate. Grazie per l'aiuto Nicola


 @Alex
Ho trovato una tua sub postata nel 2003
Sub DeleteFolder(FolderPath As String)
    Dim fs As Object
    Set fs = CreateObject("Scripting.FileSystemObject")
    fs.DeleteFolder FolderPath
    Set fs = Nothing
End Sub
e funziona perfettamente
ri-grazie Nicola


 @Alex
Ho ancora un problema  su questo tema:
1) performance: i dati che devo copiare sono di molti mega. Esiste un modo
per migliorare le performace ?
2) Mentre il PC lavora vorrei introdurre uno stato di avanzamento lavori
della copia in corso 
3)Elenco file copiati con ora inizio e fine (questo lo so fare tramite una
tabella di Log)
4) alla fine del lavoro Spegnimento automatico PC
In questo modo posso andare a letto per un sonno tranquillo.
Grazie Nicola

Newsgroup: it.comp.appl.access
Titolo: Casella di riepilogo e query di selezione

Ciao a tutti, eccomi di ritorno con le mie domande....
Come si intuisce dall'oggetto il mio problema riguarda il passaggio di più 
valori selezionati da una casella di riepilogo (a selezione multipla) ad una 
query di selezione.
Ho preso come riferimento il codice postato sul sito comune alla sezione 
REPORT e l'ho applicato alle mie esigenze.
Questo è il codice:
Private Sub Comando5_Click()
On Error GoTo Err_Comando5_Click
    Me!lista = Null
    Dim strLista As String
    Dim strCriteri As String
    Dim varItem As Variant
    'Se non ci sono voci selezionate
    'non ci sono attività da effettuare
    If Me!elenco.ItemsSelected.Count = 0 Then Exit Sub
    'Cicla nell'insieme delle voci selezionate
    For Each varItem In Me!elenco.ItemsSelected
        'Cattura la colonna IDSocietà di ciascuna
        'voce selezionata
        strLista = strLista & _
            Me!elenco.Column(0, varItem) & ","
        Me!lista = Me!lista & _
            Me!elenco.Column(0, varItem) & " or "
    Next varItem
    'Elimina la virgola eccedente
    strLista = Left$(strLista, Len(strLista) - 1)
    Me!lista = Left$(Me!lista, Len(Me!lista) - 4)
    'Apri il ReportSocietà filtrando sulle
    'Ragioni Sociali selezionate
    'strCriteri = "[IDSocietà] IN (" & strLista & ")"
    'Dim stDocName As String
    'stDocName = "ReportSocietà"
    DoCmd.OpenQuery ("qUERY1")
    'DoCmd.OpenReport stDocName, acPreview, , strCriteri
    'Deseleziona tutte le righe della casella di riepilogo
    Dim Cont As Integer
    For Cont = 0 To Me!elenco.ListCount - 1
        Me!elenco.Selected(Cont) = False
    Next Cont
Exit_Comando5_Click:
    Exit Sub
Err_Comando5_Click:
    MsgBox Err.Description
    Resume Exit_Comando5_Click
End Sub
Come si vede l'unica cosa che ho cambiato è stata l'apertura di una query 
invece che di un report, in questa query devo passare i valori che ho 
selezionato dalla casella di riepilogo che sono appoggiati in una casella di 
testo chiamata lista.
Se seleziono un solo valore la query funziona perfettamente mentre se 
seleziono + valori la query mi restituisce un record vuoto...... quello che 
è strano è che se copio ed incollo nella query la stringa generata, la query 
funziona perfettamente.
Dove sbaglio?
Grazie per l'aiuto
Massimo Pallavicini 

 Massimo Pallavicini
-- 
Roberto
-----------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
-----------------------------------------------

Newsgroup: it.comp.appl.access
Titolo: stampa multipla della stessa maschera...

Quando lancio la stampa di una maschera acces mi stampa la stessa maschera 2
o 3 volte,le impostazioni della pagina sono corrette, sono idiota io o e' un
problema di access?e se lo e', e' risolvibile?
Grazie.
Emiliano

"Emiliano" <

Sei troppo generico.
Io ho stampato forms di Access centinaia di volte senza riscontrare niente
di simile.
Ciao.

 ha scritto nel messaggio
news:avpr5e$lh8$1...@lacerta.tiscalinet.it...

Dai un'occhiata a PrintOut.
Ciao, Carlo
Newsgroup: it.comp.appl.access
Titolo: Dimensione DB Access 97 - Recupero file

Prima di farvi le mie domande premetto che non conosco bene access ho
ereditato dei DB che devo mantenere, la prima domanda č forse banale,
esiste un limite per quanto riguarda la dimensione in byte per Db di
access 97 ? 
durante l'utilizzo il mio db, che ha superato il Gb, ha dato un errore e
ora non č piů possibile aprilo esistono delle utility che permettano il
recupero di db danneggiati ?
Grazie 
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 -- 
Con Access 97 puoi gestire database che abbiano una dimensione massima di 1
Gb.
Le versioni successive ti permettono di gestire database di 2 Gb.
Prova ad importare in un database vuoto solo le tabelle del database
originale ed in un altro database vuoto gli altri oggetti, cosi da ottenere
due database di dimensioni inferiori al Gb: se non basta puoi crearti un
database per ogni tabella; a questo punto, nel database che contiene gli
oggetti che non sono tabelle collega le tabelle che sono contenute negli
altri database.
-- 
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

Newsgroup: it.comp.appl.access
Titolo: query con dati cumulati...?

Ringrazio anticipatamente chi saprà risolvere il mio problema.
supponiamo che io registri in una tabella OPERAZIONI dei pagamenti in mio
favore:
Data        Importo    Pagato Si/No
13-01-03 Euro 50 NonPagato
14-01-03 Euro 50 NonPagato
15-01-03 Euro 50 NonPagato
etc. etc.
Supponiamo mi paghino fisicamente 100 Euro
Vorrei costruire una query che:
mi mostrasse solo le operazioni IL CUI TOTALE assomma a 100 Euro (vale a
dire quella del 13 e qualla del 14) per poi aggiornare il "Non Pagato" in
"Pagato".
Mi interessa esclusivamente la query di selezione; devo fare un campo
calcolato (per la "cumulata") o altro?
Grazie ancora,
Guido
--
in moto:
sfortunà tanti
fortunà pochi
bravi gnanca uno

 ha scritto nel messaggio
news:fIfJa.124614$pR3.2...@news1.tin.it...

Ciao Guido
Vedi se ti va bene.
----------------------------------
SELECT Op1.Data, Op1.Importo, Op1.Pagato, Op1.Progressivo
FROM [SELECT
        Op0.Data,Op0.Importo,Op0.Pagato,
        (Select TOP 100 PERCENT
             SUM(Importo)
          FROM
             Operazioni
          WHERE
               Data<=Op0.Data AND
               Pagato=0
         ) AS Progressivo
     FROM
        Operazioni AS Op0
     WHERE
        Op0.Pagato=0
     ORDER BY Op0.Data
   ]. AS Op1
WHERE (((Op1.Progressivo)<=100));
---------------------------------
Ciao Giorigo.
Newsgroup: it.comp.appl.access
Titolo: Msgbox

Mi sapete dire se e' possibile passare alla MSGBOX un prompt di testo 
formattato?
Ad esempio un prompt in ARIAL di 28 punti ed in colore rosso?
Ciao e grazie.


E' molto più veloce crearti una maschera
-- 
-- 
MAssimiliano Amendola
www.accessgroup.it
Cisa - Conferenza Italiana Sviluppatori Access

 Ciao e grazie.
In modo nativo, no.
Puoi comunque crearti una maschera e adattarla alle tue esigenze.
--
sv
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

Newsgroup: it.comp.appl.access
Titolo: Chi vuole contribuire...

http://blogs.msdn.com/access/archive/2007/10/11/a-chance-to-influence-the-di
rection-of-access.aspx#comments
Saluti.

 Saluti.
Ciao Simone, puoi scrivere il Link in modo diverso o metti quello
abbreviato io non riesco a raggiungerlo.
@Alex

 abbreviato io non riesco a raggiungerlo.
Dovresti allineare tutto nella casella indirizzi di Explorer...
Il fatto è che non riesco a inserire come "navigabili" sullo Usenet, i links
molto lunghi ... come si fa?
Saluti.

 links molto lunghi ... come si fa?
Puoi ricorrere a servizi di "accorciamento" degli URL, come quello gratuito 
fornito all'indirizzo 
http://tinyurl.com
--
PBsoft di Gabriele Bertolucci
www.pbsoft.it
skype:pbsoftsolution

 ha scritto nel messaggio
news:875ea3552e7168...@news.tin.it...

Esatto... io uso sempre questo sistema:
http://tinyurl.com/3e3zet
-- 
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.alessandrobaraldi.it
---------------------------------------------------------------------------
Newsgroup: it.comp.appl.access
Titolo: Inserire un segnalibro in word a runtime

ciao, scusate se torno a postare di nuovo l'argomento, ma x me è
importante.....
ho la necessità di inserire dei segnalibri in documento word senza
sapere all'inizio quanti questi possano essere, perchè a prioiri io
non lo posso sapere...ho trovato la seguente procedura per inserire i
segnalibri da VBA.. che io ho personalizzato con l'assegnazione del
nuovo valore al campo ncampo
If Wrd.ActiveDocument.Bookmarks.Count >= 1 Then
            ReDim aMarks(Wrd.ActiveDocument.Bookmarks.Count - 1)
            I = 0
            For Each aBookmark In Wrd.ActiveDocument.Bookmarks
            aMarks(I) = aBookmark.Name
            I = I + 1
            Next aBookmark
            End If
            Dim ncampo As String
            ncampo = I + 1
ma quando vado ad inserire il segnalibro nel docuemento assegnandogli
il nome del campo ncampo, mi torna sempre un errore...
                Wrd.ActiveDocument.Bookmarks.Add Name:= ncampo,
Range:=Selection.Range
                Wrd.ActiveDocument.Bookmarks(ncampo).Select
come faccio ad assegnare un nome runtime al segnalibro...?
grazie
Tommy

 ha scritto nel messaggio 
news:f1ff4e74-b9fa-4c73...@p25g2000hsf.googlegroups.com...





Tommy
[risposta]
Non è che sia ben chiaro cosa devi fare ma hai provato con:
...
                Wrd.ActiveDocument.Bookmarks.Add ncampo
...
Ciao.
-- 
Sergio MAZZA 

 ...
si ho provato ma mi torna sempre l'errore "nome segnalibro errato"
tommy

 ha scritto nel messaggio 
news:53db72e0-6c2a-40fc...@c58g2000hsc.googlegroups.com...



tommy
[risposta]
Imposta il punto di debug sulla riga incriminata e quando si ferma 
l'esecuzione del codice apri la finestra immediata (CTRL-G) e scrivi: ? 
ncampo   e vedi il valore che contiene la variabile.
Per caso; hai creato la gestione dell'errore per non lasciare sessioni di 
word appese?
Ciao.
-- 
Sergio MAZZA 

 ha scritto nel messaggionews:53db72e0-6c2a-40fc...@c58g2000hsc.googlegroups.com...

ho risolto facendo precedere la stringa ncampo da una lettera, infatti
facendo in quel modo mi tornava un numero mentre la proprietà Name
accetta solo stringhe...
grazie lo stesso
tommy
Newsgroup: it.comp.appl.access
Titolo: codice fiscale

Ciao ragazzi, ho scaricato da 
sitocomune.it
 un database per la creazione dei
codici fiscali, vorrei sapere come si potrebbe fare per stampare il codice
fiscale nello stesso modo in cui appare nella realtà (usando cioè lo stesso
aspetto grafico)

 ha scritto nel messaggio
news:k450c.51924$IT2.1...@news4.tin.it...

Il codice FISCALE non si CREA, viene CREATO da un'organismo
STATALE detentore del DATABASE Nazionale, quello che puoi fare tu è solo
verificare se quello che
ti passano è corretto.
Per il 2° punto no ho capito cosa dici....!
@Alex.


vuole stampare la maschera......
ciao.

 ha scritto nel messaggio
news:k450c.51924$IT2.1...@news4.tin.it...

Puoi crearti un report (da richiamare con un pulsante) in cui caselle di
testo, etichette e caselle immagine replicano il tesserino del codice
fiscale. Se vuoi ti posso inviare quello che ho fatto io e che è comunque
migliorabile.
Ciao
Antonio


wrote:

Vorrei ribadire quello che ti ha detto Alessandro e raccomandarti di
fare molta attenzione: ci sono situazioni (omocodici) in cui il codice
fiscale calcolato risulta uguale ad un altro già attribuito. In questo
caso l'unico organismo che se ne può accorgere è l'Agenzia delle
Entrate la quale attribuisce al secondo soggetto un codice leggermente
diverso (ocio quindi...)
Ciao
--
Alberto
No alle guerre

Alberto S. ha detto: in data 29/02/2004 10.55:

Non ci credevo, ma l'altro giorno mi è capitato, un nuovo assunto, che 
il ministero gli aveva cambiato le ultime 4 cifre. Quindi è sempre 
meglio  farsi dare il suo codice da verificare.
maurizio56

 ha scritto nel messaggio
news:k7n0c.38744$Kc3.1...@twister2.libero.it...

E' normale che sia così, pensando all'UNIVOCITA' dei dati qualcuno deve
vigilare non è possibile che ognuno possa generarli.....!
@Alex.

 ha scritto nel messaggio
news:c1t28r$qm5$1...@lacerta.tiscalinet.it...

Ciao Alex
Giustissimo quello che dici. Ciò non toglie che ci sono in circolazione sw
che fanno proprio quello che chiede Maurizio.
Ciao Daniele


NO.
Ribadisco anche sul SitoComune c'è una Routine che "CONTROLLA"
il CF.
I softWare in circolazione non lo GENERANO, lo CONTROLLANO.
E' solo un'errore di utilizzo quello che dici.
Dal momento che a livello LEGALE l'ente preposto è UNO, i SW circolanti
non possono farlo, poi che molti usino questi SW, e/o routine ugualmente
è una CAZZATA grossa come una casa, ognuno di noi nasce già con il CF
basta chiederlo, perchè rischiare.......!!!
Ciao Daniele.
@Alex.


Daniele

Ciao Daniele
(ciao Daniele!)
Certo, l'importante è che uno sappia cosa sta usando e i potenziali
rischi...
Per quanto mi riguarda li considero alla stregua di giochetti - magari
considero più utile concentrarsi sul contrario (controllare la
validità del CF, ricavare data e luogo di nascita)


 No alle guerre
Centrato il problema, ed è proprio così che deve essere inteso.
Ogni altro modo di intendere è ERRATO a priori.
Saluti.
@Alex.
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 Ogni altro modo di intendere è ERRATO a priori.
TALEBANO !!!
Antonio

 Antonio
Si ma dammi torto e ti farň talebbano...!

Newsgroup: it.comp.appl.access
Titolo: tipo ordinamento report

Salve a tutti , volevo sapere se è possibile ordinare un report mediante una
casella di testo (non un campo)questa casella mi esegue una somma,in un pie
di pagina,e volevo ordinarlo in decrescente.
Se qualcuno mi aiuta a capire come posso fare.
 Grazie

  Grazie
Quello che si ordina non č il report ma l'oggetto che č origine record del
report stesso, quindi non credo proprio che tu possa ordinare il report per
una casella calcolata in esso contenuta.
Penso che un modo per risolvere il tuo problema sia quello di crearsi una
query che contega un campo calcolato che effettua i calcoli che ora tu fai
nel report, potrai cosě poi ordinare la query come ti serve ed usare tale
query come origine record del report.
-- 
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

Newsgroup: it.comp.appl.access
Titolo: Modifica struttura dati BE da FE

Mi sto imbattendo per la prima volta in questa disperata impresa. Spero
vivamente nel vostro aiuto in quanto non ho altro intorno ed è sempre
stata l'unica fonte diretta di approfondimento della materia...
Ho navigato tra i vari post old ma sto iniziando tentando di utilizzare
la Faq 1.9 del SC della quale vorrei provare la Function aggiungiCampo,
ma mi sono subito bloccato nel richiamo di tale funzione. Ho provato
così:
Call aggiungiCampo("NomeTbl", "NuovoCampoTbl", "TipoCampo")
Es.:
Call aggiungiCampo("Anagrafica", "IndFiscale", "Text(50)")
...ma niente!!!
Grazie
Paolo

Paolo
-- 
Roberto
-----------------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
----------------------------------------------------

Ciao Roberto,
utilizzo A00 e i riferimenti DAO sono impostati.
Ti metto di seguito l'istruzione che ora mi dice "Variabile oggetto o
variabile del blocco with non impostata..."
Dim Db As Database
Set Db = OpenDatabase("D:\Z01.mdb")
Call aggiungiCampo("Anagrafica", "IndFiscale", dbText, 50)
Grazie 
Paolo

 Grazie
Prego


Comune c'è anche la funzione da richiamare per aprire il datbase.
In effetti...
Ora, le cose principali riesco a farle: creare nuove tbl e relativi
campi ed aggiungere campi nuovi in tbl già esistenti.
...e per collegare le nuove utilizzo:
DoCmd.TransferDatabase acLink, "Microsoft Access", _
"D:\Z01.mdb", acTable, "Anagrafica", _
"Anagrafica"
Ti ringrazio davvero per la delucidazione...
Ciao
Paolo
Newsgroup: it.comp.appl.access
Titolo: mostra/nascondi campi su report

Cerco di semplificare: 
Ho una tabella con i seguenti campi:
Tipo richiesta (puo assumere i valori Acquisto o Intervento)
Articolo (campo di tipo testo)
Intervento (campo di tipo testo)
A secondo di quello che inserisco il campo articolo o il campo  
intervento è vuoto.
Nel report che vado a stampare vorrei che in uno stesso punto  
mi compaia il contenuto del campo articolo o il contenuto del 
campo intervento in base al "tipo richiesta" inserito.
Grazie a tutti
--  
Postato da Virgilio Newsgroup: scopri i nuovi gruppi 
Eros, foto e video a 
http://newsgroup.eros.virgilio.it

 Grazie a tutti
Creati un campo non associato e ci metti
=nz(Articolo;Intervento)
-- 
-- 
Massimiliano Amendola
www.accessgroup.it
Il sito italiano di svilupatori Access
www.donkarl.com/it/cisa

Newsgroup: it.comp.appl.access
Titolo: calcoli in report di 3 query

In un report ho inserito 1 query e 2 query in sottoreport ma come posso fare 
a sommare alcuni campi delle 3 query fra di loro?
Grazie per l'aiuto 

 Grazie per l'aiuto
Puoi utilizzare la funzione DSum (vedi help); ma sei sicuro dell'effettiva 
necessità dei sottoreport?
Ciao.
-- 
Sergio MAZZA 

 ha scritto nel messaggio 
news:ehs82e$hal$1...@tdi.cu.mi.it...

scusa per il ritardo.......scusa ma c'e' un'altro metodo per vederli in 
un'unico report?
potresti farmi un esempio con dsum? non l'ho capito con 3 query diverse!
Ciao Grazie 

 Ciao Grazie
Ciao.
-- 
Sergio MAZZA

Newsgroup: it.comp.appl.access
Titolo: Ancora non va ....

UTILIZZO UN MODULO CHE APRE UN FILE .XLS E POI SALVA DEI CAMBIAMENTI.
HO NOTATO CHE SIA IN WINDOWS 98 CHE IN XP RIMANE APERTA L'APPLICAZIONE DI
EXCEL (CHE MANGIA RAM E IMPEDISCE DI CANCELLARE IL FILE ELABORATO PERCHE'
ANCORA IN USO).
VI INDICO QUI DI SEGUITO IL MODULO:
Sub Elaboraxls()
Dim excApp As Object
Dim ExcDoc As Object
VDoc = "C:\ritardo eurostar\es-lp.xls"
Set excApp = CreateObject("Excel.Application")
Set ExcDoc = excApp.Workbooks.Open(VDoc)
..........................................................................
savechanges = True
Set ExcDoc = Nothing
Set excApp = Nothing
excApp.Application.Quit
End Sub
COSI' NON POSSO UTILIZZARE IL DB, ASPETTO (anche oggi) NOTIZIE DA QUALCHE
ESPERTO.
CIAO

 ha scritto nel messaggio
news:4aWn8.75477$1S3.2...@twister1.libero.it...

Prova ad invertire le seguenti istruzioni da cosě:
 Set excApp = Nothing
 excApp.Application.Quit
a cosě:
 excApp.Application.Quit
 Set excApp = Nothing
Ciao Roberto - Syd


Roberto ti ringrazio per l'interessamento l'avevo già provato, ma l'ho
rifatto or ora, ma non vuol funzionare neanche invertendo i comandi....
Newsgroup: it.comp.appl.access
Titolo: improvvisamente, Tipo relazione: non definita

Dopo innumerevoli tentativi, non riuscendo a configurare una nuova 
relazione uno a molti nel mio database, elimino le relazioni uno a molti 
esistenti e provo a ricrearle per vedere dove sta l'arcano.
Niente da fare: non riesco più a ricreare le relazioni uno a molti nella 
finestra delle relazioni. Il tipo di relazione indicato nella finestra 
delle proprietà è: non definita.
E così ovviamente non riesco ad applicare l'integrità referenziale.
Provare a trasferire tabelle, query e form in un database vuoto mi 
porterebbe via tantissimo tempo senza garanzia di successo.
Sto sbagliando qualcosa? Grazie.


Evidentemente hai dei record che non rispettano relazioni ed integrità. Nessun arcano


 
Ho dimenticato di dire che, lavorando su una copia del database, ho 
eliminato tutti i record dalle tabelle coinvolte nella relazione, e il 
risultato non cambia: relazione non definita.
 

 Evidentemente hai dei record che non rispettano relazioni ed integrità. Nessun arcano
 
E comunque, anche prima di eliminare tutti i record, avevo una relazione 
che nella finestra delle relazioni compariva correttamenet indicata come 
uno a molti. La elimino, la ricreo, e non è più uno a molti ma diventa 
non definita? Non è un arcano questo, essendo ovviamente impossibile che 
dei record si siano autoinseriti per caso tra l'istante in cui ho 
eliminato la relazione e quallo in cui l'ho ricreata?
 

hai provato a compattare il database?
 
le tabella hanno chiavi primarie univoche?
 
Saluti


 le tabella hanno chiavi primarie univoche?
 
Alla fine, procedendo per tentativi, sono riuscito dopo avere cancellato 
tutti gli indici (non solo quelli della chiave primaria, anzi, erano gli 
altri che davano problemi) e poi ricreandoli.
Cosě ho potuto tornare a impostare le mie relazioni come uno a molti.

Newsgroup: it.comp.appl.access
Titolo: Help Stampa unione

Ho Provato a mettere il databse in locale sul disco fisso C: anzichè sul
server di rete ma, quando apro il documento di word da access con il comando
shell, e questo documento è collegato attraverso stampa unione ad una query
di questo database, viene aperta un altra sessione di access che quindi non
sente i filtri da me impostati dalla prima sessione aperta e quindi quando
eseguo la stampa unione lui mi inserisce tutti i record!
Qualcuno sa darmi qualche dritta per non fargli aprire la seconda sessione e
dirgli quindi di prendersi solo i record da me filtrati?
Grazie anticipatamente, tosto73.

Ma il documento è anche lui in locale?
Hai provato a reimpostargli l'origine dei dati?


Sei mitico! funziona grazie! ho dovuto ridefinire le query come hai detto
tu! ciao.
Newsgroup: it.comp.appl.access
Titolo: Query x Ricerca Mese..

salve amici volevo chiedere come faccio in una tabella a trovare un mese
specifico...
mi spiego campo Data ... tutto l'anno 2000... mi serve solo il mese di
Giugno...
cosa metto nei criteri della Query... la data è in formato 12/06/2000 !!!!
Grazie....

 wrote in message
vfzH5.46865$Nz.13...@news.infostrada.it...

Funzione Month
Antonio


c'è un post del 17/10 che lo spiega
"ricerca per data"

Newsgroup: it.comp.appl.access
Titolo: Cercare record con valore zero.

Buona sera a tutto il n.g.
Ho la necessitą nel mio scadenziario trovare tutte le fatture ed i 
rispettivi fornitori a cui non č stata saldata la fattura stessa, oppure non 
č stato dato nessun acconto. Come posso fare?
Grazie.
Rob.


Hai pensato di gestire lo stato della fattura con un campo Si/No?
-1 non saldata
0 saldata
SunRex

Con un Flag "Pagato"
Grazie.
"SunRex"  ha scritto nel messaggio


Newsgroup: it.comp.appl.access
Titolo: Aggiornare un campo num in base a una data

Salve a tutto il NG...
Ho una tabella con due caselle, una contiene una data, l'altra contiene i
giorni, ora, il mio problema è quello di inserire nella casella dei giorni
il numero di giorni del mese in base alla data che inserisco nella casella
DATA.
Ad esempio: nella casella data inserisco 26/09/02,
nella casella giorni mi dovrebbe inserire 30 perché il mese di settembre ha
30 giorni... e così via
Esiste una funzione che mi permette di fare questo in automatico?
Grazie a tutti...
--------------------------------
Inviato via 
http://usenet.libero.it

 Esiste una funzione che mi permette di fare questo in automatico?
        Day(DateSerial(Year(DATA),Month(DATA)+1,0))
--
Ciao :-)
Maurizio
--------
?SPQR(C)
 X
--------


 Grazie Maurizio, si, intendevo "dunque" nel messaggio...
alla prossima...
Alessandra


Newsgroup: it.comp.appl.access
Titolo: ciclo per impostare valore di un campo

Un deferente saluto ai partecipanti al NG.
Ho un quesito che mi sembra semplice ma di cui non vengo a capo (yes I'm a
newbie). Vorrei impostare ad un dato valore un campo di una tabella, e per
afr ciò pensavo di usare un ciclo tipo Do...Loop o For..Next quando si
verificave tale necessità. Purtroppo mi impantantananano ottenendo solo
messaggi di errore. Qualcuno mi può suggerire la strada? Grassie.

 wrote in message
8j794u$mbo$1...@nslave2.tin.it...



Puoi spiegarti meglio?
Ciao.
Newsgroup: it.comp.appl.access
Titolo: l'edit-update di un campo incrementa l'mdb

Salve a tutti,
per motivi che sarebbe troppo lungo spiegare, una procedura all'interno
di un modulo esegue un gran numero di iterazioni nelle quali faccio
l'edit di un record, modifico un campo,  faccio l'update e mi sposto di
record.
L'operazione di edit-update fa crescere ogni volta di 4 k la dimensione
dell'mdb e siccome parliamo di diversi milioni di iterazioni, l'mdb in
breve supera i fatidici 2 giga.
Ho provato a chiudere il recorset, mettendo anche l'oggetto=nothing, ma
lo spazio non viene reimpiegato e si incrementa sempre.
Cosa ne pensate? Mi suggerite qualcosa?
Grazie a tutti in anticipo. Maurizio

 ha scritto nel messaggio 
news:1137618540.3...@o13g2000cwo.googlegroups.com...

La butto li
Transazioni?
Morgan 

E fare un compactDatabase alla fine delle operazioni?

 ha scritto nel messaggio 
news:1137618540.3...@o13g2000cwo.googlegroups.com...

E dividere l'unico mdb in più mdb BE?
Ciao.
-- 
Sergio MAZZA 

Vi ringrazio tutti per il contributo e scusate il ritardo con cui lo
faccio, dovuto a varie cause.
Ho valutato tutte le proposte, ho provato le transazioni ma non è
servito, l'ho modificato con un BE e ho verificato che cresceva questo
e non quello dove c'era il codice, ho quindi inserito la compattazione
mettendola dove potevo, ma è troppo tardi, l'mdb ha già superato i
due Giga.
A questo punto penso proprio che dovrò ripensare tutta la procedura,
riducendo i continui edit-update, per evitare questo inconveniente che
sembra appartenere più ad Access che al codice.
Grazie ancora e alla rpossima. Maurizio
Newsgroup: it.comp.appl.access
Titolo: Formule in access





Non essendo un 
grande esperto di ACCESS forse qualcuno può aiutarmi. Vorrei utilizzare alcune 
funzioni come ad esempio"arrotonda" nelle maschere di access ma mi viene 
segnalato un errore generico. Altre formule più semplici funzionano (ad esempio 
moltiplicazione,somma....) forse manca qualcosa nella mia 
installazione?


Grazie in 
anticipo se qualcuno sarà in grado di aiutarmi



 ha scritto nel messaggio
news:NEBBKHFOCKLMDOPKACHKEEPC...@tiscalinet.it...

RISPOSTA:
Non inviare messaggi in formato HTML, grazie.
La funzione arrotonda non è presente in access (almeno nel mio) ma è
presente in excel; nel sito comune (
www.sitocomune.com
) trovi degli esempi
per arrotondare.
Poi se vuoi utilizzare per forza le formule di excel poi provare con:
'--------------
  Dim MyXL As Excel.Application
  Set MyXL = CreateObject("Excel.Application")
  Me!NomeCasellaDiTesto =  MyXL.WorksheetFunction.Round(1, 2)
  Set MyXL = Nothing
'--------------
Ciao.
Newsgroup: it.comp.appl.access
Titolo: tool per mssql

Salve a tutti, qualcuno mi sa dire se esistono dei tool grafici free per
amministrare un db di SQLServer.
Grazie.

 Grazie.
Esiste il fenomenale DbaMgr di Andrea Montanari che puoi scaricare da qui:
http://www.asql.biz/DbaMgr.shtm
Ciao
--
Galliano

Newsgroup: it.comp.appl.access
Titolo: VBA: creare indici su tabelle...

Salve a tutti!
avrei la necessità di creare degli indici su delle
tabelle via codice.... qualcuno mi sa dare una dritta?
grazie
sdamy

 tabelle via codice.... qualcuno mi sa dare una dritta?
<F1> CreateIndex
--
HTH
Karl
*********
Access-FAQ (tedesco): 
http://www.donkarl.com

Newsgroup: it.comp.appl.access
Titolo: creare nuovo db alla fine dell'anno

salve a tutti, avrei l'esigenza di creare un nuovo db alla fine dell'anno 
premendo un semplice pulsante, facile vero? 
ho risolto in parte creando una funzione che mi chiede il nome del nuovo db 
e me lo crea dopo nella medesima funzione ho aggiunto una serie di docmd 
per esportare le tabelle nel nuovo db vuote ma la funzione si blocca 
dicendomi che il db non esiste quando vado a verificare da gestione risorse 
il db c'è eccome.
qualcuno mi sa aiutare??

 qualcuno mi sa aiutare??
Nel bel mezzo della routine con cui esporti butta qua e la' qualche
DoEvents
e
DBEngine.Idle dbRefreshCache
Saluti.
Luciano
(DOC)

Luciano \(DOC\) wrote:

ci ho appena provato ma non funziona mi dà lo stesso errore,
questo è il codicce che ho scritto con le aggiunte da te suggerite.
Function nuovodb()
Dim strinput As String
Dim title
Dim valori As String
Dim default
Dim messaggio
messaggio = "Nuovo DataBase"
title = "Inserire Nome e Percorso Nuovo DataBase"
default = "c:\temp\ "
strinput = InputBox(title, messaggio, default)
If StrPtr(strinput) = 0 Then
MsgBox "Azione annullata"
DoEvents
End If
If CStr(strinput) <> default Then valori = (strinput)
Dim wrkpredefinita As Workspace
    Dim dbsNuovo As Database
    Set wrkpredefinita = DBEngine.Workspaces(0)
 
    DoCmd.Echo True, "creazione database in corso"
DoEvents
        Set dbsNuovo = wrkpredefinita.CreateDatabase((strinput), 
dbLangGeneral, dbEncrypt)
DoEvents
DBEngine.Idle dbRefreshCache
 dbsNuovo.Close
 DoEvents
DoEvents
DoEvents
DBEngine.Idle dbRefreshCache
 
 DoCmd.TransferDatabase acExport, "Microsoft Access", (strinput), acTable, 
"cedente", "cedente", True
End Function
Newsgroup: it.comp.appl.access
Titolo: problema aggiornamento casella combinata dopo una cancellazione.

All'interno di una maschera di aggiornamento ho inserito un pulsante di
comando che mi attiva una casella combinata per la ricerca di dati
precedentemente inseriti e per la successiva visualizzazione all'interno
della maschera.
Ho notato che se cancello il record ricercato e ricerco ulteriori dati
all'interno della casella combinata che ha come origine dati una query, mi
compare nella lista '#eliminato'  insieme agli altri valori.
Ho tentato di fare una requery sulla casella combinata, ma senza successo.
Ringrazio in anticipo chi può consigliarmi.
--
Valerio

 ha scritto nel messaggio
news:8ol65l$jos$2...@pinco.nettuno.it...

Serve qualche informazione in più:
1) La casella combinata è associata o non associata?
2) Cosa intendi per "origine dati" della combo: "Origine riga" o "Origine
controllo" ?
3) Quando parli di cancellazione di record: come la fai, quando la fai e il
record di quale tabella cancelli?
--
Roberto
---------------------------------------------
il sito comune di it.comp.appl.access:
http://members.xoom.it/it_db_access/
---------------------------------------------

Ringrazio in anticipo chi può consigliarmi.
come hai fatto il requery?  puoi postare il codice che hai usato?

Newsgroup: it.comp.appl.access
Titolo: PrintDlg... come posso passargli un documento?

Ciao a tutti
ho la necessità di creare un controllo per la stampa di un report che mi
faccia vedere prima la pinter dialog di windows e poi mi mandi direttamente
il documento alla stampante con le caratteristiche che ho scelto (nr di
pagine, qualità ecc...) senza dover passare per forza alla sua anteprima.
Ho cercato tra le api di sistema e ho trovato la PRintDlg... wow dico io,
peccato che poi non sono ancora riuscito a capire dove si deve passare il
riferimento
al doc da stampare....
Forse mi sto solo complicando la vita, ho provato ad usare il metodo
PrintOut ma anche li non ho capito come passargli il documento da
stampare....
Se qualcuno mi può aiutare...
Grazie e buona giornata
Roberto

 ha scritto nel messaggio
news:9s5ou6$i7l$2...@pegasus.tiscalinet.it...

Anche a me interessa questa cosa, soprattuto per ovviare l'inconveniente di
non poter usre la PrtDevMode negli mde



Anche a me interessa questa cosa, soprattuto per ovviare l'inconveniente di

Newsgroup: it.comp.appl.access
Titolo: togliere tsato x ad access da sitocomune!

Mi sono copiato dalle General del sito comune questo codice per
togliere la x di access, Il problema č: dove lo devo inserire? Questo
leva anche il riduci a icona e ingrandisci/ripristina?
grazie a chiunque mi voglia rispondere
Private Const GWL_STYLE = -16
Private Const WS_SYSMENU = &H80000
Private Const WS_MINIMIZEBOX = &H20000
Private Const WS_MAXIMIZEBOX = &H10000
Private Declare Function GetWindowLong Lib "user32" Alias
"GetWindowLongA" _
    (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias
"SetWindowLongA" _
    (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As
Long) As Long
Private Declare Function GetParent Lib "user32" (ByVal hwnd As Long)
As Long
 
Public Sub LockAppWindow(fForm As Form)
    ModifyAppWind fForm.hwnd
    MsgBox "Ciao ciao pulsantini!"
End Sub
Private Sub ModifyAppWind(wChildWnd)
    Dim wParentWnd%
    wParentWnd = GetParent(GetParent(wChildWnd))
    Dim PrevWinStyle As Long, NewWinStyle As Long
    PrevWinStyle = GetWindowLong(wParentWnd, GWL_STYLE)
    NewWinStyle = PrevWinStyle And Not WS_SYSMENU And _
       Not WS_MINIMIZEBOX And _
       Not WS_MAXIMIZEBOX
    PrevWinStyle = SetWindowLong(wParentWnd, GWL_STYLE, NewWinStyle)
End Sub
La funzione va richiamata cosě:
LockAppWindow Screen.ActiveForm  

 wrote in message 3bdedbb...@news.tiscalinet.it...

Sull'evento "su apertura" della maschera scrivi il codice:
LockAppWindow Screen.ActiveForm