mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.appl.access
Titolo: Calcolo data odierna - problemi

Ho sviluppato un'applicazione con Access 2000 su Windows 98.
Passato a Windows 2000 professional - sempre con Access 2000 -
la stessa applicazione mi da errore  #NOME?  ad ogni richiamo della 
funzione Date() .
La Msowcf.dll è presente nella directory C:\programmi\Microsoft
Office\Office.
Qualcuno può aiutarmi?
Grazie fin d'ora, 
Sandro Berardi

 ha scritto nel messaggio
news:3c0cb378...@news.libero.it...

magari dico una cavolata... ma se scrivi Now()...?
Saluti
Sergio Della Giora

 > funzione Date() .
dovrebbe essere un problema di riferimenti
apri un modulo su win 98 e controlla tutti i riferimenti (magari scriviteli
che io non me liricordo mai..) e poi fai uguale su win2k
devono essere i soliti e nel solito ordine
Ciauz
Alex3man


wrote:

Ho risolto grazie al tuo suggerimento.
Grazie.

Newsgroup: it.comp.appl.access
Titolo: Data nelle espressioni

Ciao a tutti,
vorrei sapere se le date nelle espressioni si trattano in modo 
differente rispetto a cifre e testo:
Forms!frmSpeseGestione.Recordset.FindFirst "data= " & Chr$(34) & _ 
Me!cmbCercaData & Chr$(34)
Il debugger dice che c'ï¿œ un errore di formato.
Probabilmente esiste un modo semplice per gestire la data, altrimenti mi 
  viene in mente di usare una funzione di manipolazione delle date per 
creare una stringa che contenga solo le cifre senza le "/" e poi 
trattarla come testo.
Voi che dite?
Grazie mille!
Marco

 ...
 Passare una data ad una stringa SQL
 
www.donkarl.com/it?FAQ6.8
-- 
HTH
Karl
*********
Access FAQ: 
www.donkarl.com/it
 

 
Dovevo immaginare che c'era qualcosa sul tuo sito!!!!
Grazie
Marco

Newsgroup: it.comp.appl.access
Titolo: Confronto con valori Null in una Query

