title: icona barra applicazioni

text:
"ringo" <
rin...@tiscali.it
> wrote in message
news:d4aqu7$k3e$
1...@newsread.albacom.net
[CUT]
> ALT-STOP
>
> io intendo un'altra cosa...scusami della poca
> chiarezza del mio post...
Non era poco chiaro era assolutamente fraintendibile. ;-)
> con del codice pubblicato (mi sembra da Karl)
> nascondo la finestra di access e tutto funziona
> bene, PERO' ho un problema se riduci ad icona
> l'applicazione (dove ho nascosto la finestra di access)
> nella barra delle applicazioni non SI VEDE PIU'
> L'ICONA DELL'APPLICAZIONE.
>
> Mi chiedevo quindi se via codice riesco a gestire
> un'icona manualmente sulla barra delle applicazioni.
>
> grazie
>
> ringo
Dai un'occhiata al modello ad Oggetti sulle
proprietà dell'Oggetto CurrentDb in particolare:
CurrentDb.Properties("AppIcon") = strIconPath
Non sono convinto che in seguito all'uso dell'Hide di AccessMDI
si riesca ad esporre l'icona, ma facci sapere come lavora.
Ciao



title: AIUTO: come variare in base a parametro il nome del file JPG da visualizzare?

author: shotawry

text:
Qulcuno puo' spiegarmi come fare a modificare di volta in volta il
file .jpg che viene visualizzato in un report generato da una query?
Mi spiego meglio: lancio uan query parametrica che mi filtra i campi e
mi genera un report; in questo report vorrei visualizzare un'immagine
(non presente nel database ma prelevata da una cartella presente su
C:) che deve variare in base al parametro in questione.
Es: con questo comando " [Forms]![m_sceltanominativo]![nomescelto]"
filtro la query in base alla varibile [nomescelto] e vorrei che mi si
visualizzasse nel report generato un il file c:\nomescelto.jpg.
quindi se [nomescelto]= mario ....allora vorrei venisse visualizzato
il file mario.jpg; se [nomescelto]= pino ... vorrei che venisse
visualizzato il file pino.jpg etc etc....
S'e' capito qualcosa di cosa mi serve? :-)))
Grazie mille per ogni eventuale aiuto


author: Sergio MAZZA

text:
"shotawry" <
mettic...@tiscali.it
> ha scritto nel messaggio
news:907se25gfs6v8mrin...@4ax.com...

