mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.appl.access
Titolo: X Lettura Ottica

Buon Giorno A97....
In un report posso avere la formattazione delle caselle
come quella per la lettura ottica dei documenti...mi spiego
avete presente ogni carattere in un quadratino ben preciso ....
Grazie
Luigi, Bari

 avete presente ogni carattere in un quadratino ben preciso ....
[...]
    Se interpreto bene cio' che chiedi, dovresti usare un font non
proporzionale, tipo Courier New.
--
Ciao :-)
Maurizio
--------
?SPQR(C)
 X
--------

 ha scritto nel messaggio
news:b1g5pu$12lcgl$1...@ID-52090.news.dfncis.de...

non devo stampare su un modulo con gia' la griglia della lettura ottica
stampata...
ma devo creare io il report con quel tipo di griglia....
Grazie

 ha scritto nel messaggio
news:uPM_9.112129$0v.32...@news1.tin.it...

ho fatto una cosa analoga creando una funzione(CaratterePosizione) che
determina il carattere per quella posizione
poi nel report ho creato tante caselle di testo della dimensione del
quadretto della griglia
indicando nell'origine controllo =CaratterePosizione([CampoDato] ,
intPosizione) dove intPosizione è il numero del carattere
es.
Function CaratterePosizione(strDato as String , intPosizione as Integer)
    CaratterePosizione=Mid(strDato , intPosizione ,1)
End Function

 ha scritto nel messaggio
news:XaO_9.71498$ZE.19...@twister2.libero.it...

Mi Mandi l'esempio ....
grazie
Luigi, Bari

Newsgroup: it.comp.appl.access
Titolo: [OT] Vi saluto.

Vi faccio gli auguri di buon anno se non riesco a collegarmi dalla localitą 
dove vado in ferie...
Saluti a tutti (compreso Antonio)
-- 
Sergio MAZZA 

 Saluti a tutti (compreso Antonio)
Auguri anche a te e famiglia. :-D
(Mi raccomando al "cappellino felpato" ;-P )
-- 
Ciao
Pablitomf (Maurizio Facciuti)
------------------------------
http://www.sitocomune.com/
http://www.accessgroup.it/
------------------------------
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 ha scritto nel messaggio
news:cqucnr$j7a$1...@canarie.caspur.it...

Ciao Sergio, tanti sinceri auguri di buon anno anche a te ed ai tuoi.
A presto
Rita


Gli auguri te li faccio solo se mi dici dove vai ... son curioso io ...

 Sergio MAZZA
-- 
Roberto
------------------------------------------------
il Sito Comune di it.comp.appl.access
www.sitocomune.com
-----------------------------------------------

 Sergio MAZZA ______________
Auguri di buon anno
Riccardo 

 ha scritto nel messaggio
news:cqucnr$j7a$1...@canarie.caspur.it...

Buon Anno anche a te e alla famiglia e soprattutto Buon Divertimento!
Cinzia


Felicissimo anno anche a te e famiglia
---
Daniele
p.s. niente guardia del bastione quest'anno eh? 

 ha scritto nel messaggio
news:cqucnr$j7a$1...@canarie.caspur.it...

Auguri anche a Te Serio, e a tutti del NG.
Buon Anno!

 Saluti a tutti (compreso Antonio)
Felice 2005 per te e per tutto il NG.
--
rgrds
SC

Newsgroup: it.comp.appl.access
Titolo: Access Toolkit

Salve,
mi hanno parlato dell'esistenza di un toolkit per access
potro trasformare i miei mdb in exe ?
Grazie Marco

 potro trasformare i miei mdb in exe ?
Ciao Marco,
il mio consiglio è di evitare certe compagnie, perché poco preparate, e di
seguire con attenzione ciò che viene scritto su questo NG.
Per questo, ti invito a scaricare TUTTI i messaggi ancora presenti e di
leggerli con attenzione: come è successo a me, imparerai a fare cose che
neanche immaginavi e ad essere informato ed aggiornato su tutto ciò che gira
intorno ad Access.
Troverai, inoltre, x circa n volte, la risposta alla tua domanda, che
rappresenta il + grosso tormentone di questo NG.
Ti invito, in ultimo, ma non x questo - importante, a consultare il Sito
Comune di questo NG (l'indirizzo è qui sotto).
Buona lettura :-))
--
Silvio
il sito comune di it.comp.appl.access:
http://members.xoom.it/it_db_access

Grazie Silvio,
credo che faro' come dici tu....
ciao Marco (il sito gia' lo conosco
tanto e' vero che ho gia' scaricato un
interessante image viewer... :-)

Newsgroup: it.comp.appl.access
Titolo: X @Alex... tuo esempio API (Forma)

Ciao Ale...
ho guardato un pò il tuo esempio "API - Cambiare la forma e lo stile di
una tradizionale maschera rettangolare"... e mi chiedevo :
Nel codice a quanto ho visto e tradotto, tu ti disegni usando coordinate
le varie parti (regioni dell'immagine) da cancellare per poi farlo tutto
insieme a fine codice avendo come risultato la parte restante
dell'immagine che ti interessa mantenere a video... (se ho compreso male
correggimi)...
Bhè la mia domanda è questa... come lo fai il calcolo delle coordinate? 
X esempio :
ObjectRegion = CreateRoundRectRgn(0, 0, 552, 1000, 56, 56)
i tuoi 0,0,552,1000,56,56 da dove li tiri fuori da prove a video (non
credo) o da che calcolo?
-- 
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.
La disumanita' del computer sta nel fatto che, una volta programmato e
messo in funzione, si comporta in maniera perfettamente onesta (Isaac
Asimov).
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 credo) o da che calcolo?
Sono le coordinate Relative all'HWND della Form trasformate
in TWIPS, ma sinceramente le ho fatte un pò ad occhio nel demo
non avendo un riferimento nella BMP testabile.
Ho provato ad usare le API per la gestione dell'inversione colore,
ma con pessimi risultati.
Alla fine la cosa più comoda, per modo di dire, mi è parsa quella.
@Alex
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG
Newsgroup: it.comp.appl.access
Titolo: Contatore impazzito (per me)

Ciao al NG. Ho una tabella in cui c'e' un campo contatore chiave primaria.
Ad un certo punto quando gia' aveva raggiunto il valore  10900
ha cominciato a ripartire dal valore 62 cioe' creando nuovi records
predispone il valore 63,64 etc.
Salvo poi non salvare il record perche' in realta' quel valore di contatore
gia' esiste.
Non so se sono riuscito a spiegarmi.
Cosa e' successo ? Potete aiutarmi ?
Grazie a tutti

 ha scritto nel messaggio
