mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.appl.access
Titolo: Salvataggio dei dati

Ciao di nuovo a tutto il NG
in una maschera ho inserito questo codice:
Private Sub Form_BeforeUpdate(Cancel As Integer)
   Dim retValue As Integer
   Dim strTtl As String
   Dim strMsg As String
   strTtl = "Salvare il record?"
   strMsg = "I dati sono cambiati." & vbCrLf & _
            "Vuoi salvare le modifiche?"
   retValue = MsgBox(strMsg, vbQuestion + vbYesNoCancel, strTtl)
   Select Case retValue
       Case vbYes
           'non fare nulla
       Case vbNo
           DoCmd.RunCommand acCmdUndo
       Case vbCancel
           Cancel = True
   End Select
End Sub
il problema e' che in questa maschera ho una sottomaschera e nel momento in
cui il focus si sposta su quest'ultima mi appare il messaggio di salvataggio
del record.
Io vorrei evitare cio' e salvare le modifiche solo dopo avere inserito i
dati anche nella sottomaschera.
E' possibile?????????? Ciao

 ha scritto nel messaggio
news:aeqfrv$ovt$1...@lacerta.tiscalinet.it...

Vai sul Sito comune 
www.sitocomune.com
  c'è un esempio di non so più chi
(chiedo scusa all'autore...) sulle transazioni che fa perfettamente al caso
tuo.
Paolo

Newsgroup: it.comp.appl.access
Titolo: esportare un report in formato word

Salve a tutti
Ho la necessità di esportare un report in formato .doc
o al limite anche xls.
Nel primo caso non so proprio da dove iniziare ... sempre che si possa fare.
Infatti non mi pare che sia un formato esportabile ... ma magari qulacuno di
Voi ha la "formula magica" ;)
Nel secondo caso la routine di Vb è abbastanza semplice e ci sono riuscito
il problema è che mette i campi come vuole... credo sia necessario
formattare
il file di excel ... ma come ??? ;((((((
Vi ringrazio per l'attenzione.. solitamente prima di rompere l'anima al
prossimo
cerco di documentarmi .. ma non ho trovato niente che mi possa aiutare a
risolvere il problema .
Avrò cercato male ..
Beh spero che qualche anima buona mi risponda
Grazie anticipatamente
Un caro saluto a tutti e buon lavoro
marco
ant...@tiscali.it

 ha scritto nel messaggio
news:ptq5b.9864$hE5.3...@news1.tin.it...

Hai provato ad utilizzare i comandi per esportere report in excel o word (i
pulsanti posti in alto) quando sei in anteprima stampa?
Fammi sapere.
Alberto

 wrote in message
ptq5b.9864$hE5.3...@news1.tin.it...

In ambedue i casi puoi usare il Metodo OutputTo (vedi help).
Resta il fatto che in ambedue i casi non verrà esportato la formattazione
del report; se ti serve esportare un report formattato prova ad esportare
con formato snapshot o creando dal report un file PDF.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

Grazie a tutti Ragazzi per l' attenzione avete prestato alla mia email.
Alla fine di tante soluzione credo che quella + indicata per il mio caso
sia quella di Roberto.
Ancora grazie a tutti comunque ...
Un caro saluto
ed ancora Buon lavoro
Ciao
Marco

Newsgroup: it.comp.appl.access
Titolo: Stampa maschera mi stampa troppo

Utilizzando il pulsante in autocomposizione della stampa (inserendo poi il
filtro x il record corrente) della maschera riscontro il seguente difetto.
Parlando in A4, la maschera mi occupa metą pagina. La maschera ha un motivo
di sfondo. Il problema č che questo motivo di sfondo mi viene stampato per
tutto il foglio anche se in realtą la maschera sarebbe finita a metą pagina!
Chi mi puņ aiutare?
Grazie.


Se l'immagine è quella di sfondo devi giocare su alcune proprietà della
maschera:
"Modalità Ridimens. immagine"; "Espansione Immagine"; "Allineamento
immagine"
Ciao, Carlo

 tutto il foglio anche se in realtà la maschera sarebbe finita a metà
pagina!
Ti sconsiglio di stampare direttamente le maschere se vuoi ottenere effetti
specifici.
Crea un report con la formattazione che piu' ti aggrada, lo controllerai
meglio.
Sib

Newsgroup: it.comp.appl.access
Titolo: SOS aggiornamento

ho una tabella archivio con un campo "autorità"
ho una tabella autorita_giudiziaria con un campo "id" e un campo
"Autorità",
ho una maschera associata alla tabella archivio dove vi ho una casella
combinata autorità che viene memorizzato il valore del campo "id" della
tabella autorita_giudiziaria
nella tabella archivio quindi sono memorizzati gli id della tabella
autorita_giudiziaria nel campo autorità.
vorrei convertire i dati del campo autorità della tabella archivio con i
corrispondenti dati del campo autorità della tabella autorita_giudiziaria.
come posso fare?
grazie
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it


con una query di aggiornamento
innanzi tutto fai una copia del db in luogo sicuro, poi prova cosi
fammi capire tu vuoi visualizzara il valore del campo autorità prensente 
nella tabella autorità_giudiziaria?
se ho capito bene allora fai una quer che contiene entrambe le tabelle e 
metti in relazione i 2 campi id poi trascini
nella query il campo autorità preso dalla tabella  autorità_giudiziaria
fammi sapere ciao.

 fammi sapere ciao.
ero andato in tilt, in effetti era l'aggiornamento che non andava, solo
facendo delle prove ho capito che la colpa era l'ID di tipo contatore.
ho convertito l'ID da contatore a numerico e la query ha funzionato.
grazie .


Newsgroup: it.comp.appl.access
Titolo: report con sottoreport

problema
fra il report ed il sottorempor ho messo un'interruzione di pagina
caso a) ci sono dati sia per il report che per il sottoreport   TUTTO OK
cas b) ci sono dati solo per il report, il sottoreport non viene stampato,
ma dato che c'è l'interruzione di pagina mi stampa comunque una pagina
bianca
come faccio a non far visualizzare/attivare l'interruzione di pagina quando
non c'è il sottoreport xè non ci sono dati?
Grazie Gugge

 ha scritto nel messaggio
news:E8dy9.123777$%M1.31...@twister2.libero.it...

Prova ad utilizzare la proprietà Hasdata(Vedi help)che verifica la presenza
di dati da stampare sul report o sureport .
Saluti
Mak
Newsgroup: it.comp.appl.access
Titolo: Campi SSMA_TimeStamp

Perchè durante l'upsize da Access a SQL SERVER 2005 Express vengono 
creati i campi SSMA_TimeStamp.A cosa servono di preciso?
Morgan

 i campi SSMA_TimeStamp.A cosa servono di preciso?
http://blogs.dotnethell.it/sandro/TimeStamp__3316.aspx
-- 
-- 
Ciao
Pablitomf (Maurizio Facciuti)
-----------------------------------------------------------------
Access: 97, 2000, XP e 2003
ASP
-----------------------------------------------------------------
http://www.accessgroup.it/
-----------------------------------------------------------------
Il mio motto :
""Non mi fido molto delle statistiche, perchè un uomo con la testa nel forno
acceso e i piedi nel congelatore statisticamente ha una temperatura media." 

 
Grazie
Morgan

Newsgroup: it.comp.appl.access
Titolo: [OT]Ciao Roberto( da casa/dal portatile)

Chiedo scusa a tutti per avere utilizzato in qs. modo il NG, ma essendomi
assentato per un periodo discretamente lungo non ho avuto la possibilità di
salutare Roberto tornato, sembra, a pieno regime a dispensare utili consigli
a tutti.
Con questo termino e gia' che ci sono ringrazio tutti quanti .
Ciao Alessandro

 Ciao Alessandro
Ciao Alessandro: grazie per il gradito saluto. :-))
Roberto

Newsgroup: it.comp.appl.access
Titolo: Difficolta con gruppo di opzioni

Salve ragazzi,
in pratica ho quattro controlli si/no inseriti in un gruppo di
opzione: x1; x2; x3; x4 e poi ho quattro campi data corrispondenti
DataX1; Datax2; ....
La mia difficoltà è nello scrivere un codice che mi permetta di
assegnare la data corrente al campo data corrispondente al controllo
si/no quando questo viene cliccato.
Ovvero vorrei che se clicco x1, nel campo dataX1 venga scritto la data
corrente e così per i restanti controlli.
Io ho provato in questo modo:
evento sul controllo x1, dopo aggiornamento
If me.x1=-1 Then
Datax1= Date
End If
Ma usando questa formula mi viene segnalato un errore 2427
Potreste aiutarmi?
Grazie in anticipo!!

 ha scritto nel messaggio 
news:65b8b4b6-cea8-41b6...@bl1g2000vbb.googlegroups.com...
Salve ragazzi,
eh no eh!!!
hai gi� postato e hai gi� ricevuto due risposte, entrambe valide
perch� apri un altro thread?!!?!??!?!?!
Antonio 

:P
Scusa Antonio  .... ma non li ho visualizzati ...
e così stranito della cosa ho creato un altro 3d ... vado a
cercarlo..!!
Newsgroup: it.comp.appl.access
Titolo: aggiornare automaticamente num record dopo la cancellazione di un record

Ciao a tutti. Volevo sapere se era possibile aggiornare in automatico il num dei record di una tabella dopo la cancellazione di un record.
Per esempio:
Ho una tabella chiamata Tab1. In questa tab ho i campi:
Descrizione Cod
Bianco       1
Rosso        2
Verde        3
 
Se ad esempio cancello il record "Rosso" io avrò ovviamente due record: 
Descrizione Cod
Bianco       1
Verde        3
 
Mi piacerebbe invece avere in autom un refresh che mi aggiorni la numerazione in:
Descrizione Cod
Bianco       1
Verde        2
 
Premetto che sull'evento dopo agg del campo descrizione ho inserito il seguente codice per poter incrementare il valore nel campo Cod:
Me.[Cod] = Nz(DMax("[COD]", "[Tb1]", "Year([Data])=" & Year(Data)), 0) + 1
 
Grazie in anticipo per la risp.
Dino


CErto che si, ma l'informazione non la puoi ricavare 'al volo' con una semplice query? Perchè la memorizzi?


Mi e' stato chiesto di avere un prog.numerico voce per voce

 - Mostra testo citato -
 
Salve......
 
Su dopo aggiornamento inserisci questa routine:
 
Dim CodiceIncrem As New ADODB.Recordset
Dim SQL As String
Dim Codice As Integer
 
Codice = 0
 
SQL = "SELECT * FROM TuaTabella  ORDER BY [TutaTabella.IDContatore]"
 
Call CodiceIncrem.Open(SQL, CurrentProject.Connection, adOpenKeyset,
adLockOptimistic)
   With CodiceIncrem
       If .EOF Then
            Exit Sub
       Else
           CodiceIncrem.MoveFirst
           Do While Not CodiceIncrem.EOF
              CodiceIncrem("Cod") = Codice + 1
              Codice = CodiceIncrem("Cod")
              CodiceIncrem.Update
              CodiceIncremMoveNext
           Loop
       End If
  End With
 
CodiceIncrem.Close
CodiceIncrem= Nothing
 
 
Dovrebbe andar bene così
Saluti
M7a1x


Capito. Certo che si. Mettiamo che la tua tab GIACENZE sia ID, QUANTITA. 2 routine (aggiungo e tolgo). Quando aggiungi il record, scateni la Routine aggiungo
 
Sub Aggiungi(MyId as integer)
 
SELECT Count(ID) as Tot FROM GIACENZE WHERE ID=MyId
 
if rst.BOF AND rst.EOF  
    INSERT .....
else
    UPDATE
end if
 
Sulla cancellazione scateno Togli
 
Sub Togli(MyId as integer)
 
SELECT Count(ID) as Tot FROM GIACENZE WHERE ID=MyId
 
UPDATE
 
SELECT QUANTITA FROM GIACENZE WHERE ID=MyId
 
if rst![QUANTITA]
    DELETE
end if
 
end sub
 
scritta a braccio chiaramente


Ciao a tutti.Scusate per il rit della risp. (ero via).Ho provato e
funziona tutto alla grande.
Grazie ancora
Dino
Newsgroup: it.comp.appl.access
Titolo: Ancora sottomaschere...

Ho già postato un messaggio simile in coda ad un mio post precedente, ma
dato che il primo aveva già qualche giorno e nessuno mi ha risposto lo
ripropongo...
Parlando di sottomaschere ho due dubbi:
- Bloccando da codice una sottomaschera (proprietà Locked) mi risulta si
blocchino solo i controlli testo, ma non i pulsanti... Poco male, li blocco
a mano, ma è normale che si comporti così o ho sbagliato qualcosa?
- Quando sono in visulizzazione struttura di una maschera principale che
contiene una sottomaschera, a volte questa la vedo come maschera e le
proprietà relative sono, per intenderci, AllowEdits ecc..; altre volte la
vedo come controllo (mi appare come una casella bianca) e le propietà
relative sono quelle più tipiche dei controlli (compaiono ad esempio enabled
e locked che non ci sono nell'altro caso). Il problema è che non so come
passare da una visualizzazione all'altra...
Grazie ancora a tutti

 ha scritto nel messaggio
news:9oqghl$de5$1...@nreadb.inwind.it...

Ancora con lo stesso problema. Non so più quante volte ti abbiamo risposto e
risposto ancora.
Si vede che nessuno di noi è all'altezza delle tue domande o non riusciamo a
spiegarci.
Certo è che una bella lettura delle basi di Access non ti farebbe male.
Per bloccare tutto usa Me.Sottomaschera.Enabled = False
Quando apri la principale in struttura, la sottomaschera è un controllo
(casella bianca, come dici tu). Per vederne la struttura bisogna fare doppio
clic sul controllo sottomaschera.
La sottomaschera è a sua volta un oggetto di database quindi la trovi
nell'elenco degli oggetti di tipo maschere. Se da qui selezioni la
sottomaschera puoi aprirla in struttura.
Ciao, Carlo

 ha scritto nel messaggio
news:xi5s7.1778$_42....@news.infostrada.it...

Scusa se insisto, ma ora devo essere io a non spiegarmi:
- Ho fatto come dici tu è il controllo sottomaschera risulta bloccato, ma,
come ripeto, solo nel senso che non si possono modificare i campi testo. I
pulsanti contenuti nella sottomaschera continuano a funzionare! Mi chiedevo
solo se questo comportamento è normale oppure ho di nuovo sbagliato
qualcosa... non mi sembrava che a questo aveste risposto (NOTA bene comunque
che so benissimo che non siete tenuti a farlo, quindi vi RINGRAZIO
tantissimo per la disponibilità!)
- All'altro quesito hai risposto solo in parte: quando vedevo il controllo
sottomaschera (casella bianca) in qualche modo (evidentemente con un casuale
doppio click) sono riuscito a vederne la struttura... il problema è che non
so tornare indietro: ogni volta che apro la maschera principale (in
vis.struttura) vedo anche la struttura della sottomaschera e non il
controllo sottomaschera!
Grazie ancora
Newsgroup: it.comp.appl.access
Titolo: Limiti access

qualcuno saprebbe dirmi i limiti di access 95.
In poche parole sapere il numero massimo di record (se c'è un limite) che
possono essere inseriti in un database access 95, o il numero massimo di
capacita in MB.
(devo vedere se vale la pena convertire le tabelle  access95 usate da un
programma in VB, perchè non vorrei che sia ormai al limite, 60.000 record in
una tabella)
Grazie
 Carlo


 per quanto riguarda Access 97 e 2000 ti posso dire con certezza che il
limite è di 2 GB
ma non saprei se vale anche per access 95.
     Ciao Mimmo
--------------------------------
Inviato via 
http://usenet.libero.it


97 1 Gb
2000 in poi 2 Gb
con certezza :-)
-- 
Ciao. Fabrizio.

 con certezza :-)
Sě, e anche da A1.1 a A95 il limite č 1 GB.
-- 
HTH
Karl
*********
Access-FAQ (tedesco): 
http://www.donkarl.com

 
Grazie Karl, non conoscevo i limiti delle versioni precedenti , ma ero 
sicuro di quelli dal 97 al 2002.
-- 
Ciao. Fabrizio.

Newsgroup: it.comp.appl.access
Titolo: se con la shell un file risulta già avviato terminarlo e riavviarlo

sapete come è possibile chiudere un processo di windows se per caso è già in
esecuzione prima di rimandarlo in esecuzione con il comando shell?
Grazie.

 ha scritto nel messaggio
news:c5o51i$kqe$1...@lacerta.tiscalinet.it...

Non ti capita mai di dare uno sguardo a questo Sito è decisamente
noto e ben fornito.....!!!! ;-)
http://www.mvps.org/access/api/api0007.htm
Ciao.
@Alex.


non lo conoscevo it's fantastic.

 ha scritto nel messaggio
news:c5p4jq$sbs$1...@lacerta.tiscalinet.it...

Bene.
@Alex.
Newsgroup: it.comp.appl.access
Titolo: access2000_aggiornamento campo calcolato

Salve a tutti, sto cercando di realizzare un programmino per gestire la 
gestione delle comande della sagra del mio paese.
non riesco a fare in modo che inserendo nell'ordine una nuova portata mi 
venga aggiornato anche il totale ordine.
allego codice in cui sono impantanato....
    AggiornaSommaOrdine = Forms!formok!MaskDettOrdi!TxtSommaOrdine + 
(Nz(RsPrezzo!PrzPietanza))
Forms!formok!MaskDettOrdi!TxtSommaOrdine (qui mi da errore    impossibile 
assegnare un valore all'oggetto  )= AggiornaSommaOrdine
il codice viene eseguito mentre lavoro in un'altra maschera
il totale ordine(TxtSommaOrdine ) è un campo calcolato
Spero di essermi spiegato ....
Grazie in anticipo per le eventuali risposte.
maurizio 

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

 ha scritto nel messaggio 
news:Dp3ri.77770$U01.7...@twister1.libero.it...


Grazie e buona serata atutti
Ti sei risposto da solo: un campo calcolato non può essere aggiornato.
Colgo l'occasione per invitarti a scrivere le risposte *dopo* il messaggio originale.
Vincenzo Turturro
Certificato Eucip Core Level
ITA 0000-002299 del 14/05/2007
---------------------------------------------
il sito comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------
risorse Access:
http://www.accessgroup.it
---------------------------------------------
Il sito comune di it.comp.as400
http://www.faq400.com
---------------------------------------------

 Grazie e buona serata atutti
[CUT]


Newsgroup: it.comp.appl.access
Titolo: path tabelle collegate impostato da codice

è possibile impostare da codice il path delle tabelle collegate al db
corrente?
Vorrei fare in modo che spostando f-end e b-end i collegamenti si
aggiornassero automaticamente (a patto x ex di mettere il b-end nella
stessa dir del f-end)
Grazie a tutti
All

 ha scritto nel messaggio

sia la funzione per il path del FE sia la funzione per riallegare le tabelle
del BE le trovi sul sito comune. unisci le due soluzioni e otterra' cio' che
chiedi.
Sib

Newsgroup: it.comp.appl.access
Titolo: come automatizzare una query ??

ciao a tutti ... sempre sulle query..
ho una query che lancio manualmente da una FrmScadenze
che mi va ad aggiornare una TabStorico...
mi chiedevo se era possibile con qualche routine automatizzare la query 
ossia uscendo dalla maschera mi aggiornasse automaticamente la 
TabStorico...
grazie
Giuseppe 


Non sono un esperto, ma secondo me, se il codice o la macro che usi per 
lanciare la querry (immagino associata ad un bottone o doppio click su un 
campo specifico) la metti alla voce Evento "Su Chiusura" della maschera in 
questione, questa si attiverà quando chiudi la maschera.
Ciao
GIS 

GM ci ha detto :

Potresti anche usare la macro autoexec, inserendo tutte le operazioni 
che desideri vengano effettuate ad ogni avvio del tuo database.
-- 
http://www.pierpaoloromanelli.com/aim-free-universal-information-manager.html
http://cala79.blog.excite.it/permalink/499745
Newsgroup: it.comp.appl.access
Titolo: Pulsante di comando

Salve a tutti!
Ho un problema con la creazione di un pulsante di comando
in una maschera.
Vorrei associare a questo pulsante una macro o una routine
che attivasse, al clic del pulsante, l'apertura della finestra
"Filtro in base a maschera" (Record=>Filtro=>Filtro in base a maschera).
Non riesco però a scrivere la routine corretta.
--------------------------------------------------------------------
Private Sub ComandoFiltro_Click()
On Error GoTo Err_ComandoFiltro_Click
    DoCmd.DoMenuItem acFormBar, acRecordsMenu, /*?*/, , acMenuVer70
Exit_ComandoFiltro_Click:
    Exit Sub
Err_ComandoFiltro_Click:
    MsgBox Err.Description
    Resume Exit_ComandoFiltro_Click
End Sub
--------------------------------------------------------------------
Secondo voi il metodo è giusto o ne esiste un'altro?
E se è giusto, che numero ci devo mettere al posto di /*?*/ ?
O forse è sbagliata tutta la 4^ riga?
Grazie infinite!
Cordiali saluti
                       cyberfox

 Secondo voi il metodo č giusto o ne esiste un'altro?
Esiste il metodo di utilizzare un po' meno di autocomposizioni e un po' piů
di codice per fare quello che si vuole veramente...
Antonio

Newsgroup: it.comp.appl.access
Titolo: MSDE Manager..?

Ciao, ho installato in Locale la versione MSDE per
sviluppare applicazioni che poi gireranno su SQL_Server.
Mentre su SQL_Server utilizzo EnterpriseManager per SQLServer2000
per MSDE non posso instalarlo poichè richiederebbe la versione
Win2000 Server.
Cosa usate, ovviamente di Free se possibile.....?
Ho provato il Manager di ValeSoft, ma è un Trial con scadenza
e anche se la spes anon è eccessiva, è sicuramente superflua
in quanto nel mio caso non genera reddito.......!
Grazie.
@Alex.
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 Cosa usate, ovviamente di Free se possibile.....?
Ti consiglio DbaMgr/DbaMgr2K del mitico Andrea Montanari (fresco fresco di
riconoscimento MVP).
Trovi tutto qui: 
http://www.asql.biz/DbaMgr.shtm
E' free e per certe cose è anche meglio di Enterprise Manager.
-- 
Gabriele Bertolucci
PBsoft 
www.pbsoft.it


E' un tool free di Andrea Montanari.
Lo trovi all'indirizzo
www.asql.biz/dbamgr.shtm
ciao MAssimiliano

 wrote in message
news:770de23dc40c1cfa46...@mygate.mailgate.org
Questa sera lo provo, Grazie ad entrambi..!


 wrote in message
news:770de23dc40c1cfa46...@mygate.mailgate.org
Questa sera lo provo, Grazie ad entrambi..!
Grazie.

Newsgroup: it.comp.appl.access
Titolo: immagini incorporate





Ciao,


vorrei sapere come fare a "pulire" un Database 
Access dalle varie immagini incorporate? 


Mi spiego meglio:


ho creato vari report con delle immagini bmp 
incorporate, il che ha fatto si che le dimensioni del Database in questione 
crescessero in maniera considerevole.


Ho provato ad eliminare alcuni report ma le 
dimensioni del file non sono diminuite;


esiste un modo per eliminare definitivamente le 
immagini e riportare il file a grandezze "umane"???


Grazie in anticipo


Peppo




Dopop che hai fisicamente cancellato le immagini hai compattato il db?
-- 
_ _
Ciao
MAssimiliano Amendola            
www.accessgroup.it
Cisa - Conferenza Italiana per Sviluppatori Access
Info:  
www.donkarl.com/it

 
  ha scritto nel messaggio 
news:43947b1e$0$13270$4faf...@reader2.news.tin.it
...

Non specifichi se le immagini sono utilizzate 
  come sfondo dei report o sono incorporate in uno o più campi di una tabella e 
  poi utilizzate nel report.


Ad ogni modo, dopo averle eliminate, fai una 
  bella compattazione del database.


 


Ciao, Carlo



 
  ha scritto nel messaggio 
news:43947b1e$0$13270$4faf...@reader2.news.tin.it
...




Newsgroup: it.comp.appl.access
Titolo: Filtrare un report in base ad una data

Ciao a tutti,
ho creato un DB con Access XP e vorrei fare in modo che un report,
collegato ad una query, possa essere filtrato per data sulla base di un
intervallo di N giorni da stabilire al momento mediante una input box
(
p.es
. i record degli ultimi 7 giorni).
Leggendo quà e là ho trovato la funzione DateDiff, ma non sono in grado di
applicarla all'apertura del report.
Dove posso trovare un esempio?
Grazie
Giacomo
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 Giacomo
Premesso che non è usuale questo modo di gestione, ma è
preferibile avere una Maschera di Opzioni nelle quali
parametrizzare o rendere impostabili queste cose, puoi fare così:
Su Apertura:
Dim varDay as variant
varDay=InputBox("Quanti giorni indietro..?")
If IsNull(varDay) then exit sub
Me.Filter="[CampoData]>=#" & DateAdd("d",cint(varDay),Now()) & "#"
Me.FilterOn=True
Ciao
@Alex


 @Alex
Intendi dire una maschera con dei campi Da > A
da cui prendere l'input come filtro?
In verità non è da molto che ho iniziato a cimentarmi
con Access e pensavo che filtrare il repor in apertura andasse bene
per il mio scopo.
Comunque il codice che mi hai messo come esempio funziona benissimo.
Grazie
Giacomo

Newsgroup: it.comp.appl.access
Titolo: Report: somme parziali

 
          Buongiorno, avrei un problemino e spero di essere bravo nell'esposizione:
Sto provando a costruire un report contenente le vendite mensili. Esempio:
codice articolo | nome articolo | un.misura | quantità | importo|
L'unità di misura non è sempre la stessa (ho mc, kg, minuti) e vorrei
inserire dei totali parziali alla fine delle diverse unità di misura (
totale kg, totale mc ecc.).
E' possibile? Sono un pivellino e non so proprio come fare.
Ringrazio in anticipo x la risposta.
Montanaro
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/


Ciao
metti un controllo e come origine ci metti
=(IIf(Um = "mc";somma(importo);0)
Ovvio uno per ogni um
-- 
_ _
Ciao
MAssimiliano Amendola            
www.accessgroup.it
Cisa - Conferenza Italiana per Sviluppatori Access
Info:  
www.donkarl.com/it


A leggere la tua risposta vedo quanta pastasciutta devo ancora mangiare!
Grazie Ancora.


 Grazie Ancora.
Ultima question: è possibile inserire anche somme parziali per codice
prodotto?
Ad esempio fare una somma degli articoli: 5 7 23 45 ......e un'altra somme
degli articoli: 1 3 6 10 15?
Grazie, poi la smetto.
montanaro



Per favore, devo inserire queste somme nel report, potete aiutarmi?
Grazie


Newsgroup: it.comp.appl.access
Titolo: Posizionare focus su controllo sub form

Buongiorno a tutti,
Sull'evento click del "miopulsante", posizionato nella "mascheraprincipale",
vorrei spostare il focus sul controllo "Note" della sottomaschera "Sub1".
Grazie in anticipo, CF

 ha scritto nel messaggio
news:yaHJ9.3707$Ou4.1...@twister2.libero.it...

Prova con
Forms("MasheraPrinc")!SubForm.form!note.setfocus
Saluti
Mak

 ha scritto nel messaggio
news:ataf86$s2g$1...@lacerta.tiscalinet.it...

Ho cosi provato:
Forms("M_AE_Presenza_Nuova")SubForm.M_AE_Ecg_Nuovo!NoteECG.SetFocus
Ma mi segnala:
errore di compilazione - Errore di sintassi
ciao e grazie CF
Newsgroup: it.comp.appl.access
Titolo: dll.16

Sono in possesso di un'ottimo programma concessomi da un fornitore e basato
su Access.
Io utilizzo office 2000, e dopo aver aperto il prg ed averlo convertito, mi
appare un messaggio in cui più o meno sta scritto che il prg in oggetto
prevede dll a 16 bit e che occorre sostituirle con versione a 32.
Sapreste dirmi se ciò e possibile, ed in caso positivo come fare ?
Grazie sin d'ora a chi vorrà rispondermi.
Giuseppe
gima...@tin.it

 Sapreste dirmi se ciò e possibile, ed in caso positivo come fare ?
Instanto devi aver completo accesso ai moduli e sapere dove mettere le mani.
Dato per scontato questo, devi sostituire le chiamate alle API a 16 bit, con
le equivalenti a 32 bit, contenute nelle corrispondenti DLL a 32 bit. Per
esempio, dove avrai qualcosa tipo:
Private Declare Sub CopyMemory Lib "kernel" Alias ecc...
sostituirai:
Private Declare Sub CopyMemory Lib "kernel32" Alias ecc...
Devi però fare attenzione perchè alcuni nomi o parametri potrebbero essere
cambiati, ed alcune API sostituite da altre.
--
Ciao, AntoGal
*************************************************
Home Page (area programmatori di VolFtp)
http://volftp.mondadori.com/italiani/galletta/
per scaricare un gioco di DAMA ITALIANA
*************************************************

Newsgroup: it.comp.appl.access
Titolo: problemi date

In una maschera ho due caselle di testo una  si chiama data 1 e l'altra
data 2.
data 2 è uguale a data1+60 ma se la data 2 cade nel periodo che va dal
01/08/ al 15/09 i 46 giorni non si considerano e quindi data2 diventa
data1 +60+46 io ho provato con :Private Sub Data1_AfterUpdate()
Data2 = Data1 + 60
If Data1 + 60 > "31/07/aa" And Data1 + 60 < "16/09/aa" Then
Data2 = Data1 + 60 + 46
Else
Data2 = Data1 + 60
End If
End Sub
ma senza risultato qualcuno ha qualche consiglio da darmi Grazie.
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 ma senza risultato qualcuno ha qualche consiglio da darmi Grazie.
Direi che proprio non poteva funzionare......!!!
If Month(Data1)=8 or (Month(Data1)=9 AND Day(Data1)<16)) then.........!!!
Ciao.
@Alex.

 @Alex.
grazie mille ora ci provo


Newsgroup: it.comp.appl.access
Titolo: Re: List box comunicanti e riordinabili (ACCESS2000)

 Mi sembra che sia quello che stavi cercando.
Naturalmente... grazie a tutti per la disponibilità e per i preziosi consigli.
Saluti.
Siver


Per la selezione a doppia lista dovresti trovare sul 
www.sitocomune.com
.
Io ho spedito tempo fa anche un esempio su come cambiare l'ordinamento delle
listbox senza perdere le selezioni già effettuate. Se hai un po' di pazienza
lo troverai pubblicato presto (spero) dato che pare le procedure per il
vaglio del materiale siano state accelerate. Se ti serve prima te lo mando
in email.
Namor
Newsgroup: it.comp.appl.access
Titolo: Intercettare l'ultima parola di un campo di testo

Ciao a tutti,
Il mio problema consiste nel salvare in una casella di testo di una maschera
l'ultima parola di un campo di testo composto da una stringa variabile con
la posizione di un file sul pc Es. "C:\Documents and
Settings\Administrator\Desktop\NomeFile.txt"
Io ho bisogno di salvare nella casella di testo Il Nome del file
"NomeFile.txt".
Ovviamente la posizione del file è variabile e di conseguenza anche la
stringa.
Grazie a tutti.
Ciao, Andrea
--------------------------------
Inviato via 
http://usenet.libero.it

 stringa.
se si tratta sempre di un percorso completo, l'istruzione dir("Percorso") ti
restituisce il nome del file
Sib

 Ciao, Andrea
Usa la funzione Dir (vedi help).
Se scrivi:
Dim NomeFile As String
Dim Path As String
Path = "C:\Documents and Settings\Administrator\Desktop\NomeFile.txt"
NomeFile = Dir(Path)
Se il percorso è valido nella variabile NomeFile ci troverai NomeFile.txt,
se invece il percorso non è valido nella variabile NomeFile ci troverai una
stringa vuota ( "" ).
-- 
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


Perfettamente funzionante non conoscevo la funzione "dir".
Grazie Sib


 variabile e di conseguenza anche la stringa.
  Puoi risolvere in 2 modi: o come ti hanno giaà suggerito 
ricorrendo alla funzione Dir, oppure scrivendo te una 
funzioncina da codice.
  Ad ex:
  ' Se utilizzi Access v2000 o superiore (o VB>=6)
  Function NomeFile(sPercorso as String) as String
    NomeFile = Mid$(sPercorso, InstrRev(sPercorso, _
    	    	    	    	    	    	    	   "\", , _
    	    	    	    	    	    	    	   vbTextCompare) +1)
  End Function
  'Se utilizzi Access 97 (o VB<6)
  Function NomeFile(sPercorso as String) as String
  Dim i As Integer
    For i = Len(sPercorso) To 1 Step -1
      If mid$(sPercorso, i, 1) = "\" Then Exit For
    Next i
    NomeFIle = Mid$(sPercorso, i + 1)
  End Function
  Ciao.
-- 
http://digilander.libero.it/winses/

Newsgroup: it.comp.appl.access
Titolo: questo programma ha eseguito un operazione non valida e verrà chiuso!

mi capita in un database di una certa mole di dati, ogni tanto in situazioni
casuali esce la fatidica mascherina che mi butta fuori in windows cliccando
su chiudi.
sapete come poter risanare in modo efficace e definitivo il mio database da
queste strane anomalie?
grazie a tutti.

 ha scritto nel
messaggio news:TO_c9.142814$n04.3...@twister2.libero.it...

Prova prima con Ripara e Compatta database (BE e FE).
Poi, se ancora non funziona, importa tutto in un nuovo Db, tabelle e
maschere.
Spesso durante l'importazione di una di queste maschere ottieni il messaggio
di errore e il nome della maschera lo vedi nell'info che si presenta durante
l'importazione. Questa č la maschera incriminata. Se succede cosě puoi solo
ricreare da zero la maschera.
Ciao, Carlo
Newsgroup: it.comp.appl.access
Titolo: Data nelle query

Hò una query con un campo data nellla griglia
Nei criteri ho inserito la seguente istruzione:
Between [Forms]![SCHEDA FILTRO STAMPA FATT CLIENTI]![DATA DAL] And
[Forms]![SCHEDA FILTRO STAMPA FATT CLIENTI]![DATA AL]
e inserendo come date dal 01/10/2003 al 31/10/2003 va tutto bene
come posso fare affinchè inserendo la stessa data (01/10/2003 - 31/10/2003)
mi visualizzi i dati dell'anno precedente ossia
01/10/2002 - 31/10/2002
Grazie per l'aiuto
Ciao
Giorgio

 ha scritto nel messaggio
news:zd9qb.92551$vO5.3...@twister1.libero.it...

day(data) & "-" & month(data) & "-" & year(data) - 1
Antonio

Newsgroup: it.comp.appl.access
Titolo: File *.mdb

Scusate gente,
ma quando cerco di aprire un file con estensione mdb mi viene restituito
il messaggio "...non e' un file mdb..". Questo database e' invece un file di
Access e con lui viene visualizzato.
Come caspita si puo' aprire, per correggerlo, bypassando l'errore?
Grazie

Operatore <Oper...@Tiscalinet.itt> wrote in message
99t1lq$bpj$1...@lacerta.tiscalinet.it...

Se provi a creare un collegamento ODBC su quel file mdb che ti da errore,
nella maschera di selezione del file, hai anche la possibilità di fare una
riparazione del db stesso e salvarlo con un altro nome..
Newsgroup: it.comp.appl.access
Titolo: Casella di testo e SQL

Avrei una esigenza e vorrei un aiuto.
In una form ho un controllo "casella di testo" (formato Euro)
al quale vorrei attrubuire un valore al click su un pulsante.
Mi sono creato la mia stringa SQL che ha come esito
un unico risultato (verificato in una query).
Il problema è che ottengo la stringa SQL invece del risultato.
Come posso fare per ottenere il valore?
Grazie per le risposte
ciao
P.

 wrote in message
news:bqkfkt$hej$
1...@grillo.cs.interbusiness.it

Posta la Stringa SQL, le soluzioni sono diverse...!
@Alex.
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 @Alex.
Dim a As String
a = "SELECT Sum(Fatture.TotalePagare) AS SommaDiTotalePagare " _
& "FROM Fatture " _
& "WHERE (((Fatture.DataFattura) " & X & "));"
Me.ImportiIncassati = a

 ha scritto nel
messaggio news:bqkjcs$2n7$1...@grillo.cs.interbusiness.it...

Vedi DSum
Antonio

 wrote in message
news:bqkjcs$2n7$
1...@grillo.cs.interbusiness.it

Per questo tipo di calcoli non è opportuno usare la tecnica SQL
anche perchè richiederebbe l'utilizzo di Recordset e rallenterebbe
il tutto.
Puoi approfittare delle funzioni di aggregazione sui domini
e nel tuo caso
DSUM("[TotalePagare]";"Fatture";"[DataFattura] = #" & x & "#")
Se nell'origine dati della TextBox scrivi la formula deve funzionare.
Per i simboli "#" vedi la formattazione dei campi data....!
Ciao.


 @Alex.
Ho provato con DSum, che è anche più semplice.
Ma a volte i dati da estrapolare sono in relazione a diverse tabelle, ecco
la necessità
di scriverlo in SQL.
Inoltre avendo impostato tutto il codice sulla variabile X
(che viene utilizzata in diversi altri casi),
non c'è un modo per ottenere il risultato dalla stringa SQL?
Grazie

 Grazie
Ti prepari una query qualunque e la salvi.
Poi da codice imposti con la stringa SQL la proprietà SQL di una querydef
settata su quella query e la salvi.
Quindi usi il DSum
Altrimenti apri un recordset sulla stringa SQL e lo scorri prendendo il
valore che ti serve
Antonio

 ha scritto nel messaggio
news:uKDzb.162300$vO5.6...@twister1.libero.it...

Quanto sei buono per Natale....!
Ciao.
@Alex.

 Quanto sei buono per Natale....!
Il natale quando arriva, arriva...
Antonio
Newsgroup: it.comp.appl.access
Titolo: mdb troppo grande

Ciao a tutti
Ho un db di access a cui accedono diversi utenti in rete che diventa molto
grande e rallenta il mio applicativo (sull'ordine dei 180 M). Ho provato a
compattarlo e arriva a 120 M ma questo dura ben poco.
Per pura curiosità ho provato a creare un database nuovo e ad importare
tabelle, query, moduli... dal mio db originale ma ad un certo punto mi ha
dato un messaggio del tipo:
"Impossibile continuare un altro utente sta utilizzando in modo esclusivo
...." ma questo non è assolutamente vero perchè il db si trova sul mio pc e
nessuno lo aveva aperto.
Qualcuno mi sa suggerire qualcosa?????
Grazie
Giulia

 wrote in message
3MAM5.9290$fx4.2...@news.infostrada.it...


dato un messaggio del tipo:
In un'azienda che seguiamo da anni lavorano in sei su un DB che ha ormai superato la soglia dei 300
MB; le prestazioni sono più che discrete...
Probabilmente molto dipende da come si normalizzano gli archivi, dall'uso degli indici e da come si
ottimizzano le query.
Nel tuo caso mi pare di capire che sullo stesso .mdb risiedano sia dati che programma.
Perchè non mantieni solo sul lato "server" solo le tabelle?
Ciao, warp

Giuly ha scritto il ven 03 nov 2000 04:23:43p
Usi per caso tabelle provvisorie, per esempio come base di report etc.
-- 
Sandro

 wrote in message
3MAM5.9290$fx4.2...@news.infostrada.it...

180Mb non sono pochi ma neanche tantissimi,
prima di tutto, se non l'hai gia' fatto, separa gli oggetti di gestione
dalle tabelle (c'e' una funzione automatica che te lo fa) e distribuisci
agli utenti il file .mdb con gli oggetti tenendo sul server solo le tabelle
(questo riduce di molto il traffico di rete)
Per quanto riguarda l'errore fai cosi', ripristina il db, compattalo e da un
modulo qualsiasi scegli "compila e salva tutti i moduli", questo dovrebbe
mettere a posto eventuali problemi del db, poi riprova.
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

 dalle tabelle (c'e' una funzione automatica che te lo fa)
Sto iniziando ad usare Access e l'argomento mi interessa particolarmente.
Puoi darmi qualche indicazione piů approfondita?
Grazie

 Puoi darmi qualche indicazione più approfondita?
La dimensione massima di un singolo db su A97 e' 1Gb, su A2000 e' 2Gb, di un
singolo db, quindi se dividi il db su piu' file raggiungi dimensioni
maggiori.
Per la divisione del db vedi prima l'help.
Ciao, Sib
Newsgroup: it.comp.appl.access
Titolo: Aggiornamento Campo Somma in PièDiPagina....

La situazione è la seguente: in una sottomaschera ho una lista di record
editabili e nel PièDiPagina una TextBox (PTOT_TOT) che vale =SOMMA([PTOT])
dove PTOT è uno dei campi dei record.
PTOT sta nell'SQL che costituisce il RecordSource della sottomaschera ed è
funzione di altri 3 campi. Quando nella sottomaschera modifico uno di
questi, l'evento AfterUpdate prevede l'aggiornamento di PTOT e quindi della
relativa somma (PTOT_TOT):
    Me.Refresh
    Me.Ptot.Requery
    Me.Ptot_tot.Name.Requery
Ora PTOT si aggiorna perfettamente. PTOT_TOT NO!!!!!
WHY?!?!?!?!
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

    Me.Ptot_tot.Name.Requery
invece di
Me!Ptot_tot.Requery
?
Prova anche un semplice:
Me.Recalc
-- 
HTH
Karl
*********
Access FAQ: 
www.donkarl.com/it
 

 Me.Recalc
Grande!!!! Così va! Effettivamente PTOT_TOT aveva la formula direttamente
nella TEXT BOX, non derivava dalla Query...
Adesso però, devo capire bene la differenza tra Recalc, Requery e Rafresh,
perchè il mio imparare Access a tentativi sta diventando limitante!!!!
Vediamo un po':
RECALC - ricalcola le formule sulla maschera
REQUERY - Aggiorna la query che costituisce il RecordSource di un oggetto.
REFRESH - comsolida il contenuto di un oggetto.
E' così o ho scritto delle ca@@ate?


 comsolida il contenuto di un oggetto
La cosa è complessa e con <F1> per tutti metodi trovi tanta
informazione. Poi la pratica (in rete ecc.) spesso è diversa
e ci vuole le prove per verificare cosa veramente funziona
nella situazione concreta.
-- 
cu


Newsgroup: it.comp.appl.access
Titolo: Origine Record Sottomaschera

Buongiorno a tutti,
vorrei cambiare a runtime l'origine record di una sottomaschera ma non
ci riesco.
Quello che ho provato sino ad ora è:
Dim strSource As String
    GiorniLavorati.Visible = True
    Me.GiorniLavorati.SetFocus
    strSource = "SELECT OreDiLavoro.Giorno FROM OreDiLavoro WHERE Mese
= " & DatePart("m", Date)
    Me.GiorniLavorati.Form.RecordSource = strSource
Cioè alla pressione di un tasto la sottomaschera diventa visibile e
gli viene assegnata un origine record.
In cosa sbaglio?
Grazie.


Ho risolto, era necessario porre DataEntry a False.
Ciao

Newsgroup: it.comp.appl.access
Titolo: Possibile importare da scanner?

Vi è mai capitato di importare immagini in una tabella da scanner?
è possibile per esempio inserire un pulsante in una maschera che faccia
partire lo scanner e salvare l'immagine in una tabella?
Sto pensando di creare un programmino per gestire la posta inviata e quella
ricevuta...
per quella inviata ho pensato ad una procedura che, una volta inseriti i
dati in una form, mi salvi il fax o lettera con un nome tipo: FI030001.Doc
(FaxInviato-Anno-Progr.).
Per quella ricevuta invece non ho le idee molto chiare...
Aiutino?
Grazie.


Se cerchi nei messaggi precedenti troverai questo argomento trattato piů
volte (specie da Roberto)...
Ciao.
--
Sergio MAZZA
Newsgroup: it.comp.appl.access
Titolo: Database collegati.

Visto che sono collegato ne approfitto per formulare un altro quesito.
E' possibile cambiare il percorso del collegamento tra i due file front-end
e back-end di un database?
Salve a tutti.
Rosario.

 ha scritto nel messaggio
news:8RSe7.375$lM2....@news.infostrada.it...

Si eccoti un esempio:
Dim db As Database
Dim tabAllegata As TableDef
Dim i As Long
Dim Percorso As String
Set dbsFatt = CurrentDb
Percorso = InputBox("Inserire il percorso completo di nome del DataBase da
collegare", "Collega Tabelle", "c:\db.mdb")
DoCmd.Hourglass True
If Percorso = "" Then
    DoCmd.Hourglass False
    Exit Sub
End If
With dbsFatt
    For i = 0 To .TableDefs.Count - 1
        If .TableDefs(i).Connect <> "" Then
            .TableDefs(i).Connect = ";DATABASE=" & Percorso
            .TableDefs(i).RefreshLink
        End If
    Next i
End With
Set dbsFatt = Nothing

 ha scritto nel messaggio
news:8RSe7.375$lM2....@news.infostrada.it...

C'č un esempio anche sul sito comune (
www.sitocomune.com
)...
Ciao.

Newsgroup: it.comp.appl.access
Titolo: cosa uso per "memorizzare" un numero in 1 db access2000 con VB?

Vorrei fare un programmini mono bottone:
un tex che visualizza un numero progressivo
un bottone che aumenta la variabile "n" di 1 (ogni clik n=n+1)
quando però spengo non voglio perdere il numero ultimo, e quando
riparto voglio continuare......
...uh... vorrei funzionasse in rete (ma credo non centri con il codice ,
vero?)
semplice no?
però spiegate come ad un bambino (ho appena iniziato a smacchinare....)
--
(se non ti dispiace, rispondi anche con e.mail)
--------------------------------------------
molte onorevoli grazie a Voi
^____^
Luca

 Luca
Guarda su it.comp.lang.visual-basic, ti hanno già dato un'ottima risposta
che ti riporto:
devp...@libero.it
 scrisse:
sai... è indispensabile che ora tu ti studi su un libro, una guida, un po'
di cose, almeno le basi del Visual Basic, se no rischi di piantarti
subito....non è per cattiveria davvero ma è davvero impossibile aiutarti
ora....non preoccuparti vedrai che in pochissimi giorni riuscirai già a
capire moltissime cose...
ciao e auguri per la tua programmazione
deV
Mi associo agli auguri.
Ciao
Newsgroup: it.comp.appl.access
Titolo: IsNull e Select Case

Ho due caselle di testo non associate. Possono contenere due date, 
inizio e termine, che rappresentano gli estremi per impostare la 
proprietà filter di un report.
Se le due date sono null, considero i controlli come inesistenti.
Se entrambe le date non sono null, cerco i record con data compresa.
Se solo "inizio" è Null, considero il lasso di tempo tra 01/01/1900 e 
"termine". Viceversa se solo "termine" è null, considero il lasso di 
tempo tra "inizio" e la data corrente.
Ho risolto con if...then...else (senza bisogno di nidificare più di 
tanto). Poi ho pensato a Select Case: perché non verificare la 
condizione null delle due caselle di testo in blocchi di due in due?
Ho concatenato il risultato di isnull(variabile variant), ...
    Select Case IsNull(varItemInizio) & IsNull(varItemTermine)
... ma mi sono imbattuto in un problema che ignoravo. Ho ottenuto la 
traduzione italiana "VeroVero" invece di "TrueTrue". Ma ha senso 
tutto ciò? Non esiste una funzione per "delocalizzare" il risultato 
di isnull?
Il codice è il seguente:
    Dim strCriteriApp As String
    Dim varItemInizio As Variant
    Dim varItemTermine As Variant
    varItemInizio = Me!inizio
    varItemTermine = Me!termine
    Me!inizio = Null
    Me!termine = Null
    Select Case IsNull(varItemInizio) & IsNull(varItemTermine)
        Case Is = "VeroVero"
    	  End Sub
        Case Is = "VeroFalso"
        strCriteriApp = " AND ([data] BETWEEN (#01/01/1900#) AND _     
	(#" & varItemTermine & "#))"
        Case Is = "FalsoVero"
        strCriteriApp = " AND ([data] BETWEEN (#" & varItemInizio _ 
    	& "#) AND (#" & Date & "#))"
        Case Is = "FalsoFalso"
        strCriteriApp = " AND ([data] BETWEEN (#" & varItemInizio _   
	& "#) AND (#" & varItemTermine & "#))"
    End Select
==================================================================
Con if...then...else avevo risolto così (e forse era meglio):
==================================================================
If IsNull(varItemInizio) And IsNull(varItemTermine) Then End Sub
If IsNull(varItemInizio) Then strCriteriApp = " AND ([data] BETWEEN 
(#01/01/1900#) AND (#" & varItemTermine & "#))"
If IsNull(varItemTermine) Then strCriteriApp = " AND ([data] BETWEEN 
(#" & varItemInizio & "#) AND (#" & Date & "#))"
If Not IsNull(varItemInizio) And Not IsNull(varItemTermine) Then _
    'strCriteriApp = " AND ([data] BETWEEN (#" & varItemInizio & "#) 
AND (#" & varItemTermine & "#))"

"massimo" <n...@send.invalid> ha scritto nel messaggio
news:Xns934CBCC...@news.inwind.it...

Ciao Massimo puoi semplicemente trasformare in numero il risultato booleano
di ogni Isnull per poi concatenarlo in una stringa  Es....
Select Case CInt(IsNull(varItemInizio)) & ";" & CInt(IsNull(varItemTermine))
In questo caso le combinazioni soni "0;0" "0;-1" "-1;0" "-1;-1" e non sono
soggette alla Lingua.
Ciao Giorgio.

 "0;0" "0;-1" "-1;0" "-1;-1" e non sono soggette alla Lingua.
 
Grazie. Avevo già girato diverse volte tra le funzioni di 
conversione, ma devo essere veramente distratto :-) Ad ogni modo ho 
sempre trovato dannose le localizzazioni perché complicano la vita.
Massimo.
Newsgroup: it.comp.appl.access
Titolo: Salvare in formato in mde

Io ho un file .mdb, voglio farlo diventare .mde. Come si fa? Considerate
che non so usare il Visual Basic. E una volta che l'ho salvato è facile per
me fare poi fare ulteriori modiche.
Ciao
Simona
--------------------------------
Inviato via 
http://usenet.iol.it

 ha scritto nel messaggio
news:213Z199Z8Z37Y1...@usenet.iol.it...

menu strumenti, utility database, converti in mde
l'mde non si può modificare, l'hanno iventato per questo
ciao, AEOM

 E una volta che l'ho salvato è facile per me fare poi fare ulteriori
modiche.
Assolutamente no... potrai fare modifiche solo sull'MDB e ritrasformarlo...
l'MDE protegge strutture e codici
Chiaro?

 Simona
l'unica cosa che puoi modificare sono le tabelle collegate, se non hai usato
la protezione di access...
il codice non lo riesci nemmeno a vedere, cosě come la struttura delle
amschere.

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

ciao a tutti
 
non riesco ad applicare replace a questa stringa
 
MyValue = "DescrizioneProdotto Like '*" & InputBox(Message, Title, Default) & "*'"
grazie


cioe'
x=replace(myvalue,"prodotto","divisione")   ?
 
 
-- 
ac (x=y-1)
Aborro il Killfile
(La violenza e' l'ultimo rifugio degli incapaci -Salvor Hardin-)


ciao Alessandro
ho provato in molti modi
p.e.
Message = Replace(Message, "'", "''")
MyValue = "DescrizioneProdotto Like '*" & InputBox(Message, Title, Default) & "*'"
 
ma niente da fare
 
con questa invece funziona
Me.Filter = "DescrizioneProdotto = '" & Replace(Me!DescrizioneProdotto, "'", "''") & "'"
 
 
 


risolto
MyValue = "DescrizioneProdotto Like '*" & Replace(InputBox(Message, Title, Default), "'", "''") & "*'"

Il giorno giovedì 15 dicembre 2016 12:04:23 UTC+1, Franco dellavalle ha scritto:

MANCANO LO SPAZIO DOPO [*]....!!!!!!!
 
MyValue = "DescrizioneProdotto Like '* " & InputBox(Message, Title, Default) & "*'"
MyValue = Replace(MyValue , "'", "''")
 
Scritto così è una porcata, soprattutto perchè se nella DialoGBox premi ANNULLA che succede...?
 
Franco, prova a non pensare che scrivere tutto sulla stessa riga sia un BENE... perchè il codice deve essere CHIARO, DEBUGGABILE e COMPRENSIBILE, e possibilmente evitare forzature del casting dei dati.
 
@Alex


ciao Alex
in questo modo io ho errore
di sinatssi (operatore mancante) nell'espressione