Nel report:
- inserisci un controllo immagine (es. Immagine) con proprietà: Tipo
immagine - collegata;
- gestisci l'evento "su formattazione" ed inserisci:
es.
Me!Immagine.Picture = "C:\" & Me![nomeScelto] & ".jpg"
Comunque sarebbe meglio che ti creassi un campo calcolato, nella query, che
verifica la presenza del file prima di passarlo al report; magari impostando
una immagine in b/n con scritto "file non trovato" o "immagine non
disponibile".
es.(campo calcolato)
nomeFile: iif(dir("c:\" & [nomeScelto] & ".jpg");"c:\" & [nomeScelto] &
".jpg","c:\immNonDisp.jpg")
Nel report, come spiegato sopra, il codice punterà direttamente al campo
calcolato:
Me!Immagine.Picture = Me![nomeFile]
Ciao.
--
Sergio MAZZA


text:
On Fri, 25 Aug 2006 08:13:03 +0200, "Sergio MAZZA"
<
sergi...@tiscali.it
> wrote:
>"shotawry" <
mettic...@tiscali.it
> ha scritto nel messaggio
>news:907se25gfs6v8mrin...@4ax.com...
>> Qulcuno puo' spiegarmi come fare a modificare di volta in volta il
>> file .jpg che viene visualizzato in un report generato da una query?
>>
>> Mi spiego meglio: lancio uan query parametrica che mi filtra i campi e
>> mi genera un report; in questo report vorrei visualizzare un'immagine
>> (non presente nel database ma prelevata da una cartella presente su
>> C:) che deve variare in base al parametro in questione.
>>
>> Es: con questo comando " [Forms]![m_sceltanominativo]![nomescelto]"
>> filtro la query in base alla varibile [nomescelto] e vorrei che mi si
>> visualizzasse nel report generato un il file c:\nomescelto.jpg.
>>
>> quindi se [nomescelto]= mario ....allora vorrei venisse visualizzato
>> il file mario.jpg; se [nomescelto]= pino ... vorrei che venisse
>> visualizzato il file pino.jpg etc etc....
>>
>>
>> S'e' capito qualcosa di cosa mi serve? :-)))
>>
>> Grazie mille per ogni eventuale aiuto
>
>Nel report:
>- inserisci un controllo immagine (es. Immagine) con proprietą: Tipo
>immagine - collegata;
>- gestisci l'evento "su formattazione" ed inserisci:
>es.
>Me!Immagine.Picture = "C:\" & Me![nomeScelto] & ".jpg"
>
>Comunque sarebbe meglio che ti creassi un campo calcolato, nella query, che
>verifica la presenza del file prima di passarlo al report; magari impostando
>una immagine in b/n con scritto "file non trovato" o "immagine non
>disponibile".
>es.(campo calcolato)
>nomeFile: iif(dir("c:\" & [nomeScelto] & ".jpg");"c:\" & [nomeScelto] &
>".jpg","c:\immNonDisp.jpg")
>
>Nel report, come spiegato sopra, il codice punterą direttamente al campo
>calcolato:
>Me!Immagine.Picture = Me![nomeFile]
>
>Ciao.
OK grazie, per quanto riguarda il file da visualizzare ci siamo. non
capisco pero' come fare a verificare l'esistenza o meno dell'imagine
richiesta.  Mi spiego meglio, non riesco ad applicare la formula con
IIF che mi hai suggerito nella query che passa il parametro al report,
in quano la funzione DIR non mi vine riconosciuta.
Dove sbaglio?


text:
"shotawry" <
mettic...@tiscali.it
> ha scritto nel messaggio
news:h7o5f2h73mue0ke7g...@4ax.com...
> OK grazie, per quanto riguarda il file da visualizzare ci siamo. non
> capisco pero' come fare a verificare l'esistenza o meno dell'imagine
> richiesta.  Mi spiego meglio, non riesco ad applicare la formula con
> IIF che mi hai suggerito nella query che passa il parametro al report,
> in quano la funzione DIR non mi vine riconosciuta.
>
> Dove sbaglio?
Mi sembra strano; che errore ti da?
Riporta il codice che hai scritto...
Ciao.
--
Sergio MAZZA


text:
"shotawry" <
mettic...@tiscali.it
> ha scritto nel messaggio
news:h7o5f2h73mue0ke7g...@4ax.com...
---omissis---
> Dove sbaglio?
Per la cronaca (tua); quando decidi di inviare lo stesso messaggio a più NG
che trattano lo stesso argomento, sarebbe carino indicarlo...
Grazie.
Ciao.
--
Sergio MAZZA


text:


Scusami, ma non pensavo di contravvenire ad alcuna regola di
netiquette. Come ci si comporta in questi casi?
Per quanto riguarda l'errore che compare quando provo a lanciare la
query eccolo: Funzione 'dir' non definita nell'espressione.
ed ecco il l'espressione che ho usato nel campo calcolato NOMEFILE:
IIf(Dir("c:\" & [nomescelto] & ".jpg");"c:\" & [nomescelto] &
".jpg";"c:\immnondisp.jpg")
Ciao e grazie


text:
"shotawry" <
mettic...@tiscali.it
> ha scritto nel messaggio
news:fqb8f2tomr5lbkbrq...@4ax.com...
> Scusami, ma non pensavo di contravvenire ad alcuna regola di
> netiquette. Come ci si comporta in questi casi?
Si scrive nel messaggio o nell'oggetto [CrossPost] in "nomeNG".
> Per quanto riguarda l'errore che compare quando provo a lanciare la
> query eccolo: Funzione 'dir' non definita nell'espressione.
>
> ed ecco il l'espressione che ho usato nel campo calcolato NOMEFILE:
> IIf(Dir("c:\" & [nomescelto] & ".jpg");"c:\" & [nomescelto] &
> ".jpg";"c:\immnondisp.jpg")
>
> Ciao e grazie
Incolla il codice che hai scritto...
Ciao.
--
Sergio MAZZA


text:


OK ho risolto inserendo il controllo nel report.
Grazie mille per il suggerimento


title: Chiedo AIUTO!!!!

author: Roberto da casa

text:
"Alex" <
Ale...@hotmail.it
> ha scritto nel messaggio
news:8sijvs$g4g$1...@serv1.albacom.net...
> Ciao a tutti, mi trovo in un casino enorme ho appena costruito un DB
> ovviamente con access 97, ma mi sono bloccato al momento fatidico di dover
> calcolare la somma di tutti i campi che contengono all'interno il "valore"
> SI o NO.
> Chiarisco. ho creato un database per l'archiviazione di un cerot numero di
> autovetture, tra i vari campi ho creato un campo "SI/NO" che mi serve per
> stabilire quali autovetture siano efficienti e non, ma come posso sapere
> quante autovetture sono efficienti e quante quelle inefficienti?
>
> Grazie!!!
>
>
Ammettendo che la tua tabella si chiami Tabella1, che  il tuo campo "SI/NO"
si chiami CampoSiNo e che vuoi sapere quante vetture sono efficienti, creati
una query il cui codice SQL sia il seguente:
SELECT Count(Tabella1.CampoSiNo) AS ConteggioDiCampoSiNo
FROM Tabella1
WHERE ((((Tabella1.CampoSiNo))=True));
--
Roberto
---------------------------------------------
il sito comune di it.comp.appl.access:
http://members.xoom.it/it_db_access/
---------------------------------------------


title: Chiedo AIUTO!!!!

author: Alex


title: Chiedo AIUTO!!!!

author: Antonio Biso

text:
Roberto da casa <
r.ma...@libero.it
> wrote in message
yk5H5.38134$Nz.11...@news.infostrada.it...
>
> > Chiarisco. ho creato un database per l'archiviazione di un cerot numero
di
> > autovetture, tra i vari campi ho creato un campo "SI/NO" che mi serve
per
> > stabilire quali autovetture siano efficienti e non, ma come posso sapere
> > quante autovetture sono efficienti e quante quelle inefficienti?
> >
> > Grazie!!!
>
> Ammettendo che la tua tabella si chiami Tabella1, che  il tuo campo
"SI/NO"
> si chiami CampoSiNo e che vuoi sapere quante vetture sono efficienti,
creati
> una query il cui codice SQL sia il seguente:
>
> SELECT Count(Tabella1.CampoSiNo) AS ConteggioDiCampoSiNo
> FROM Tabella1
> WHERE ((((Tabella1.CampoSiNo))=True));
O, qualora ti serva il risultato da codice o come espressione da passare ad
un controllo calcolato, usa la Dcount in questo modo:
Dcount("*","Tabella1","[CampoSiNo]=true")
Antonio


title: Chiedo AIUTO!!!!

text:
GRAZIE PER L'AIUTO E A PRESTO
"Roberto da casa" <
r.ma...@libero.it
> ha scritto nel messaggio
news:yk5H5.38134$Nz.11...@news.infostrada.it...
>
> "Alex" <
Ale...@hotmail.it
> ha scritto nel messaggio
> news:8sijvs$g4g$1...@serv1.albacom.net...

> Ammettendo che la tua tabella si chiami Tabella1, che  il tuo campo
"SI/NO"
> si chiami CampoSiNo e che vuoi sapere quante vetture sono efficienti,
creati
> una query il cui codice SQL sia il seguente:
>
> SELECT Count(Tabella1.CampoSiNo) AS ConteggioDiCampoSiNo
> FROM Tabella1
> WHERE ((((Tabella1.CampoSiNo))=True));
>



title: Automazione Word in Access

author: Visir

text:
La mia routine:
[Cut]
Set appW = New Word.Application
Set Doc = New Word.Document
'Fase di apertura documento tramite modello
PercorsoDot = CurrentProject.Path & "\Riepilogo.dot"
Set Doc = appW.Documents.Add(PercorsoDot, False)
'Scrittura dei dati
[Cut]
Doc.Bookmarks("Data").Select
Selection.TypeText "Elaborato il: " & Data
AppW.Visible = True
Exit_Err:
    Set Doc = Nothing
    Set appW = Nothing
    Exit Sub
Gest_Err:
    MsgBox Err.Description, vbCritical, Titolo
    Resume Exit_Err
Exit Sub
La prima volta funziona ma Word rimane nei task. La seconda volta se
rilancio la routine e Access mi indica Computer o server remoto assente!
Qualcuno sa come risolvere il problema o quantomeno indicarmi cosa sbaglio?
Grazie in anticipo
Luca
HTH


title: Automazione Word in Access

author: ALESSANDRO Baraldi

text:
"Visir" <
no_l.pett...@libero.it
> ha scritto nel messaggio
news:skMBe.250$B6....@twister1.libero.it...

E' ovvio...!
Hai solamente chiuso l'Istanza all'Oggetto, ma non l'Oggetto pertanto....!
Oltre che Killare le variabili Oggetto Killa pure il DOC, salvandolo se lo
riteieni
opportuno.
Ora dai un'occhiata a questo codice che ti ho estratto da una Routine un pò
complessa.
Innanzitutto sfrutta il LateBinding che ti svincola dall'inserimento dei
Riferimenti di
Word cosa sempre apprezzabile, secondo gestisce corettamente le istanze e
l'eventuale errore tra il GetObject e CreateObject, quindi ne Chiude
l'Oggeto
e le ISTANZE in modo corretto:
' PS se c'è qualche mancata dichiarazione o buco è dovuto al TAGLIA/INCOLLA
   Dim   wordApp As Object
   Dim   wordDoc As Object
   Dim RepSel
   On Error GoTo gestErrori
   ' APRE SE ESISTE GIA' UN'OGGETTO WORD
   Set wordApp = GetObject(, "Word.Application")
   ' NEL CASO NON ESISTA VERRA' GESTITO L'ERRORE
   ' E VERRA' CREATO UN NUOVO OGGETTO WORD
   With wordApp
      ' MEMORIZZA LO STATO DI [RIMPIAZZA SELEZIONE] PER
      ' RIPRISTINARLO ALL'USCITA IN QUANTO ORA LO FORZIAMO=TRUE
      ReplSel = .Options.ReplaceSelection
      .Options.ReplaceSelection = True
      Set wordDoc = .Documents.Add(strDOT)
      wordApp.Visible = True
      wordDoc.Activate
      .Selection.TypeText Text:= "Elaborato il: " & Data
   End With
   wordDoc.SaveAs ..............................
   wordApp.Quit
Esci:
  If Not wordDoc Is Nothing Then Set wordDoc = Nothing
  If Not wordApp Is Nothing Then Set wordApp = Nothing
  Exit Function
gestErrori:
   If err.Number = 429 Then
       'se c'è stato un errore è perchè Word non era già aperto:
       'aprilo adesso
       Set wordApp = CreateObject("Word.Application")
       Resume Next
   Else
      GoTo Esci
   End If
End Function
Ciao
--
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.mantuanet.it/alessandro.baraldi/
---------------------------------------------------------------------------


title: somma in report sbagliata con filtro in maschera

text:
ho una form a cui applico un report con la proprietą me.filter
solo che se apro il report e faccio la somma parziale di una certa categoria
mi somma tutto e non solo i record visualizzati
esempio
ho i seguenti form nella tabella
data         categoria    prezzo
01/01/04  carne          10
01/01/04  pesce          25
25/12/04  carne          12
filtrando la form con data fino al 31/01/04 ottengo a video questi record
01/01/04  carne          10
01/01/04  pesce          25
se apro il report e dico di farmi la somma della categoria carne ottengo 22
anzichč 10 che mi aspetterei
come applico il filtro della form al report in vba?
Grazie a tutti


author: Cinzia

text:
"Simba883" <
simb...@libero.it
> ha scritto nel messaggio
news:clto8a$5tv$1...@lacerta.tiscalinet.it...

Ciao Simba883,
Alla OpenReport nel PArametro filterString passi il filtro della maschera
DoCmd.Openreport ,.., me.filter
ciao
Cinzia


text:
>>
> Ciao Simba883,
> Alla OpenReport nel PArametro filterString passi il filtro della maschera
> DoCmd.Openreport ,.., me.filter
>
>
> ciao
> Cinzia
>
si già lo faccio ma poi nel campo categoria faccio la somma in questo modo
bilanciocorrente è una tabella
Me.totcat = DSum("importo", "bilanciocorrente",
"[categoria]=reports![bilancio]![categoria]")
come gli dico di fare questa somma dei soli record che ho a video nella
form?
Grazie.


author: Roberto dalla campagna

text:
Simba883 <
simb...@libero.it
> wrote in message
clto8a$5tv$1...@lacerta.tiscalinet.it...

Per filtrare il report nello stesso modo in cui hai filtrato la maschera, se
la maschera si chiama MiaMaschera, a fronte dell'evento "Su apertura" del
report scrivi:
Me.Filter = Forms!MiaMaschera.Filter
Me.FilterOn = True
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


text:
Simba883 <
simb...@libero.it
> wrote in message
cltqg7$8nr$1...@lacerta.tiscalinet.it...

Dopo aver filtrato il report come indicato nell'altro mio messaggio, se il
campo Categoria è Numerico prova a scrivere la DSum così:
Me!totcat = DSum("importo", "bilanciocorrente",  _
Me.Filter & " And Categoria=" & Me!Categoria)
se invece il campo Categoria è di tipo Testo prova così:
Me!totcat = DSum("importo", "bilanciocorrente",  _
Me.Filter & " And Categoria='" & Me!Categoria & "'")



text:
>
> Me!totcat = DSum("importo", "bilanciocorrente",  _
> Me.Filter & " And Categoria=" & Me!Categoria)
>
> se invece il campo Categoria č di tipo Testo prova cosě:
>
> Me!totcat = DSum("importo", "bilanciocorrente",  _
> Me.Filter & " And Categoria='" & Me!Categoria & "'")
>
> --
> Roberto
>
> ---------------------------------------------
> il Sito Comune di it.comp.appl.access:
>
http://www.sitocomune.com
funziona grazie mille!


title: numero di records nella maschera corrente

author: Franco

text:
ciao a tutti

Come conto tutti i records nella maschera corrente?
Grazie


text:
"Franco" <
Franco.D...@libero.it
> ha scritto nel messaggio
news:4fb7540a$0$1382$4faf...@reader2.news.tin.it...
> ciao a tutti
>
> Come conto tutti i records nella maschera corrente?
> Grazie
>
=(Recordset.RecordCount)


text:

Lo fa già Access. In basso a sinistra nelle form (proprietà Navigation Buttons nella scheda formattazione della form)


author: Bruno Campanini

text:
After serious thinking Franco wrote :

Che in Access 2010/64 non funziona più!
Funziona invece:
=Count(*)

Bruno


text:
"Bruno Campanini" <
brun...@libero.it
> ha scritto nel messaggio
news:4fb76f26$0$1385$4faf...@reader2.news.tin.it...

ciao Bruno
io ho 2003
e funziona
cmq grazie


title: problema con carattere chr(10) in textbox

author: @Arold [             ]

text:
se uso un testo con chr(10) in una textbox vedo una lineetta verticale
anzichč vedere il testo andare a capo mentre la stessa stringa usata con
sendobject e poi guardando la email in outlook express si comporta
correttamente e cioč vedo il testo andato a capo.
voi sapete il motivo?
textbox = "ciao" & chr(10)  & "mare" ottengo ciao|mare
mentre in outlook con sendobject ottengo
ciao
mare
perchč? grazie.


author: omnitow

text:
"@Arold [ ]" <
aro...@libero.it
> ha scritto nel messaggio
news:b6n7ap$cre$2...@lacerta.tiscalinet.it...

prova cosě:
textbox = "ciao" & chr(10)  & chr(13) & "mare"
oppure
textbox = "ciao" & vbnewline & "mare"
Ciao, omnitow


text:
> oppure
> textbox = "ciao" & vbnewline & "mare"
>
> Ciao, omnitow
funziona il vbnewline grazie mille


text:
"omnitow" <
omn...@tin.it
> ha scritto nel messaggio
news:j%Fja.9970$DT4.3...@twister1.libero.it...

Attenzione che il vbnewline non č sempre usabile, per esempio nell'origine
riga di un  controllo calcolato.
Inoltre la sintassi č sbagliata:
č chr(13) & chr(10)
Antonio


title: Non stampare un campo vuoto

author: DBN

text:
Ho  un report con il quale vengono stampati prodotti e loro movimenti
(ordinati per prodotti).
Durante la fase di imputazione sono stati inseriti dei "prodotti vuoti". La
stampa del report quindi parte con alcune righe bianche.
Come posso fare per evitare la stampa dei prodotti che non sono compilati:
Pensavo di inserire la funzione IIF tipo:
IFF ("campodelprodotto"<>"0";"campodelprodotto";???
Come vedete non riesco a darne fuori.
Grazie in anticipo per ogni aiuto.
NDB


title: Non stampare un campo vuoto

author: sv

text:
DBN ha scritto:



Setta la proprietą del controllo "CampoDelProdotto" a Riducibile=Sģ.
rgrds
SC
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: Non stampare un campo vuoto

author: namor

text:
DBN ha scritto:

Usa una query come origine dati, e sul campo che può essere vuoto imposta
il criterio Is not null.
Namor
--
------------------------------
Siamo tutti nella stessa barca (alcuni incatenati ai remi, altri con la
frusta in mano)!



title: Richiesta di aiuto

author: Voltapagina

text:
Ho bisogno di programmare in access una query che vada a pescare in un campo
"Titoli" i record relativi ad una serie di volumi.
Vorrei che la query andasse a trovare tutti i titoli  cercati digitandone
soltanto le tre lettere iniziali della prima e della seconda parola.
Digitando, per esempio, "letlat" per trovare tutti i records che hanno come
titolo "letteratura italiana" oppure "cormat" per "Corso matematica" e cosě
via.
Devo agire col comando sql? Devo impostare i criteri o cosa?
Non penso che si tratti di una cosa particolarmente difficile ma per una
persona come me che di Access ignora praticamente tutto si tratta di un
lavoro impossibile da realizzare senza un aiuto.
Ringrazio anticipatamente tutti coloro che risponderanno.


title: Richiesta di aiuto

author: Tappo

text:

Non č proprio semplice ma potrebbe essere cosě:
SELECT MiaTabella.Titolo
FROM MiaTabella
WHERE (((Left([Titolo],3))=Left([MiaStringa],3)) AND
((Left(Right([Titolo],Len([Titolo])-InStr(1,[Titolo],"
")),3))=Right([MiaStringa],3)));
copia l'sql e adattalo (MiaTabella e MiaStringa devono essere sostituite con
i veri nomi).
Ciao
--
Togli il tappo per rispondermi


title: Non vedo i record filtrati nella maschera

author: maurizio

text:
Ciao a tutti,
volevo dare una mano a ^Mauro^ (Neo) rispondendo alla sua richiesta di ieri
31 Marzo, ma mi sono infognato con il codice che riporto di seguito :
'A00/W98
Private Sub Testo4_Exit(Cancel As Integer)
Dim SalvaB As String
'1° Filtro  - Filtra in base a parametro immesso (Teso4)
    DoCmd.ApplyFilter "", "[tblProva]![CampoA]=[Forms]![mscProva]![Testo4]"
'Elimina Filtro
    DoCmd.ShowAllRecords
'Memorizza CampoB del record filtrato
SalvaB = Nz(DLookup("CampoB", "tblProva", "[CampoA] =
[Forms]![mscProva]![Testo4]"))
'2° Filtro   -   Filtra di nuovo per trovare tutti i record con CampoB = a
quello del primo record filtrato
 DoCmd.ApplyFilter "", "[Forms]![mscProva]![Testo4]=[tblProva]![CampoB]"
MsgBox SalvaB   ' Mi fa vedere il valore salvato correttamente
End Sub
Formalmente e' tutto corretto (non ho alcon messaggio di errore), pero'
nella maschera singola (non continua)
non vedo i record filtrati. Vedo solo il parametro immesso, i 2 controlli
(CampoA e CampoB) a spazi e il selettore di record :  1 Filtrati.
Grazie.
Maurizio


title: [it.comp.appl.access] benvenuto su Usenet!

author: Gruppo Coordinamento NEWS-IT

text:
Ciao!
Questo newsgroup (it.comp.appl.access) non è moderato: puoi
trovare informazioni su di esso nel suo manifesto, che trovi qui in fondo.
Tutto questo è arabo per te? leggi
http://www.news.nic.it/news-it/docs/glossario.html
 .
Tieni presente che esistono anche questi gruppi:
it.test        - per fare tutte le prove con le news
it.aiuto       - per domande generiche di aiuto
it.news.aiuto  - per tutti i problemi riguardanti le news
Se hai fretta, probabilmente la soluzione al tuo problema connesso alle
news la trovi già qui:
http://www.news.nic.it/news-it/oth/aiuto-20.txt
 .
Alcuni gruppi sono moderati, e funzionano in modo diverso: scopri
come a
http://www.news.nic.it/news-it/docs/moderaz1.html
 .
Ricorda che SCRIVERE MAIUSCOLO equivale a gridare, e che la cosa
può infastidire molti di coloro che ti leggeranno. E già che ci sei,
ricordati di quotare poco, e di lasciare il testo citato *prima* del tuo.
Infine, questo gruppo fa parte della gerarchia it.*: se non sai cos'è un
gruppo, una gerarchia, oppure it.*, lo puoi scoprire a
http://www.news.nic.it/news-it/
 .
Questo gruppo dovrebbe trattare dell'ammbiente Microsoft-Access, di
specifiche tecniche, aggiornamenti, discussioni, scambi di codice
sorgente e routines, chiarimenti su eventuali bug, discussioni tra
utenti e in particolar modo tra sviluppatori.
Sarebbe inoltre utile per lo scambio di URL per link interessanti
riguardanti il pacchetto.


title: [VBA] Nome macchina

author: Victor Von Doom

text:
Ciao a tutti!
Come posso ottenere il nome della macchina in VBA? (anche da funzioni dll)
Grazie!


title: [VBA] Nome macchina

author: Fabio DALLA VILLA

text:
"Victor Von Doom" <
d0...@studiocode.com
> ha scritto nel messaggio
news:cibls8$o2p$1...@grillo.cs.interbusiness.it...
> Ciao a tutti!
> Come posso ottenere il nome della macchina in VBA? (anche da funzioni dll)
> Grazie!
 prova questa
Function fOSMachineName() As String
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
        fOSMachineName = Left$(strCompName, lngLen)
    Else
        fOSMachineName = ""
    End If
End Function
Fabio Dalla Villa


title: [VBA] Nome macchina

text:
...
premettendo questo:
Private Declare Function apiGetUserName Lib "advapi32.dll" Alias _
    "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
 Fabio Dalla Villa


title: [VBA] Nome macchina

author: MA

text:
"Victor Von Doom" <
d0...@studiocode.com
> ha scritto
nel messaggio
news:cibls8$o2p$1...@grillo.cs.interbusiness.it...

Environ("GetComputerName")
Massimiliano


title: [OT] ho perso di vista i thread cui stavo partecipando

author: Roberto da casa

text:
A causa di un fastidioso problema al mio computer sono stato tra l'altro
costretto ad annullare la sottoscrizione a questo NG per poi rieffettuare
ex-novo la sottoscrizione, cosě facendo ho perduto ogni traccia di quali
fossero i thread cui stavo partecipando con la conseguenza che li ho
involontariamente abbandonati: me ne scuso con gli altri partecipanti a quei
thread.
--
Roberto
-----------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
-----------------------------------------------


title: Il miglior programmatore Access italiano

author: Luciano (DOC)

text:
Oggi ho telefonato prima a Federico Luciani e poi a Lorenzo Coronati senza
dire chi fossi, ma semplicemente chiedendo:
"Pronto? Parlo con li miglior programmatore Access italiano?"
Entrambi non hanno battuto ciglio ma hanno prontamente risposto:
"Si, pronto..."
Ah, la modestia!!!:-)))
Saluti.
Luciano
(DOC)
Meno male che non ho telefonato pure a Biso.....


author: Lbo

text:
>Oggi ho telefonato prima a Federico Luciani e poi a Lorenzo Coronati senza
>Meno male che non ho telefonato pure a Biso.....
e io chi sono, l'ultimo dei fessi?
--
non studio non lavoro non guardo la tv
non vado al cinema non faccio sport
----------------------------------------
il sito comune di it.comp.appl.access:
http://members.xoom.it/it_db_access


text:
Non vorrai mica farci credere che tu alla stessa domanda avresti
risposto in maniera diversa ? :-))
Vincenzo Turturro
---------------------------------------------------------
Se no diventiamo tutti **** dai portatili o peggio ancora
provetti poeti fiorentini come vturturro.
(Cosě disse
ivan....@tiscalinet.it
 Ven 25 Aug 2000 09:34:52 +0200)


author: Alessandro Cara

text:
Domenica Telocompilo
--
Alessandro Cara


author: Silvio Berruti

text:
"Luciano (DOC)" <
mc5...@mclink.it
> ha scritto nel messaggio
news:90k10p$o0t$4...@news.mclink.it...
> Oggi ho telefonato prima a Federico Luciani e poi a Lorenzo Coronati senza
> dire chi fossi, ma semplicemente chiedendo:
> "Pronto? Parlo con li miglior programmatore Access italiano?"
> Entrambi non hanno battuto ciglio ma hanno prontamente risposto:
> "Si, pronto..."
> Ah, la modestia!!!:-)))
> Saluti.
>
> Luciano
> (DOC)
>
> Meno male che non ho telefonato pure a Biso.....
A me non hai telefonato, perché ti saresti preso come risposta "Come... solo
italiano?" :-))
Ben tornato su questo NG!
Dov'eri di bello?  ;-P
--
Silvio



author: Roberto dal portatile

text:
"Luciano (DOC)" <
mc5...@mclink.it
> ha scritto nel messaggio
news:90k10p$o0t$4...@news.mclink.it...
> Oggi ho telefonato prima a Federico Luciani e poi a Lorenzo Coronati senza
> dire chi fossi, ma semplicemente chiedendo:
> "Pronto? Parlo con li miglior programmatore Access italiano?"
> Entrambi non hanno battuto ciglio ma hanno prontamente risposto:
> "Si, pronto..."
> Ah, la modestia!!!:-)))
> Saluti.
>
> Luciano
> (DOC)
>
> Meno male che non ho telefonato pure a Biso.....
>
>
Ma allora ci sei............
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://members.xoom.it/it_db_access/
---------------------------------------------