news:4qt6a.152490$ZE.44...@twister2.libero.it...

Prova ad importarti tutte le tbl incriminate su un nuovo progeto di Access e
guarda se lo
fa ancora.
Ciao
Giuseppe

"Maicol" <

Che versione di JET e che Service pack hai installato?

 Ho provato ma lo fa lo stesso. Considerato che una soluzione per risolvere
l'ho trovata. Mi puoi spiegare perche' e' successo onde evitare che possa
ripetersi.

 ripetersi.
Se utilizzi JET 4.0 devi installare il service pack 6.
Ciao.

 domanda ?? Uso A2000 ma per il resto????
http://support.microsoft.com/default.aspx?scid=KB;en-us;q282010
Ciao.
Newsgroup: it.comp.appl.access
Titolo: Query che restituisce un elenco di record con prezzo minimo e altri dati

Scusate se vi chiedo aiuto ma non riesco proprio a risolvere questo problema 
è importante per quello che sto facendo.
Il problema è il seguente:
Ho un Dbase con le tabelle Articoli, Fornitori, Listini e Ordini
Ci sono nella tabella listini record con lo stesso articolo ma diversi 
fornitori e naturalmente prezzi diversi.
Lo scopo è una query che restituisca i vari record dell'a tabella Ordini con 
il fornitore con il minimo prezzo.
Il problema è che con una query di riepilogo con Min di prezzo ho solo i 
campi articolo e prezzo,
ma mi manca il fornitore, se cerco in qualche modo di includere il fornitore 
mi mette tutti i fornitori che hanno questo articolo e non solo il più 
conveniente.
L'unico sistema è quello di fare un report, raggruppare per articolo e 
spostare nell'intestazione della sezione articolo solo il primo record (che 
ha il prezzo minimo in quanto la query è ordinata per prezzo). Però in 
questo modo ho i record ordinati per articolo e non riesco a fare una pagina 
per ogni fornitore.
Quindi vorrei ritornare a cercare di avere i dati che mi servono da una 
query
Ho una tabella listini con  con i seguenti campi
IDlistino   Articolo     Prezzo        Fornitore
E una tabella con i fornitori
IDfornitore Ragione sociale
E una con gli articoli
IDarticolo Descrizione Unitàmisura
E una tabella Ordini
IDarticolo Quantità
Lo scopo è avere una query ORDINI DA SPEDIRE
IDarticolo Prezzo Fornitore
Dove il prezzo è quello del fornitore più conveniente e fornitore il 
relativo nome
Grazie infinite in anticipo a chiunque mi può aiutare 

 Grazie infinite in anticipo a chiunque mi può aiutare
Prego
-- 
Roberto
-----------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
-----------------------------------------------

 L'IDfornitore o la sua regione sociale?
La sua ragione sociale e pox altri campi che non ho citato perchè secondari
al problema (telefono nfax ecc)


 ha scritto nel messaggio 
news:r3Gkf.20578$S6.3...@twister2.libero.it...

Ciao,
per quanto concerne l'inserimento degli allegati potresti utilizzare la 
common dialog tramite api -> 5.5 Usare le API di Windows in MSAccess - Parte 
I: le Common Dialog. ...in questo maniera verresti a selezionare il file 
(anzichè scriverne il path) ed inserirlo -> Carlo ovviamente ha scritto 
l'indispensabile che puoi implementare a tuo piacimento :-)
Buon lavoro ;-) 

 ha scritto nel messaggio 
news:r3Gkf.20578$S6.3...@twister2.libero.it...

Scusa Roberto -> ho postato nel "posto" sbagliato :-) 

 ha scritto nel messaggio
news:43932e8f$0$27608$4faf...@reader1.news.tin.it...