Dovrei standardizzare una query per filtrare i campi con un certo valore o 
con valore Null
"SELECT campo FROM TAB WHERE campo=" & Stringa
e Stringa pu� essere = Null
Attualmente gestico il caso particolare nel caso di valore Null ("WHERE 
campo Is Null").
Ero curioso di sapere se ci sono alternative.
-- 
Ciao, Sandrobi 

 Ciao, Sandrobi
Ciao, prova con:
SELECT campo FROM TAB WHERE campo='" & Stringa & "' or campo is null"
Ciao
Alberto

Alberto
Ti ringrazio, ma la mia esigenza � di selezionare o solo i record con un 
certo valore di campo o solo quelli con valore null. Con la query che hai 
proposto, i record con campo Null vengono sempre proposti.
-- 
Ciao, Sandrobi 

 Ciao, Sandrobi
Ciao, non avevo capito il problema.
SELECT campo & "" FROM TAB WHERE campo & "" ='" & Stringa & "' & ""
In questo modo trasformi il null in ""
Fammi sapere.
Ciao.
Alberto
Newsgroup: it.comp.appl.access
Titolo: VBA scrivere in una casella di testo in un report

salve
 
ho una casella di testo e non associata in un report
e una label
vorrei scrivere 
 
 
Private Sub Report_Open(Cancel As Integer)
 
 
  lbl3.Caption = "CIAO"
  lbl4.Caption = IIf(Year(Now()) = 2018, "18", "--")
 
  txt4.VALUE = "PROVA"   -->>>> ERRORE
 
End Sub
 
 
come posso scrivere un valore nella textbox?


Me.txt4.ControlSource = "='Prova'"
 
ciao


grazie!!!
 
me nella proprietà ControlSource come devo scrivere
 
=IIF(year(now())=2018,"18","altro")
 
GRAZIE


ora il mio dubbio e' come scrivere nella proprietà di ControlSource (non da VBA)  una IF
 
IIF(year(now())=2018,"18","altro")


Se la Textbox [txt4] NON è associata c'è qualche cosa che non quadra perchè deve accettare quella sintassi anzi è assurdo usare la proprietà ControlSource.
 
Deve esserci qualche altro inghippo, sei sicuro che quel controllo chiamato [txt4] sia una TextBox...?
 
@Alex


che io sappia, txt4.VALUE = "PROVA" funziona solo nel evento 
formattazione e non sul evento open del report. (come richiesto da pfm)
per questo motivo ho proposto la soluzione del controlsource
 
BFS
 
 
 
 


Me.txt4.ControlSource = "=IIF(year(now())=2018,'18','altro')"
 
BFS

 IIF(year(now())=2018,"18","altro")
 
Non da VBA:
 
=IIf(Year(Now())=2018,"18","altro")
 
Bruno

 BFS
 
 
@Alex

 
 
la domanda era su del codice messo sull'evento open... e ho risposto di 
conseguenza.
Avra i suoi motivi per preferirlo al load
 
BFS
 

 BFS
 
@Alex


HO TROVATO:
 
nella proprietà della TextBox
--> =IIf(Year(Now())=2019;Format(Now();"ddd dd/mm/yyyy");"nulla")
 
con VBa
 
 
per una textBox
txt4.ControlSource = "='" & IIf(Year(Now()) = 2018, "18", "--") & "'"
 
per una label



hai ragione mi sono espresso male
il "funziona solo" escludeva altri eventi tipo il load che non avevo 
neppure preso in considerazione
era più adatto un "non funziona su open"
 
BFS


ultima precisazione nella proprietà della textbox
da notare ci vuole il  ; (puntovirgola) anziche' , (virgola)!!!
 

 da notare ci vuole il  ; (puntovirgola) anziche' , (virgola)!!!
 
Siccome sono curioso, puoi spiegare perchè applichi questa logica su OPEN e non su LOAD...?
Hai un motivo tecnico...?
 
@Alex

E comunque x una label txt4.caption.....

La virgola da vba, il punto e virgola dalla GUI di access. Ebper le label si usa .caption
Newsgroup: it.comp.appl.access
Titolo: Compattare il DB al MaXsimo..

salve... ho un DB con A97 e con una copia di esso ho utilizzato il menu
Strumenti>Analizza>Prestazioni per "ottimizzarlo" e poi l'ho compattato...
con mia meraviglia esso è diventato di 4.420 KB contro i 3.714 del
precedente...
ero convinto del contrario....
a questo punto vorrei chiedere... come si fa ad ottimizzare e compattare al
massimo un Db... in maniera da essere + prestante e scattante ???
Grazie....

SuperPippo® ha scritto nel messaggio

Vedi il "pulisci moduli" di RoDAgo sul Sito Comune.
Comunque è bene distribuire i FE in modalità .MDE.
Ciao, warp

 ha scritto nel messaggio
news:0ZsN6.5609$Ql3.2...@news.infostrada.it...

Vai sul Sito Comune (lik qui sotto), Sezione General, e dai una letta alla
FAQ "Ridurre le dimensioni dell'mdb" di RoDAgo.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------
Newsgroup: it.comp.appl.access
Titolo: Inserimento valore in report A2003

Buona giornata a tutti.,
in un report che uso come scontrino ho l'esigenza di inserire in alcune 
label e in alcune textbox dei valori che cambiano conforme il tipo
di clientela con cui ho a che fare.
Questi inserimenti mi riescono nelle label,mentre nelle texbox non succede 
nulla e si pianta il report.
Qualcuno mi può fare capire dove sbaglio e se esiste eventualmente un altro 
sistema per raggiungere lo stesso risultato ?
passo il codice..
Private Sub Report_Open(Cancel As Integer)
If Caricata("FrmOk") = False Then
    MsgBox "Maschera principale ordini non caricata ,verrà visualizzato uno 
scontrino senza dati!", vbExclamation, "Attenzione !!!"
    Exit Sub
End If
'inserisco il nome della manifestazione
'presente nel form Dell'ordine da cui lancio  la stampa
If Not IsNothing([Forms]("FrmOk").[LblManifestazione].Caption) Then
    Me.LblIntestazione.Caption = 
([Forms]("FrmOk").[LblManifestazione].Caption)
     Else
        Me.LblIntestazione.Caption = "Scontrino"
End If
'Se ordine per ESPORTAZIONE
If ([Forms]("FrmOk").[CmbTipoCliente].Column(0)) = 4 Then
Me.LblNcoperti.Caption = ""
Me.LblReparto.Caption = "Per ESPORTAZIONE"
Me.TxtNcoperti.Visible = False
End If
'Se CLIENTE
if ([Forms]("FrmOk").[CmbTipoCliente].Column(0)) = 1 Then
'inserisco nel report il totale ordine
Me.TxtTotaleOrdine =  (Forms![FrmOk]![MaskDettOrdi].Form![TxtSommaOrdine])
End If
'Se collaboratore
If ([Forms]("FrmOk").[CmbTipoCliente].Column(0)) = 2 Then
'inserisco nel report il totale pagato dal collaboratore
Me.TxtTotaleOrdine = ([Forms]("FrmOk").[TxtImportoPagato])
End If
End Sub
Grazie
Ciao a tutti
Maurizio

 ha scritto nel messaggio 
news:48c7956d$0$1074$4faf...@reader2.news.tin.it...

Prova ad utilizzare l'evento "su formattazione"...
Ciao.
-- 
Sergio MAZZA 

Cut
Grazie SERGIO , funziona.
Maurizio
Newsgroup: it.comp.appl.access
Titolo: Db 2000 su Google Drive

Sto facendo delle prove con un database Access 2000 (di nome 
Database.mdb) su Google Drive gestito da VB6, con solo 2 utenti che 
accedono uno per vota da pc diversi.
E' successo questo: il primo inserisce un record, il secondo apre e 
visualizza appena. A sera controllo la cartella Google Drive e trovo il 
database senza il record, in compenso trovo un altro database, 
contenente il record ma col nome cambiato in "Database[Conflitto].mdb".
Qualcuno ha idea di cosa possa essere successo?
Grazie per ogni ipotesi.
 
-- 
Greg
 
 


un mdb su google drive è simili è impensabile
se vuoi condividere il db cambia strada fidati
ciao
BFS

Il 03/04/15 8.11.57 BFS ha scritto:

Lo so anche io che non è il massimo, ma non ho altre strade oltre 
all'invio di una copia per email, o almeno non le conosco :(
 
-- 
Greg

Newsgroup: it.comp.appl.access
Titolo: visualizzare scheda documento

... cioè quella linguettina tanto comoda in fase di progettazione e che non vorrei visibile quando il prg gira. 
Che voi sappiate esiste il modo di disattivarla da codice ?
 
Grazie 
BC

 Che voi sappiate esiste il modo di disattivarla da codice ?
 
CurrentDb.Properties("ShowDocumentTabs").Value = True/False
 
Però come se lo faccia a mano con l'opzione, fa effetto solo dopo riavvi 
il database.
 
-- 
Ciao
Karl
*********
http://www.AccessDevCon.com
 
Access FAQ: 
http://www.donkarl.com/it
 


Grazie, "ringrazio con la faccia sotto i vostri piedi"
 
BC
Newsgroup: it.comp.appl.access
Titolo: Calcolo "live"

Salve,
devo realizzare una semplice maschera in cui ci sono 3 valori in 3 textbox
- totale
- resto
-cifra ricevuta
La text box "totale" contiene il prezzo totale
La text box "resto" contiene il resto da dare al cliente
Vorrei fare in modo che mentre l'operatore digita la cifra ricavuta nella 
textbox "cifra ricevuta" si aggiorni auttomaticamente il valore nella 
textbox "resto", questo senza "uscire" calla textbox.
Cio� senza dover premere tab o invio...
Ho provato con onkeydown ma non riesco a far funzionare l'aggiornamento "in 
tempo reale".
Grazie.
Simone 

 Simone
Sull'evento "Change" di "cifra ricevuta" inserisci:
.
.
   Me.Recalc
   Me![cifra ricevuta].SelStart = Len("" & Me![cifra ricevuta])
.
.
In "Origine Controllo" di "Resto"
=[totale]-Nz([cifra ricevuta];0)
--
sv
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 ha scritto nel messaggio 
news:h331oi$1g4u$1...@newsreader1.mclink.it...

Ho ipotizzato l'aggiunta alla maschera di un controllo nascosto (una 
textbox) e l'ho chiamato "Vale".
Su pressione del controllo "Cifra ricevuta" ho scritto questo codice:
Me.Vale = Me.Vale & Chr(KeyAscii)
If KeyAscii < 48 And KeyAscii > 57 Then
Me.Vale = Me.Vale
End If
Me.Resto = Me.Vale - Me.Totale
If Me.Resto <= 0 Then
Me.Resto = 0
End If
La procedura funziona in tempo reale, l'unico problema � che terminata 
l'operazione e volendo farne una seconda, bisogna prevedere uno svuotamento 
del controllo "Vale". Per esempio si potrebbe aggiungere un pulsante "Nuova 
Operazione" che azzera il controllo "Vale":
Me.Vale = null
Ciao, Carlo
Newsgroup: it.comp.appl.access
Titolo: come posso fare?

Scusate l'intrusione, ma quando ho dei problemi con access ( e capita
spesso ) penso a Voi ( "V" maiuscola)
La questione e':
Maschera "articoli"
Campo : PREZZO. Vorrei che in automatico venga arrotondato per
eccesso....!!! alle 100 lire superiori.
Campo : PREZZO CON IVA: Imposto l'espressione. Nella maschera tutto bene, ma
il dato non viene memorizzato nella relativa tabella.
Domande stupide?.
Vi chiedo gentilmente di aiutarmi.
vil...@inwind.it

 ha scritto nel messaggio
news:8ns5r2$7dd$1...@sirmdpsin16.inwind.it...

Cara Vilma,
per aiutarti sarebbe necessario sapere quali e quanti sono i campi della tua
tabella che contengono un prezzo.
Ciao
Roberto