title: problema query ultimo cliente

author: Herbst Alex

text:
ho il seguente problema:
dovrei generare una query, la quale mi da le ultime due vendite di ogni
cliente.
per esempio: (questo è il risultato che dovrei ottenere)
data vendita        cliente        articolo        quantita
20.02.00            alfa            alfa                10
18.02.00            alfa            beta               12
20.02.00            beta           test                5
01.01.00            beta           alfa                  2
queste sarebbero le ultime due vendite per ciascun cliente
qualcuno riesce ad aiutarmi ???


title: problema query ultimo cliente

author: Thierry Rega

text:
Semplice o quasi!
Il concetto è che generi una tabella (es.: Ultime2Vendite) dove metterai i
risultati di una query di "accodamento" reiterata per ogni cliente.
Questa query darà il risultato in base alla impostazione sul campo cliente
dove imporrai che [cliente]=alfa poi beta e via di seguito. La query sarà
ordinata per date decrescenti e da "Proprietà query" imposti il valore della
proprietà PrimiValori a per esempio 5. Da lì guardando la query in
"visualizzazione query" troverai Top n, dove n è il numero dei primi record
da prendere (nell'esempio n=5). Normalmente puoi mettere solo i valori che
ti propone il controllo di PrimiValori (Non è possibile impostare tale
proprietà direttamente nel codice) e quindi puoi provare a cambiare n di Top
n al valore desiderato, cioè 2 in questo caso.
Se Top n non è modificabile (non l'ho verificato), allora devi prendere i
primi due records dalla tabella della query con una piccola routine. Il
risultato infine lo metterai nella tabella Ultime2Vendite.
Questa tabella Ultime2Vendite sarà nella voce "Origine riga" del tuo casella
di controllo.
Ovviamente per evitare che a l'avviamento della maschera o del database ti
dica che non esiste questa tabella Ultime2Vendite, devi crearla in fin dei
conti in modo definitivo, e svuotarla ogni tanto con dei criteri che solo tu
puoi decidere.
Spero che non ti sembri difficile. Se leggi bene le istruzioni il concetto è
semplice, la scrittura del codice forse un pò laboriosa, ma neanche tanto!
Buona fortuna e fammi sapere.
Thierry Rega


title: problema query ultimo cliente

text:
grazie sei un genio,
funziona veramente,
ho creato una tabella nuova chiamate ultime_2vend,
poi ho impostato una query con i campi richiesti,
come criteri nel campo clienti ho messo alfa,
e come top 2
il risultato erano le ultime due vendite del cliente alfa,
infine ho inserito i due record nella tabella tramite la query di
accodamento.
unico problema:
devo cambiare il criterio nel campo per ogni cliente, se ne imposto piu in
una volta non funziona.
hai un idea come possa automatizare l'inserimento di un cliente alla
volta???
comunque grazie del tuo aiuto
da solo non so quanto ci avvrei messo per arrivarci
ciao
alex
Thierry Rega <
thier...@tiscalinet.it
> schrieb in im Newsbeitrag:
89pkhc$ba2$1...@pegasus.tiscalinet.it...



title: problema query ultimo cliente

text:
Dovrebbe funzionare la funzione For Each...Next.
Dove Each sarebbe per ogni valore del campo [clienti] che metti in una
variabile da utilizzare per la query. Leggi bene l'help che vedrai che
questa istruzione è molto comoda :-)
Adesso che ci penso attenzione ai casi in cui il cliente ha solo 0 o 1
vendita. Devi verificare se con Top 2 lo accetta lo stesso o se dà un
messaggio di errore. In qual caso dovrai fare la stessa query dove nella
proprietà PrimiValori rimmetti Tutti (ricordati che PrimiValori non è
modificabile tramite codice). Quindi faresti un test all'interno di For
Each...Next che verifica il numero di records risultanti.
Forse adesso funzionerà
Ciao
Thierry Rega


title: Problema con query

author: Stefx

text:
Salve a tutti, ho un problemi con dei raggruppamenti che non riesco a
risolvere. Ho una tabella che registra delle chiamte fatte col telefono. I
campi della tabella sono:
ID: Id Contatto (Numerico)
ID_CHIAMATA: Id della signola chiamata (Contatore)
DATA: Data della chiamata (Data/Ora)
ORA: Ora della chiamata (Data/Ora)
Devo fare una query che mi renda come risultato gli ID raggruppati con
accanto la chiamata più recente fatta a quell'ID. Io ho provato con:
SELECT
CHIAMATE.ID
, Max(CHIAMATE.Data) AS MaxDiData, Max(CHIAMATE.Ora) AS
MaxDiOra
FROM CHIAMATE
GROUP BY
CHIAMATE.ID
;
ma mi rende il massimo della data e dell'ora anche se non sono sullo stesso
record.
Scusatemi se non sono stato chiaro.
Grazie a chiunque perderà del tempo per me.
Stefano


title: Problema con query

author: Maurizio Borrelli

text:
> "Stefx" [...]:
> Salve a tutti, ho un problemi con dei raggruppamenti che non riesco a
> risolvere. Ho una tabella che registra delle chiamte fatte col telefono. I
> campi della tabella sono:
> ID: Id Contatto (Numerico)
> ID_CHIAMATA: Id della signola chiamata (Contatore)
> DATA: Data della chiamata (Data/Ora)
> ORA: Ora della chiamata (Data/Ora)
> Devo fare una query che mi renda come risultato gli ID raggruppati con
> accanto la chiamata piů recente fatta a quell'ID. Io ho provato con:
> SELECT
CHIAMATE.ID
, Max(CHIAMATE.Data) AS MaxDiData, Max(CHIAMATE.Ora) AS
> MaxDiOra
> FROM CHIAMATE
> GROUP BY
CHIAMATE.ID
;
> ma mi rende il massimo della data e dell'ora anche se non sono sullo
> stesso record.
    Giustamente... Infatti e' esattamente questa la tua richiesta, anche se
non corrisponde al tuo desiderio. Purtroppo non e' stata una scelta molto
felice quella di dividere Data e Ora in due campi Data/ora. Se possibile
sarebbe bene ridisegnare la struttura dei dati. Per intanto potresti
arrangiarti piu' o meno cosi':
    SELECT

CHIAMATE.ID
      , Max(
             DateValue(CHIAMATE.Data)
           + TimeValue(CHIAMATE.Ora)
           )
        AS MaxDiDataOra
    <...>
--
Ciao.
Maurizio
--------
?SPQR(C)
 X
--------


title: Problema con query

text:
"Maurizio Borrelli" <
maurizio...@freepass.it
> ha scritto nel messaggio
news:ajopsf$1debin$1...@ID-52090.news.dfncis.de...
> > "Stefx" [...]:
> > Salve a tutti, ho un problemi con dei raggruppamenti che non riesco a
> > risolvere. Ho una tabella che registra delle chiamte fatte col telefono.
I
> > campi della tabella sono:
> > ID: Id Contatto (Numerico)
> > ID_CHIAMATA: Id della signola chiamata (Contatore)
> > DATA: Data della chiamata (Data/Ora)
> > ORA: Ora della chiamata (Data/Ora)
> > Devo fare una query che mi renda come risultato gli ID raggruppati con
> > accanto la chiamata più recente fatta a quell'ID. Io ho provato con:

Grazie. Vedo che riesco di fare.
Stefano


title: Problema con query

author: Roberto dalla campagna

text:
Stefx <
NOSPA...@freemail.it
> wrote in message
7oO79.73700$n04.2...@twister2.libero.it...

Innanzitutto DATA è un nome riservato di Access, pertanto ti sconsiglio di
usarlo come nome di un tuo oggetto: potresti avere degli inspiegabili
errori; è per questo che nella mia query di esempio ho sostituito il nome
DATA con il nome DATA1.
Prova con una query di raggruppamento che abbia il seguente codice SQL:
SELECT
CHIAMATE.ID
, Max(CHIAMATE.DATA1) AS MaxDiDATA1,
DMax("ORA","CHIAMATE","ID=" & [ID] & " AND DATA1 =#" &
Format(Max([Chiamate].[DATA1]),"mm/dd/yyyy") & "#") AS MaxDiOra
FROM CHIAMATE
GROUP BY
CHIAMATE.ID
;
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Problema con query

text:
> "Roberto dalla campagna" [...]:
> Innanzitutto DATA č un nome riservato di Access, pertanto ti sconsiglio di
> usarlo come nome di un tuo oggetto: potresti avere degli inspiegabili
> errori;
[...]
    Scusa il disturbo ma non sono riuscito a trovare dove sta scritto cio'
che affermi e la cosa mi interessa molto.
    Potresti, tu o altri del ng, gentilmente fornirmi un link o una
indicazione bibliografica riguardo tali parole riservate?
    Inoltre: se e' una parola riservata lo sara' perche' serve a qualcosa. A
cosa serve "DATA"?



title: Problema con query

author: Giorgio Gazzaniga

text:
"Maurizio Borrelli"
> > "Roberto dalla campagna" [...]:
> > Innanzitutto DATA č un nome riservato di Access, pertanto ti sconsiglio
di
> > usarlo come nome di un tuo oggetto: potresti avere degli inspiegabili
> > errori;
>     Scusa il disturbo ma non sono riuscito a trovare dove sta scritto cio'
> che affermi e la cosa mi interessa molto.
>
>     Potresti, tu o altri del ng, gentilmente fornirmi un link o una
> indicazione bibliografica riguardo tali parole riservate?
>
>     Inoltre: se e' una parola riservata lo sara' perche' serve a qualcosa.
A
> cosa serve "DATA"?
http://support.microsoft.com/default.aspx?scid=kb;it;I286335
Mah, piů che DATA sembrerebbe DATE in inglese...


title: Problema con query

text:
> "Giorgio Gazzaniga" [...]:
>
http://support.microsoft.com/default.aspx?scid=kb;it;I286335
> Mah, più che DATA sembrerebbe DATE in inglese...
    Ok, allora quella (quelle) gia' l'avevo "schedata" grazie alla guida in
linea. Mi preoccupavo che ci fosse un elenco misterioso che io, causa la mia
imbranataggine, non fossi ancora riuscito a recuperare...
    Grazie!



title: Acquisire dati dalla seriale in un DB di Access

text:
Ho la necessità di acquisire dati da un apparecchiatura con porta RS232 in
Access, quali istruzioni usare? (logicamente se possibile)
Ringrazio anticipatamente.


author: CarloCos

text:
La risposta è sì.
Usa l'ocx MSComm32.
Segui la guida di questo ActiveX per il resto.
Devi ovviamente conoscere quali impostazioni usare per leggere quei dati:
Parità, bit di stop...
Ciao, Carlo
"MH1755" <
mh1...@mclink.it
> ha scritto nel messaggio
news:89lrbu$i40$1...@news.mclink.it...



title: Compilazione DB con Form ADOBE

author: mauro

text:
Ciao a tutti,
qualcuno sa indicarmi come posso compilare una db usando delle form di
ADOBE (PDF) via ODBC?
In lettura va tutto bene ma in scrittura non sono riuscito a venirne fuori.
Grazie in anticipo.
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


author: alma

text:
Il database "xxxxxxx" è di sola lettura.
Non sarà possibile salvare le modifiche apportate a dati o a
definizioni di oggetti nel database.
Questa è il messaggio che mi appare aprendo un database. Il problema
non si porrebbe se effettivamente il db fosse di sola lettura, ma
questo mi accade con qualsiasi db che apro con questo pc (notebook) e
addirittura se faccio tasto destro nuova applicazione microsoft access
e tento di accedervi....
Cosa potrebbe essere successo? Problema del pc, permessi, o proprio di
access...? Perchè...? Quali tentativi potrei tentare prima di
reinstallare access...? (Che non è proprio la soluzione ideale in
questo momento....)
Grazie.


title: Il database "xxxxxxx" è di sola lettura.

author: Michele (Giò)

text:
"alma" <
ala...@gmail.com
> ha scritto nel messaggio
news:1188034286.1...@q4g2000prc.googlegroups.com...



Grazie.
Hai provato cliccando con il tasto destro sulle proprietà del file a vedere se il db è un file di
sola lettura? Se si, togli la spunta.
Michele


author: Carlo Costarella

text:
"alma" <
ala...@gmail.com
> ha scritto nel messaggio
news:1188034286.1...@q4g2000prc.googlegroups.com...



Grazie.
------------------------------------
Controlla questa chiave di registro:
HKEY_CURRENT_USER\Software\Microsoft\Office\10.0\Access\Settings
alla chiave "Default Open Mode for Databases" che dovrebbe contenere un
valore DWord pari a 0 (zero).
Se hai un'altra versione di Access basta cercare 11 o 12 al posto di 10.
Ciao, Carlo


author: MA

text:

Access 2007 preinstallato?
--
--
MAssimiliano Amendola
www.accessgroup.it
Cisa - Conferenza Italiana Sviluppatori Access
Segrate (MI), 7-8 giugno 2007


text:

Effettivamente c'era qualche problema di licenze in quanto ho office
2003 word+excel e office 2002 o XP con frontpage+access, comunque ho
reinserito il cd ed ho riparato l'installazione, ora funziona.
Grazie.


title: protezione database

author: Riccardo

text:
Salve a tutti.
Esiste un modo per evitare di far importare le tabelle in un altro database,
o qualche altro modo per rendere sicuri i dati in un database, senza mettere
password in apertura?
grazie .


title: protezione database

author: Sib

text:
"Riccardo" <
ricc...@free.panservice.it
> ha scritto nel messaggio
news:8tm21k$dmk$1...@news.panservice.it...

Solo la protezione a livello utente.
Inizia dalla guida in linea, vediti le FAQ del sito comune e poi vedi tu.
Sib


title: protezione database

text:
Sib <
cerriserv...@tiscalinet.it
> wrote in message
8tmi3h$d4s$1...@lacerta.tiscalinet.it...

pero' in questo modo se viene reinstallato access su di un computer o viene
sostituito il file system.mdw si perde tutta la protezione, vero?
oppure c'è un modo per far si che un'applicazione funzioni solo con un file
mdw specificandone il nome, le dimensioni e la data di creazione?
Riccardo


title: protezione database

author: sib

text:
Riccardo dice
>
> Sib risponde
> >
> > "Riccardo" ririsponde
> > >
> > > Esiste un modo per evitare di far importare le tabelle in un altro
> > database,
> > > o qualche altro modo per rendere sicuri i dati in un database, senza
> > mettere
> > > password in apertura?
> >
> > Solo la protezione a livello utente.
> > Inizia dalla guida in linea, vediti le FAQ del sito comune e poi vedi
tu.
> >
> > Sib
>
> pero' in questo modo se viene reinstallato access su di un computer o
viene
> sostituito il file system.mdw si perde tutta la protezione, vero?
> oppure c'è un modo per far si che un'applicazione funzioni solo con un
file
> mdw specificandone il nome, le dimensioni e la data di creazione?
>
> Riccardo
>
Sbagli, ma non preoccuparti, e' un errore in cui cadono molti (almeno io mi
consolo cosi' visto che c'ero caduto).
E' buona la seconda domanda, come ti ho gia' detto trovi maggiori dettagli
sul sito comune. (indirizzo qui sotto).
Ciao, Sib
--
------------------------------------------------------
il sito comune di it.comp.database.access:
http://members.xoom.it/it_db_access
------------------------------------------------------
4000 anni fa', il saggio egizio Ptahhotep scrisse:
"... perche' non esistono saggi per nascita."
------------------------------------------------------
Saturiamo ECHELON:
bomba saddam attentato medio oriente