Prova con una query che abbia il seguente codice SQL:
SELECT Ordini.IDarticolo, Articoli.Descrizione, CCur(DMin("Prezzo",
"Listini", "Articolo=" & [Ordini].[IDarticolo])) AS Prezzo,
DLookUp("RagioneSociale","Fornitori","IDfornitore=" &
Val(DLookUp("Fornitore", "Listini", "Articolo=" & [Ordini].[IDarticolo] & "
And Prezzo= " & [Prezzo]))) AS Fornitore
FROM Articoli INNER JOIN Ordini ON Articoli.IDarticolo = Ordini.IDarticolo;

Newsgroup: it.comp.appl.access
Titolo: Come posso "esplodere" il contenuto di una tabella? (stampa di più etichette per record)

Salve a tutti, avrei un problemino...
devo stampare delle ettichette, i dati di partenza sono un una tabella
tipo:
CODICE ARTICOLO - QUANTITA
A500 - 3
P400 - 2
P800 - 4
...
...
...
Io devo stampare 3 etichette per l'A500, 2 per il P400, 4 per il P800
ecc....
Quindi partendo dalla tabella sopra devo ottenere in qualche modo una
lista (stampabile in un report, quindi con una query) tipo
CODICE ARTICOLO
A500
A500
A500
P400
P400
P800
P800
P800
P800
Come posso fare? non mi viene in mente niente per "esplodere" cosě il
contenuto di una tabella tramite una query.
Ok, volendo posso farlo tramite codice... ma poi come lo metto in un
report?
Grazie a tutti, Max

non serve che "esplodi la" tabella
inserisci nel evento "su stampa" del corpo del report il codice sotto
riportato
che č disponibile anche nel sito comune
   If PrintCount < Me.Qta Then
      Me.NextRecord = False
      PrintCount = PrintCount + 1
   Else
      PrintCount = 0
   End If
saluti
"MarcoMax" <p...@papapa.pupupu> ha scritto nel messaggio
news:3a3f3585....@news.tin.it...


Newsgroup: it.comp.appl.access
Titolo: ACCESS 2000...

...ho recentemente reinstallato sulla mia macchina Access 2000 e Access97.
Devo avere entrambe le versioni, in quanto ho applicazioni diverse che
girano sulle 2 versioni. Il problema è questo: ogni volta che apro Access 97
e successivamente Access 2000, mi parte windows installer....preparazione
dell'installazione in corso...configurazione Microsoft Office 2000 premium
in corso... Anche se lascio terminare la barra progressiva, ogni volta che
riapro Access 97 e quindi Access 2000, windows installer si ripresenta,
facendomi perdere alcuni secondi. Il sistema operativo è WinNT. In
precedenza pur avendo le 2 versioni, questo "problemino" non si verificava.
E' iniziato dopo le reinstallazioni. Esiste qualche sistema per ovviare a
questo inconveniente ? Grazie a chi mi saprà aiutare.

Non so se sto dicendo una castroneria ma... forse hai questo problema perchč
hai installato prima Access 97 e poi Access 2000. Se disinstalli entrambi i
prodotti, togliendo ovviamente tutte le chiavi di registro collegate,
installa prima il 2000 e poi successivamente il 97. In teoria non dovresti
avere problemi. Se li hai cmq potrebbe essere qualche sporcizia di NT...
quindi non vedrei altre alternative se non quella di riformattare il tutto!
... Magari esiste qualche altra scorciatoia... boh... non so... la mia
scienza č limitata.
Saluti
Sergio Della Giora
Newsgroup: it.comp.appl.access
Titolo: Funzione

Private Sub Comando16_Click()
Dim RRS As Recordset
Dim QQF As QueryDef
   Set QQF = CurrentDb.QueryDefs("CONTROLLO CLI")
    QQF.Parameters![codCLI] = Null
      Set RRS = QQF.OpenRecordset
   If RRS.EOF Then
      MsgBox "ATTENZIONE NUMERO INESISTENTE NELL'ARCHIVIO."
      Exit Sub
      End If
   End Sub
Con la funzione sopra riportata, vorrei visualizzzare il messaggio quando la
query restituisce un record con valore nullo se la query è vuota non
dovrebbe comparirmi il messaggio.
Invece mi compare sempre il messaggio, anche se al posto di Null inserisco
15 (che è un codice cliente esistente) , in realta non dovrebbe comparire.
ringrazio tutti anticipatamente per la dritta
Grazie

 ha scritto nel messaggio
news:altpg5$7hj$1...@nntp.weblinea.it...

Io ho capito che tu vuoi verificare se in una certa tabella (chiamata
Tabella1) esistono record che abbiano un codCLI di valore Null.
Se è così, prova con:
If DCount("*", "Tabella1", IsNull(codCLI))  = 0 Then
    MsgBox "Non esistono record con codCLI  = Null"
Else
    MsgBox "Esistono record con codCLI = Nul"
End If
Se non è così, significa che non ho capito ciò che ti serve.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

 15 (che è un codice cliente esistente) , in realta non dovrebbe comparire.
--
Ciao :-)
Maurizio
--------
?SPQR(C)
 X
--------

 If DCount("*", "Tabella1", IsNull(codCLI))  = 0 Then
    Scusa Roberto. Questa espressione equivale a:
        DCount("*", "Tabella1", True)
quando il valore corrente del campo (o controllo) "codCLI" e' nullo, e
restituira' *sempre un valore pari al numero di tutti i record*;
ed equivale a:
        DCount("*", "Tabella1", False)
quando il valore corrente del campo (o controllo) "codCLI" NON e' nullo, e
restituira' *sempre un valore pari a zero*.
    Oppure ho capito male?


 ha scritto nel messaggio
news:am0rut$1n5c5$7...@ID-52090.news.dfncis.de...

Beh, tutti i criteri restituiscono o True o False; resta il fatto che nei
criteri occorre scrivere l'espressione che restituirą, a seconda dei casi il
True o il False che condizionano (nel caso specifico) il conteggio di un
detrminato record.

Newsgroup: it.comp.appl.access
Titolo: vba: chiudere word DOPO completamento stampa

Buongiorno a tutti/e,
tramite vba apro un documento word, compilo alcuni bookmarks e apro la
dialog per permettere all'utente di scegliere la stampante sulla quale
stampare il documento, poi chiudo il documento.
Vorrei anche uscire da word, però se aggiungo il .quit word segnala
che la stampa è ancora in corso. C'è modo di attendere la fine della
stampa, e poi chiudere l'applicazione word?
grazie,
Panathos

 ha scritto nel messaggio 
news:1173183580.7...@n33g2000cwc.googlegroups.com...
Buongiorno a tutti/e,


grazie,
Panathos
[risposta]
Puoi controllare quanti processi di stampa ci sono in coda:
es.
If (word)Application.BackgroundPrintingStatus > 0 Then
    msgbox "Ci sono: " & Application.BackgroundPrintingStatus & " documenti 
in coda."
End If
Ciao.
-- 
Sergio MAZZA 

 End If
Con questo metodo potrei fare un ciclo che ogni secondo o giù di lì
controlli se ci sono processi di stampa, e se non ce ne sono chiuda
Word salutando l'utente. Proprio quello che volevo, grazie Sergio.
ciao,
Panathos

 wrote:
Con questo metodo potrei fare un ciclo che ogni secondo o giů di lě
controlli se ci sono processi di stampa, e se non ce ne sono chiuda
Word salutando l'utente. Proprio quello che volevo, grazie Sergio.
ciao,
Panathos
[risposta]
Sarebbe meglio che facessi un loop che controlli lo stato della coda e poi 
chiudi word;
es.
Do
    If (word)Application.BackgroundPrintingStatus = 0 Then
        Exit Do
    End If
    DoEvents
Loop
Ciao.
-- 
Sergio MAZZA 

 Loop
Sì questo è meglio del ciclo che nel frattempo ho fatto io. Grazie
anche per questo suggerimento.
ciao,
Panathos

Newsgroup: it.comp.appl.access
Titolo: relazioni tra tabelle grazie

ragaziioho tre tabelle e le vorrei relazionarle tra di loro nel seguente
modo
+ cognome
      +mese
           + giorno
mese(genn,febb,marz,ecc)
giorno(1,2,3,31)
qualcuno gentilmente mi da una dritta ciao e grazie a tutti
iauuuuuuuuuuuuuuuuuuuuuuuuu

 ha scritto nel messaggio
news:tVHfa.2540$Jg1....@news1.tin.it...

Prima cosa chiarisci cose devi fare, non come lo vuoi......!
Secondo mi pare di capire che devi fare dei raggruppamenti.....!!!
Relazione 1--->Molti  Cognome --- TabellaAppuntamenti(la chiamo cosě per
esempio), ma poi non ti conviene avere una
ulteriore spezzettatura visto che i giorni nel mese sono al massimo 31.....!
Per suddividere poi Mesi e giorni fai QRY di Raggruppamento per
MESE......!!!
Ciao @Alex.

 ciao e grazie io dovrei gestire le ore dell'utente sui giorni del mese
grazie spero di essermi fatto capire ciao grazie
Newsgroup: it.comp.appl.access
Titolo: newsgroup

buon giorno a tutti e scusate se disturbo.
ho un problema che poco ha a che fare con access. 
il newsgruop. so che è possibile scericare sul mio pc i messaggi del NG.
io utilizzo Microsoft Outlokk Newsreader ma non riesco a scaricare i
messaggi. ho importato come account "it.comp.appl.access" ma mi dice che
non torva il server. qualcuno può darmi una mano.
grazie 1000 anticipatamente e scusate se ho in qualche modo "offeso"
qualcuno con questo mio messaggio.
buona giornata
carlo saulle
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 carlo saulle
Ma il tuo provider di posta elettronica ti ha comunicato il nome del suo
server delle news?
Se non l'ha fatto chiediglielo, dopo di che vedremo come usarlo.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

Newsgroup: it.comp.appl.access
Titolo: Restituzione valore da ulteriore tab in vba

Spero di essere chiaro:
Ho una prima tabella di nome TAB1 con il campo ID_UTENTE
una seconda di nome TAB2 con i capi ID_UTENTE e NOME
In una maschera basata sulla TAB1 vorrei far assegnare al comando msgbox il
valore NOME dove ID_UTENTE della TAB1 è uguale a ID_UTENTE di TAB2.
Grazie anticipatamete
Claudio

 ha scritto nel messaggio
news:YgT4a.204348$0v.57...@news1.tin.it...

Guardati l'help sulla funzione DLookup
Antonio

Newsgroup: it.comp.appl.access
Titolo: trovare la terza occorrenza in una stringa

Ciao,  (access2016)
ho un campo iperlink 
ho un percorso: 
d:\magazzino\condivisa\vito\file.pdf
 
devo cambiare via codice il percorso 
d:\magazzino\condivisa\vito
 
quindi devo rintracciare la terz occorrenza di "\"
e poi procedere.....
 
come posso fare?


Per trovare la 3° devi aver trovato la 2° ma per questo devi aver trovato la 1°...
Questo in quanto la Funzione INSTR può effettuare la ricerca a partire da una posizione, ovvero quella precedente trovata(la 2°) nel tuo caso.
Ovviamente servirebbe anche capire bene cosa devi fare....  magari basterebbe fare uno SPLIT sul Carattere backSlash e perendere il 3° elemento dell'array...
 
Ad esempio:
Debug.Print SPLIT("d:\magazzino\condivisa\vito\file.pdf ","\")(2)
 
@Alex


grazie Alex ogni tanto mi aiuti .....da na vita se non ci foste stati tutti voi il mio programma di magazzino sarebbe stato moooolto monco
niente devo sostituire una parte del percorso in un campo ipertestuale
ma banalmente ho risolto con query di aggiornamento con replace([campo];"parteDaSostituire";"parteSostituita")

Newsgroup: it.comp.appl.access
Titolo: [ot] prova msg

Scusate ma ho qualche problema e volevo
verificare
Ciao
--

 Ciao
La prossima volta per le prove usa il newsgroup it.test .
-- 
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------
Newsgroup: it.comp.appl.access
Titolo: Estrarre il nome PC

Buongiorno
ho la necessitą che in una maschera venga visualizzato il nome del PC che
utilizza il file mdb relativo.
Pertanto quando un utilizzatore della rete apre la maschera di Access avrei
bisogno che sulla maschera risultasse:
"Buongiorno XXXXX(che sta per il nome del PC) "
E' possibile ?
Grazie
Luigi

 ho la necessità che in una maschera venga visualizzato il nome del PC 

Scrivi MsgBox "Buongiorno " & Environ("COMPUTERNAME")
Ciauz
--
'gnurant come una cucuzza
Inviato da 
www.mynewsgate.net


Sostanzialmente funziona, ma estrarlo con le API è più sicuro, in quanto
non può essere alterato....!
Private Declare Function apiGetComputerName Lib "kernel32" Alias _
    "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Function MachineName() As String
'Returns the computername
Dim lngLen As Long, lngX As Long
Dim strCompName As String
    lngLen = 16
    strCompName = String$(lngLen, 0)
    lngX = apiGetComputerName(strCompName, lngLen)
    If lngX <> 0 Then
        MachineName = Left$(strCompName, lngLen)
    Else
        MachineName = ""
    End If
End Function
Ciao.
@Alex.

Newsgroup: it.comp.appl.access
Titolo: Passaggio automatico a nuovo record

Ho creato due tabelle A e B, nella tabella A ci sono i campi
DataInizio  -   OraInizio
DataFine   -   OraFine
ed un campo IDA contatore
Mentre nella tabella B
Ci sono altri campi ed un campo numerico IDA che mi serve 
per collegare le due tabelle.
Poi ho creato le rispettive maschere per entrambe le cartelle MscA e
SottoMscB, unite tramite campi master.
Vorrei che la maschera MscA passasse automaticamente al nuovo record
alla data ed ora corrispondenti ai controlli DATAFINE e ORAFINE del
record corrente cosi da generare un nuovo record dove i controlli
DATAINIZIO e ORAINIZIO avrenno lo stesso valore dei controlli
DATAFINE e ORAFINE del record precedente.
Ovviamente la sottomascherà a maschere continue passerà anchessa al
nuovo record.
Grazie per l'aiuto, non so da che parte cominciare.

 Grazie per l'aiuto, non so da che parte cominciare.
devi sfruttare l'evento timer della form, controllando se la data e l'ora 
del pc
corrispondono a quella delle tue textbox.
Praticamente nell'evento load della form imposti l'intervallo di tempo in 
cui deve essere
scatenato l'evento timer, per cui:
==========================
private sub TuaForm_Load()
me.timerinterval = 1000 'ogni secondo
end sub
==========================
poi sotto l'evento timer della form fai i debiti controlli:
==========================
private sub TuaForm_Timer()
dim oldDATAFINE, oldORAFINE
'se datafine o orafine non sono valorizzati salto il controllo
if isnull(datafine) or isnull(orafine) then exit sub
if cdate(DATAFINE &" "& ORAFINE)=now() then
   'memorizzo la data e ora del record corrente
   oldDATAFINE= me!DATAFINE
   oldORAFINE= me!ORAFINE
   'mi sposto sul nuovo record
   docmd.gotorecord,"A", acnewrec
   'scrivo la data e ora del record precedente
   me!DATAINIZIO=oldDATAFINE
   me!ORAINIZIO=oldORAFINE
end if
end sub
===========================
-- 
Ciao
Geppo
Newsgroup: it.comp.appl.access
Titolo: Acquisto programma Access originale

Sono interessato all'acquisto di Access 2000, o al pacchetto Office 2000 
Premium, purchč assolutamente originale e con certificazione.
Ciao
Mauri

 Mauri
Presso qualsiasi rivenditore M$ trovi tutto quello che cerchi.
LaLo

 LaLo
Ma io chiedevo se qualcuno per caso volesse disfarsene.
Ciao
Mauri 

 Ma io chiedevo se qualcuno per caso volesse disfarsene.
ROTFL
--
Silvio
il sito comune di it.comp.appl.access:
http://www.sitocomune.com

Newsgroup: it.comp.appl.access
Titolo: percorso assoluto di un file

Salve,
vorrei aprire una finestra di dialogo che mi faccia selezionare un file e
che mi restituisca il suo percorso assoluto..Come devo fare?? Avete del
codice da potermi passare??
Grazie
Davide
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 Davide
Lo trovi sul 
www.sitocomune.com
.
Namor
-- 
namor at inwind punto it


 Namor
Dove, di preciso??
GrAzIe
-- 


 GrAzIe
Sezione General
"Richiamare la finestra di dialogo per la selezione di un file".
Namor
-- 
namor at inwind punto it
questo articolo e` stato inviato via web dal servizio gratuito 



Scusate se mi inserisco anch'io...ho la stessa necessità....una volta
copiato il codice, come faccio ad eseguirlo?
Grazie
Marco

 > > GrAzIe


Lo metti in un modulo che poi salvi con un nome a tuo piacimento, e quando
ti serve aprire la finestra per la selezione del file richiami la public
function del modulo:
  dim percorso as string
  percorso=cmdlg_file()
  msgbox "Hai selezionato:" & vbcrlf & percorso


Newsgroup: it.comp.appl.access
Titolo: Ho cancellato una tabella...-

Si può recuperare?


per quanto ne so no, mi spiace.
by
stwe


NO!
mi dispiace per te, ma pultroppo adesso ..... ti attacchi al tram!!   :-(
Newsgroup: it.comp.appl.access
Titolo: incompatibilità programma.

Salve a tutto il NG.
 Ho realizzato un piccolo programmino con Access 2000 che ho chiamato
"System Configurator", che permette di generare uno pseudo listino
prezzi, in base a delle scelte obbligate tramite caselle combinate
leggento all'interno di una tabella "Listino".
 Questo file, fa riferimento anche a collegamenti esterni finali come
disegni o documenti di testo, a seconda della configurazione che ho
creato. Tutti questi file compreso il mio .mde, li ho masterizzati in
diversi CD e distribuiti a diverse persone.
 Fino ad ieri non ho avuto nessun problema di funzionamento, quando ho
ricevuto una e-mail da un ufficio in Grecia in cui mi si spiegava che il
programma non andava.
 
Mi hanno anche inserito il testo dell'errore che access gli generava al
momento dell'avvio del programma, però non sono ancora arrivato a capire
che cosa realmente può essere accaduto.
 Il testo riportava: "The expression On Open you entered as the event
property setting produced the following error: A problem occourred while
-System Configurator- was comunicating with the OLE server or ActiveX
Control.
-The expression may not result in the name of a macro, the name of a
user-defined function, or [Event Procedure].
-There may have been an error evaluating the function, event, or macro.
Ci tengo a precisare che questo piccolo .mde ha solamente una tabella ed
una mascera soltanto.
Vi chiedo per favore se qualcuno ha già avuto esperienze in merito e
magari mi può aiutare pre risolvere il problema.
Ringrazio anticipatamente.
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 ha scritto nel messaggio
news:80ba0d59b48329c08d3...@mygate.mailgate.org...

Nel PC greco è per caso installato il Norton Antivirus? Beh, se è così,
prova a disattivare la protezione dagli script.
O a disinstallare proprio Norton Antivirus. :-)
-- 
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

 O a disinstallare proprio Norton Antivirus. :-)
Salve, 
e grazie per l'aiuto, chiederò subito di disattivare l'antivirus,
però volevo chiederti per quale motivo questo poteva interferire
con l'esecuzione del programma, visto che anche nel mio pc e
negli altri pc dei mei colleghi abbiamo l'antivirus in esecuzione.
Saluti.


 Saluti.


 > Saluti.
Grazie tante per la spiegazione, chiederò subito di sisattivare
momentaneamente
l'antivirus.


 Saluti.
Non ho la certezza al 100% che il motivo sia quello, però penso che valga la
pena provare.


Newsgroup: it.comp.appl.access
Titolo: record uguali, tbl differenti

Salve, in un db ho 2 tabelle, tbl1 e tbl2 che hanno un campo "codice" di
tipo testo.
Come posso cercare i record uguali nelle 2 tabelle?
Grazie
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 ha scritto nel messaggio 
news:gsn38a$8te$1...@news.newsland.it...

fai una query con le due tabelle mettendo il join sui 2 campi codice, quello 
sarà l'elenco dei codici presenti in entrambe le tabelle
ciao
Max
Newsgroup: it.comp.appl.access
Titolo: Collegare un campo di sottomaschera

Dopo aver risolto i problemi degli apici di ieri, pongo un altro quesito.
Nella tabella prodotti ogni record ha un campo DescrizioneProdotti.
I prodotti vengono visualizzati in una sottomaschera con la
visualizzazione a maschere continue e fin qui  tutto bene. Vorrei
visualizzare il campo DescrizioneProdotti in una casella di testo che
pero' sia la stessa per tutti i prodotti e cambi il contenuto in base al
click sul prodotto nella sottomaschera ed eventualmente serva per
imputare/variare la descrizione del prodotto selezionato nella
sottomaschera. E' realizzabile?
Ho provato ad associare icampi ma probabilmente sto sbagliando perchč non
ottengo risultati.
Grazie 
               Gianni
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 ottengo risultati.
per quello che ho compreso:
Maschera principale: Definizione casella di testo DescProdottoinWork di tipo non
associato
Sottomaschera: Evento di click (o quello che e')
......
Parent!DescProdottoinWork = DescProdottoCorrente
.......
per  la reimputazione:
immagino su evento di uscita (dal controllo) DescProdottoinWork 
.......
nomecontrollosubform.form!DescProdottoCorrente = DescProdottoinWork 
........
--
a.cara 
Togli qualcosa dall'email
Newsgroup: it.comp.appl.access
Titolo: Perchè non funziona?

Perchè non funziona? Non mi stampa la maschera.
"Conta", dimensionata come integer, conta il numero di record.
Il percorso è l'indirizzo delle immagini da visualizzare. Arcodart, il nome
dll'immagine.
Senza la riga della stampa la routine funziona.
L'errore è nella stampa, ma se la faccio funzionare da sola, va bene.
Chi mi sa trovare la soluzione?
Grazie, Max
Conta = [Forms]![riscontro query - articolo]![Conta]
   For i = 1 To Conta
   PathImmagine = [Forms]![Percorso]![Percorso]
   NomeFile = [Forms]![riscontro query - articolo]![arcodart] & ".JPG"
   Immagine.Picture = PathImmagine & NomeFile
   DoCmd.PrintOut acSelection
   DoCmd.GoToRecord , "", acNext
   Next i
   GoTo Exit_Form_Load

 ha scritto nel messaggio
news:krUnb.77468$e6.27...@twister2.libero.it...
Perchè non hai scrittto un subject significativo?
Antonio

Newsgroup: it.comp.appl.access
Titolo: ollegare tabella da latro database protetto da Password

Ciao a tutti
mi sorge il seguente problema:
Devo collegare ad un mdb una tabella da altro mdb protetto da password tutto 
utilizzando codice VBA.
Premesso che uso il seguente comando :
    DoCmd.TransferDatabase acLink, "Microsoft Access", Adress, acTable, 
"Anagrafe", "Anagrafe", False
Come faccio a passargli la password?
Grazie a tutti
Walter

E scusate le cretinate scitte nell' oggetto :-) 

Walter ha scritto:

Lo trovi su 
www.sitocomune.com
Ciao.
-Marco-
-- 
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: Maschera - Filtro - Inputbox

Buongiorno a tutti
Ho creato una maschera con un bottone per applicare un criterio per filtrare
con il seguente codice
dim cerca as string
cerca = inputbox (messaggio,titolo)
me.filter ="nomecampo=cerca"
me.filteron=true
Il problema č che il valore di cerca ricevuto da inputbox non viene
utilizzato in me.filter.
Dopo la finestra di inputbox mi appare una finestra che apre me.filter nella
ricerca del parametro cerca ed il valore che metto in questa finestra mi
viene utilizzato per il filtro.
In effetti potrei usare la finestra che apre me.filter, ma desidero creare
una funzione con inputbox ed ho trovato questo problema
E possibile mettere piů campi in me.filter? Se si quale accorgimento si deve
avere?
Grazie per l'aiuto
Claudio
__________________
Togliere cancella

 avere?
La sintassi estesa č
"nomecampo=" & valore & " AND altrocampo=" & altrovalore
Antonio

 avere?
Oui. 
Me.Filter= "Campo1 ='" & Cerca1 & "' AND Campo2 = '" & Cerca2 & "' AND
Campo3
eccetera. 
Cia'
Max

Grazie, con il vostro aiuto ho risolto ed   ho  capito un pizzico di cose in
più.
Claudio
_________
Togliere cancella

 volte ("").
Qui capito poco, puoi farmi un esempio?
Se cerca contiene D'Aversa come devo scrivere
Grazie
Claudio
_________
Togliere cancella
Newsgroup: it.comp.appl.access
Titolo: Problema da dilettanti!!

Ciao a tutti,
premetto che non so nulla o quasi di visual basic e di access, l'unica
esperienza, se così si può definire è la costruzione di maschere più o meno
complesse.Arrivo al dunque: voglio fare un report in cui in una colonna sono
riportate alcune spese. Vorrei, al termine di ogni pagina, riportare la
somma totale delle spese che appaiono nelle pagina stessa. Penso che sia una
cosa molto banale, ma ripeto non ne so nulla.
Grazie per la vostra pazienza...
Ciao
Ricky

 ha scritto nel messaggio
news:0Au26.191968$hk4.7...@news.infostrada.it...

Ci vuole una casella di testo nel piè di pagina report nella quale scrivi,
come origine controllo,
=somma[(nomedelcampodasommare)]
fatto
ciao e auguri
antonio

Newsgroup: it.comp.appl.access
Titolo: Report con immagine

So di non essere originale, perché la cosa è stata trattata più volte. Però
non riesco ancora a capire come Access si comporti con le immagini.
In un report ho collegato una immagine jpg. In genere non ci sono problemi
ma su alcuni computer, alcuni con Access completo altri con il Runtime, il
report vien fuori senza immagine e senza nessuna segnalazione di errore.
Chiaramente l'immagine da sola è visibile su tutti i computer senza
programmi specifici (con doppio clic su esplora risorse).
Vorei capire meglio cosa ci deve essere perché un report accetti un file jpg
e setra quelli che vanno sicuramente sempre bene c'è solo bmp o amche
qualcos'altro di meno pesante.
Grazie
Sandrobi

 ha scritto nel messaggio
news:kyVxd.32862$Lg7.1...@twister1.libero.it...

Picture no funziona col runtime.
devi usare la routin floadimage di Lebans
MAssimiliano

 ha scritto nel messaggio
news:FhWxd.41348$B06....@news.edisontel.com...

E' forse questo? 
http://www.lebans.com/loadjpeggif.htm
Provo a capire come funziona.
Ma se, come dicevo,  non funziona anche dove è installato Office, vuol dire
che il problema è un altro?
Sandrobi

 qualcos'altro di meno pesante.
Access non gestisce nativamente solo il formato .bmp (e altra robetta tipo
.ico, .wmf).
E' in grado di visualizzare .jpg, .gif o altri solo se sul PC sono
installati e registrati correttamente i "filtri di conversione immagine" di
Office Standard ... che all'atto pratico convertono a Runtime in bitmap.
Tali filtri non sono liberamente distribuibili con le versioni DEV.
Tuttavia se anche lo fossero non perderesti nulla: il filtro di conversione
.Jpg alloca parecchia memoria durante la conversione a runtime in bitmap e
tende a mandare in crash Access se le immagini sono di generose dimensioni.
Anzi, se le immagini sono voluminose spesso la conversione non va a buon
fine.
Comunque non storcerei il naso sulle .bmp: la memoria allocata nei reports
poi viene deallocata quando li chiudi.
In ogni caso vanno benissimo le API che ti ha postato MA per usare
nativamente i .jpg.
Ciao.

 .ico, .wmf).
Errata corrige:
Access gestisce nativamente SOLO...       :-)
Newsgroup: it.comp.appl.access
Titolo: Aggiornamento in tempo reale

ciao a tutti
chiedo aiuto per impostare una requery di aggiornamento forms
per variazioni dati da form con subform in tempo reale
Grazie


Ryc ATTENZIONE!!!!!!Se non sbaglio sia Alex che Antonio "guistamente"
ti hanno gia tirato "le orecchie".Questa domanda sembra la stessa
(anche se rigirata) di un tuo post di qyalche giorno fa.Quindi se non
riesci basta dirlo nel vecchio post.Mi sembrava poi che avessimo
risolto...o sbaglio???
Ad ogni modo devi comunque riformulare piu' correttamente la
domanda....
Dino

 wrote:

Cioè...?
@Alex


non è la stessa cosa; se ben ricordi
erano requery su chiusura, mentre in questo
caso sono maschere di riepilogo dati che anche se dopo aggiornamento
la requery non funziona o da errore


SI ma pippe a parte se spieghi con dovizia di particolari gi diveriamo
insieme... altrimenti lo fai da solo...!
@Alex


grazie Alex per la disponibilità e pazienza.
ho creato due Forms:
1-MRiepilogoFatture (da query F)
2-MTipoProdotto (da query a campi incrociati: Q_Tot_x_Categoria)
non riesco ad aggiornare in tempo reale queste due forms
con inserimento dati da Form: MFattura con subForm: MDettaglio
Grazie ancora


ho risolto con inserimento in dopo aggiornamento
della subform:
    Form_MTipoProdotto.Requery
    Form_MRiepilogoFatture.Requery

?"@Alex"  ha scritto nel messaggio 
news:a386237f-004b-42c8...@k22g2000yqh.googlegroups.com...
SI ma pippe a parte se spieghi con dovizia di particolari gi diveriamo
insieme... altrimenti lo fai da solo...!
@Alex
___
Wow @Alex sapevo che eri un tenerone e dopo averlo strigliato un pò, ti ci 
affezionavi...
ma da qui a proporre di divertirvi insieme al posto di lasciarlo solo a 
farsi le pippe..
mi devo esser perso qualche post!!
MA

 MA
Non hai letto le Mail che ci siamo scambiati in privato... altrimenti
saresti arrossito... ;-)
@Alex

Newsgroup: it.comp.appl.access
Titolo: Spostarsi tra i record di una sottomaschera con VBA

Ciao a tutti.
Ho un problemino: ho una maschera in cui apro una sottomaschera, da codice
riesco ad inserire record nella sottomaschera (aggiungendo un record nella
tabella di origine della sottomaschera e reimpostando la proprietà
RecordSource della sottomaschera) ma poi non riesco a spostarmi su questo
nuovo record.
Ho provato con DoCmd.GoToRecord "nome sottomaschera".... ma mi dà un
messaggio di errore perchè la sottomaschera non è aperta...... Come posso
fare?
Grazie
Matteo

Matteo schrieb:

Me!NomeDelElementoInMascheraCheContieneLaSottomaschera.Setfocus
DoCmd.GoToRecord , ,acLast
o un altro offset se il nuovo record non é l'ultimo in ordine.
--
HTH
Karl
*********
Scusate il mio malissimo Italiano. Faccio solo esercizi qui.
Access-FAQ (Tedesco): 
http://www.donkarl.com
APP: 
http://www.AccessProfiPool.com

 wrote in message
6FjR4.85892$6X3.2...@news.chello.at...

Newsgroup: it.comp.appl.access
Titolo: Data inizio - Fine anno

Salve,
avrei bisogno di creare una espressione per ottenere in una casella di
testo, o in un campo di una tabella, come predefinita: la data di inizio
anno e in un'altra quella di fine anno. Qualcuno mi può aiutare, oppure se
esiste suggerirmi una funzione?
Grazie Fabio

 ha scritto nel messaggio 
news:RZpUd.53907$lB4.1...@twister1.libero.it...

Ciao Fabio
per ultimo giorno dell'anno:
=DateSerial(DatePart("aaaa";Date());DatePart("m";Date())+11;1)-1
per il primo giorno dell'anno:
=DateSerial(DatePart("aaaa";Date());DatePart("m";Date())-1;1)
---
Daniele 


www.donkarl.com/it
 FAQ 2.8
-- 
HTH
Karl
*********
Access FAQ: 
www.donkarl.com/it
+info sulla prima Conferenza Italiana per Sviluppatori di Access (CISA1) 

 ha scritto nel messaggio 
news:38ev40F...@individual.net...

Ciao Karl
c'è differenza tra il mio e il tuo suggerimento?
lo chiedo, per curiosità, avendo scaricato un esempio dal tuo sito in 
tedesco, se non ricordo male,
ed in una maschera ci sono tanti esempi di date.
mi sono sbagliato?
---
Daniele 

 ...
Per l'anno è piu semplice che per i mesi perché è sempre fisso
che si tratta di 1.1. e 31.1.
Vedi gli esempi sul link indicato. Adesso sono in italiano. ;-)
-- 
cu


Newsgroup: it.comp.appl.access
Titolo: casella combinata non si svuota in nuovo record

salve
ho creato un maschera per l'inserimento nuovo cliente
contenete una serie di caselle combinate legate a tabelle correlate
perche' quando salvo il record e passo a nuovo record una casella mi
propone il vecchio valore?
grazie
Marro

[omissis]
Quando si posta lo stesso quesito su più gruppi, è buona abitudine
segnalarlo.
Nello specifico, ti ho risposto su MPIOA.
-- 
PBsoft di Gabriele Bertolucci
www.pbsoft.it
skype:pbsoftsolution

Newsgroup: it.comp.appl.access
Titolo: Quesito elementare da utente inesperto

Scusate se vi disturbo per un quesito che magari a molti può sembrare
elementare, ma non conosco Access e non riesco a trovare soluzione.
Dispondo di un file con 17.000 record (circa).
In uno dei campi è presente una serie di numeri (molti dei quali
uguali).  Dovrei riuscire a sapere quanti sono i numeri uguali e
quanti per ogni numero.
Faccio un esempio molto semplice.  Mettiamo che la colonna di numeri
che segue sia il campo su cui devo andare a lavorare:
2
3
3
4
4
4
5
2
2
Il risultato dovrebbe darmi:
in questo campo ci sono 
3  ---> 2
2  ---> 3
4  ---> 4
1  ---> 5
Come posso fare ?
grazie
ellegi

 wrote in message
news:8ao6essg3cf16nrc2...@4ax.com...

La soluzione e' la seguente istruzione SQL
SELECT Count([MiaTabella].[MioCampo]) AS ContaOccorrenze,
[MiaTabella].[MioCampo]
FROM [MiaTabella]
GROUP BY [MiaTabella].[MioCampo];

 ebbe a scrivere:

Con una query.
Mi pare che l'autocomposizione possa fare al caso...
Ciao
Basjlico

quanti per ogni numero.
Vedi l'help su query con raggruppamento e conteggio.
E' facile, stai tranquillo ;-)
--
Lorenzo Coronati
--
<<Nessuno sa che questa affermazione e' vera>>
(John D. Barrow)
--

--
Ringrazio pubblicamente tutti per le risposte e i consigli che mi sono
stati dati.
ellegi
Newsgroup: it.comp.appl.access
Titolo: TextBox e scroolbar

havrei la necesità di ottenere una textbox con la scroolbar a fianco, quindi
inserisco la mia tetxbox nel form, assegno la propietà barrediscorrimento su
"verticale" ma quando apro il form la barra non appare, mentre se creo un
nuovo form, inserisco la textbox ora la barra appare, neanche copiando pari
pari la textbox del nuovo form sul form che mi interessa la barra non appare
comunque, dove sto' sbagliando?
ciao omnitow

 ha scritto nel messaggio
news:adtdfs$kp6$1...@fe2.cs.interbusiness.it...

bellissimo havrei
non sbagli da nessuna parte e' access che ogni tanto fa il cretino, a me
cose analoghe capitano con il codice dei pulsanti.
soluzione: cancella e rifai la maschera.
by
stwe

 ha scritto nel messaggio
news:MsxM8.24524$K4.5...@twister2.libero.it...


 ha scritto nel messaggio
news:advs3j$2si$1...@fe1.cs.interbusiness.it...

scrivi dopo come faccio io,
hai provato a rinominarla? altrimenti non so che dirti (che gia' e' stupida
questa...)
by
stwe

Newsgroup: it.comp.appl.access
Titolo: Gestione delle date

Salve dovrei creare una query mediante una istruzione sql
tramite codice visual basic . Pero' quando vado a comporre l'istruzione sql
dovetto effettuare una selezione per date mi succede una cosa del genere
....
public data_attuale as date
public string istruzione_sql as string
istruzione_sql = "Select * from tabella where data = #" & data_attuale & "#"
bene la data la introduce come dd/mm/yy ma la  ricerca avviene come mm/dd/yy
c'e' 1 modo per impostarmi il formato della data in quella istruzione in
modo che la traduzione in formato string sia del tipo mm/dd/yy  ?
spero di essere stato sufficientemente chiaro :-)
grazie a quanti mi aiuteranno

 ha scritto nel messaggio
news:Juxdb.132596$hE5.4...@news1.tin.it...

Devi utilizzare l'istruzione Format (guarda l'help in linea)
Ciao
Antonio

 ha scritto nel messaggio
news:Juxdb.132596$hE5.4...@news1.tin.it...

Prova cosě:
....
public data_attuale as date
public string istruzione_sql as string
istruzione_sql = "Select * from tabella where data = #" &
Format(data_attuale, "mm/dd/yyyy") & "#"
Per maggiori dettagli vai sul Sito Comune (link qui sotto) e nella Sezione
Queries leggi la FAQ di Federico Luciani intitolata "Problemi con le date
nelle stringhe SQL".
-- 
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


Grazie molto gentile
Newsgroup: it.comp.appl.access
Titolo: vba - aprire report con piu' condizioni

buongiorno,
purtroppo non ne vengo fuori
 
da vba vorrei aprire un report per poi esportare il pdf
 
Set RS = CurrentDb.OpenRecordset(SQL, dbOpenDynaset)
DoCmd.Echo False
Do Until RS.EOF
 
   DoCmd.OpenReport "STAMPA_RETTA", acViewPreview, , ("primodicognome_nome'" & RS![PrimoDiCOGNOME_NOME] & "'") & ("bimbo='" & RS![bimbo] & "'")
    DoCmd.OutputTo acOutputReport, "", acFormatPDF, "C:\ASILO_NIDO\RETTE\" & RS![PrimoDiCOGNOME_NOME] & "_" & RS![bimbo] & ".pdf", False
    DoCmd.Close acReport, "STAMPA_RETTA"
    RS.MoveNext
Loop
DoCmd.Echo True
 
 
 
MsgBox "Le anagrafiche sono state esportate sulla cartella Asilonido\rette", vbCritical + vbOKOnly, "Esportazione eseguita"
 
Application.FollowHyperlink "C:\ASILO_NIDO\RETTE\"
 
 
il problema che mi da è errore nel tentativo di passare ad un'altra visualizzazione
 
se apro il report cosi
 
   DoCmd.OpenReport "STAMPA_RETTA", acViewPreview, , "bimbo='" & RS![bimbo] & "'")
 
tutto ok ma non ottengo il risultato voluto:
se ci sono piu' pagine dello stesso[bimbo] con due [primodicognome_nome] mi crea un solo pdf
 
grazie a tutti
 
ciao ciao


Innanzitutto se forzi ECHO a cosa serve aprire il Report in modalità PREVIEW...?
Aprilo in modalità HIDDEN...
Poi devi mettere un DOEVENTS nel Loop... e magari uno SLEEP per consentire la generazione del PDF... prima di chiudere...
 
@Alex

Alex sei sempre gentilissimo. Stasera ci lavoro e studio un pochino. Purtroppo le conoscenze sono quelle che sono :) 

 Alex sei sempre gentilissimo. Stasera ci lavoro e studio un pochino. Purtroppo le conoscenze sono quelle che sono :)
 
Niente da fare anche se metto un doevents ed un timer
sempre stesso errore


Non ci avevo badato... ma sei sicuro sia corretta la stringa passata alla WHERECOND:
 
 ("primodicognome_nome'" & RS![PrimoDiCOGNOME_NOME] & "'") & ("bimbo='" & RS![bimbo] & "'") 
 
Mi pare ci sia qualche cosa che non torna...
NOn è che volevi scrivere questo:
 
DoCmd.OpenReport "STAMPA_RETTA", acViewPreview, , "primodicognome_nome='" & RS![PrimoDiCOGNOME_NOME] & "'" & "AND bimbo='" & RS![bimbo] & "'"
 
Saluti
@Alex


immensamente grazie!risolto!


Ultimo dubbio
 
ora l'apertura e' in hidden 
oltre a salvarmi il file manda in stampa il report sulla stampante principale
 
perche' questo?
 
grazie ancora


la cosa strana e' che se il report e' salvato con imposta pagina su stampante predefinita parte anche la stampa sulla stampante predefinita
se cambio un'altra stampante non va in stampa