il dato non viene memorizzato nella relativa tabella.
il controllo sulla maschera è legato a qualche campo della tabella che
fa da origine dati della maschera?
--
make it idiot proof and someone will make a better idiot.
--
il sito comune di it.comp.appl.access:
http://members.xoom.it/it_db_access/

Newsgroup: it.comp.appl.access
Titolo: Aggiornamento sottomaschera

Salve
Ho una maschera principale (è una testata di un ordine) ed all'interno ho
una sottomaschera (le varie linee dell'ordine con i vari prezzi)
Ho inserito nell'evento su apertura della sottomaschera delle righe di
codice VBA che mi valorizzano un valore in una controllo.
Quando apro gli ordini di un determinato cliente questo valore va bene, se
poi sulla maschera principale mi sposto nei vari record (ordini) le righe
nella sottomaschera si aggiornano ma il codice VBA che ho inserito non mi
valorizza il valore della sottomaschera (cioe riporta per ogni ordine sempre
il primo valore)
Ho provato ad inserire questo codice anche sugli eventi:
sucaricamento
suattivazione
suattivato
ma non funziona
Su che evento devo inserire il mio codice affinche spostadomi nei record
della maschera principale l'evento si verifichi nella sottomaschera
Grazie
Ciao
Giorgio

 ha scritto nel messaggio
news:8l2pd.49608$Es2.1...@twister2.libero.it...

Ciao Giorgio,
prova Su Corrente.
Cinzia

Newsgroup: it.comp.appl.access
Titolo: funziona !

QUESTO SITO VI SPEDISCE DELLE E-MAIL VOI DOVETE CLICCARE SU UN LINK E VI
PAGANO ,I SOLDI ARRIVANO VERAMENTE E SI VIENE PAGATI PER NON FARE NULLA
!!!!!! ECCEZIONALE
http://www.sendmoreinfo.com/id/774167



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

Salve,
ho una tabella in Access di questo tipo
mvnumdoc (int)
mvnumrig (int)
cpccchk (varchar)
Dovrei, con una query, concatenare i 2 valori numerici dei primi 2 campi per
inserirli nel terzo.
Ho provato con qualcosa del genere,
UPDATE ordini
SET cpccchk = mvnumdoc & mvnumdoc
ma ottengo l'errore:
Operatore non valido per il tipo di dati. L'operatore è boolean AND, il tipo
di dati è decimal.
Grazie per i consigli.

"Alberto" <a@b.c> ha scritto nel messaggio
news:OlL4b.11369$nw1.3...@news1.tin.it...

Nessuna query, semplimente sull'evento che vuoi cpccchk = mvnumdoc & " " &
mvnumdoc
se riferito solo al record corrente.
Se invece a tutta la tabella
UPDATE ordini
SET cpccchk = mvnumdoc & " " & mvnumdoc
ciao MAssimiliano
Newsgroup: it.comp.appl.access
Titolo: Dr. Watson

Ciao a tutti,
qualcuno mi sa dire come posso evitare che mi appaia il dr. watson.
Grazie

 qualcuno mi sa dire come posso evitare che mi appaia il dr. watson.
Eviterei di mangiare pesante la sera...
Antonio

 ha scritto nel messaggio
news:QxGh8.14355$5z3.4...@twister2.libero.it...

Non sai dirmi qualcosa in più?
grazie

 wrote in message
news:QxGh8.14355$5z3.4...@twister2.libero.it...

Ah, Ah, Ah.....!
Bella questa...!
Alessandro.
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 grazie
A parte che non mi pare che questo sia il luogo adatto per questa domanda,
sei stato molto vago e generico.
Ritengo comunque che se ti parte il dr watson significa che qualcosa non va.
Comunque su questo link si spiega come disattivarlo...
http://is-it-true.org/nt/registry/rtips52.shtml
Antonio
Newsgroup: it.comp.appl.access
Titolo: Caselle combinate...

Ho due caselle combinate:
1- Con l'elenco delle specializzazioni
2- Elenco Classi
Come faccio a fare in modo che ad ogni modifica della
scelta della specializzazione si aggiorni l'elenco delle
classi?!?

 ha scritto nel messaggio
news:2H4M8.17060$86.3...@twister1.libero.it...

Controlla la mia risposta al messaggio inviato da: Angelo con oggetto:
visualizzare valori selezionati in casella di riepilogo con data: 8/6/02
Ciao.
--
Sergio MAZZA
Newsgroup: it.comp.appl.access
Titolo: Far ordinare le stampe dall'utente

Ciao a tutto il ng, sono un neofita e vorrei fare una stampa dove l'utente
mi seleziona i campi in base ai quali vuole fare l'ordine, deve essere una
cosa più elastica possibile (volevo evitare di impostare per esempio cento
query o report!). Grazie per l'aiuto.
Mirko

Si puo' fare in questo modo:
Presentare, nella maschera dalla quale parte l'ordine di stampa del report,
una lista di scelte chiamata NomeCampoOrdinamento che contenga i nomi dei
campi in base ai quali ordinare. Poi occorre inserire il codice nel report
da stampare, basato sull'evento: su apertura
Private Sub Report_Open(Cancel As Integer)
    Me.GroupLevel(0).ControlSource = Forms![Scelta Stampe
Fatturati]![NomeCampoOrdinamento]
    Me.GroupLevel(0).SortOrder = False 'Crescente
End Sub
Il GroupLevel(0) dovrebbe essere la sezione Corpo.
Buona fortuna,
Lorenzo

Newsgroup: it.comp.appl.access
Titolo: Casella di testo con riferimento a combo.

Ho una combo con questa origine
SELECT DISTINCT tDati.[Tipologia dote], tDati.Anno FROM tDati ORDER BY
tDati.[Tipologia dote], tDati.Anno;
La colonna associata è la prima, il numero di colonne è 2.
Poi ho una casella di testo con origine
=[dote].[column](1)
nel quale devo avere l'anno della riga scelta.
Si dà il caso che il campo [Tipologia dote] possa avere più righe
uguali, per esempio
[Tipologia dote]: "Formazione", Anno: 2009
e
[Tipologia dote]: "Formazione", Anno: 2010
Il problema è che se clicco sulla seconda delle due righe la casella
di testo mi riporta il valore "2009". Riaprendo la combo vedo che
effettivamente è evidenziata la prima riga.
Allora ho modificato l'origine così:
SELECT DISTINCT [Tipologia dote] & [anno] AS tutto, tDati.[Tipologia
dote], tDati.Anno FROM tDati ORDER BY [Tipologia dote] & [anno];
mettendo come colonna associata la nuova.
La casella di testo naturalmente ora ha
=[dote].[column](2)
Ora funziona, ma mi sembra un trucco poco elegante. Il fatto è che non
ho, fra i dati di origine, un valore univoco a cui riferirmi.
C'è una soluzione migliore?
Riccardo Baldinotti


Mi sono reso conto che, *ovviamente*, non è più possibile modificare
l'elenco aggiungendo una nuova voce, cosa che invece avrei gradito.
Riccardo Baldinotti

 l'elenco aggiungendo una nuova voce, cosa che invece avrei gradito.
Non sono sicuro di capirti. Forse cerchi:
www.donkarl.com/it?FAQ4.13
-- 
HTH
Karl
*********
Access FAQ: 
www.donkarl.com/it
 

 Karl
Qualcosa del genere. Ma avendo aggiunto il campo calcolato, non mi era
più possibile mettere a Sì l'opzione "Solo in elenco", perché avevo
messo il primo campo come colonna associata.
Mettendo la seconda come colonna associata risolvevo il problema, ma
ho preferito modificare tutto così:
- niente campo calcolato nella combo;
- niente origine controllo nella casella di testo;
- funzione che, dopo aggiornamento della combo, mi carica il valore
nella casella di testo.
In questo modo posso sia mettere un valore nuovo nella [Tipologia
dote], sia un nuovo Anno.
Anche esporre una questione è già un modo per avviarsi alla soluzione.
Ringrazio per la disponibilità.
Riccardo Baldinotti
Newsgroup: it.comp.appl.access
Titolo: Filtra dati su maschera durante la digitazione

Ho una necessita ma non ho proprio la piu pallida idea di come fare e 
sopratutto se si più fare..
Mi spiego: ho una maschera continua con circa 32000 recod, un campo di 
ricerca del codice.
La mia necessita è qusta: nel campo di ricerca codice vorri che mentre 
digito i caratteri incominci a filtrare i recod che risultino uguali.
oppure digito una parte di codice iniziale fin a quando me lo ricordo e 
premendo un pulsante questo mi filtri tutti i recod contenente la parte che 
ho digitato..
è possibile fare una cosa del genere?
Grazie mille per l'attenzione
Ciao 

 Ciao
utilizza una casella combinata
Ciao


Non risco non mi escono tutti i recod perchè sono troppi.. 

 ha scritto nel messaggio
news:zEofe.56141$Of5....@nntpserver.swip.net...

prova con questo:
Like [Forms]![tuaMaschera]![tuoCampo] & "*"

 Non risco non mi escono tutti i recod perchè sono troppi..
Premetto che quanto chiedi è una cosa che rallenta moltissimo 
la prestazione, ma se non ricordo male sul SitoComune trovi
un demo.
Sezione FORMS
3.68 Come creare un controllo di ricerca (2) 
3.35 Autocompletamento del testo in una Casella di Testo.
Vedi tu...
@Alex
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 ha scritto nel messaggio 
news:3Bvfe.872909$b5.38...@news3.tin.it...

Scusate dove dovrei inserire questo comando?
Like [Forms]![tuaMaschera]![tuoCampo] & "*"
Grazie
Ciao

Newsgroup: it.comp.appl.access
Titolo: Come se cliccassi sul file

Buonasera a tutti. Ho questo quesito:
Ho memorizzato in un campo il percorso di vari files, di diversa natura.
Ho dei .doc,.wav.,mp3,pfd etc . E' possibile creare un tasto o qualcosa di
simile cliccando sul quale si ottenga lo stesso risultato di quando clicco
sul file vero e proprio. Cioe' parte il programma a cui e' associata quella
estensione e via di seguito.....
Aspetto fiducioso delle risposte . Grazie a tutti e buonanotte.

 ha scritto nel messaggio
news:eYiX9.31252$ZE.8...@twister2.libero.it...

Vedi Hyperlink(F1)......!Hai anche la manina.....!
@Alex.
Newsgroup: it.comp.appl.access
Titolo: Date e anni

Partendo da una  15/05/09 , come posso impostare una funzione che mi conta i
giorni solo dell'anno  2010?
Aless
Dim GiorniDaFineAnnoInizioServizio As String
Dim GiorniDaInizioAnnoAInizioContratto As String
GiorniDaFineAnnoInizioServizio = DateDiff("d",
Me.DataInizioServizioContratto, #12/31/2010#)

"alessandro" <aaa@.com> ha scritto nel messaggio 
news:4c2b6a88$0$31370$4faf...@reader1.news.tin.it...

Ciao alessandro,
credo di non aver capito cosa vuoi calcolare, mi pare di intuire che 
vuoi sapere a partire da una data di inizio contratto, quanti giorni 
di durata del cotratto sono stati nel 2010, ma  non si capisce fino a 
quale data del 2010.
Sostanzialmente dovrebbe essere:
se la tua data �  minore del 1/1/2010 fail il DateDiff tra la dataX e 
01/01/2010 altrimenti fai il DateDiff tra DataX e DataInzioContratto
-- 
Cinzia [Office Access MVP]
_______________________
 
www.riolab.org
http://accessdaziacin.spaces.live.com
---------------------------------------- 

"alessandro" <aaa@.com> wrote in message 
news:4c2b6a88$0$31370$4faf...@reader1.news.tin.it...

Cos'è che non va nella tua formula?
Dovrebbe funzionare.
Toglierei quel Me che è pleonastico, racchiuderei
il controllo della scheda fra [...], dimensionerei
GiorniDaFineAnnoInizioServizio  As Long (visto
che DateDiff restituisce tale VarType).
Ma sono solo preferenze...
Bruno 


Faccio un esempio pratico
Contratto in essere dal 01/05/09 percio fatturato nel 2009 ....  con data 
diff trovo i giorni e gli importi relatvi.
Nel 2010 si dovranno fatturare 365 giorni .
L'interrogazione sul pulsante AnnoFatture2010 dovrebbe essere:
If  Me.DataContratto = < 01/01/2010 then
GiorniResidui = 365
EndIf
Ce' un altro metodo meno macchinoso per avere questo risultato?
Aless

 ha scritto nel messaggio 
news:4c2b796d$0$18664$4faf...@reader3.news.tin.it...

Al momento le scrivo lunghe solo per facilitarmi la programmazione
Ales


Ciao Alessandro,
temo di no, piů che altro dovresti scriverti una funzione che ti renda 
indipendente dall'anno perchč in questo modo ogni anno dovresti 
modificare il codice e ciň non č bello.
Ad esempio una funzione che prenda in input la data di inizio 
contratto e l'anno da fatturare, tipo questa č indipendente dall'anno:
public Function GetGiorni(DataInizioContratto As Date, AnnoDaFatturare 
As Integer) As Integer
    Dim primogiornoAnno As Date
    Dim ultimoGiornoAnno As Date
    primogiornoAnno = DateSerial(AnnoDaFatturare, 1, 1)
    ultimoGiornoAnno = DateSerial(AnnoDaFatturare, 12, 31)
    If DataInizioContratto < primogiornoAnno Then
            GetGiorni = 365
    Else
            GetGiorni = DateDiff("d", DataInizioContratto, 
ultimoGiornoAnno)
    End If
End Function
la metti in un modulo e la richiami quando vuoi dove ti serve.


 ...
-- 
Ciao
Karl
*********
Access FAQ: 
www.donkarl.com/it
Newsgroup: it.comp.appl.access
Titolo: Sintesi stringa

Salve a tutto il NG,
ho un problema, nel campo espressione della query non riesco ad inserire
questa formula poichè mi dice "testo troppo lungo", come posso
sintetizzarla?
--------------------------------------------------------------------------
Presenze: (DSum("[Presenza] ";"TBLTURNI";"[IdDipendente]=" &
[IdAnagrafica])+DCount("[OrarioTurno] ";"TBLTURNI";"[IdDipendente]=" &
[IdAnagrafica] & "AND [OrarioTurno]=64")+DCount("[OrarioTurno]
";"TBLTURNI";"[IdDipendente]=" & [IdAnagrafica] & "AND [OrarioTurno]=68")
+DCount("[OrarioTurno] ";"TBLTURNI";"[IdDipendente]=" & [IdAnagrafica] &
"AND [OrarioTurno]=63")+DCount("[OrarioTurno]
";"TBLTURNI";"[IdDipendente]=" & [IdAnagrafica] & "AND
[OrarioTurno]=75")+DCount("[OrarioTurno] ";"TBLTURNI";"[IdDipendente]=" &
[IdAnagrafica] & "AND [OrarioTurno]=72")+DCount("[OrarioTurno]
";"TBLTURNI";"[IdDipendente]=" & [IdAnagrafica] & "AND
[OrarioTurno]=76")+DCount("[OrarioTurno] ";"TBLTURNI";"[IdDipendente]=" &
[IdAnagrafica] & "AND [OrarioTurno]=79")+DCount("[OrarioTurno]
";"TBLTURNI";"[IdDipendente]=" & [IdAnagrafica] & "AND
[OrarioTurno]=62")+DCount("[OrarioTurno] ";"TBLTURNI";"[IdDipendente]=" &
[IdAnagrafica] & "AND [OrarioTurno]=73")+DCount("[OrarioTurno]
";"TBLTURNI";"[IdDipendente]=" & [IdAnagrafica] & "AND
[OrarioTurno]=74")+DCount("[OrarioTurno] ";"TBLTURNI";"[IdDipendente]=" &
[IdAnagrafica] & "AND [OrarioTurno]=72"
--------------------------------------------------------------------------
Grazie anticipatamente.
Lucio
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

Lucio
Vincenzo Turturro
---------------------------------------------
il sito comune di it.comp.appl.access:
http://www.sitocomune.com/
---------------------------------------------
E quello di it.comp.as400
http://www.faq400.com/
---------------------------------------------

 ---------------------------------------------


 875 dipendenti...
Ricorda di postare la risposta alla fine del testo e non in testa...
875 o 100.000 non fà differenza. La query risultante è sempre una, infatti 
raggruppa tutti i dipendenti prendendone i valori (calcolati) una sola 
volta.
Il consiglio di VT è proprio quello che ci vuole.
In pratica in questa prima query raggruppata farai una parte dei calcoli e 
poi la utilizzerai, proprio come se fosse una tabella, passandola alla nuova 
query, dove farai i rimanenti calcoli.
Ciao, Carlo
Newsgroup: it.comp.appl.access
Titolo: campi incrociati

Ho una q.ry a campi incrociati in cui esiste un campo chiamato "data per
mese"
Se voglio fare una selezione dei dati ed inserisco nel campo per esempio:
between gennaio 2004 and febbraio 2004
mi funziona tutto perfettamente
Se invece di mettere direttamente i mesi nella query metto i riferimenti a
due caselle di testo contenute in una maschera (in modo da essere piů
professionale e cmq fare piů facilmente le selezioni) il programma mi da il
seguente errore:
il modulo di gestione di database microsoft jet non riconosce "nome
controllo" come nome di campo o espressione valida.
Indico come modifico il criterio sopracitato (il nome della maschera dove
sono contenuti i controlli č STATISTICHE, le due caselle di testo si
chiamano data iniziale e data finale )
between forms![statistiche]![data iniziale] and forms![statistiche]![data
finale]
Perchč avviene questo errore?
Grazie a tutti

 Grazie a tutti
Ti ho già risposto nell'altro thread dove avevi posto lo stesso identico
quesito.
Sarebbe bene che ripubblicassi i quesiti che sono ancora in attesa di
risposta.
-- 
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

 ha scritto nel messaggio
news:ap6Yb.322502$_P.11...@news4.tin.it...

E' capitato anche a me ed ho dedotto (magari sbagliando...) che non č
possibile passare i parametri alla query a campi incrociati.
Ho risolto in questo modo: baso la query a campi incrociati su una tabella
che creo (o ricreo) al momento, prendendo i dati da una query (di creazione
tabella) parametrica.
Ciao
Salvatore

 ha scritto nel messaggio
news:ap6Yb.322502$_P.11...@news4.tin.it...


 Scusami tanto Roberto:
Scusati scrivendo correttamente DOPO il quoting!!!
Antonio

 ha scritto nel messaggio
news:c0r521$2cr$1...@lacerta.tiscalinet.it...

Non č affatto necessario crearsi una tabella temporanea sulla quale basare
la query a campi incrociati: č sufficiente esplicitare il tipo dati dei
parametri selezioando dal menu Query il comando Parametri... .


 ha scritto nel messaggio
news:WpoYb.13558$FJ6.5...@twister1.libero.it...

Mi scuso per il secondo errore consecutivo che faccio.
Ho letto bene le regole delle news ma frequentandoli da poco ho ancora delle
difficoltà
Grazie comunque per le dritte e per i consigli che date.
Salve.
Newsgroup: it.comp.appl.access
Titolo: Modificare proprietà campi da SW.

Salve,
è possibile modificare le proprietà dei campi di una tabella, tipo,
dimensione, ecc. da software ?
dalle prove da me fatte sembra che alcune proprietà, come la dimensione,
siano accessibili in sola lettura.
 Ringrazio anticipatamente.
Ciao.

 ha scritto nel
messaggio news:YtZ7c.88489$FJ6.3...@twister1.libero.it...

Vai sul Sito Comune (link qui sotto) e nella Sezione Tables leggi la FAQ di
Stefano Bettini intitolata "Come si possono modificare via codice le
proprietà dei campi di tabella?".
-- 
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

Newsgroup: it.comp.appl.access
Titolo: Libreria DAO

Dove posso trovare documentazione su
oggetti, metodi ... DAO per Access
Grazie
(prima o pi anche io sarò in grado di spiegare qualcosa a qualcuno)
Ciao

 ha scritto nel messaggio
news:LQgJ6.27555$UW4.1...@news.infostrada.it...

Dalla guida in linea, dal manuale cartaceo, dal sito microsoft e da questo
NG...
Ciao, Carlo

 ha scritto nel messaggio
news:w5hJ6.27676$UW4.1...@news.infostrada.it...

Dalla guida in linea: quando vado su un oggetto DAO mi dice che non può
visualizzare le informazioni perché ci sono errori.. e chiede se voglio
riparare
il guasto, gli dico di si e poi dopo tanto macinare si blocca??
Il manuale cartaceo non ce l'ho
Il sito MS lo trovo complicato
Ho trovato questo sito che ne pensate:
http://www.citilink.com/~jgarrick/vbasic/database/
ciao
Newsgroup: it.comp.appl.access
Titolo: E' possibile aggiungere un nuovo controllo

Ciao a tutti
Vi spiego il mio problema, ho creato un piccolo gestionale che ho dato a
diversi amici i quali non sanno usare access, molto spesso ho la necessità
di fare alcune modifiche, e assieme alle modifiche devo anche aggiungere dei
nuovi controlli nelle tabelle allegate.
La mia domanda è questa, è possibile con una macro o in vba creare qualcosa
di automatico che mi vada a creare questo nuovo controllo nella tabella in
questione.
Vi prego ditemi solo se è possibile prima di mandarmi nel sito comune visto
che non ho trovato niente, forse perché non lo so usare, se qualche
buonanima vi vuole spiegare anche come, tanto meglio.
1000 grazie
Pabel

 ha scritto nel messaggio
news:Qb4mb.38889$e5.13...@news1.tin.it...

Non pregare, perchè il Sito in cui si prega non è il Comune, ma
la Chiesa....!
Si può fare(Vedi CreateControl), ma non ti conviene rifarlo
e ridare ai tuoi Amici quello aggiornato, tanto ci devi andare
con il File che esegue la Modifica, tanto vale andarci con il
Programma aggiornato.
In ogni caso nel SitoComune c'è qualcosa che fà al caso tuo...!
Ciao.
@Alex.

 ha scritto nel messaggio
news:Qb4mb.38889$e5.13...@news1.tin.it...

Innanzitutto nelle tabelle ci sono i campi e non i controlli che sono invece
contenuti nelle maschere e nei report.
Se non ti piacciono le soluzioni del Sito Comune puoi usare l'istruzione
ALTER TABLE (vedi help).
Comunque un'alternativa la trovi proprio sul Sito Comune: come modificare da
VBA la struttura di una tabella (compreso il modo per aggiungere un nuovo
campo) lo trovi nella Sezione Tables nella FAQ di Enrico Oemi intitolata
"Modificare la struttura dati del BE via codice, direttamente dal FE".
-- 
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------
Newsgroup: it.comp.appl.access
Titolo: ocx per Scanner e controllo Setup scan

Scusate chiedevo se qualcuno ha avuto modo di trovare qualche ocx per il
controllo del setup dello scanner, ho provato con gli ocx di imaging ma
l'help dice che la versione corrente non supporta questa utility, eppure il
comando esiste ma ritorna un errore, previsto per altro dello stesso help.
Aspetto con ansia.

 ha scritto nel messaggio
news:d4ve6.45600$L94.5...@twister2.tin.it...

Caro Fabrizio,
anch'io sto cercando ormai da giorni, ocx di controllo scanner diversi da
quelli forniti di serie da access, purtroppo senza successo. Altresě, pur
leggendo quotidianamente i messaggi di questo NG, non ho trovato nulla che
faccia al caso.
Spero che qualcun altro prenda a cuore questa ricerca e diffonda a chi ne
abbisogna.
Grazie e ciao

 ha scritto nel messaggio
news:d4ve6.45600$L94.5...@twister2.tin.it...

Quelli Imaging/Kodak sě; ma che problemi hai?
Ciao.

 ha scritto nel messaggio
news:95efv9$nhe$1...@suite03.caspur.it...



Scrivi dopo il messaggio precedente (come faccio io);
Per bypassare la maschera di opzioni dello scanner (con Imaging/Kodak) prova
con:
'------------
ImgScan1.ShowSetupBeforeScan = False
'------------
ImgScan1 è il nome del controllo ocx scanner...
Ciao.

 ha scritto nel messaggio
news:95ejt5$okd$1...@suite03.caspur.it...



Ti scuso ma tu perseveri!
Purtroppo non sono un genio e anche volendo nella lampada starei strettino;
non sono riuscito ad eseguire la scansione in b/n, solo la visualizzazione
nel controllo imageEdit. La proprietà da impostare (per la scansione) per
avere una scansione in b/n è PageType.
Se controlli nell'help c'è scritto che per default è = 1 cioè b/n, ma col
cavolo che lo fa! Ho provato anche ad applicare le palette sulla stessa
proprietà e impostare la palette del controllo immagine (ImagePalette) a 4
(sempre b/n leggendo l'help). Nisba! L'unica cosa che sono riuscito a
ottenere è la visualizzazione in b/n mentre fai la scansione ma il
salvataggio dell'immagine è a colori.
Ma pensandoci bene, se devi utilizzare l'ADF per fare scansioni in b/n hai
provato ad impostare i parametri, la prima volta, poi li salvi e li utilizzi
come predefiniti?
Ciao.

 ha scritto nel messaggio
news:968m35$sbh$1...@suite03.caspur.it...



Traduzione: non vengono memorizzate le impostazioni che definisce
l'utente...
Ma che scanner č?
Ciao.
P.S. Ah! Per favore scrivi dopo il messaggio precedente (come faccio io);
grazie.
Newsgroup: it.comp.appl.access
Titolo: Re: Operazioni con condizioni


hai una form i cui campi sono associati uno al campo A e si chiama A, uno a
B e si chiama B e uno si chiama C non associato
metti un pulsante che si chiama CONFRONTA e su evento click di quel pulsante
devi scirvere
if me.a>me.b then
    me.c = me.a
else
    me.c = me.b
end if
finito! ciao simba883


Premessa: le query di Access eseguono istruzioni SQL, ma l'SQL standard non
prevede una istruzione IF. Perň l'SQL di Access č leggermente diverso.
Io spesso me la cavo cosě:
"SELECT [Campo1], [Campo2], IIF([Campo1] > [Campo2], [Campo1], [Campo2])
AS[CampoCalcolato] FROM Tabella"
Nell'SQL di Access č possibile sfruttare la funzione VBA IIF(condizione,
se_vero, se_falso). Puoi crearla anche tramite il Generatore di espressioni.
Per valutazioni piů complesse, tipo ElseIf o Select Case, la faccenda
diventa complicata.
Spero di esserti stato utile. Ciao.
 
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

 Tralasciamo il caso che siamo uguali perchè non mi interessa. Perchè è


 ha scritto nel messaggio
news:151Z37Z66Z233Y1...@usenet.libero.it...

Si, grazie.
Solo che mi ci vorrebbe un qualcosa per capire bene la sintassi per la
costruzione delle condizioni.
Ho visto che inizialmente hai selezionato i 2 campi
Poi hai fatto la condizione quindi "IIF([Campo1] > [Campo2], " ma poi non ho
capito perchč hai messo di nuovo "[Campo1], [Campo2]" scritte cosi servono
per dare l'output????
Poi AS a cosa serve????
Fammi sapere
Ciao e grazieeeeeeeee


devi guardare dentro le parentesi (tonde) della funzione IIF. Allora,
"IIF([Campo1] > [Campo2], [Campo1], [Campo2]) AS [CampoCalcolato]" si legge
cosě
"IIF(" - aperta parentesi: inizio della funzione IIF
"[Campo1] > [Campo2]" - primo argomento: č la condizione da verificare
"," - virgola, fine del primo argomento della funzione IIF
"[Campo1]" - secondo argomento: valore da restituire se la condizione č vera
("... se viene Vero, scrivi il valore di [Campo1]..."
"," - virgola, fine del secondo argomento
"[Campo2]" - terzo argomento: valore da restituire se la condizione č falsa
("... se invece viene Falso, cioč Campo1 non č maggiore di Campo2, scrivi il
valore di [Campo2]...")
")" - chiusa parentesi: fine della funzione IIF
"AS [CampoCalcolato]" - "... ciň che č venuto fuori dal discorso fatto
prima, aggiungilo alla query come nuovo campo, e chiamalo CampoCalcolato..."
AS č una parola chiave di SQL che serve per dare un alias, cioč un altro
nome, ad un valore.
Per capirla meglio, se non hai nomi di campo che contengono spazi, puoi
scriverla senza parentesi quadre, e risulterŕ meglio leggibile. Le parentesi
tonde invece lasciale.
Spero che sia piů chiaro ora. Ciao


 Spero che sia più chiaro ora. Ciao
SI si si si
Sei stato un grande
Ciao e grazieeeeeee
Newsgroup: it.comp.appl.access
Titolo: Come creare un file xml da una tabella ?

Avendo una tabella di articoli, come fare per trasformarla in file xml ?
Da vba intendo
Ciao e grazie
RobertoA

 ha scritto nel messaggio 
news:497187fc$1...@newsgate.x-privat.org...

ExportXML Method
http://msdn.microsoft.com/en-us/library/aa221224(office.11).aspx
Ciao.
-- 
Sergio MAZZA 


Grazie mille
Non sapevo ci fosse l'istruzione nativa
Ciao e grazie
RobertoA

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

stavo pensando di fare 4/5 gg a cavallo di ferragosto nella sudetta
località.. chi c è stato? c è quaccosa da vedere?

 località.. chi c è stato? c è quaccosa da vedere?
Ho come la sensazione che tu sia vagamente OT...
Davide
-- 
www.gestionedati.com
 

sai che mi chiedevo dove era andato a finire il msg?
scusate! di lavoro se ne riparla domani!

 scusate! di lavoro se ne riparla domani!
Dì la verità, volevi farci rosicare...
Ciao.
-- 
Sergio MAZZA 

 località.. chi c è stato? c è quaccosa da vedere?
Ci sono stati dei miei amici e ci ritornano spesso
Dicono sia molto bella
-- 
_ _
Ciao
MAssimiliano Amendola            
www.accessgroup.it
Cisa - Conferenza Italiana per Sviluppatori Access
Info:  
www.donkarl.com/it

Newsgroup: it.comp.appl.access
Titolo: [OT] Usare NG

Ogni tanto qualcuno di voi rimanda a dei post precedenti.
C'è qualche sistema per ritrovare dei post vecchi anche solo di qualche
giorno (data la quantità di messaggi che arrivano all'NG) ? Oppure l'unica
via è ...scartabellare?
Grazie Paolo

 ha scritto nel messaggio
news:3bd4863a$1...@news.opennet.it...

www.sitocomune.com
Abbiamo pure messo un bel linkone sulla HP perche' qualcuno si era lamentato
(devo dire giustamente) che non si vedeva bene!:-)
Saluti.
Luciano

 ha scritto nel messaggio
news:9r33sn$qqjd2$1...@ID-86073.news.dfncis.de...

oooooooops!!!! :-)
Paolo

Newsgroup: it.comp.appl.access
Titolo: Textbox con inptumask="password"





Premetto che sto cercando di imparare 
VBA.


Il problema è questo, ho una maschera nella quel è 
presente una sola etichetta ed una textbox che dovrebbe accogliere la password 
che l'utente digiterà.


Vorrei fare in modo che il testo digitato 
dall'utente nella textbox non possa superare la lunghezza di 10 caratteri, 
allora nell'evento keypress della textbox controllo se il carattere digitato 
ossi il keyascii è diverso da 13 (return) o da 8(il ritorno indietro) , se è 
diversotesto se la lunghezza dellla parola presente nella textbox è maggiore di 
10 ( qui è il problema in quanto se utilizzo la proprietà text mi dice che non è 
possibile in quanto inputmask=password se utilizzo la value mi da null in quanto 
il controllo possiede lo stato attivo)


Vorrei saper se esiste un modo semplice per 
ottenere quello che desidero.


 



 ha 
  scritto nel messaggio 
news:OE33UuHzokTa2...@hotmail.com
...

Newsgroup: it.comp.appl.access
Titolo: Compatibilità Run-time

E' vero che se creo la versione run-time di un Db attraverso l'ODE, essa può
"girare" solo sui sistemi operativi uguali a quello mio ? Mi spiego, se io
ho  Win. 95, va bene solo su Pc con Win. 95, se ho il 98 solo su quelli con
Win. 98 ? E se il probabile mio acquirente cambia sistema operativo come
comportarsi ? Suppongo che è bene precisare "il tutto" al momento della
vendita del Db. Mi consigliate di tenere un Pc solo per fare le versioni
run-time ?
Grazie
Antonio

 wrote in message
8sd0ug$u38$1...@lacerta.tiscalinet.it...

Newsgroup: it.comp.appl.access
Titolo: X Antonio Biso


In sintesi voglio costriure una maschera "parametrica" con parecchi
controlli, caselle combinate e caselle di riepilogo. Impostando tali
controlli voglio che la maschera mi restituisca i clienti che soddisfano i
parametri impostati sulla maschera. All'inizio me la cavavo utilizzando una
query collegata ai parametri della maschera... ma la cosa è diventata
ingestibile ed ora vorrei utilizzare il codice per rendere la cosa piu
strtutturata, performante e manipolabile a mio piacimento.
Volevo quindi utilizzare il comando filter per "scremare" i vari recordset
secondo i parametri della maschera e alla fine congiungere il risultato nei
recordset per tenere solo i dati comuni (il codice sopra è solo uno
spezzone.... per la tipologia del progetto ho bisogno di usare 4 recordset,
scremarli secondo dei parametri e poi fare il join di tutti e 4)
Se puoi darmi una dritta mi faresti un grosso piacere... stanotte alle ore
1:30 mi sono arreso.. non riesco a legare i vari recordset..
GRAZIE CIAO
Scusami tanto se ti rompo


A quanto ho capito vorresti prima filtrare i recordset (cioč filtrare ogni
singolo recordset) per poi unirli in un unico risultato.
Credo proprio che ciň non sia possibile (almeno che tu non voglia creare
tramite codice un recordset risultante) per cui ti consiglio una cosa +
semplice :
dalla tua maschera contenete i parametri utente, creati una stringa WHERE da
accodare alla stringa SELECT .. FROM.... INNER JOIN ... ON ..." quindi
ri-crea il recordsource della maschera e fai un bel refresh ...
potrai cosě parametrizzare il tuo result set a runtime
Saluti

 tramite codice un recordset risultante) "... potrebbe essere la cosa che
serve a mè
CIAO CIAO
GRAZIE


Io te lo sconsiglio in quanto rallenteresti di molto le prestazioni ..
comunque tramite DAO o ADO apri una tabella vuota quindi leggi
sequenzialmente, record per record i 4 recordset filtrati quindi accodi alla
prima tabella il record corrente ; una specie di append manuale ...
Saluti

Newsgroup: it.comp.appl.access
Titolo: Query di aggiornamento

Quesito stupido ma fondamentale: in una tabella che per motivi vari sono a
volte contenuti in campi i valori "XX" o "xx", voglio omogeneizzare il tutto
facendo in modo che al posto delle XX ci siano spazi vuoti.
Va bene usare la query di aggiornamento? se si, cosa va indicato nel campo
"Aggiorna a" per fargli inserire lo spazio vuoto? Il Null è corretto?

 ha
scritto: 

usa " ".
ciao MAssimiliano
--------------------------------
Inviato via 
http://usenet.iol.it
Newsgroup: it.comp.appl.access
Titolo: Report e Query a campi incrociati

Ho un report creato sulla base di una query a campi incrociati
Nella query ci sono questi campi
id, data, condominio, condomino, tab a, tab b, ......
Nel codice sottostante ho richiesto la data del consuntivo
Come posso fare per richiedere anche un certo condominio?
Avevo pensato, una volta definita e trattata la variabile myvalue2 a::
Set rstreport = dbsreport.OpenRecordset("select * from
CondominoTottabCampiIncrociati where dat = " & MyValue & " and condominio =
" & Myvalue2)
Ma il recorset risulta vuoto. C'è qualcuno
che ha un suggerimento?
nell'evento opendel report
Dim Message, Title, Default, MyValue
Message = "Di Quale anno vuoi il Consuntivo dei Condomini?"    ' Imposta il
messaggio.
Title = "Consuntivo"    ' Imposta il titolo.
Default = Year(Date)    ' Imposta il valore predefinito.
MyValue = InputBox(Message, Title, Default)
Set dbsreport = CurrentDb
Set rstreport = dbsreport.OpenRecordset("select * from
CondominoTottabCampiIncrociati where dat = " & MyValue)
Ciao
  Gianni

 ha scritto nel messaggio
news:S3X78.24324$5M4.7...@twister2.libero.it...

La inputbox ti restituisce solo valori stringa; se vuoi effettuare un test
devi trasformarlo in valore data;
prova con:
'-----------------
Set rstreport = dbsreport.OpenRecordset("select * from
CondominoTottabCampiIncrociati where dat = #" & MyValue & "#")
'-----------------
Ciao.
--
Sergio MAZZA


No, il problema è relativo al condominio, per la data è tutto ok anche
perchè
si tratta dell'anno e non della data.
Ciao
  Gianni


Ok; se il condominio è una stringa:
'--------------
Set rstreport = dbsreport.OpenRecordset("select * from
CondominoTottabCampiIncrociati where dat = " & MyValue & " and condominio =
" & Chr(34) & Myvalue2 & Chr(34))
'--------------
Ciao.
--
Sergio MAZZA
Newsgroup: it.comp.appl.access
Titolo: query  non funzionante

In visual basic faccio la seguente query e tutto va bene.
SHAPE {SELECT * FROM categorie order by ordine asc}  AS tuttiGliOrdini
APPEND ({SELECT categoria,simbolo,con,senza,prodotti.nome,count(*) as num,
sum(dettagli.prezzo) as prezz FROM ordine_dettaglio WHERE
dettagli.ordine="
& id & " group by 
prodotti.id
,con,senza,prodotti.nome,simbolo,categoria }
AS ordiniAlDettaglio  RELATE 'id' TO 'categoria') AS ordinazione
Ora però per altre esigenze ho modificato la query nel seguente modo:
SHAPE {SELECT * FROM categorie order by ordine asc}  AS tuttiGliOrdini
APPEND ({SELECT categoria,CASE WHEN bassa=1 THEN prodotti.nome ELSE '' END
as nome_alta,CASE WHEN bassa=0 THEN prodotti.nome ELSE '' END as
nome_bassa,simbolo,con,senza,prodotti.nome,count(*) as num,
sum(dettagli.prezzo) as prezz FROM ordine_dettaglio WHERE
dettagli.ordine="
& id & " group by
prodotti.id
,con,senza,prodotti.nome,simbolo,categoria,bassa }  AS
ordiniAlDettaglio  RELATE 'id' TO 'categoria') AS ordinazione
e  mi viene ritornato un errore nell'apertura del recordset.
Visto che è la prima volta che uso il CASE WHEN mi chiedevo:
1) la sintassi del CASE è giusta?
2) Viste le aggiunte alla prima query dove potrebbe stare il problema?
Grazie
----------------------------------------
La mia Cartella di Posta in Arrivo Ã¨ protetta con SPAMfighter
176 messaggi contenenti spam sono stati bloccati con successo.
Scarica gratuitamente SPAMfighter!

 ha scritto nel messaggio
news:d967f.9399$Ij....@tornado.fastwebnet.it...

Ciao Fab,
La funzione Case è sctitta correttamente ma con quale dataprovider stai
aprendo il recordset ?
Se stai usando il provider MSDataShape e il DataProvider
Microsoft.Jet.OleDb.4.0 allora devi sostituire la funzione Case con la
funzione IIF.
Al posto di
----
CASE WHEN bassa=1 THEN prodotti.nome ELSE '' END as nome_alta
----
metti
----
IIF(bassa=1,prodotti.nome ,'') as nome_alta
----
fai la stessa cosa con l'altra Case.
Ciao Giorgio

 ha scritto nel
messaggio news:435d065f$0$8481$5fc...@news.tiscali.it...

Newsgroup: it.comp.appl.access
Titolo: [OT] Ha più di trenta anni ma è sempre attuale

Amore che prendi, amore che dai
-----------------------------------
Se č vero che adesso possiamo parlare
di libera scelta, del bene e del male,
di tecnologia votata a cambiare,
ti chiedi a che prezzo, chi deve pagare.
Le grandi manovre dei grandi potenti
decidon la vita di uomini stanchi,
di generazioni costrette a sparare
per credo o per noia, ma spesso per fame
Se vuoi scrivere una canzone
apri il giornale, c'č l'ispirazione.
L'amore che cerchi, l'amore che vuoi,
non farti ingannare, non fermarti mai.
Non chiudere gli occhi, non chiuderli mai,
l'amore che prendi, l'amore che dai
Sei dentro o sei fuori dal gioco virile,
dal culto del forte o dall'apparire;
Qualcuno che vuole cambiare la storia
denuncia un vuoto di poca memoria;
Discorsi importanti regalan speranza,
ma intanto son chiusi dentro una stanza;
Se senti bisogno di un poco d'amore
mettiti in fila che c'č d'aspettare;
Scaldati all'ombra di un raggio di sole,
gioca piů forte, non ti fermare.
L'amore che cerchi, l'amore che vuoi,
non farti ingannare, non fermarti mai;
non chiudere gli occhi, non chiuderli mai,
l'amore che prendi, l'amore che dai.



Bella, io di anni ne ho parecchi di piů di trenta ma non l'ho
riconosciuta.
All'inizio mi pareva De André ma poi....
di chi č?
Grazie
Ciao
Filippo

 Filippo
Prego
Ciao
Roberto