title: protezione database

author: Luciano (DOC)

text:
Riccardo ha scritto nel messaggio <8tmk27$j4b$
1...@news.panservice.it
>...
>
>pero' in questo modo se viene reinstallato access su di un computer o viene
>sostituito il file system.mdw si perde tutta la protezione, vero?
>oppure c'è un modo per far si che un'applicazione funzioni solo con un file
>mdw specificandone il nome, le dimensioni e la data di creazione?
La seconda che hai detto.
E' spiegato molto dettagliatamente sul sito comune.
Saluti.
Luciano


title: protezione database

text:
> Sib risponde
Sbagli, ma non preoccuparti, e' un errore in cui cadono molti (almeno io mi
consolo cosi' visto che c'ero caduto).
E' buona la seconda domanda, come ti ho gia' detto trovi maggiori dettagli
sul sito comune. (indirizzo qui sotto).
Ciao, Sib
###########
Luciano (DOC) <
mc5...@mclink.it
> wrote in message
8tsmfe$2r7$8...@news.mclink.it...
> Riccardo ha scritto nel messaggio <8tmk27$j4b$
1...@news.panservice.it
>...
> >oppure c'è un modo per far si che un'applicazione funzioni solo con un
file
> >mdw specificandone il nome, le dimensioni e la data di creazione?
>
> La seconda che hai detto.
> E' spiegato molto dettagliatamente sul sito comune.
> Saluti.
>
> Luciano
__________________________
Ciao a tutti,
ho cercato, come vi avete suggerito, sia nelle FAQ che nei Tips & Tricks,
pero' l'unica cosa che sono riuscito a trovare è la FAQ "Come utilizzare la
sicurezza di Access", nella quale, in ultimo dice :
14) REIMPOSTARE IL SYSTEM.MDW DI DEFAULT
Lanciare Wrkgadm.exe (presente nella cartella Access), fare "Entra" e
selezionare "C:\WINDOWS\SYSTEM\SYSTEM.MDW" premere OK e poi Esci. Questo per
evitare la richiesta di password ogni volta che si apre Access. Per aprire
il vostro DB protetto creare un collegamento sul Desktop nella riga di
comando inserire:
"C:\Programmi\Microsoft Office\Office\msaccess.exe" /wrkgrp Mio.MDW
DBProt.MDB
Ok!, ma se un utente cambia il collegamento e li ci scrive solo il nome del
file mdb, questo non parte con il file di gruppo system.mdw libero da
vincoli e restrizioni?
Cosa cambia nel fare cio'?
Oppure c'è qualche altro metodo che non sono riuscito a trovare?
Ciao Riccardo


title: protezione database

author: Federico Luciani

text:
Riccardo wrote:
> [cut]
> Ciao a tutti,
> ho cercato, come vi avete suggerito, sia nelle FAQ che nei Tips & Tricks,
> pero' l'unica cosa che sono riuscito a trovare è la FAQ "Come utilizzare la
> sicurezza di Access", nella quale, in ultimo dice :
> 14) REIMPOSTARE IL SYSTEM.MDW DI DEFAULT
> Lanciare Wrkgadm.exe (presente nella cartella Access), fare "Entra" e
> selezionare "C:\WINDOWS\SYSTEM\SYSTEM.MDW" premere OK e poi Esci. Questo per
> evitare la richiesta di password ogni volta che si apre Access. Per aprire
> il vostro DB protetto creare un collegamento sul Desktop nella riga di
> comando inserire:
> "C:\Programmi\Microsoft Office\Office\msaccess.exe" /wrkgrp Mio.MDW
> DBProt.MDB
> Ok!, ma se un utente cambia il collegamento e li ci scrive solo il nome del
> file mdb, questo non parte con il file di gruppo system.mdw libero da
> vincoli e restrizioni?
> Cosa cambia nel fare cio'?
> Oppure c'è qualche altro metodo che non sono riuscito a trovare?
> Ciao Riccardo
Se hai creato un tuo pippo.mdw ed hai impostato bene i permessi, quando
qualcuno cerca d aprire il tuo.mdb usando un altro gruppo di lavoro (ad es.
system.mdw) non ci riesce, cioe' non puo aprirlo.
--
Federico
--------------------------------------
Sito Comune di it.comp.appl.access
http://members.xoom.it/it_db_access
mailto:
it_db_...@usa.net
--------------------------------------
Tutte le richieste che mi arrivano
in privato, vengono cestinate.
--------------------------------------
Rimuovi paperino. per e-mail
--------------------------------------


title: protezione database

text:
> Se hai creato un tuo pippo.mdw ed hai impostato bene i permessi, quando
> qualcuno cerca d aprire il tuo.mdb usando un altro gruppo di lavoro (ad
es.
> system.mdw) non ci riesce, cioe' non puo aprirlo.
>
> --
> Federico
######
grazie
Riccardo


title: protezione database

text:
Ciao a tutti.
Sto provando a seguire il famoso esempio di qualche giorno fa'.Riesco a
proteggere le tabelle, ma entrando come NuovoAmministratore non mi fa
importare le maschere, i report, le macro ed i moduli.
Ho provato adesso ad entrare come Amministratore (che adesso è solo utente)
e me le fa importare.
Da cosa dipende?
grazie


title: protezione database

text:

Sicuramente dai permessi che hai dato a NuovoAmministratore sui vari oggetti.



title: protezione database

text:
Federico Luciani <
fluc...@paperino.libero.it
> wrote in message
3A083552...@paperino.libero.it...
> Riccardo wrote:
> > Ciao a tutti.
> > Sto provando a seguire il famoso esempio di qualche giorno fa'.Riesco a
> > proteggere le tabelle, ma entrando come NuovoAmministratore non mi fa
> > importare le maschere, i report, le macro ed i moduli.
> > Ho provato adesso ad entrare come Amministratore (che adesso è solo
utente)
> > e me le fa importare.
> > Da cosa dipende?
> > grazie
>
> Sicuramente dai permessi che hai dato a NuovoAmministratore sui vari
oggetti.
>
> --
> Federico
>
#######
Fatto, importato tutto..ma adesso mi domando una cosa:
Ho creato alcuni utenti con autorizzazioni diverse e finche' si usa lo
stesso file mdw (esempio pippo) va tutto bene.
Nel caso in cui si entri in un gruppo di lavoro (es. pippo2.mdw) libero da
vincoli, il programma mi parte, pero' mi entra direttamente come Utente
Amministratore con le autorizzazioni che gli avevo assegnato prima (quasi
nulle in modo da non farlo utilizzare)...quindi il programma non va avanti
perche' mi da errori (mancano autorizzazioni, oppure errore di run-time 2455
Riferimnto non valido alla proprietà Form/Report nell'espressione, errore
che scompare se do l'autorizzazione alla tabella principale in aggiornamento
ed eliminazione dati).
Pero' cosi' non va bene, in quanto a cosa mi è servito diversificare le
autorizzaz. per i vari Utenti? (se poi entrando in un grp senza vincoli per
non chiedere la psw cosi' come nell'esempio sul sito comune  riportato di
seguito)
14) REIMPOSTARE IL SYSTEM.MDW DI DEFAULT Lanciare Wrkgadm.exe (presente
nella cartella Access), fare "Entra" e selezionare
"C:\WINDOWS\SYSTEM\SYSTEM.MDW" premere OK e poi Esci. Questo per evitare la
richiesta di password ogni volta che si apre Access. Per aprire il vostro DB
protetto creare un collegamento sul Desktop nella riga di comando inserire:
"C:\Programmi\Microsoft Office\Office\msaccess.exe" /wrkgrp Mio.MDW
DBProt.MDB
O magari puo' servire proprio per evitare che il programma venga utilizzato
in caso di sostituzione del file pippo.mdw  (pero' cosi' il punto 14 è
errato!)
Ciao e grazie in anticipo.
Riccardo


title: protezione database

text:
Riccardo wrote:
> Federico Luciani <
fluc...@paperino.libero.it
> wrote in message
> [cut]

elimina tutti i permessi per l'utente admin standar (Amministratore), compreso
quello di apertura/esecuzione per l'oggetto database; in questo modo l'mdb piu'
essere aperto solo se il gruppo di lavoro e' quello definito da te (pippo.mdw)



title: Google da Access2003

author: Defresco

text:
leggendo un post su un ng di
vb.net
 pensavo di aver trovato il sitema per
fare le ricerche su google utilizzando Access 2003 e memorizzare i risultati
poi trovati in una tabella. Ma non avevo capčito proprio nulla. il
componente menzionato sul quel messaggio non lo trovo su access dunque
presumo sia un'esclusiva di
vb.net
 e non di vba. Conoscete il
corrispondente? Voglio dire come potrei fare ad inviare la query a google?
(il messaggio che ho citato fa uso dell'oggetto Inet). Grazie per i
consigli. A presto e buona domenica !
Fabio.


title: Google da Access2003

author: ALESSANDRO Baraldi

text:
"Defresco" <
defr...@yahoo.it
> ha scritto nel messaggio
news:4711e9b1$0$4790$4faf...@reader4.news.tin.it...

Il controllo INET č un controllo esterno ma lo puoi istanziare in modo
semplice:
    Dim oHttp As Object
    Dim txtRequestString As String
    Set oHttp = CreateObject("MSXML2.XMLHTTP")
    txtRequestString = "
http://www.sitocomune.com/
"
    oHttp.Open "GET", txtRequestString, False
    oHttp.send
    txtHTML = oHttp.responseText
Ciao
--
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.alessandrobaraldi.it
---------------------------------------------------------------------------


title: PROBLEMONE DOPO AGGIORNAMENTO OFFICE2000

author: claudio cucaio

text:
Ho scaricato dal sito ufficiale Microsoft l'aggiornamento SR-1 per office
2000,dopo averla installata non riesco piu' ad usare Office,tutti i
programmi in esso contenuti (word,excel,access...tutti,insomma!) mi si
chiudono automaticamente dopo qualche istante!Sono disperato...qualche
dritta?Ciao e grazie a tutti!
_________________________________________________________________________
Get Your Private, Free E-mail from MSN Hotmail at
http://www.hotmail.com
.
--
Posted from [62.98.41.99] by way of
f289.law9.hotmail.com
 [64.4.8.164]
via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: A97/W98 File danneggato

author: Nicole

text:
In seguito ad un crash del computer il file .mdb risulta danneggiato ed
illeggibile. Esiste qualche programma che mi puņ aiutare a recuperare i
dati?.
Grazie


title: A97/W98 File danneggato

author: Sergio Della Giora

text:
"Nicole" <
n.i...@inwind.it
> ha scritto nel messaggio
news:9gb30e$hi7$1...@nreadB.inwind.it...
> In seguito ad un crash del computer il file .mdb risulta danneggiato ed
> illeggibile. Esiste qualche programma che mi può aiutare a recuperare i
> dati?.
> Grazie
>
>
Se il files si è danneggiato per un settore difettoso dell'HD puoi usare il
programma Lost&Found, oppure il Tiramisu... Se invece ciò è dovuto ad un
errore logico temo che non ci sia nulla da fare, a meno che non trovi
qualche temp...
Saluti
Sergio Della Giora


title: A97/W98 File danneggato

author: All Eyez On Me

text:
Nicole <
n.i...@inwind.it
> wrote in message 9gb30e$hi7$1...@nreadB.inwind.it...
> In seguito ad un crash del computer il file .mdb risulta danneggiato ed
> illeggibile. Esiste qualche programma che mi può aiutare a recuperare i
> dati?.
> Grazie
>
>
Hai provato a crearti un nuovo db e importare tabelle, form etc del db
danneggiato?
Certe volte funziona.
AEOM


title: Come Creare una tabella temporanea a partire da una maschera

author: Andrea

text:
Ciao a tutti!
Come da oggetto ho una maschera con 3 sottomaschere aventi origine da
3 query diverse e dei controlli calcolati. Da questa maschera dovrei
fare un report.
Ho lurkato un po' i messaggi del newsgroup e ho visto che il consiglio
più ricorrente è quello di creare una tabella temporanea.
Non ho trovato esempi su come fare però. Qualcuno è così gentile da
instradarmi?
Un altra cosa non ho capito se in questa tabella temporanea è
possibile "copiare i valori" dei controlli della maschera?
Cioè se la mia mascherà ha un controllo calcolato 'interessi' basato
sui valori di altri controlli è possibile avere una tabella con questi
valori come nome del campo?
Spero di non essere stato criptico e che ci sia qualche anima pia
disposta ad aiutarmi!
Thanks


text:
"Andrea" <
mean...@libero.it
> ha scritto nel messaggio
news:abf487eb.03050...@posting.google.com...

Ovviamente la tabella temporanea o di appoggio va costruita e salvata prima
di riempirla.
Anzi vorrei aggiungere che prima di riempirla va opportunamente svuotata
magari con una query di eliminazione.
Così se hai una tabella di appoggio con : ID numerico, Cognome Testo,
DataNascita data/ora potresti accodarvi dei valori prelevandoli direttamente
da una maschera. Puoi fare tutto da codice aprendo il recordset della
tabella a inserdo i valori della maschera:
Dim RCS as Recordset
Set RCS  = currentdb.OpenRecordset("MiaTabellaDiAppoggio")
With RCS
.AddNew
!ID = Me.NumeroID
!Cognome = Me.Cognome
...
.Update
End With
RCS.Close
Puoi ugualmente usare delle query di accodamendo.
Ciao, Carlo


text:
> Ovviamente la tabella temporanea o di appoggio va costruita e salvata prima
> di riempirla.
> Anzi vorrei aggiungere che prima di riempirla va opportunamente svuotata
> magari con una query di eliminazione.
> Cosě se hai una tabella di appoggio con : ID numerico, Cognome Testo,
> DataNascita data/ora potresti accodarvi dei valori prelevandoli direttamente
> da una maschera. Puoi fare tutto da codice aprendo il recordset della
> tabella a inserdo i valori della maschera:
> Dim RCS as Recordset
> Set RCS  = currentdb.OpenRecordset("MiaTabellaDiAppoggio")
>
> With RCS
> .AddNew
> !ID = Me.NumeroID
> !Cognome = Me.Cognome
> ...
> .Update
> End With
> RCS.Close
>
> Puoi ugualmente usare delle query di accodamendo.
> Ciao, Carlo
Grazie Carlo,
approfitto ancora della tua pazienza ,(forse prima avrei fatto meglio
a cercare qualcosa in internet ma spero mi scuserai), sono curioso per
la sintassi che hai usato in questo pezzo di codice, in particolare la
parola chiave (credo) with. L'ho cercata nell'help in linea ma non la
trovo.
Ho capito bene se penso che una volta scritto 'with RCS' da lě in poi
(fino a end with) scrivere .AddNew o .Update equivale a scrivere
RCS.AddNew o RCS.Update?
Perche non c'č nel mio help in linea ??
Mistero.
Grazie CMQ!
Ciao,Andrea


title: Query di selezione

author: Giorgio M

text:
Salve,
Ho una tabella con all'interno:
data    nome_banca    condizione   note
01/03/2009    unicredit     5.00   fisso
15/03/2009    unicredit     3.50   variabile
21/03/2009    intesa        3.65   fisso
22/03/2009    intesa        3.75   fisso
23/03/2009    intesa        3.78   variabile
Dovrei creare una query che mi visualizza per ogni banca l'ultima
condizione  (in ordine di data)che ho inserito
Ho provato a creare una query di selezione con 'totali', ma se metto sul
campo data il criterio MAX e sul campo banca, sul campo condizione e sul
campo note RAGRUPPAMENTO non va bene.
in quanto mi visualizza due volte la stessa banca
Come posso fare ?
Grazie
Ciao
Giorgio
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: Query di selezione

author: Roberto da Parma

text:
"Giorgio M" <
giorg...@tiscalinet.it
> ha scritto nel messaggio
news:gq8fsl$oeu$1...@news.newsland.it...

ordini anzitutto per data poi il raggruppamento fai cosě
data    nome_banca    condizione    note        data
ultimo    raggruppa      ultimo          ultimo      dove
                                                                    crescente
ciao
--
Roberto da Parma


title: Saldo

author: G&W

text:
Salve ho letto la risposta a vincenzo barletta ho applicato il codice SQL,
però non riesco a far sì che il calcolo del saldo avvenga per singolo
IDCliente, infatti usando la funzione DSum questa calcola il saldo su tutti
i movimenti, ho provato anche a cambiare la chiave, ma non mi da il
risultato per singolo cliente, se mi date cortesemente un consiglio...vi
ringrazio e portate pazienza che senza dubbio è la vitù dei forti
grazie
waltergas


title: Saldo

author: Alessandro

text:
"G&W" <
walt...@tin.it
> wrote in message
news:4kFv8.2461$8D3....@news1.tin.it...

Con DSUM c'è la possibilità di inserire un CRITERIO tramite la
clausola WHERE IDCLiente= Numero, questo comporta la selezione
dei Record che lo soddisfano.
Alessandro.
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: Saldo

author: Roberto da casa

text:
"G&W" <
walt...@tin.it
> ha scritto nel messaggio
news:4kFv8.2461$8D3....@news1.tin.it...

Non mi sembra proprio che tu, nel messaggio precedente, avessi chiesto il
saldo al livello cliente.
Sempre facendo riferimento all'esempio del thread aperto da Vincenzo
Barletta, prova con una query che abbia il seguente codice SQL:
SELECT Tabella1.*, Format([DataMovimento],"yyyymmdd") &
Format([ID],"0000000") AS Chiave,
DSum("[Entrate]-[Uscite]","Query1","IDCliente=" & [IDCliente] & " And
Chiave<=" & [Chiave]) AS Saldo
FROM Tabella1
ORDER BY Tabella1.IDCliente, Tabella1.DataMovimento, Tabella1.ID;
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Esporta da Report in Excel  1E+4 ??

author: Ronvai

text:
Buongiorno,
Riscontro un problema di formattazione dati in un foglio di Excel
dopo averlo esportato da Access.
Ho verificato, sia da File -->Esporta e da Strumenti --- analizza
in più da codice Docmd.OutputTo il risultato non cambia.
Il campo anomalo è :
Categoria, 5 caratteri tipo testo.
Esempio :
NCategoria
12D14
03D12
in Excel diventa
1E+4
3E+3
L'origine dati è una Query, QryExport e in visualizzazione
non vi sono problemi.
Allora, ho provato ad aggiungere un campo
ubicazione : Format([NCategoria])
e qui scopro che alcuni campi mostrano dati differenti
12D14 --> 12000000000000
03D12 --> 30000000000000
provvedo con le funzioni Format(Cstr([]);"@") ok ma in esporta nulla da
fare.
Per questa mattina il problema lo risolvo così, di cui non sono molto
contento
Ubicazione : [categoria] & "."
Rimango in attesa di Vs suggerimento, grazie


title: Esporta da Report in Excel  1E+4 ??

author: MA

text:
Ronvai wrote:
> Buongiorno,
>
> Riscontro un problema di formattazione dati in un foglio di Excel
> dopo averlo esportato da Access.
>
> Ho verificato, sia da File -->Esporta e da Strumenti --- analizza
> in più da codice Docmd.OutputTo il risultato non cambia.
> Il campo anomalo è :
> Categoria, 5 caratteri tipo testo.
> Esempio :
> NCategoria
> 12D14
> 03D12
> in Excel diventa
> 1E+4
> 3E+3
ROTFL
prova ad allargare la cella
--
_ _
Ciao
MAssimiliano Amendola
www.accessgroup.it
Cisa - Conferenza Italiana per Sviluppatori Access
Info:
www.donkarl.com/it


title: Esporta da Report in Excel  1E+4 ??

text:
MA ha scritto:

Ciao,
il problema è nella formatazzione del campo testo almeno credo.
Cmq, ho provato come dici. Se intendi in Excel
il risultato per il primo caso è:
17000000000 (17E+13) l'origine invece 17D12
In pratica ho 1750 record di prodotti il campo NCategoria indica la
posizione del prodotto, questo tipo di errore risulta in 50 record
con risultati di questo tipo
03D13 --> 30000000000
28G24 --->28E+22 e, così via...
Se esporto la QryExport nessun problema
Docmd.OutputTo acOutputQuery, "QryExport", acFormatXLS, fileXLS, True
Da report è un problema
Docmd.OutputTo acOutputReport, "RptProdotti", acFormatXLS, fileXLS,
True
..
ma....


title: Esporta da Report in Excel  1E+4 ??

author: Sergio MAZZA

text:
"Ronvai" <
ron...@libero.it
> ha scritto nel messaggio news:1119861189.6...@g47g2000cwa.googlegroups.com...
Buongiorno,






[risposta]
Il problema è che excel tenta di interpretare i valori che stai inserendo nelle celle, quindi trovando come primo carattere un
numero interpreta tutti i rimanenti valori come numeri creando un casino.
Se antemponi a tutti i valori che iniziano con un numero, un apostrofo, risolvi;
es.
Ubicazione : "'" & [categoria]
Ciao.
--
Sergio MAZZA


title: Esporta da Report in Excel  1E+4 ??

text:
Si certo funziona, questa mattina ho optato con la soluzione
[categoria]&"."
Però rimane a vedersi un pò anomalo.
Da Report non c'è nessun modo per formattare nel modo corretto i campi
a "celle" ?
Grazie


title: Esporta da Report in Excel  1E+4 ??

text:
"Ronvai" <
ron...@libero.it
> ha scritto nel messaggio news:1119874669....@g47g2000cwa.googlegroups.com...
Si certo funziona, questa mattina ho optato con la soluzione
[categoria]&"."
Perň rimane a vedersi un pň anomalo.
[risposta]
Non č anomalo, excel s'č sempre comportato cos'ě;
Da Report non c'č nessun modo per formattare nel modo corretto i campi
a "celle" ?
[risposta]
Devi utilizzare OLE+COM per inviare tu i dati nelle celle e se serve formattarli; sul sitocomune (
www.sitocomune.com
) trovi un
esempio ed č stato un argomento della CISA, qui trovi il link con l'altro esempio:
http://www.donkarl.com/it/CISA/Download.htm
.
Grazie
[risposta]
Ciao.
--
Sergio MAZZA


title: Esporta da Report in Excel  1E+4 ??

text:
Si infatti mi trovo proprio all'interno dei siti di cui sono i miei
preferiti del giorno.
Proverò a studiare di più l'argomento. Grazie


title: Filtro RecordSet

text:
Salve a tutti,
non riesco a filtrare un recordset da vba. In cosa sbaglio?
Io utilizzo questo codice:

Dim strFLTR As String
Dim RST As Recordset

    Set RST = Me.Recordset 'maschera da cui prendo i dati
    strFLTR = RST.Fields("REP_CAS") in (1,2,4,7,8,9)
    RST.Filter = Str.Filter

MOTIVAZIONE
Mentre è necessario che i dati nella maschera d'origine rimangono inalterati,
mi occorre filtrare soltanto il recordset generato, il quale deve contenere solo i records che hanno valore 1 oppure 2 oppure 4 , oppure .... nel campo rep_cas.

Rep_cas contiene il valore protocollo xon/xoff che indica al registratore di cassa quale reparto deve considerare per stampare lo scontrino. Avendo anche merce di edicola vorrei evitare di fargli stampare lo scontrino anche per questi articoli.


title: Filtro RecordSet

text:
>     RST.Filter = Str.Filter
Scusate errore di battitura

RST.Filter = strFLTR


title: Filtro RecordSet

author: Karl Donaubauer

text:
Salve,

Saningrao ha scritto:
> ...
> non riesco a filtrare un recordset da vba. In cosa sbaglio?
> Io utilizzo questo codice:
>
> Dim strFLTR As String
> Dim RST As Recordset
>
>      Set RST = Me.Recordset 'maschera da cui prendo i dati
>      strFLTR = RST.Fields("REP_CAS") in (1,2,4,7,8,9)
>      RST.Filter = Str.Filter

La stringa per il filtro è sbagliata e dopo non si vede se fai qualcosa
con il filtro, cioè se lo usi per un nuovo recordset. Prova così:

Dim strFLTR As String
Dim rst As DAO.Recordset, rstFiltered As DAO.Recordset

Set rst = Me.Recordset
strFLTR = "REP_CAS In (1,2,4,70,80,9)"
rst.Filter = strFLTR

Set rstFiltered = rst.OpenRecordset

Poi fai cosa vuoi con rstFiltered.

--
Ciao
Karl
*********
Access FAQ:
http://www.donkarl.com/it

Access Lobby:
http://www.AccessDevelopers.org


title: Filtro RecordSet

text:
> Set rstFiltered = rst.OpenRecordset
>

ottengo in risposta un errore run-time 3464
dati non corrispondenti nell'espressione criterio


title: Filtro RecordSet

text:

Avevo definito in tabella il campo come testo. L'ho modificato in numerico e il filtro funziona parzialmente, nel senso che se nella maschera inserisco dati con rep_cas con valori misti (che hanno cioé valori interni al filtro ed esterni al filtro) RstFiltered.recordcount mi restituisce sempre 1


title: Filtro RecordSet

text:
Ho risolto inserendo in un ciclo le stringhe che non deve calcolare.

Private Sub Form_Close()
Dim strSC, strDESC, strPRZf As String
Dim strPRZ As Currency
Dim QR, x As String
Dim rst As DAO.Recordset, rstFiltered As DAO.Recordset
Dim cntMIN, cntMAX As Integer
Dim mychar As Variant

Set rst = Me.Recordset

     If rst.RecordCount = 0 Then
        Exit Sub

    Else

        rst.MoveFirst
        cntMAX = rst.RecordCount

        Do Until Nz(cntMIN, 0) = cntMAX
        cntMIN = cntMIN + 1

                If REP_CAS = 1 Or REP_CAS = 2 Or REP_CAS = 4 Or REP_CAS = 7 Or REP_CAS = 8 Or REP_CAS = 9 Then
                    'DEFINIZIONE DESCRIZIONE
                    strDESC = rst.Fields("DESCR")
                        For Each mychar In Array("/", "\", ":", "<", ">", "|", "@", ";", ",", _
                            "*", "°", "-", "_", "'")
                            strDESC = Replace(strDESC, mychar, "")
                        Next mychar
                    strDESC = Chr(34) & strDESC & Chr(34)

                    'DEFINIZIONE DEL PREZZO
                    strPRZ = rst.Fields("PRZ_V")
                    strPRZf = Format(strPRZ, "###,##.00") & "H"
                    strSC = strSC & strDESC & rst.Fields("QTA_v") & "*" & strPRZf & rst.Fields("REP_CAS") & "R"
                End If

                If cntMIN < cntMAX Then rst.MoveNext

        Loop

        If Not strSC = "" Then

                strSC = strSC & "1T"
                Open "C:\stp_scntr.txt" For Output As #1
                Print #1, strSC 'Scrive la 1° riga del file
                Close #1 'Chiusura File

                If rst.Fields("rep_cas") = "10" Then Exit Sub
                If rst.Fields("rep_cas") = "11" Then Exit Sub

                    If MsgBox("Vuoi stampare lo scontrino", vbYesNo, "ATTENZIONE") = vbNo Then
                        DoCmd.OpenForm "TOT", , , , , acDialog
                        Exit Sub
                    Else
                        Shell ("C:\stp_scntr.bat")
                    End If

        End If

    End If

  DoCmd.OpenForm "TOT", , , , , acDialog
End Sub


title: Filtro RecordSet

text: Karl scusa per la confusione che posso aver generato! Gli ultimi due post li ho pubblicato sempre io ma non mi ero accorto di essere collegato con l'altro account che utilizzo in edicola


title: Query di aggiornamento ??

author: Gabriele Romagnoli

text:
Un saluto a tutti,
W98  A97
Dovrei aggiornare un campo (aaa) di una tabella (nei record dove il valore
del campo (aaa) non e' null).
In pratica dovrei sostituire il primo carattere presente nel campo con un
nuovo carattere che vorrei impostare quando lancio la query.
Si può fare ?  E come ?
Grazie in anticipo a chiunque vorra' aiutarmi.
Gabriele


title: Query di aggiornamento ??

author: Luciano (DOC)

text:
Gabriele Romagnoli ha scritto nel messaggio ...
>Un saluto a tutti,
>
>W98  A97
>Dovrei aggiornare un campo (aaa) di una tabella (nei record dove il valore
>del campo (aaa) non e' null).
>In pratica dovrei sostituire il primo carattere presente nel campo con un
>nuovo carattere che vorrei impostare quando lancio la query.
UPDATE tuatabella SET aaa = tuocarattere & right(aaa,len(aaa)-1) WHERE not
is null(aaa)
Saluti.
Luciano


title: Somma tra tabelle

author: Vesuvio

text:
Salve ragazzi, sto creando un piccolo DB ma non sono molto esperto, ho un problema con la somma di alcune colonne nelle tabelle mi speigo meglio

Ho una 1 tabella chiamata Anagrafica cosi formata:

Codice cliente  - nome

Ho una 2 tabella chiamata spese cosi formata:

Id - Codice cliente  - descrizione - quantita1 - quantita2
Naturalmetne le 2 tabelle sono legate fra di loro

Ora per la tabella2(spese) ho creato una maschera (chiamata maschera2) in formato TABELLA.

Per la Tabella1(anagrafica) ho creato una maschera (chiamata maschera1) dove ho inserito come sottomaschera la maschera2

Il problema è che sulla maschera1 vorrei che mi comparisse la differenza tra la colonna QUANTITA1 e QUANTITA2 presenti nella tabella2

Ho provato ad inserire nel pie di pagina della MASCHERA2, 2 caselle di testo con la funzione somma, nella maschera1 ho inserito una casella di testo che fa la differenza tra le 2 caselle di testo presenti nel piè di pagina della maschera2.

Cosi funziona ma solo se le 2 colonne (quantita1 e quantita2) sono movimentate infatti se movimento solo la colonna quantità1 il risultato non viene fuori basta che metto un semplice 0 nella colonna 2 che mi esce fuori il risultato.

Come posso risolvere? Leggevo che forme è il caso fi rare delle quesry per fare le somme, se si come dovrei fare?
Spero di essere stato chiaro, attendo un Vs aiuto, grazie mille a tutti


title: Somma tra tabelle

author: Akery

text:
A quale evento vuoi che faccia la differenza? o vuoi che in real time dopo
la modifica di uno o dell'altra quantità si aggiorni?

Akery

"Vesuvio"  ha scritto nel messaggio
news:4d80818d-04d4-492f...@googlegroups.com...

---
Questa e-mail è stata controllata per individuare virus con Avast antivirus.
https://www.avast.com/antivirus


title: Somma tra tabelle

text:

Ciao la somma la vorrei in tempo reale nella casella di testo sulla maschera1.

Sembra di aver risolto inserendo la funzione NZ, ma va bene cosi oppure devo utilizare o fare qualche altra cosa?

Grazie


title: Scelta campo visualizza record diverso.

author: Noce

text:
Ciao!
Problema:
Ho una maschera in cui è  inserito una sottomaschera in cui vorrei svolgera
la seguente operazione:
Maschera: contiene campo "Fornitore" in cui ho 3 record (pluto, pippo,
paperino)
Sottomaschera: contiene 5 campi: "Prodotto" (marmelalta); "Prezzo" (campo
vuoto); "prezzo pluto"; "prezzo pippo"; "prezzo paperino".
Come faccio a dire alla maschera, Se nel campo "fornitore" si è scelto il
record (Pluto) immetti nel campo prezzo(campo vuoto) della sottomaschera il
record del campo "prezzo pluto"; se invece si è scelto nel campo fornitore
il record (pippo) immetti nel campo "prezzo" (campo vuoto) della
sottomaschera il record del campo "prezzo pippo"
Come faccio?
Ciao e Grazie


title: Scelta campo visualizza record diverso.

author: Emyr

text:


fai il controllo con if then e l'assegnazione sull'evento lostfocus di
fornitore
Saluti.
Emanuele.


title: Scelta campo visualizza record diverso.

text:
"Emyr" <
fan...@lavoro.com
> ha scritto nel messaggio
news:36b3hukva35e89esn...@4ax.com...
> fai il controllo con if then e l'assegnazione sull'evento lostfocus di
> fornitore
In parole povere...;-)
Quale č la stinga da immettere nel campo fornitore?
Ciao e Grazie


title: Scelta campo visualizza record diverso.

text:
On Thu, 20 Jun 2002 13:38:46 GMT, "Noce" <
noc...@libero.it
> wrote:
>
>"Emyr" <
fan...@lavoro.com
> ha scritto nel messaggio
>news:36b3hukva35e89esn...@4ax.com...
>
>> fai il controllo con if then e l'assegnazione sull'evento lostfocus di
>> fornitore
>
>In parole povere...;-)
>Quale è la stinga da immettere nel campo fornitore?
>
>Ciao e Grazie
>
non ho idea di come tu abbia chiamato gli oggetti i controlli e le
maschere comunque è qualcosa del tipo
if me!fornitore="Pluto" then
	 me!maschera!sottomaschera!prezzo=prezzo
elseif ....
Saluti.
Emanuele.


title: Invio requery

author: walter

text:
in una piccola rete di due computer ho installato un applicativo FE su
ciascun computer e BE o tabelle collegate sul computer server.
Ora avrei la necessità di inviare  un comandi di aggiornamento dei dati
aschermo ogni volta che inserisco un nuovo record, è possibile???
Grazie per i suggerimenti
Walter


title: Invio requery

text:
"walter" <
in...@trussoni.net
> ha scritto nel messaggio
news:434fbdf9$0$24650$4faf...@reader3.news.tin.it...
>
> in una piccola rete di due computer ho installato un applicativo FE su
> ciascun computer e BE o tabelle collegate sul computer server.
> Ora avrei la necessità di inviare  un comandi di aggiornamento dei dati
> aschermo ogni volta che inserisco un nuovo record, è possibile???
Non so cosa tu intenda con "inviare un comandi di aggiornamento dei dati
aschermo ogni volta che inserisco un nuovo record", ma fossi inte proverei a
fare un requery della maschera.
>
> Grazie per i suggerimenti
>
> Walter
--
Roberto
-----------------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
----------------------------------------------------


title: Invio requery

text:
"Roberto da casa" <
r.masso...@libero.it
> ha scritto nel messaggio
news:2lR3f.13189$Pe2.2...@twister2.libero.it...

Scusa se non mi sono spiegato
A schermo ho una maschera continua con una serie di nomi e quando scelgo uno
di questi
nomi questo tramite un Requery viene escluso dalla lista e non è piu
visibile.
La scelta viene effettuata tramite un comando trasparente posizionato sopra
ogni singolo nome.
Io vorrei che in tempo reale la stessa lista presente a schermo anche
sull'altro terminale si aggiornasse.
Preciso che le maschere continue sui due terminali sono sempre aperte.
Grazie per l'aiuto
Walter


title: Invio requery

text:
"walter" <
wal...@trussoni.net
> ha scritto nel messaggio
news:4350102b$0$13352$4faf...@reader2.news.tin.it...
>
>
> "Roberto da casa" <
r.masso...@libero.it
> ha scritto nel messaggio
> news:2lR3f.13189$Pe2.2...@twister2.libero.it...
> >
> >
> > "walter" <
in...@trussoni.net
> ha scritto nel messaggio
> > news:434fbdf9$0$24650$4faf...@reader3.news.tin.it...
> > >
> > > in una piccola rete di due computer ho installato un applicativo FE su
> > > ciascun computer e BE o tabelle collegate sul computer server.
> > > Ora avrei la necessità di inviare  un comandi di aggiornamento dei
dati
> > > aschermo ogni volta che inserisco un nuovo record, è possibile???
> >
> > Non so cosa tu intenda con "inviare un comandi di aggiornamento dei dati
> > aschermo ogni volta che inserisco un nuovo record", ma fossi inte
proverei
> a
> > fare un requery della maschera.
> >
> > >
> > > Grazie per i suggerimenti
> > >
> > > Walter
> >
> > --
> > Roberto
> >
> Scusa se non mi sono spiegato
> A schermo ho una maschera continua con una serie di nomi e quando scelgo
uno
> di questi
> nomi questo tramite un Requery viene escluso dalla lista e non è piu
> visibile.
> La scelta viene effettuata tramite un comando trasparente posizionato
sopra
> ogni singolo nome.
> Io vorrei che in tempo reale la stessa lista presente a schermo anche
> sull'altro terminale si aggiornasse.
> Preciso che le maschere continue sui due terminali sono sempre aperte.
Non credo che sia possibile fare un requery o un refresh di una maschera
aperta in un altro FE, e se fosse possibile non saprei darti indicazioni in
merito.
Però potresti, a fronte dell'evento "Su timer" delle maschere, effettuare un
requery e/o un refresh delle maschere in modo che se viene modificato il
contenuto della tabella residente sul BE e origine record delle maschere la
vriazioni siano visibili sulle maschere di ambedue i computer, ammesso che
in quel  momento siano ambedue aperte. Naturalmente deciderai ogni quanto
tempo fare il requery/refresh impostando adeguatamante la proprietà
Intervallo timer delle maschere.



title: Maschera, max un record ...

text:
Ciao a tutti,
allora ho una maschera che si apre, grazie ad una macro, su un nuovo record;
vorrei che la maschera mi lasciasse inserire solo un record e basta.
Grazie, ciao a tutti da Andrea


title: Maschera, max un record ...

text:
Il 07 Mar 2003, 15:04, "Andrea.C" <
andrea...@inwind.it
> ha scritto:
> Ciao a tutti,
> allora ho una maschera che si apre, grazie ad una macro, su un nuovo
record;
> vorrei che la maschera mi lasciasse inserire solo un record e basta.
Sull'uscita dell'ultimo controllo chiudi la maschera
se il tuo controllo si chiama pippo
private sub pippo_exit()
docmd.close
end sub
ciao MAssimilaino
--------------------------------
Inviato via
http://usenet.libero.it


title: Maschera, max un record ...

text:
"Andrea.C" <
andrea...@inwind.it
> ha scritto nel messaggio
news:nF1aa.185931$ZE.55...@twister2.libero.it...

Imposta la proprietą "Immissione Dati"=Si
oppure da codice su evento Load
Me.DataEntry=True
@Alex.


title: impostare una path da maschera

author: access il top

text:
ciao a tutti.
qualcuno sa dirmi se esiste un metodo carino per impostare un percorso
da una maschera visualizzando le varie cartelle per poi cliccare ok
quando il percorso č corretto?
grazie mille a tutti


title: impostare una path da maschera

text:
"access il top" <
negrinel...@yahoo.it
> ha scritto nel messaggio
news:41e1b534$0$10910$5fc...@news.tiscali.it...
> ciao a tutti.
> qualcuno sa dirmi se esiste un metodo carino per impostare un percorso
> da una maschera visualizzando le varie cartelle per poi cliccare ok
> quando il percorso è corretto?
Se devi ricavare il percorso di una cartella, vai sul Sito Comune (link qui
sotto) e nella Sezione General leggi la FAQ di Nicola intitolata "Richiamare
la finestra di dialogo per la selezione di una directory".
Se invece devi ricavare il percorso di un file, sempre nella Sezione General
del Sito Comune leggi la FAQ di Stefano Bettini intitolata "Richiamare la
finestra di dialogo per la selezione di un file".
> grazie mille a tutti
--
Roberto
-----------------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
----------------------------------------------------


title: impostare una path da maschera

text:
"Roberto da casa" <
r.masso...@libero.it
> ha scritto nel messaggio
news:eVtEd.23947$H%6.95...@twister1.libero.it...

CIAO HO COPIATO DI SEGUITO LA FAQ CHE MI CITAVI MA HO UN Pò DI PROBLEMI
Quella che segue è la dichiarazione della struttura da passare alla
funzione SHBrowseForFolder che permette di mostrare il browse folder.
Nell'esempio imposto poi soltanto 3 degli elementi della struttura;
hOwner che è l'ID della finestra chiamante, lpszTitle che permette di
visualizzare una stringa di intestazione e ulFlags che indica di
mostrare un tipo di visualizzazione di oggetti piuttosto che un altro
nel browse folder. Provate a cambiare il valore associato a ulFlags per
avere altre visualizzazioni con altri risultati ritornati associati.
QUESTA PARTE DEL CODICE DOVE LA DEVO METTERE????
Public Type BROWSEINFO   hOwner As Long   pidlRoot As Long
pszDisplayName As String   lpszTitle As String   ulFlags As Long   lpfn
As Long   lParam As Long   iImage As LongEnd TypeQueste invece sono le
costanti che possono essere passate a ulFlags
Public Const BIF_RETURNONLYFSDIRS = &H1Public Const
BIF_DONTGOBELOWDOMAIN = &H2Public Const BIF_STATUSTEXT = &H4Public Const
BIF_RETURNFSANCESTORS = &H8Public Const BIF_BROWSEFORCOMPUTER =
&H1000Public Const BIF_BROWSEFORPRINTER = &H2000La dichiarazione
successiva è della funzione che permette di richiamare il Browser
Folder. Si noti che il valore long restituito sarà poi utilizzato dalla
successiva funzione che permette di "recuperare" il path e il nome del
folder. Questo perchè la SHBrowseForFolder restituisce un puntatore a
una struttura che è la lista degli identificatori a partire dal desktop
di Windows (che è la radice dello spazio dei nomi del sistema) e
passando per tutti i folder che contengono l'oggetto. Il PIDL è un
puntatore a questa struttura. Se il PIDL identifica un percorso valido,
è possibile convertirlo in una stringa utilizzando
SHGetPathFromIDList().
Declare Function SHBrowseForFolder Lib "shell32.dll" Alias _
"SHBrowseForFolderA" (lpBrowseInfo As BROWSEINFO) As LongLa funzione che
segue permette appunto di recuperare il percorso e il folder selezionato
nel browser.
Declare Function SHGetPathFromIDList Lib "shell32.dll" Alias _
"SHGetPathFromIDListA" (ByVal pidl As Long, ByVal pszPath As String) As
LongNell'esempio che segue viene richiamato il browser e recuperato il
path e il folder.
Dim bInf As BROWSEINFODim RetVal As Long,PathID As Long,RetPath As
String,Offset As Integer ' impostazione degli elementi della
strutturabInf.hOwner = Me.hWndbInf.lpszTitle = " ==== Stringa
visualizzata nel browser ====="bInf.ulFlags = BIF_RETURNONLYFSDIRS '
Mostra il "Browse For Folder" dialogPathID =
SHBrowseForFolder(bInf)RetPath = Space$(512) ' Recupero il pathRetVal =
SHGetPathFromIDList(ByVal PathID, ByVal RetPath) If RetVal Then   Offset
= InStr(RetPath, Chr$(0))   MsgBox "Il folder selezionato è :" &
Chr$(10) & Chr$(10) & _   Left$(RetPath, Offset - 1), vbInformationElse
MsgBox "Selezionato Tasto Annulla", vbInformationEnd If


title: impostare una path da maschera

text:
"access il top" <
negrinel...@yahoo.it
> ha scritto nel messaggio
news:41e29ed9$0$10911$5fc...@news.tiscali.it...

aiuto ci ho perso un paio d'ore e non ho ancora capito in che sezioni
devo incollare quel prezioso codice qui.
grazie


title: impostare una path da maschera

text:
"access il top" <
negrinel...@yahoo.it
> ha scritto nel messaggio
news:41e310b5$0$10907$5fc...@news.tiscali.it...

ciao ragazzi non riesco proprio a venirne fuori con questa cavolo di
funzione.
sapete darmi una mano per favore.
grazie mille


title: impostare una path da maschera

text:
scusate per il disturbo adesso sembra funzionare che è una meraviglia.
solo un'altra domanda:
secondo voi adesso che ho la variabile path dove e come devo salvarla
per far si che all'apertura del db ci sia ancora?


title: impostare una path da maschera

text:
"access il top" <
negrinel...@yahoo.it
> ha scritto nel messaggio
news:41e3a922$0$8210$5fc...@news.tiscali.it...

????
All'apertura di quale database?



title: impostare una path da maschera

text:
"Roberto da casa" <
r.masso...@libero.it
> ha scritto nel messaggio
news:YLOEd.25109$_E5.6...@twister2.libero.it...

intendo alla riapertura del file di access


title: impostare una path da maschera

text:
"access il top" <
negrinel...@yahoo.it
> ha scritto nel messaggio
news:41e3d2d9$0$8203$5fc...@news.tiscali.it...
>
> "Roberto da casa" <
r.masso...@libero.it
> ha scritto nel messaggio
> news:YLOEd.25109$_E5.6...@twister2.libero.it...
> >
> > "access il top" <
negrinel...@yahoo.it
> ha scritto nel messaggio
> > news:41e3a922$0$8210$5fc...@news.tiscali.it...
> > > scusate per il disturbo adesso sembra funzionare che è una
> meraviglia.
> > > solo un'altra domanda:
> > > secondo voi adesso che ho la variabile path dove e come devo
> salvarla
> > > per far si che all'apertura del db ci sia ancora?
> >
> > ????
> > All'apertura di quale database?
> >
> > --
> > Roberto
> >
>
> intendo alla riapertura del file di access
Non sono convinto di aver capito ciò che vuoi sapere, ma in fondo alla FAQ
che stiamo discutendo c'è un esempio in cui si mostra come richiamare la
finistra di dialogo e come memorizzare nella variabile RetVal il percorso
della cartella selezionata nella finestra di dialogo.
Cosa altro ti serve di sapere?



title: impostare una path da maschera

text:
"Roberto da casa" <
r.masso...@libero.it
> ha scritto nel messaggio
news:UAQEd.25766$H%6.10...@twister1.libero.it...

salvare la variabile da qualche parte in modo che alla riapertura del
file di access trovo l'ultima path utilizzata.
spero di essermi espresso bene


title: impostare una path da maschera

text:
"access il top" <
negrinel...@yahoo.it
> ha scritto nel messaggio
news:41e3e051$0$10910$5fc...@news.tiscali.it...

Creati una tabella che contiene un solo record con un solo campo di tipo
Testo nel quale memorizzerai (ad esempio con una query di aggiornamento) la
path dopo averla ricavata e poi, quando ti serve la rilegerai (ad esempio
con una funzione DLookup).



title: impostare una path da maschera

text:
"Roberto da casa" <
r.masso...@libero.it
> ha scritto nel messaggio
news:GeUEd.26237$H%6.10...@twister1.libero.it...

ciao e grazie per la tua informazione, ma posso chiederti qualche
delucidazione perchè sono abbastanza nuovo di access e a volte anche le
funzioni elementari divenano complicate.
hai qualche esempio riguardo a queste 2 funzioni??
grazie mille
ciao


title: impostare una path da maschera

text:
"access il top" <
negrinel...@yahoo.it
> ha scritto nel messaggio
news:41e4e33a$0$130$5fc...@news.tiscali.it...
>
[CUT]
> >
> ciao e grazie per la tua informazione, ma posso chiederti qualche
> delucidazione perchè sono abbastanza nuovo di access e a volte anche le
> funzioni elementari divenano complicate.
>
> hai qualche esempio riguardo a queste 2 funzioni??
> grazie mille
Esempi sulle queries di aggiornamento e sulla funzione DLookup li trovi
sull'help in linea di Access.
> ciao



title: TransferText

author: LAURETTA

text:
Come generare, utilizzando DAO, un report da una tabella? Ho provato a
creare prima il report, poi l'oggetto Field che si appoggia sul  (unico)
campo della tabella che mi interessa, ma continuo a generare un report
bianco. E' la procedura giusta o perdo qualche pezzo?
Un grazie per l'aiuto e saluti a tutti.


title: TransferText

text:
"LAURETTA" <
ut...@libero.it
> ha scritto nel messaggio
news:SGzE8.65055$5k4.1...@twister2.libero.it...
> Come generare, utilizzando DAO, un report da una tabella? Ho provato a
> creare prima il report, poi l'oggetto Field che si appoggia sul  (unico)
> campo della tabella che mi interessa, ma continuo a generare un report
> bianco. E' la procedura giusta o perdo qualche pezzo?
Non ho capito il problema dov'e'....
Crea un report a mano, poi da codice lo manipoli come ti serve.
Saluti.
Luciano


title: TransferText

text:
Il problema è che devo generare il report giornalmente ed automaticamente;
tale report si appoggia su una tabella anch'essa generata automaticamente;
malgrado io crei ed aggiunga il campo al report generato, quest'ultimo non
pesca dal campo della tabella che io gli indico; lo so, scusami, forse non
mi spiego bene e forse sono solo errori di procedura, ma gradivo avere
conferma sulla bontà o meno del mio ragionamento.
Saluti


title: TransferText

text:
LAURETTA ha scritto nel messaggio
<87TE8.69268$
US3.1...@twister1.libero.it
>...

Laure', ti spieghi prorpio maluccio....:-)
I campi della tabella sono sempre gli stessi? In tal caso, dov'e' il
problema?
Non lo sono? Cicla su fields della tabella e crea n controlli sul report.
Saluti.
Luciano


title: TransferText

author: pls

text:
> Laure', ti spieghi prorpio maluccio....:-)
> I campi della tabella sono sempre gli stessi? In tal caso, dov'e' il
> problema?
> Non lo sono? Cicla su fields della tabella e crea n controlli sul report.
> Saluti.
>
> Luciano
>
>
Ehm.....e come si fa? :-)


title: TransferText

text:
"pls" <
ko...@libero.it
> ha scritto nel messaggio
news:Z8WE8.70998$5k4.1...@twister2.libero.it...
> > Non lo sono? Cicla su fields della tabella e crea n controlli sul
report.
> Ehm.....e come si fa? :-)
Guarda sull'help l'insieme fields nella gerarchia DAO e la funzione
CreateControl.
Saluti.
Luciano


title: RIghe vuote su report

author: Fabio Montagner

text:
Ho usato il codice presente nel Sito Comune e funziona.
Non riesco a capire come far sì che il report stampi una pagina in più senza
i nominativi.
Es. Se i nominativi terminano a metà della 3.a pagina, vorrei poter stampare
anche la 4.a vuota.
Sib mi ha suggerito di intercettare la penultima pagina e impostare il
.movenext a false, ma non riesco a capire bene dove.


title: RIghe vuote su report

author: Sib

text:
"Fabio Montagner" <
f.mon...@issz.vr.it
> ha scritto nel messaggio
news:9810ko$389i$1...@stargate1.inet.it...

c'e' una variabile che dice quante righe bisogna inserire per ogni pagina. e
c'e' una istruzione che verifica quante righe siano state inserite nella
pagina. A mio avviso dovresti verificare quando ti trovi in quella che
normalmente dovrebbe essere l'ultima pagina e continuare a dare l'istruzione
me.nextrecord=false fino alla fine della pagina vuota.
Spero di non essermi incartato nella spiegazione.
Ciao, Sib


title: RIghe vuote su report

text:
No, sono io che mi sono incartato! :-)
Non riesco a capire dove inserire il comando e ha gestire le variabili.
Forse sarebbe meglio che io girassi meno per osterie!



title: RIghe vuote su report

text:
"Fabio Montagner" <
f.mon...@issz.vr.it
> ha scritto nel messaggio
Sib
> > c'e' una variabile che dice quante righe bisogna inserire per ogni
pagina e
> > c'e' una istruzione che verifica quante righe siano state inserite nella
> > pagina. A mio avviso dovresti verificare quando ti trovi in quella che
> > normalmente dovrebbe essere l'ultima pagina e continuare a dare
> l'istruzione
> > me.nextrecord=false fino alla fine della pagina vuota.
> > Spero di non essermi incartato nella spiegazione.
> No, sono io che mi sono incartato! :-)
> Non riesco a capire dove inserire il comando e ha gestire le variabili.
Posta il codicillo che a memoria non lo ricordo.
> Forse sarebbe meglio che io girassi meno per osterie!
e perche' mai non godersi la vita?
Sib


title: RIghe vuote su report

text:
L'esempio che ho usato si trova nel Sito comune, alla sezione dei reports.
Penso tu vada meglio.



title: RIghe vuote su report

text:
"Fabio Montagner" <
f.mon...@issz.vr.it
> ha scritto nel messaggio
news:985giu$vuk$1...@stargate1.inet.it...
> L'esempio che ho usato si trova nel Sito comune, alla sezione dei reports.
Ok, anche se dalle mie parti ti avrebbero definito "lagnuso" (indolente) ;-)
'**************************
'Autore: Federico Luciani
'email:
fluc...@libero.it
'**************************
Option Compare Database
Option Explicit
Dim intCR As Integer        'contatore di righe
Dim intCP As Integer        'contatore di pagine per gruppo
Const intNR As Integer = 20 'numero di righe da stampare
Private Sub Corpo_Format(Cancel As Integer, FormatCount As Integer)
    'incrementa il contatore di righe
    intCR = intCR + 1
    If intCR = intNR Then
        'se il numero di riga coincide con il numero max di righe stampabili
            'se il numero di riga e' maggiore dell'ultimo record
            'rende invisibili i controlli testo nel corpo
        If intCR + intNR * intCP > Me.txtTRec Then
ControlliAssociatiVisibili False
        'imposta l'interruzione di pagina se non e' l'ultima pagina
        If intCP + 1 < Me.txtTRec / intNR Then Me.IntPagina.Visible = True
++++++++++++++++++++++++++++++++
        'Questa aggiunge una pagina vuota. (Modifica personalizata per Fabio
da Sib)
        If intCP = Int((Me.txtTRec - 1) / intNR) Then
            Me.NextRecord = False
            Me.IntPagina.Visible = True
        End If
++++++++++++++++++++++++++++++++
    ElseIf intCR + intNR * intCP = Me.txtTRec Then
        'se il numero di riga coincide con l'ultimo record
        'evita lo spostamento sul record successivo
        Me.NextRecord = False
    ElseIf intCR + intNR * intCP > Me.txtTRec Then
        'se il numero di riga e' maggiore dell'ultimo record
        'evita lo spostamento sul record successivo
        'e rende invisibili i controlli testo nel corpo
        Me.NextRecord = False
        ControlliAssociatiVisibili False
    End If
End Sub
Private Sub IntestazioneGruppo0_Format(Cancel As Integer, FormatCount As
Integer)
    'incrementa il contatore di pagine per gruppo
    intCP = 0
End Sub
Private Sub IntestazionePagina_Format(Cancel As Integer, FormatCount As
Integer)
    'azzera il contatore di righe
    intCR = 0
    'incrementa il contatore di pagine per gruppo
    intCP = intCP + 1
    'elimina l'interruzione di pagina
    Me.IntPagina.Visible = False
    'rende visibili i controlli testo nel corpo
    ControlliAssociatiVisibili True
End Sub
Private Sub ControlliAssociatiVisibili(blnStato As Boolean)
    Me.descrizione.Visible = blnStato
    Me.prezzo.Visible = blnStato
End Sub
In pratica, con l'aggiunta che ho fatto, viene intercettata l'ultima riga
dell'ultima pagina e ne viene bloccato l'avanzamento alla riga siccessiva.
Il resto va da se.
Ciao, Sib


title: RIghe vuote su report

text:
Ok, mi inginocchio sui ceci! :-((
Ora provo, con la dovuta soggezione, il codice.
A parte gli scherzi, ti ringrazio veramente e spero di poter ricambiare al
più presto.
Per curiosità, ma "le tue parti" dove sono?
"Sib" <
cerriserv...@tiscalinet.it
> wrote in message
news:985pmu$bhh$1...@pegasus.tiscalinet.it...



title: RIghe vuote su report

text:
"Fabio Montagner" <
f.mon...@issz.vr.it
> ha scritto nel messaggio
news:9866ds$q3e$1...@stargate1.inet.it...
> Ok, mi inginocchio sui ceci! :-((
> Ora provo, con la dovuta soggezione, il codice.
> A parte gli scherzi, ti ringrazio veramente e spero di poter ricambiare al
> più presto.
>
> Per curiosità, ma "le tue parti" dove sono?
Le "mie parti" sono Palermo. Agli antipodi rispetto alle tue che, credo,
"siano" il Veneto o giu' di li, sbaglio?
Ad ogni modo ritengo che veramente Internet consenta di intrattenere dei
rapporti impensabili fino a qualche anno fa. Scusa se filosofeggio.
Per il ricambiare, figurati, basta un assegnino con qualche zero (hehehe)
Sib


title: RIghe vuote su report

text:
> Le "mie parti" sono Palermo. Agli antipodi rispetto alle tue che, credo,
> "siano" il Veneto o giu' di li, sbaglio?
Hai ragione, per la precisione Verona.
> Ad ogni modo ritengo che veramente Internet consenta di intrattenere dei
> rapporti impensabili fino a qualche anno fa.
In questo ti do perfettamente ragione. Allargando il discorso, io non
pensavo che l'informatica mi avrebbe fatto conoscere persone di tutte le
parti d'Italia e questo è positivo.
> Per il ricambiare, figurati, basta un assegnino con qualche zero (hehehe)
Ma se mi dai CAB e ABI e C/C ti faccio un bonifico! ;-))
Comunque il codice da te modificato funziona perfettamente e con alcuni
colleghi mi è pure toccato ammettere che non era "farina del mio sacco"!


title: RIghe vuote su report

author: sib

text:
Fabio Montagner <
f.mon...@issz.vr.it
> wrote in message
cut
> Comunque il codice da te modificato funziona perfettamente
Mi fa piacere che funzioni.
Magari a un prossimo raduno ci incontriamo.
Ciao, Sib


title: RIghe vuote su report

author: Silvio Berruti

text:
"Sib" <
cerriserv...@tiscalinet.it
> ha scritto nel messaggio
news:987vgb$40j$6...@lacerta.tiscalinet.it...

Beh, se ti accontenti degli zero... senza cifre prima... credo che si possa
fare... ;-)
--
Silvio
il sito comune di it.comp.appl.access:
http://www.sitocomune.com


title: RIghe vuote su report

text:
Silvio Berruti <
s...@libero.it
> wrote in message
71Pq6.62420$Xj7.8...@news.infostrada.it...

hehehe.
Sib
--
il sito comune di it.comp.database.access:
http://www.sitocomune.com
------------------------------------------------------
La mia home
http://digilander.iol.it/syb
------------------------------------------------------
"Non sempre cio' che viene dopo e' progresso"
Alessandro Manzoni
------------------------------------------------------
Saturiamo ECHELON:
bomba saddam attentato medio oriente


title: Esportare Report su HTML senza salto pagina.

author: Bòvà

text:
Sto creando un'agenda con 26 pagine html fisse che vado ad aggiornare
periodicamente cosicchè  i 26 link sul WEB rimangano invariati.
Io o raggruppato la rubrica per lettera e ad ogni cambio lettera ho messo un
interruzione di pagina
Ora funzionerebbe tutto, non fosse per il fatto che quando ci sono molti
record (ossia come se arriva a fondo pagina A4) mi salta automaticamente a
pagina successiva e quindi mi crea un'altra pag.HTML il che mi sbomballa
tutti i link sul web.....
come posso risolvere secondo voi?
Grazie
--
------ C.E.D. - L'Abbondanza Srl -----
Lorenzo Piombini & Vigna Federico
Email :
abbon...@technet.it
------------------------------------------------------


title: Scrittura sulla LANDZONE dell'HD

author: EnzoP

text:
Ciao A tutti
Un mio amico mi ha parlato della protezione di un software
scrivendo nella LANDZONE.
Avrei bisogno di sapere se possibile e come poter fare.
Il software da proteggere č un file di Access con estensione MDE.
Ringrazio tutti per l'aiuto e buon lavoro.
Enzo


title: Scrittura sulla LANDZONE dell'HD

author: ALESSANDRO Baraldi

text:
"EnzoP" <
pignat...@tiscali.it
> ha scritto nel messaggio
news:b12d1621.0310...@posting.google.com...
> Ciao A tutti
> Un mio amico mi ha parlato della protezione di un software
> scrivendo nella LANDZONE.
> Avrei bisogno di sapere se possibile e come poter fare.
> Il software da proteggere è un file di Access con estensione MDE.
> Ringrazio tutti per l'aiuto e buon lavoro.
> Enzo
Mai pensato di usare gli strumenti che Access ti mette a disposizione...??
Protezione a livello utente....!!!!!!
@Alex.


title: Scrittura sulla LANDZONE dell'HD

text:
"ALESSANDRO Baraldi" <
ik2...@libero.it
> wrote in message news:<bn15q0$4q3$
1...@lacerta.tiscalinet.it
>...

Potresti suggerirmi degli esempi?
Grazie per la risposta.
Ciao Enzo


title: Scrittura sulla LANDZONE dell'HD

text:
"EnzoP" <
pignat...@tiscali.it
> ha scritto nel messaggio
news:b12d1621.03102...@posting.google.com...

No, ma sul SitoComune e sui testi addetti ai lavori trovi
spiegazioni dettagliate.
www.sitocomune.com
@Alex.


title: stampa unione su query.

author: s

text:
Buongiorno a tutti
Devo stampare degli indirizzi su delle buste. Ho fatto stampa unione e come
origine dati una query di acces. Solo che al posto di stampare le province o
i CAP mi stampa  gli Id relativi, ad altre tabelle collegate a quella su cui
ho costruito la query. Grazie a tutti.
tabella indirizzi
query indirizzi
stampa unione con campi query indirizzi
tabella indirizzi ha dei campi che fanno riferimento ad altre tabelle, per
esempio  c'è una tabella di Province collegata a indirizzi.
che casino...


title: stampa unione su query.

author: ciroteo

text:
"s" <
cjam335se...@hotmail.com
> ha scritto nel messaggio
news:mxsLc.6651$OH4.1...@twister1.libero.it...
> Buongiorno a tutti
> Devo stampare degli indirizzi su delle buste. Ho fatto stampa unione e
come
> origine dati una query di acces. Solo che al posto di stampare le province
o
> i CAP mi stampa  gli Id relativi, ad altre tabelle collegate a quella su
cui
> ho costruito la query. Grazie a tutti.
>
> tabella indirizzi
> query indirizzi
>
>
> stampa unione con campi query indirizzi
>
> tabella indirizzi ha dei campi che fanno riferimento ad altre tabelle, per
> esempio  c'č una tabella di Province collegata a indirizzi.
>
> che casino...
>
>
nella query inserisci non solo i campi id che fanno da chiave, ma anche i
campi descrittivi ... x es.
per il cap metti sia id.cap sia cap e ti riferisci a quest'ultimo
direttamente  nella stampa unione.


title: stampa unione su query.

author: giorgio rancati

text:
"s" <
cjam335se...@hotmail.com
> ha scritto nel messaggio
news:mxsLc.6651$OH4.1...@twister1.libero.it...

Ciao,
vediamo se la mia sfera di cristallo funziona :-)
nella struttura tabella Anagrafica hai usato (per i campi IDProvincia e
IDCap)  l'opzione Rierca--Visualizza Controllo-->Casella di riepilogo.
Quindi eseguendo la Query con la sola tabella Anagrafica ti escono i Cap e
le Provincie. Sappi che questa è una funzionalità di Access che Word o altre
applicazioni non sono in grado di usare.
Se è così devi costruirti una query collegando tutte e tre le tabelle
(Anagrafica Cap e Provincie) e inserire nell'output solo i campi necessari a
Word.
(in altro caso mando lettera di reclamo al mio mago di fiducia)
Ciao Giorgio