title: Passaggio da DB3+ ad Access2000

author: antcim

text:
"Julo Cumani" <
ju...@bbcm.univ.trieste.it
> ha scritto nel messaggio
news:atkr1d$ees$1...@newsfeed.cineca.it...

Ciao Julo
Dipende molto da cosa c'e' scritto nei tuoi .prg
Per intenderci:
1) say/get e input vari... in access non hanno alcun senso..!
2) set filter to.... e index on...in access sono quasi un'altra cosa.. :-(
3) tutto cio' che e' inerente alla gestione del puntatore e' da
dimenticare.. :-(
Restano valide tutte le routines dove usi puro codice di ragionamento...
(fatte le piccole dovute correzioni..)
Quasi tutte le funzioni di Db3+/clipper sono contemplate da access,
alcune con differente nome.. :-(
Cordialita'
Antcim


title: la stessa maschera con diversa origine dati

text:
buongiorno a tutti, mi scuso sin d'ora per l'oggetto del post che può apparire fuorviante, spiego meglio il mio problema.

Ho una maschera che, azionata da un pulsante, mi permette di leggere tutti i record di tabella.
Avrei necessità di un secondo pulsante che visualizzi solo i record i cui Progr derivano da una tabella, ma non so come fare.

Io ho creato una seconda maschera con origine dati a una query collegata alla tabella dei file da visualizzare e la cosa funziona ma il fatto di cambiare maschera di fatto mi "snatura" cioè mi modifica tutti i passaggi successivi.

Avrei bisogno pertanto che la maschera che vado ad aprire con il pulsante sia la stessa ma solamente filtrata nei record. Comprendo che per voi è magari una stupidaggine, ma non riesco a venirne fuori.

Grazie infinite a chi mi potrà aiutare....


author: BFS

text:

puoi sull'evento onclick del pulsante cambiare l'origine dati della maschera

se l'origine attuale è "TuaTabella"

me.recordsource="tuaqueryfiltrata"

alla ripressione del pulsante puoi reimpostare la tabella originale

me.recordource="TuaTabella"

ovviamente query e tabella denono avere stesso nome di colonne
altrimenti ti troverai con il classico #nome dentro qualche casella

ciao
BFS


text:

Non potrebbe bastare usare appositamente la proprietà FILTER...?
Ovviamente devi costruire il CRITERIO
[NomeCampo] IN (Val1,Val2...Valn)

Puoi anche provare se accetta in modo più esteso(ma non sono certo):
[NomeCampo] IN (SELECT NomeCampo FROM NomeTabella INNER....)

Altrimenti BFS ti ha esposto molto chiaramente l'unica alternativa.

@Alex


text:
ciao BFS,
mi sono spiegato malissimo,scusami.

Dalla maschera di avvio "frm_Avvio"  un pulsante apre la maschera "frm_Intervento" che ha la sua origine nella tabella "Interventi" del db.

Mi serve un secondo pulsante che apra sempre la maschera "frm_Intervento" predisponendo però la relativa origine dati alla query "Z_Cruscotto_TROVAPROGR".

Ho provato a smanettare un po' col codice che ti allego ma non riesco a venirne fuori. Domattina ci riprovo, ora sono straincasinato da altre mille cose da fare.
Grazie infinite per il sempre costante aiuto.

Private Sub Comando298_Click()
    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "frmIntervento"
    frm.frmIntervento.RecordSource = "Z_Cruscotto_TROVAPROGR"
    DoCmd.OpenForm stDocName, , , , stLinkCriteria

End Sub


text:

prova cosi :-)
prima apri e poi cambi origine dati

stDocName = "frmIntervento"
DoCmd.OpenForm stDocName, , , , stLinkCriteria
frm.frmIntervento.RecordSource = "Z_Cruscotto_TROVAPROGR"


author: Karl Donaubauer

text:
Salve,

BFS:
> ignazio.pilone ha scritto:
>>
>> Dalla maschera di avvio "frm_Avvio"  un pulsante apre la maschera
>> "frm_Intervento" che ha la sua origine nella tabella "Interventi" del db.
>>
>> Mi serve un secondo pulsante che apra sempre la maschera
>> "frm_Intervento" predisponendo però la relativa origine dati alla
>> query "Z_Cruscotto_TROVAPROGR".
>>
>> Ho provato a smanettare un po' col codice che ti allego ma non riesco
>> a venirne fuori. Domattina ci riprovo, ora sono straincasinato da
>> altre mille cose da fare.
>> Grazie infinite per il sempre costante aiuto.
>>
>> Private Sub Comando298_Click()

Bel nome per un pulsante.

>>      Dim stDocName As String
>>      Dim stLinkCriteria As String
>>
>>      stDocName = "frmIntervento"
>>      frm.frmIntervento.RecordSource = "Z_Cruscotto_TROVAPROGR"
>>      DoCmd.OpenForm stDocName, , , , stLinkCriteria
>>
>> End Sub
>
> prova cosi :-)
> prima apri e poi cambi origine dati
>
> stDocName = "frmIntervento"
> DoCmd.OpenForm stDocName, , , , stLinkCriteria
> frm.frmIntervento.RecordSource = "Z_Cruscotto_TROVAPROGR"
>

Cosa sarebbe "frm."?

Forms(stDocName).RecordSource = "Z_Cruscotto_TROVAPROGR"

Però questo scarica tutte e due origini, prima quella scritta nella
proprietà della maschera e poi l'altra.

Spesso non disturba. Altrimenti si puo evitarlo p.e. con mandare un
parametro nei OpenArgs:

DoCmd.OpenForm stDocName,,,,,, stLinkCriteria, "Z_Cruscotto_TROVAPROGR"

e nell'evento Open della maschera:

If Not IsNull(Me.OpenArgs) Then
     Me.RecordSource = Me.OpenArgs
End If

--
Ciao
Karl
*********
http://www.AccessDevCon.com

Access FAQ:
http://www.donkarl.com/it


text:
ciao Karl,
ho cambiato quel bruttissimo nome di pulsante, mi si era ingrippato mentre ragionavo (sic!) sul codice...

Ho applicato il tuo suggerimento e ora funziona perfettamente, nel dettaglio non ho capito molto dell'istruzione OpenArg ma domani mattina cercherò di approfondirla.
Sei un mostro di bravura e vi ringrazio tutti davvero tanto.

con affetto.
M


title: Registare??

author: Davide Spagnoli

text:
PER oggetto Outlook.application
(Outlook 8.0) x ACCESS 97
msoutl8.olb     manca??
c'è da registrarlo come ActiveX ?
o ci manca un collegamento con una dll?
Perché mi da un errore nell'invio
di E-mail:
Il componente ActiveX non è in grado di creare
l'oggetto o di restituire un riferimento a questo oggetto (errore 429)
Manca una qls?
Ciao, Davide


title: classe msXml

author: pfmarro

text:
salve

per la classe MsXML
dove trovo la documentazione dei metodi

in particolare
come posso ciclare dalla root e i nodi sottostanti?

GRAZIE


title: classe msXml

text:
Ovunque trovi documentazione... è molto usata, non è semplicissima anche perchè è una Classe OOP:

https://docs.microsoft.com/it-it/dotnet/standard/data/xml/xml-document-object-model-dom

https://docs.microsoft.com/en-us/previous-versions/windows/desktop/ms757828(v=vs.85)

https://it.coredump.biz/questions/7091162/access-vba-how-to-download-xml-file-and-enter-its-data-into-a-recordset

https://analystcave.com/vba-xml-working-xml-files/

@Alex


title: banalità: sommare campi??

author: carry

text:
salve a tutti
ho la necessità di inseire automaticamente in un campo la somma di altri due
campi della stessa tabella... è possibile senza utilizzare moduli???
se si come....????
oltre al sito del gruppo mi consigliate altri siti dove trovare faq per
cominciare????
grazie  a tutti per l'attenzione...
davide


title: banalità: sommare campi??

author: sergio mazza

text:
carry <
ca...@tiscalinet.it
> wrote in message
87vjen$4s7$1...@lacerta.tiscalinet.it...

Non indichi se parli di form o query? Somma o concatenazione? Campi numerici
o alfanumerici?
Io ci provo...
- Per la somma (tra campi numerici)  in una form:
crea un campo non legato e nell'evento prima di aggiornare inserisci i
codice:
me![totale]=me![campo1]+me![campo2]
- Per concatenare i campi (alfanumerici) sostituisci il + con la &;
- Per la somma (tra campi numerici) in una query:
nella casella "campo" inserisci:
totale: campo1+campo2
- Per concatenare i campi (alfanumerici) sostituisci il + con la &.
Se va bene....
Ciao.


title: banalità: sommare campi??

author: Lbo dal portatile

text:
>ho la necessità di inseire automaticamente in un campo la somma di altri due
>campi della stessa tabella... è possibile senza utilizzare moduli???
perche', che ti ha fatto di male il codice?  e' "difficile"?
--
il sito comune di it.comp.appl.access:
http://members.xoom.it/it_db_access/


title: Condizione per mancanza di dati

author: Augusto

text:
Salve a tutti,
il mio problema è questo...
Ho una maschera con una sottomaschera relazionata, come faccio a mettere una
condizione per quando la sottomaschera non mi rende dati , ovverosia è vuota
?   Ho provato con if isnull(me.figlio ecc..) o con if me.figlio ecc =
null.. ma non funziona.
Vorrei mettere una condizione per cui quando non ci sono dati nella
sottomaschera relativi al cliente della maschera principale, la stessa mi
avvisasse con una msgbox. Grazie anticipate. Augusto


title: Condizione per mancanza di dati

text:
Augusto wrote:
> Ho una maschera con una sottomaschera relazionata, come faccio a mettere
> una condizione per quando la sottomaschera non mi rende dati , ovverosia
> è vuota ?   Ho provato con if isnull(me.figlio ecc..) o con if me.figlio
> ecc = null.. ma non funziona.
> Vorrei mettere una condizione per cui quando non ci sono dati nella
> sottomaschera relativi al cliente della maschera principale, la stessa mi
> avvisasse con una msgbox.
If Me!figlio.Form.RecordsetClone.RecordCount = 0 Then
    MsgBox "Vuoto"
End If
--
HTH
Karl
*********
Access FAQ:
www.donkarl.com/it


title: Condizione per mancanza di dati

text: Tante grazie Karl.... sei stato gentilissimo..


title: Incrementa tabella

author: Segreteria

text:
Domanda:  ho una tabella T_DettaglioTirocinio (ID_Tirocinio,
DataPresenza) che devo alimentare attraverso una maschera con base
dati T_Tirocinio (ID_Tirocinio, DataInizio, DataFine)   vorrei creare
una query di accodamento che alimenti la tabella T_DettaglioTirocinio
di tanti record quanti sono quelli nella Maschera (T_Tirocinio,
DataInizio - DataFine)   Spero sia stato chiaro.
Grazie e Buon NAtale a Tutti


title: Incrementa tabella

author: MA

text:
"Segreteria" <
sanraffae...@gmail.com
> ha scritto nel messaggio
news:73d28917-c2d3-452a...@e27g2000yqd.googlegroups.com...

Risposta
Se ho capito bene tu vuoi aggiungere un giorno di tirocino per ogni gorno
intercorrente tra inizio e fine
dim i as integere
For i = 1 to datediff("d", me.dataInizio, me.datafine)
dateAdd("d",
currentdb.Execute "INSERT T_DettaglioTirocinio (ID_Tirocinio, DataPresenza)
VALUES " & me.idTirocino, &", #" &  dateAdd("d", i, me.dataInizio) & "#"
next


title: Incrementa tabella

text:
On 23 Dic, 16:49, "MA" <
s...@spam.it
> wrote:
> "Segreteria" <
sanraffaele.cass...@gmail.com
> ha scritto nel messaggionews:73d28917-c2d3-452a...@e27g2000yqd.googlegroups.com...

Esatto, devo creare per ogni allievo, tanti giorni quanti sono quelli
intercorenti tra Datainizio e Datafine, quello che mi scrivi... creo
un pulsante e all'evento click inserisco ?
Grazie


title: Incrementa tabella

text:
"Segreteria" <
sanraffae...@gmail.com
> ha scritto nel messaggio
news:d47601d2-22ea-4600...@e27g2000yqd.googlegroups.com...


Risposta:
yes, dovrebbe andare (magar se scrivi integer invece di integere � meglio
;-P


title: Incrementa tabella

author: sv

text:
MA ha scritto:



Chiaramente quello � il VBA Partenopeo.. cos� come "recordeset" etc..
--
sv
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: Incrementa tabella

text:
On 23 Dic, 17:00, "MA" <
s...@spam.it
> wrote:
> "Segreteria" <
sanraffaele.cass...@gmail.com
> ha scritto nel messaggionews:d47601d2-22ea-4600...@e27g2000yqd.googlegroups.com...

> yes, dovrebbe andare (magar se scrivi integer invece di integere è meglio
> ;-P- Nascondi testo citato
>
> - Mostra testo citato -
si, certo Interger, ma ho provato ad inserirlo creando sulla maschera
del tirocinio un pulsante che al click esegue il codice inviatomi e mi
visualizza le righe di errore, ti preciso che uso Access 2003
Dov'è che sbaglio ?
Grazie


title: Incrementa tabella

text:
"Segreteria" <
sanraffae...@gmail.com
> ha scritto nel messaggio
news:bb29b4f3-d602-4743...@d21g2000yqn.googlegroups.com...

> yes, dovrebbe andare (magar se scrivi integer invece di integere � meglio
> ;-P- Nascondi testo citato
>
> - Mostra testo citato -
si, certo Interger, ma ho provato ad inserirlo creando sulla maschera
del tirocinio un pulsante che al click esegue il codice inviatomi e mi
visualizza le righe di errore, ti preciso che uso Access 2003
Dov'� che sbaglio ?
Grazie
Sbagli a non dire che errore ti produce
alla fine ho scritto direttamente qui su OE e non potevo verificare


title: Incrementa tabella

text:
Segreteria wrote:
>> ...
>>> Domanda: ho una tabella T_DettaglioTirocinio (ID_Tirocinio,
>>> DataPresenza) che devo alimentare attraverso una maschera con base
>>> dati T_Tirocinio (ID_Tirocinio, DataInizio, DataFine) vorrei
>>> creare una query di accodamento che alimenti la tabella
>>> T_DettaglioTirocinio di tanti record quanti sono quelli nella
>>> Maschera (T_Tirocinio, DataInizio - DataFine)
> ...
> Esatto, devo creare per ogni allievo, tanti giorni quanti sono
> quelli intercorenti tra Datainizio e Datafine, quello che mi scrivi...
> creo un pulsante e all'evento click inserisco ?
Invece di una query o SQL puoi anche usare DAO visto
che in ogni caso devi usare un ciclo. Se ti capisco bene
il codice nell'evento click potrebb'essere:
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim i As Long
Set db = CurrentDb
Set rs = db.OpenRecordset("T_DettaglioTirocinio", dbOpenDynaset)
For i = Me!DataInizio To Me!DataFine
    rs.AddNew
        rs!ID_Tirocinio = Me!ID_Tirocinio
        rs!DataPresenza = i
    rs.Update
Next i
--
HTH
Karl
*********
Access FAQ:
www.donkarl.com/it


title: Incrementa tabella

text:

Grazie amici, siete grandi... funge tutto perfettamente e non mancherò
mai di ringraziarVi perchè trovo sempre la soluzione navigando tra le
vostre risposte anche ad altri amici della rete.
Grazie ancora e BUON NATALE !


title: Query a campi incrociati senza aggregazione

text:
Ciao.
È possibile fare una query a campi incrociati senza aggregazione? Ad esempio ho una tabella Assenze con data, ufficio, impiegato. Vorrei una query a campi incrociati con intestazione riga ufficio, con intestazione colonna data e con valore il nome. Ma il nome non va conteggiato, ma vorrei avere l'elenco dei nomi (tutti) che sono registrati per quella data in quell'ufficio.
Grazie


author: GiorgioDaPrato

text:
Il giorno mercoledì 7 febbraio 2018 16:48:39 UTC+1, 72longer ha scritto:

> È possibile fare una query a campi incrociati senza aggregazione? Ad esempio ho una tabella Assenze con data, ufficio, impiegato. Vorrei una query a campi incrociati con intestazione riga ufficio, con intestazione colonna data e con valore il nome. Ma il nome non va conteggiato, ma vorrei avere l'elenco dei nomi (tutti) che sono registrati per quella data in quell'ufficio.

provo un suggerimento di massima
(come farei io, ma attendi interventi migliori ...)

Premesso che la query a campi incrociati deriva sempre da un'aggregazione

per lo scopo richiesto (una "cella" che deve contenere una lista di nomi ...)
procederei in due step:

1) una query con 3 campi, 2 RAGGRUPPATI ripresi dalla tabella (Ufficio e Data)
e il terzo "calcolato" (stringaUtenti)
--> funzione utente basata su un recordset che scorre le righe tabella
per ufficio e data "della riga query" e compone la stringa (lista impiegati)

2) una query a campi incrociati basata su quella precedente
righe (GRP): ufficio
colonne (GRP): data
valore (PRIMO): stringaUtenti

SE i dati sono molti può essere necessario "fermare" l'esito della query 1 in una tabella temporanea (origine della query a campi incrociati)

Penso proprio che sia migliorabile l'indicazione su come ottenere la stringaUtenti


text:
Grazie mille....mi sembra una buona soluzione.
Secondo te esiste un modo poi a livello di report per avere poi i nomi concatenati messi uno a capo dell altro all interno del campo?


text:
Il giorno giovedì 8 febbraio 2018 15:19:01 UTC+1, 72longer ha scritto:
> Grazie mille....mi sembra una buona soluzione.
> Secondo te esiste un modo poi a livello di report per avere poi i nomi concatenati messi uno a capo dell altro all interno del campo?

allora:
per dare un ordine alfabetico alla stringa il recordset che scorre la tabella deve avere già, nella stringa di origine, la clausola Order by Impiegato.
Poiché componi la stringa come meglio occorre, puoi mettere come separatore dei nomi il carattere di nuova riga (vbcrlf) invece dello spazio.
Il controllo (textbox ?) del report deve essere espandibile e quindi con le proprietà Espandi e Riduci settate a Sì, E questo settaggio deve essere impostato in modo uguale anche nella sezione (corpo ?) che contiene il controllo


text: Provo. Grazie mille


text:
Il giorno venerdì 9 febbraio 2018 11:47:49 UTC+1, 72longer ha scritto:
> Provo. Grazie mille

sono andato a rivedere una mia situazione simile in Access 2000
in cui "ottengo il ritorno a capo in un campo testo"

nella tabella occorre che il "campo testo" sia di tipo Memo
(testo lungo nelle versioni più recenti)

e la combinazione di caratteri
che determina il ritorno a capo è CHR$(13) & CHR$(10)
non so se è sufficiente CHR$(13) che equivale a vbCrlf

Quindi, in definitiva, la cosa si ottiene in un report
ma occorre verificare l'impatto dei caratteri di "nuova riga"
nella composizione stringaUtenti
e utilizzare un campo memo (testo lungo)
vedi esempio
https://drive.google.com/open?id=1olT84tqtsimC4KoMQXifJ_asfDuwxSiV


title: Pacchetto di installazione

author: Ringhitt

text:
Ho creato un pacchetto di installazione (XP) ddi un database e sto provando
il tutto con diversi sistemi operativi.
I problemi che stò riscontranto sono:
Su alcuni computer (la maggior parte ) mi esce un errore - codice 75
Su altri computer non si installa il runtime.
Qualcuno di voi ha avuto gli stessi problemi ed è riuscito a risolverli?
Grazie mille per la risposta.
Ringitt


title: domanda banale

author: marco

text:
cia a tutti , non riesco a trovare la funzione like per cercare una parte
del nome di un campo del record da inserire nei parametri della query:
nel senzo  ho 3000 campi nomi e devo trovare fantozzi anche solo inserendo
la scritta " fant" nella query di ricerca.
grazie a tutti CiaoMarco


title: domanda banale

author: ciroteo

text:
"yronium" <
y...@yy.it
> ha scritto nel messaggio
news:82Z190Z206Z25Y...@usenet.libero.it...
>                    Il 14 Ott 2004, 18:27, "marco" <
mb0...@jumpy.it
> ha
> scritto:

> Ciao. Nella struttura della query, scrivi
>     Like "fant*"
> nella casella di criteri del campo in questione.
> Se cerchi la funzione Like, clicca col destro sulla casella dei criteri e
> scegli Genera..., per aprire il Generatore di espressioni.
>
> --------------------------------
> Inviato via
http://arianna.libero.it/usenet/
continuiamo a rispondere a subject poco significativi ...


title: domanda banale

text:
ho provato ma non  funziona...
allora, sei io inserisco nella struttura del campo nome della query questa
"scritta"
[inserire nome:]
quando rilancio la query mi chiede di inserire il nome, io lo inserisco e mi
da tutti i dati riferiti a quel nome.
ma nel mio database al campo nome trovo anche dei nomi come " istituto
spaziale mazzinga zeta"
utilizando la query parametrica per la ricerca dovrei inserireil nome intero
della societŕ quando io vorrei trovare il cliente anche inserendo nel
parametro di ricerca la parola  "spaziale"
quale "scritta" devo mettere nel parametro per fare ciň.
grazie Marco.


title: domanda banale


title: domanda banale

author: yronium

text:
                    Il 15 Ott 2004, 13:58, "marco" <
mb0...@jumpy.it
> ha scritto:
> ho provato ma non funziona...
>
> allora, sei io inserisco nella struttura del campo nome della query questa
> "scritta"
>
>
> [inserire nome:]
>
> quando rilancio la query mi chiede di inserire il nome, io lo inserisco e
mi
> da tutti i dati riferiti a quel nome.
>
> ma nel mio database al campo nome trovo anche dei nomi come " istituto
> spaziale mazzinga zeta"
>
> utilizando la query parametrica per la ricerca dovrei inserireil nome
intero
> della società quando io vorrei trovare il cliente anche inserendo nel
> parametro di ricerca la parola "spaziale"
>
> quale "scritta" devo mettere nel parametro per fare ciò.
>
> grazie Marco.
>
Like "*" & [inserire nome:] & "*"



title: Planner o simile per Access 2000

author: Marco

text:
Qualcuno sa dirmi per favore se e come è possibile creare un planner
settimanale/mensile in Access 2000?
In sostanza avrei bisogno di una sorta di agenda, dove segnare i vari
impegni nei giorni all'interno della settimana in corso; pensavo di
utilizzare il controllo ActiveX calendar, ma non so come fare a servirmene
perché sembra un oggetto fine a se stesso, che non è possibile utilizzare
per eventuali collegamenti.
Grazie
Marco


title: Planner o simile per Access 2000

author: Emyr

text:
On Sat, 12 Jan 2002 21:17:57 GMT, "Marco" <
marco...@libero.it
>
wrote:

mmi sembra tu lo possa assegnare ad un campo sottostante in cui
memorizzare la data scelta...
poi sulla stessa tabella metti i campi che ti servono ed il tutto è
fatto...
Saluti.
Emanuele.


title: [Forse OT] ORDER BY dataEvento

author: giaconet

text:
Ciao a tutti.
Ho il seguente problema, forse OT perché si tratta di Access solo in parte,
il db è SQL Server. In una query ho un ORDER BY dataEvento, dove dataEvento
è un campo datetime(8).
L'ordinamento avviene però interpretando la data come stringa e non come
data, ad esempio
08/08/2003
10/02/2003
18/07/2002
21/11/2001
29/03/2002
in pratica tutto quello che viene dopo il primo "/" viene ignorato, infatti
in un'ottica stringa servirebbe solo a discriminare eventuali giorni uguali.
Devo modificare la query per avere l'ordinamento giusto e non posso toccare
il db.
Ho pensato di ordinare per i campi che si ottengono estraendo le
sottostringhe giorno, mese e anno, ma non riesco a trovare la funziona
sottostringa in SQL Server.
Grazie in anticipo a tutti.
Bye
giaconet


title: [Forse OT] ORDER BY dataEvento

author: Giorgio Prx

text:
"giaconet" <
giaconet...@virgilio.it
> ha scritto nel messaggio
news:bq9qkd$1v04ka$1...@ID-71483.news.uni-berlin.de...

Ciao giaconet
se l'ordinamento avviene come dici il campo non è di tipo datetime ma
CHAR(10).
Quindi per ottenere l'ordinamento adeguato ....
-----------------------
ORDER BY RIGHT(dataEvento,4)+SUBSTRING(dataEvento,4,2)+LEFT(dataEvento,2)
-----------------------
Ciao Giorgio


title: [Forse OT] ORDER BY dataEvento

text:
> > Ciao a tutti.
> > Ho il seguente problema, forse OT perché si tratta di Access solo in
> parte,
> > il db è SQL Server. In una query ho un ORDER BY dataEvento, dove
> dataEvento
> > è un campo datetime(8).
>
>
> Ciao giaconet
> se l'ordinamento avviene come dici il campo non è di tipo datetime ma
> CHAR(10).
>
> Quindi per ottenere l'ordinamento adeguato ....
> -----------------------
> ORDER BY RIGHT(dataEvento,4)+SUBSTRING(dataEvento,4,2)+LEFT(dataEvento,2)
> -----------------------
>
> Ciao Giorgio
Il campo è effettivamente un datetime, ma mi hai messo la pulce
nell'orecchio. Effettivamente era fatto su una vista in cui il campo era
stato convertito tramite un Convert(char(10), ecc.ecc.).
Inoltre era anche un SELECT DISTINCT quindi ho modificato la query creando
un campo con le funzioni che mi hai segnalato e ordinando in base a quello.
Tutto funzia, adesso. Grazie
Bye
giaconet


title: A97 evidenziare la/le righe in un report

author: Cristian

text:
Ciao a tutti!
Espongo il mio problema:
Nella maschera inserisco i seguenti dati nel campo descrizione:
LAVORO 1
LAVORO 2
LAVORO 3
MODIFICA LAVORO 1
nel report di stampa ho necessità che venga stampato in questo modo:
LAVORO 1
LAVORO 2
LAVORO 3
ESEGUITO MODIFICA LAVORO 1
voglio evidenziare la o le righe in cui compare modifica!     (per A97)
Grazie
Ciao Chita


author: Carlo Costarella

text:
"Cristian" <
came...@tin.it
> ha scritto nel messaggio
news:470209b0$0$4787$4faf...@reader4.news.tin.it...

> Grazie
> Ciao Chita
Dipende cosa intendi per "evidenziare".
Per esempio questo codice "evidenzia" il bordo della casella di testo
"Articolo" se contiene la parola "Modifica" e imposta il grassetto:
If InStr(1, Me.Articolo, "modifica") > 0 Then
Me.Articolo.BorderStyle = 1
Me.Articolo.FontBold = True
Else
Me.Articolo.BorderStyle = 0
Me.Articolo.FontBold = False
End If
Le combinazioni possono essere tante...
Ciao, Carlo


text:
"Carlo Costarella" <
carloco...@libero.it
> ha scritto nel messaggio
news:fdtofo$2bl$1...@tdi.cu.mi.it...

Hai inteso benissimo!!!
Spettacolo!
Grazie mille CARLO
Ciao


title: aggiorna Tabella

author: GIGI

text:
Salve a tutti
Vorrei un consiglio per risolvere il mio problema
Ho due maschere (con relative tabelle), la prima si chiama ARCHIVIO e la
seconda AGENDA.
Nella maschera ARCHIVIO inserisco la data del giorno e successivamente altre
informazioni.
La maschera AGENDA contiene soltanto il campo data (gg/mm/aa)
Quale è il codice che alla chiusura della maschera ARCHIVIO va a leggere
tutti i record contenuti nella tabella della maschera AGENDA e, se la data
inserita nella maschera ARCHIVIO non è presente nella tabella della maschera
AGENDA la inserisce altrimenti ignora la funzione
IN BREVE: ARCHIVIO la data può essere ad esempio (12/12/04). Su chiusura
della maschera ARCHIVIO voglio inserire il codice che legge tutti i record
(campo data) della tabella AGENDA.; se la data 12/12/04 non esiste viene
automaticamente inserito in un nuovo record, se esiste non fa nulla
Grazie anticipatamente a chi mi vorrà aiutare.
Gigi


title: aggiorna Tabella

author: Gaspare

text:
[CUT]
Ciao,
puoi spiegare meglio la logica del tuo discorso (l'obiettivo da
raggiungere...) al di là della sequenza delle operazioni da effettuare? A
pelle mi sembra un tantino "tortuoso" il procedimento...


title: aggiorna Tabella

author: Leonardo

text:

Ñiao,
inserisci questo codice sull'evento "Su Chiusura" della maschera ARCHIVIO,
dovrebbe funzionare:
Dim crit As String
Dim rst As Recordset
Set dba = CurrentDb()
Set rst = CurrentDb.OpenRecordset("AGENDA")
crit = "[CAMPODATAAGENDA] = '" & Me.CAMPODATAARCHIVIO & "'"
rst.FindFirst (crit)
If rst.NoMatch Then
    DoCmd.Close
    Exit Sub
Else
    rst.AddNew
    rst!CAMPODATAAGENDA = Me.CAMPODATAARCHIVIO
    rst.Update
End If
Dove CAMPODATAAGENDA e CAMPODATAARCHIVIO sono rispettivamente il campo data
da aggiornare nella tabella AGENDA e il campo data presente nella form
ARCHIVIO al momento dell'evento chiusura.
Fammi sapere se funziona.
Leonardo

--------------------------------
Inviato via
http://arianna.libero.it/usenet/


title: aggiorna Tabella

text:
[CUT]
Ciao,
se ti può servire mi è arrivata stamane questa email
----
Mi spiego
Visito un paziente e inserisco i dati, attraverso la maschera archivio,
nella tabella ARCHIVIO che risulta composta dai seguenti campi:
cognome, nome, esame obiettivo, ecc. + campo DATA
In realtà esiste una terza tabella FOLLOW-UP che utilizzo per le visite di
controllo anch'essa composta da un campo DATA
La tabella AGENDA funge da contenitore delle date inserite nelle tabelle
sopra menzionate.
In buona sostanza, se inserisco la data nella tabella ARCHIVIO alla chiusura
della maschera il CODICE APPROPRIATO (che non sia macro o query) deve
leggere tutti i record della tabella AGENDA, capire se quella data esiste
quindi; se non esiste, inserire un nuovo record scrivendoci dentro quella
data, altrimenti non eseguire alcuna funzione.
Pur essendo diverse le visite effettuate in una giornata una volta inserita
la data di quel giorno non voglio che la stessa venga inserita in
continuazione.
CONCLUDENDO
ARCHIVIO   data del giorno 26/08/05   ---------à codice     ------à AGENDA
  a.. Non esiste la data 26/08/05 in agenda allora viene inserita
  b.. Esiste la data 26/08/05 in agenda  allora exit sub
Grazie
---
Buona giornata :-)


title: aggiorna Tabella

text:

Ciao,
il codice che ti ho inviato fa esattamente quello che mi dici. Lo hai
inserito nell'evento Su Chiusura della form ARCHIVIO ? In poche parole il
codice cerca (FindFirst.....) il primo record che corrisponde al criterio
(crit) ossia il primo record della tabella AGENDA con il campo Data uguale
al campo data della form ARCHIVIO che stai chiudendo. Se trova il record,
chiude la form ARCHIVIO senza fare niente, altrimenti aggiunge un record
alla tabella AGENDA (addnew).



title: aggiorna Tabella

text:
[CUT]
A Leoną -> a me non serve quel codice: siccome hai proposto tu la soluzione
ti ho passato delle informazioni che il soggetto mi ha mandato stamane
tranite email e che magari potevano ritornarti utili giacchč non sono
entrato neanche nel merito del discorso ! ;-)
Buona giornata  :-)


title: aggiorna Tabella

text:

 Si scusami hai ragione; solo dopo aver inviato il messaggio, mi sono accorto
della cosa e mi sarei voluto tagliare le mani :-). mi devi capire, lavoro in
Kazakhstan, dalle 7 della mattina alle 7 di sera per 28 giorni quindi a
quest'ora (qui siamo 3 ore avanti) sono gia' un po scoppiato e pensa che
sono solo alla prima settimana !!
Ciao



title: aggiorna Tabella

text:
[CUT]
Tranquillo hombre -> niente scuse quando interagisci con me ! ;-)
Resisti con il lavoro....prima o poi ci si abitua a tutto quanto..."chi la
dura la vince" ! :-)


title: aggiorna Tabella

author: Roberto dalla campagna

text:
"GIGI" <
farmac...@libero.it
> ha scritto nel messaggio
news:a2kPe.30359$HM1.8...@twister1.libero.it...

Penso che la prima cosa da fare e quella di mettere ordine nel tuo
ragionamento.
Una maschera è un oggetto che serve a visualizzare e/o aggiornare i dati
contenuti in una tabella a lei associata o ad una o più tabelle a lei non
associate.
Quindi penso che la cosa che dovresti fare sarebbe quella di darci la
struttura delle due tabelle, un indicazione di cosa contengono e l'eventuale
relazione che esiste tra di loro.
Dovresti a questo punto dirci cosa vuoi ottenere: il modo di come farlo
(tramite l'uso di maschere, query o codice) lo vedremo poi insieme.
>
> Gigi
--
Roberto
-----------------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
----------------------------------------------------


title: Inserire nella maschera di scarico il prezzo dal listino

author: badush

text:
Ciao amici del newsgroup
possiedo un vecchio database in Dos per la gestione di magazzino nel quale
c'è una funzione, molto carina, che mi permette di caricare automaticamente
il prezzo di un articolo, in una maschera di scarico degli articoli,
prelevandolo dal listino.
Vorrei sapere se si puo fare anche in Access.
In sostanza posto che ho una maschera di scarico, composta da una maschera
di anagrafica dei Clienti e una sottomaschera per lo scarico vero e
proprio - composta dal nome dell'articolo, la descrizione, il prezzo la
quantita ecc -, vorrei, con un doppio click nella casella di testo prezzo ad
esempio, aprire la maschera listino nel quale, in corrispondenza di ciascun
articolo, ci sono due prezzi uno al dettaglio l'altro all'ingrosso.
La maschera listino, aperta in questo modo, dovrebbe visualizzare solo il
record relativo all'articolo che mi interessa con i relativi prezzi.
Con l'evento doppio click nella casella di testo relativa al prezzo che  mi
interessa automaticamente deve essere caricato nella casella di testo del
prezzo della maschera di scarico con la possibilità, se non voglio applicare
i prezzi di listino, di mettere anche un prezzo diverso.
Tutto questo è possibile farlo?


author: Roberto da casa

text:
"badush" <
bad...@martucci.com
> ha scritto nel messaggio
news:v5Vpa.64731$DT4.1...@twister1.libero.it...

Sull'help dai un'occhiata alla funzione DLookup.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: file dati con database separati

author: mario rossi

text:
chiedo a voi esperti un parere

se creo un db diviso front end e back end

caso 1: tutte le tabelle le metto nell'unico back end e le collego al front end
caso 2: creo 3 back end per tenere alcune tabelle nel primo back end alcune nel secondo e alcune nel terzo back end poi le collego comunque tutte all'unico front end

secondo voi cambia qualcosa a livello di prestazioni o altri effetti indesiderati nell'avere un unico back end o più back end?

grazie.


title: file dati con database separati

text:

La risposta non può essere così BANALE...!
Se le tabelle tra i 3 BE non hanno alcun legame e non devi interagire nelle Maschere tra dati di un BE ed un'altro non cambia NULLA... se invece i dati possono avere Legami o JOIN in Queries... beh mi verrebbe da chiederti perchè 3BE....?

@Alex


title: file dati con database separati

text:

no le tabelle separate non hanno nessuna relazione fra loro
3 BE perche se uno si danneggia le altre form che usano le altre tabelle presenti negli altri 2 BE continuano a funzionare. sbaglio?


title: file dati con database separati

text:
Questa affermazione mi terrorizza sì, non capisco come è strutturato il tuo lavoro.
@Alex


title: spostare e rinominare files

author: Cla

text:
Buona giornata a tutti !
Ho una tabella che contiene due campi : il nome del vecchio file e il nome
del nuovo
ho due directory una che contiene i files con il vecchio nome e una vuota
che in cui devono andare i nuovi assumendo il nome nuovo
come faccio a ciclarli in modo da ottenere la rinominazione di cui sopra?
vi ringrazio in anticipo come sempre !
Paolo


title: spostare e rinominare files

text:
"Cla" <
hac...@fastwebnet.it
> ha scritto nel messaggio
news:K4Xth.21629$bH4....@tornado.fastwebnet.it...

Ciao,
questa funzione ti permette di ricorrere solo ad Access:
Public Function CopiaUnFile(Origine As String, Destinazione As String)
 FileSystem.FileCopy Origine, Destinazione
End Function
Puoi benissimo richiamarla in un ciclo passando il nome originale compreso
il percorso e il nuovo percorso con il nuovo nome del file.
Tipicamente:
CopiaUnFile("C:\TuoFile.xxx", "F:\TuoNuovoNomeFile.xxx")
Ciao, Carlo


title: spostare e rinominare files

text:
"Carlo Costarella" <
carloco...@libero.it
> ha scritto nel messaggio
news:epcug2$kuh$1...@tdi.cu.mi.it...

ciao Carlo e grazie per la risposta che provero tra non molto !
Nel frattempo con l'aiuto di un collega abbiamo elaborato quanto segue :
Private Sub Comando2_Click()
' Necessita di Strumenti\Riferimenti:Visual Basic For Application;Microsoft
Access 9.0 Object Library; OLE Automation;Microsoft ActiveX Data Objetc 2.1
Library; Microsoft Scripting Runtime
'FileScriptingObject
Dim fso As New FileSystemObject
Dim fls As Scripting.File
Dim ImmagineP As String, ImmagineA As String
Dim FolderP As String, FolderA As String
'Folder di Partenza ed Arrivo delle immagini
FolderP = "G:\Imm_New_2007\"
FolderA = "G:\Imm_New_2007_rin\"
'Collegamento al Data Base
Dim cn As New ADODB.Connection
cn.Open CurrentProject.Connection
Dim rs As New ADODB.Recordset
rs.Open "T_Confronto_Aggior", cn, adOpenStatic, adLockOptimistic
Dim i As Integer
rs.MoveFirst
For i = 1 To rs.RecordCount
    ImmagineP = rs("Nomefile_Orig").Value
    ImmagineA = rs("Codice_Foto").Value
    For Each fls In fso.GetFolder(FolderP).Files
        If ImmagineP = fls.Name Then
            fso.CopyFile FolderP & ImmagineP, FolderA & ImmagineA, True
            rs("Conferma").Value = ImmagineP
        End If
    Next
    rs.MoveNext
Next
rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing
End Sub
e funziona molto bene aggiunge anche un campo di conferma ome puoi notare.
Vorrei magari sapere cosa ne pensi, dato che magari puoi aggiungere o
modificare qualche cosa al fine di renderla migliore
Con la buona serata e grazie ancora
Paolo


title: spostare e rinominare files

text:
"Cla" <
hac...@fastwebnet.it
> ha scritto nel messaggio
news:24quh.24377$bH4....@tornado.fastwebnet.it...
cut
> e funziona molto bene aggiunge anche un campo di conferma ome puoi notare.
> Vorrei magari sapere cosa ne pensi, dato che magari puoi aggiungere o
> modificare qualche cosa al fine di renderla migliore
>
> Con la buona serata e grazie ancora
>
> Paolo
>
>
Ciao Paolo
se funziona bene usala pure!
Con quello che ti ho mandato le righe di codice sono meno di un quarto...e
con lo stesso risultato.
In aggiunta, e se distribuisci il programma, non dovrai preoccuparti di
inserire il riferimento alla libreria Microsoft Scripting Runtime.
Ciao, Carlo


title: spostare e rinominare files

text:
"Carlo Costarella" <
carloco...@libero.it
> ha scritto nel messaggio
news:epddjs$aag$1...@tdi.cu.mi.it...

Vero, Carlo infatti ho provato con analogo risultato e quindi dato che è piu
semplice...... detto fatto
Grazie ancora sei / siete sempre preziosi
Paolo


title: Aiuto urgentissimo

text:
Desidero sapere se esiste un programma per estrapolare i file contenuti in
un unico file. In poche parole ho un file che devo vedere se sia exe o una
dll che contiene un mdb che vorrei estrarre sapete come fare?????
Grazie mille

--------------------------------
Inviato via
http://arianna.libero.it/usenet/


title: Aiuto urgentissimo

author: EmMeCi - Style

text:
"pisolo31" <
piso...@hotmail.com
> ha scritto nel messaggio
news:151Z37Z215Z96Y1...@usenet.libero.it...
> Desidero sapere se esiste un programma per estrapolare i file contenuti in
> un unico file. In poche parole ho un file che devo vedere se sia exe o una
> dll che contiene un mdb che vorrei estrarre sapete come fare?????
>
> Grazie mille
Domanda 1: Se è un unico file ... quanti file può contenere? E' un archivio
quindi?
Domanda 2: Non sei stato molto chiaro a mio avviso
Affermazione 1: Il subject è insignificante
Considerazione GLOBALE: ti consiglio di leggere le regole di questo NG per
capire come si fa un post corretto e come evitare di rimanere con il
problema in essere (ovvero senza aiuto).
Senza rancori ;)
--
**********
EmMeCi
**********
Blog:
http://www.setfocus.it


title: Aiuto urgentissimo

text:
In poche parole desidero sapere come fare per vedere i file contenuti in una
dll.




title: Aiuto urgentissimo

author: Gabriele Bertolucci

text:
> In poche parole desidero sapere come fare per vedere i file contenuti in
> una
> dll.
A parte che l'argomento sembra essere OT, una DLL non contiene "file", bensì
una serie di funzioni ed una tabella di puntatori ad esse che serve per
poterle referenziare da altri file.
--
PBsoft di Gabriele Bertolucci
www.pbsoft.it


title: per Sib - come controllare se tabelle o query sono usate.

author: Riccardo

text:
Ciao Sib,
sul sito comune c'è una funzione, scritta da te, per effettuare questo
controllo...ma come si
usa?
Es.
Ho una query di nome Pippo, e vorrei controllare se è usata o meno.
Che debbo fare?
Mi debbo creare un Form per il controllo?
Che controlli debbo inserire?
i dettagli della funzione Segugio, cosa sono? (debbo solo impostare a true o
false?)
L'esito della ricerca, dove lo dovrebbe visualizzare?
Spero di essere stato chiaro nel farti capire che avrei bisogno di
utilizzare questa funzione, ma non so dove mettere le mani.
Magari se puoi spedirmi, sempre che tu lo abbia già pronto, un esempio
pratico da poter controllare.
Grazie
Riccardo


author: Federico Luciani

text:

apri la finestra di debug (ctrl-g), scrivi
?Segugio("Pippo", True)
e premi invio
subito dopo verra' stampato, nella stessa finetra, l'esito della ricerca.
--
Federico
--------------------------------------
Sito Comune di it.comp.appl.access
http://members.xoom.it/it_db_access
mailto:
it_db_...@usa.net
--------------------------------------
Tutte le richieste che mi arrivano
in privato, vengono cestinate.
--------------------------------------
Rimuovi paperino. per e-mail
--------------------------------------


text:
Federico Luciani <
fluc...@paperino.libero.it
> wrote in message
3A06CFF8...@paperino.libero.it...

_______
Mi da questo messaggio:
Errore di compilazione
Prevista variabile o routine e non modulo
che significa?
10x
Riccardo


text:
Riccardo wrote:
> Federico Luciani <
fluc...@paperino.libero.it
> wrote in message
> [cut]
> > apri la finestra di debug (ctrl-g), scrivi
> > ?Segugio("Pippo", True)
> > e premi invio
> > subito dopo verra' stampato, nella stessa finetra, l'esito della ricerca.
> Mi da questo messaggio:
> Errore di compilazione
> Prevista variabile o routine e non modulo
> che significa?
> 10x
> Riccardo
hai salvato il modulo che contiene la funzione Segugio con lo stesso nome della
funzione, rinominalo (ad es. modSegugio)



text:
Federico Luciani <
fluc...@paperino.libero.it
> wrote in message
3A06DF45...@paperino.libero.it...
> Riccardo wrote:
> > Federico Luciani <
fluc...@paperino.libero.it
> wrote in message
> > [cut]
> > > apri la finestra di debug (ctrl-g), scrivi
> > > ?Segugio("Pippo", True)
> > > e premi invio
> > > subito dopo verra' stampato, nella stessa finetra, l'esito della
ricerca.
>
> > Mi da questo messaggio:
> > Errore di compilazione
> > Prevista variabile o routine e non modulo
> > che significa?
> > 10x
> > Riccardo
>
> hai salvato il modulo che contiene la funzione Segugio con lo stesso nome
della
> funzione, rinominalo (ad es. modSegugio)
>
>
> --
> Federico
>
#####
SPETTACOLO!!
Grazie
Riccardo


author: Sib

text:
"Riccardo" <
ricc...@free.panservice.it
> ha scritto nel messaggio
news:8u6ig9$5uc$1...@news.panservice.it...
> Ciao Sib,
> sul sito comune c'è una funzione, scritta da te, per effettuare questo
> controllo...ma come si
> usa?
[cut]
Hai gia' risolto con Federico, voglio solo precisare che Lorenzo Coronati ha
scritto la prima versione e io ho aggiunto alcune funzionalita' di ricerca e
verifica.
Ciao, Sib


text:
Sib <
cerriserv...@tiscalinet.it
> wrote in message
8u8k6s$l2d$2...@lacerta.tiscalinet.it...

_________
Non per togliere nulla a Lorenzo (scusa di non averti menzionato), pero' nel
modulo c'era scritto 'Autori: Sib e LoreCoro, e sinceramente non sapendo che
fosse Lorenzo Coronati, ho tralasciato il suo nome.
Ciao Riccardo


author: Lorenzo Coronati

text:
Scrisse "Sib" <
cerriserv...@tiscalinet.it
>:
>Hai gia' risolto con Federico, voglio solo precisare che Lorenzo Coronati ha
>scritto la prima versione e io ho aggiunto alcune funzionalita' di ricerca e
>verifica.
Troppo buono :-)
Btw, quella versione non cercava nomi di campo nelle query.
Siccome mi serviva sta cosa, l'ho modificata. Se a qualcuno
interessa...
--
Lorenzo Coronati
--
<<P.S. Mi scuso con il NG per la polemica, ma proprio
non digerisco questo atteggiamento da professorini di
provincia, che alternano risposte saccenti date con
sufficienza a prese in giro da terza elementare.>>
(Giovanni D'Orazio, 1/11/2000)
--


text:
Lorenzo Coronati <lorenzo.coronati@liberopuntoit> wrote in message
3a083ff2...@news.libero.it...
> Scrisse "Sib" <
cerriserv...@tiscalinet.it
>:
> >Hai gia' risolto con Federico, voglio solo precisare che Lorenzo Coronati
ha
> >scritto la prima versione e io ho aggiunto alcune funzionalita' di
ricerca e
> >verifica.
>
> Troppo buono :-)
>
> Btw, quella versione non cercava nomi di campo nelle query.
> Siccome mi serviva sta cosa, l'ho modificata. Se a qualcuno
> interessa...
>
> --
> Lorenzo Coronati
------
potrebbe sempre tornare utile,
grazie
Riccardo


text:
Scrisse "Riccardo" <
ricc...@free.panservice.it
>:
>> Btw, quella versione non cercava nomi di campo nelle query.
>> Siccome mi serviva sta cosa, l'ho modificata. Se a qualcuno
>> interessa...
>>
>> --
>> Lorenzo Coronati
>------
>potrebbe sempre tornare utile,
Sto lavorando anche alla ricerca nei controlli, appena e'
finita la rimando al sc.



title: etichette access

author: mario

text:
Vorrei aiuto per stampare etichette con access 2000 tali da compilare
prestampando con indirizzi i moduli dei Conti correnti Postali.
Mi riesce, ma ho la difficoltà ad impaginarli esattamente in quanto
non riesco a dare uno spazio fisso esatto ai due indirizzi che vengono
scritti.
Di conseguenza l'indirizzo sulla parte destra si sposta in base alla
lunghezza di quello di sinistra.
Esempio:
XXXXX                XXXXX
Via Torino 2                  Via Torino 2
Roma                Roma
Ringrazio chi può darmi una mano.
Mario


title: etichette access

author: Salvatore

text:
"mario" <
dotto...@tiscali.it
> ha scritto nel messaggio
news:ab23916a.0311...@posting.google.com...

Ciao Mario,
potresti far sì che la lunghezza degli indirizzi sia sempre la stessa,
aggiungendo al campo indirizzo stesso un numero di spazi vuoti pari alla
lunghezza voluta meno la lunghezza del testo indirizzo.
Ciao
Salvatore


title: etichette access

text:
"mario" <
dotto...@tiscali.it
> ha scritto nel messaggio
news:ab23916a.0311...@posting.google.com...

In pratica, crei un campo Indirizzo1 e nell'origine dati scrivi
=[indirizzo]&space(50-len([indirizzo])) se 50 è la lunghezza totale del
campo Indirizzo1.
Ciao
Salvatore


title: etichette access

author: Sergio MAZZA

text:
"mario" <
dotto...@tiscali.it
> ha scritto nel messaggio
news:ab23916a.0311...@posting.google.com...

Devi utilizzare un carattere non proporzionale (tipo Courier) e contare la
lunghezza delle stringhe aggiungendo/togliendo spazi dove mancano...
Ciao.
--
Sergio MAZZA


title: etichette access

author: namor

text:
mario ha scritto:

Usa due distinte caselle di testo con lo stesso campo origine. La casella
a destra non cambierà mai la sua posizione, qualsiasi siano la lunghezza
del testo, il tipo o la dimensione dei caratteri usati nella prima.
Namor
--
namor at inwind punto it
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: Conversione Stringa-Numero

author: Michele

text:
Ciao
Un problema con conversione Stringa-Numero
L=100
H=200
str="(L+100)*(H+100)"
Risultato =6000
Che istruzione uso per far calcolare la str per avere risultato 6000


title: Conversione Stringa-Numero

author: ALESSANDRO Baraldi

text:
"Michele" <
michele.ar...@bluewin.ch
> ha scritto nel messaggio
news:3f801bc6$1...@news.bluewin.ch...

A prescindere che per convertire in Stringa ci sono le Funzioni
di CONVERSIONE ben documentate nell'Help in linea..., e nel
tuo caso era Cstr(Valore), credo che l'espressione numerica
da te citata ti imponga anche di considerare l'acquisto di
una nuova calcolatrice....!
L=100
H=200
str=cstr((L+100)*(H+100))
str=cstr(200*300)=60000
Ciao.
@Alex.


title: Conversione Stringa-Numero

text:
"Michele" <
michele.ar...@bluewin.ch
> ha scritto nel messaggio
news:3f801bc6$1...@news.bluewin.ch...

Non credo che ci sia una funzione già pronta per valutare l'espressione e
restituire il risultato.
C'è Eval() ma non funziona con le variabili, puoi fare Eval("1+7+4*3") ma
non Eval("a+2*b").
Namor


title: Conversione Stringa-Numero

text:
Grazie ma non mi serva una nuova calcolatrice.
Mi spiego meglio
Sto realizzando un database di calcolo prezzi ,l'operatore inserisce in un
form tutte le formule di calcolo
L'esempio di prima ,str="(L+100)*(H+100)", e' una formula semplice in
realta' sono molto piu' complesse e numerose
es.
str_Prima = "((L*2+100+((H*2+100)*NA))*(10FR/1000))+NA*20FR"
dove L-H sono misure in MM , FR costo , NA numero ante
modificando i campi ottengo:
str_Dopo = "((1000*2+100+((1250*2+100)*2))*(10/1000))+2*20"
Costo = Cstr(str_Dopo) Non ottengo il risultato
lo ottendo se scrivo il codice :
Costo=Cstr(((1000*2+100+((1250*2+100)*2))*(10/1000))+2*20)
Ciao
Michele
"ALESSANDRO Baraldi" <
ik2...@libero.it
> ha scritto nel messaggio
news:blp8t6$k88$1...@lacerta.tiscalinet.it...



title: Conversione Stringa-Numero

text:
Namor ti ringrazio ho risolto il problema
Ciao
"namor" <
na...@DontSpamMe.inwind.it
> ha scritto nel messaggio
news:tMVfb.11797$e6.4...@twister2.libero.it...



title: Conversione Stringa-Numero

text:
"Michele" <
michele.ar...@bluewin.ch
> ha scritto nel messaggio
news:3f802c71$1...@news.bluewin.ch...
> Grazie ma non mi serva una nuova calcolatrice.
>
> Mi spiego meglio
>
> Sto realizzando un database di calcolo prezzi ,l'operatore inserisce in un
> form tutte le formule di calcolo
>
> L'esempio di prima ,str="(L+100)*(H+100)", e' una formula semplice in
> realta' sono molto piu' complesse e numerose
> es.
> str_Prima = "((L*2+100+((H*2+100)*NA))*(10FR/1000))+NA*20FR"
> dove L-H sono misure in MM , FR costo , NA numero ante
> modificando i campi ottengo:
>
> str_Dopo = "((1000*2+100+((1250*2+100)*2))*(10/1000))+2*20"
> Costo = Cstr(str_Dopo) Non ottengo il risultato
> lo ottendo se scrivo il codice :
> Costo=Cstr(((1000*2+100+((1250*2+100)*2))*(10/1000))+2*20)
>
> Ciao
> Michele
Ciň non toglie che si risponde dopo il Quoting e che il risultato era
errato....!
Scherzi a parte, per il risultato, mi sono accorto che la tua domanda era
diversa
ed in effetti l'unica possibilitŕ č quella suggerita da Namor.
@Alex.


title: Conversione Stringa-Numero

text:
"Michele" <
michele.ar...@bluewin.ch
> ha scritto nel messaggio
news:3f802...@news.bluewin.ch...



Scrivi le risposte dopo al messaggio originale, sennò chi legge perde il
filo del discorso.
Come hai risolto?
-Namor-


title: Conversione Stringa-Numero

author: Alberto S.

text:
On Sun, 05 Oct 2003 17:49:34 GMT, "namor" <
na...@DontSpamMe.inwind.it
>
wrote:
>"Michele" <
michele.ar...@bluewin.ch
> ha scritto nel messaggio
>> > C'è Eval() ma non funziona con le variabili, puoi fare Eval("1+7+4*3")
>ma
>> > non Eval("a+2*b").
>> > Namor
>
>
>> Namor ti ringrazio ho risolto il problema
>> Ciao
>
>
>Scrivi le risposte dopo al messaggio originale, sennò chi legge perde il
>filo del discorso.
>Come hai risolto?
>-Namor-
Poi sarebbe anche una forma di cortesia dire 'come' hai risolto, visto
che il suggerimento di Namor non era 'immediatamente' applicabile al
tuo problema. Grazie.
--
Alberto
No alle guerre


title: Codice Fiscale Automatico

author: collaborazioni

text:
Gentilissimi ddel gruppo, vi pongo questa question..
Ho una tabella contentente tutti i dati necessari per ricavare il
codice fiscale
NOME - COGNOME - DATANASCITA - LUOGO - SESSO
C'è una routine che in automatico mi ricavi appunto il CF ?
Grazie


title: Codice Fiscale Automatico

author: Pablitomf (da casa)

text:
collaborazioni wrote:
> Gentilissimi ddel gruppo, vi pongo questa question..
> Ho una tabella contentente tutti i dati necessari per ricavare il
> codice fiscale
> NOME - COGNOME - DATANASCITA - LUOGO - SESSO
>
> C'� una routine che in automatico mi ricavi appunto il CF ?
>
> Grazie
Sito comune... Sezione General... numero 6.242


title: Codice Fiscale Automatico

text:

Grazie ragazzi...    se non ci foste....


title: Scelta casuale record

author: Aldo

text:
Sale a tutti,
        avrei bisogno di un piccolo aiuto: come č possibile realizzare una
query che mi estragga un record casuale da una tabella?
Grazie
Luca


title: Scelta casuale record

author: stefano (kabisa)

text:
"Aldo" <
vn...@tin.it
> ha scritto nel messaggio
news:paj1c.7688$36.2...@news4.tin.it...
> Sale a tutti,
>         avrei bisogno di un piccolo aiuto: come è possibile realizzare una
> query che mi estragga un record casuale da una tabella?
> Grazie
> Luca
>
se la chiave primaria della tabella è numerica
puoi fare una funzione che genera random un numero poi crea la query con il
numero generato e la esegue
se dai delle indicazioni più precise forse posso darti una risposta più
precisa
Stefano (Kabisa)


title: Scelta casuale record

author: Roberto da casa

text:
"Aldo" <
vn...@tin.it
> ha scritto nel messaggio
news:paj1c.7688$36.2...@news4.tin.it...

Vai sul Sito Comune e nella Sezione General leggi la FAQ di Farid Ahmad
intitolata "Randomly Selected Unique Records".
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: etichette in simil-grassetto quando hanno il focus

author: BFS

text:
Salve
oggi per caso ho notato che in una maschera del mio database e solo in
una, quando il cursore entra in una text box la relativa label si
scurisce...come se diventasse in grassetto.
Sicuramente devo aver senza volerlo attivato qualche cosa su questa
form, l'effetto mi piace e vorrei averlo su tutte le form.
qualcuno mi può aiutare?
ciao
BFS


author: Roberto da Parma

text:
"BFS" <
b...@bfsbfs.it
> ha scritto nel messaggio
news:4c0d006e$0$40291$4faf...@reader2.news.tin.it...

Nelle proprietà della casella sull'evento attivato inserisci una funzione
che modifica il carattere.
.FontWeight = vedi elenco sotto
Sottile 100
Chiarissimo 200
Chiaro 300
Normale 400
Medio 500
Semigrassetto 600
Grassetto 700
Nero 800
Nerissimo 900
Ciao
--
Roberto da Parma


title: Spin Button. Il valore maggiore di zero non ritorna a zero quando si utilizza il pulsante riduci valore.

author: Bruno - S95

text:
Access 00/XP
Ciao e buona estate,
    quando vado ad utilizzare il pulsante per ridurre il valore, con  il
controllo associato al codice sotto scritto, in realtà non ritorna zero,
bensi restituisce un valore che varia sempre, tipo   2,042949E-06 oppure
1,952052E-07 oppure altro valore simile.
    Sapreste indicarmi il perchè e come risolvere il problema, diversamente
dovrò digitare il valore manualmente.
    Preciso che la dimensione del campo in tabella è a "Precisione singola".
    Ho la necessità di risolvere tale problema per poter utilizzare la
seguente formula:
=IIf([RV]="";"";IIf([VarMagn]<>0;Format([RV]-([VarMagn]);"0,0");Format([RV]-(Maschere!frmFlightLog!VarMagnLog);"0,0")))
Purtroppo se il valore del campo [VarMagn] non ritorna a zero non mi
permette di utilizzare l'altro valore contenuto nel campo
"Maschere!frmFlightLog!VarMagnLog".
Grazie, Bruno
----------------------------------
' Su pressione pulsante incrementa valore proprietà (numerica) del controllo
<CtrName>
Private Function ValIncrementaBis(CtrName As String, ByVal Sup As Long)
  With Me.Controls(CtrName)
        If .Value + 0.2 <= Sup Then
              .Value = .Value + 0.1
                Me.Repaint
        End If
  End With
End Function
' Su pressione pulsante riduce valore proprietà (numerica) del controllo
<CtrName>
Private Function ValRiduceBis(CtrName As String, ByVal Inf As Long)
  With Me.Controls(CtrName)
        If .Value - 0.1 >= Inf Then
              .Value = .Value - 0.1
                Me.Repaint
        End If
  End With
End Function


text:
"Bruno - S95" <
mus...@virgilio.it
> ha scritto nel messaggio
news:46c0bd42$0$17952$4faf...@reader1.news.tin.it...

Bruno ma tu di che precisione e di che tipo di valore hai bisogno...?
Ti chiedo questo in quanto conosco bene quella funzione.... ;-)
e come vedi il parametro passato è di tipo LONG e non SINGLE quindi il campo
dovrebbe essere [Intero Lungo].... hai verificato...?
--
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.alessandrobaraldi.it
---------------------------------------------------------------------------


author: giorgio rancati

text:
"Bruno - S95" <
mus...@virgilio.it
> ha scritto nel messaggio
news:46c0bd42$0$17952$4faf...@reader1.news.tin.it...
>
> Access 00/XP
>
> Ciao e buona estate,
>
>    quando vado ad utilizzare il pulsante per ridurre il valore, con  il
> controllo associato al codice sotto scritto, in realtà non ritorna zero,
> bensi restituisce un valore che varia sempre, tipo   2,042949E-06 oppure
> 1,952052E-07 oppure altro valore simile.
[CUT]
>
> ' Su pressione pulsante incrementa valore proprietà (numerica) del
> controllo <CtrName>
> Private Function ValIncrementaBis(CtrName As String, ByVal Sup As Long)
>
>  With Me.Controls(CtrName)
>        If .Value + 0.2 <= Sup Then
>              .Value = .Value + 0.1
>                Me.Repaint
>
>        End If
>  End With
>
> End Function
>
> ' Su pressione pulsante riduce valore proprietà (numerica) del controllo
> <CtrName>
> Private Function ValRiduceBis(CtrName As String, ByVal Inf As Long)
>
>  With Me.Controls(CtrName)
>        If .Value - 0.1 >= Inf Then
>              .Value = .Value - 0.1
>                Me.Repaint
>
>        End If
>  End With
>
> End Function
Ciao Bruno,
il comportamento che riscontri è normale per i tipi di dato approssimati
come Singola Precisione e Doppia Precisione.
Infatti il valore 2,042949E-06  è prossimo a 0.
Per risolvere fai lavorare il calcolo su un tipo di dato non approssimato.
es.
----
 Private Function ValIncrementaBis(CtrName As String, ByVal Sup As Long)
  With Me.Controls(CtrName)
        If CDec(.Value) + 0.2 <= Sup Then
              .Value = CDec(.Value) + 0.1
                Me.Repaint
        End If
  End With
 End Function
 ' Su pressione pulsante riduce valore proprietà (numerica) del controllo
 <CtrName>
 Private Function ValRiduceBis(CtrName As String, ByVal Inf As Long)
  With Me.Controls(CtrName)
        If CDec(.Value) - 0.1 >= Inf Then
              .Value = CDec(.Value) - 0.1
                Me.Repaint
        End If
  End With
 End Function
----
è sufficiente la conversione di un solo membro dell'espresione in Decimal
per ottenere il risultato desidarato perchè Decimal ha la precedenza su
tutti gli altri tipi.
Ciao
--
Giorgio Rancati
[Office Access MVP]


text:
"ALESSANDRO Baraldi" <
ik2...@libero.it
> ha scritto nel messaggio
news:f9qfec$gsi$1...@aioe.org...

Ciao Alessandro, il valore che devo ottenere gradi e decimi di grado,
esempio: 0,7 oppure 1,2.
Hai ragione  per il parametro LONG e non SINGLE, ora vedo cosa riesco a
fare.
Grazie, Bruno


text:
"giorgio rancati" <
giorgio_No_Sp...@tiscali.it
> ha scritto nel
messaggio news:46c0c74d$0$21210$5fc...@news.tiscali.it...

________________________
Grazie Giorgio, ora provo la tua variante.
1000 grazie, Bruno


text:
> Ciao Alessandro, il valore che devo ottenere gradi e decimi di grado,
> esempio: 0,7 oppure 1,2.
> Hai ragione  per il parametro LONG e non SINGLE, ora vedo cosa riesco a
> fare.
> Grazie, Bruno
Mi riferivo che la funzione originale dalla quale hai preso spunto č stata
fatta per
un LONG(Intero Lungo) in tabella, associato al Colore che č appunto un Long,
quindi il problema che hai riscontrato non esisteva.
Quanto ti ha suggerito Giorgio risolve tutto.



title: Problemi Access --- SQL Server con ODBC

author: Massimiliano Bertoglio

text:
Riposto alcuni problemi avuti con SQL-Server creando tabelle collegate ODBC
... spero qualcuno possa aiutarmi.
1)  Ho notato che i campi MEMO (NTEXT sul Server) collegati ODBC danno
problemi in aggiornamento: viene restituito un errore ODBC e il salvataggio
del record fallisce.
Per essere piů precisi: se il record contiene un campo NTEXT, non viene
aggiornato dopo la modifica di un qualunque campo.
Ma allora come faccio a memorizzare stringhe con piů di 255 caratteri?
2) Anche se i campi NVarChar sul Server hanno una lunghezza ben definita, le
tabelle collegate ODBC di Access me li vedono sempre come campi TESTO a 255
caratteri.
Questo crea problemi in fase di Data Entry (a meno di far ricorso alle
maschere di Input).
Non c'č nulla da fare?
3) In alcuni casi i dati restituiti dalle tabelle collegate ODBC di Access
non sono ordinati per chiave primaria :-/
E' normale che faccia cosě?
Ciao a tutti,
Massimiliano


title: Problemi Access --- SQL Server con ODBC

author: Dr. A.

text:
"Massimiliano Bertoglio" <
maxber...@libero.it
> ha scritto nel messaggio
news:MT%T8.92544$Kt3.2...@twister2.libero.it...

1- Se non risordo male nelle specifiche rilasciate con la SP6 del JET o con
la SP4 di Sql-Server, deve esserci proprio un bag risolto di questo tipo,
controlla sul sito Microsoft.
3- Se usi le PK Clustered, un bel buggone fa in modo che sulle tabelle
allegate in access l'ordinamento avvenga sull'ultimo indice dichiarato.
Soluzione: o usi sempre l'order by  o  trasformi le PK in NonClustered.
Ciao.


title: Problemi Access --- SQL Server con ODBC

text:
"Dr. A." <
> 1- Se non risordo male nelle specifiche rilasciate con la SP6 del JET o
con
> la SP4 di Sql-Server, deve esserci proprio un bag risolto di questo tipo,
> controlla sul sito Microsoft.
> 3- Se usi le PK Clustered, un bel buggone fa in modo che sulle tabelle
> allegate in access l'ordinamento avvenga sull'ultimo indice dichiarato.
> Soluzione: o usi sempre l'order by  o  trasformi le PK in NonClustered.
Molte grazie per l'aiuto  ;-)
Un'ulteriore domanda: i vantaggi delle PK Clustered sono prestazionali?
Ciao: Max


title: Problemi Access --- SQL Server con ODBC

text:
"Massimiliano Bertoglio" <
maxber...@libero.it
> ha scritto nel messaggio
news:dulU8.97517$Kt3.2...@twister2.libero.it...

In molti casi con le PK clustered si hanno miglioramenti prestazionali
elevatissimi, ma bisogna valutare attentamente il tipo di tabella e di
indici, a delle volte è più conveniente clusterizzare un indice diverso
dalla PK e a volte non averne proprio. Comunque le prestazioni le hai con
l'accesso diretto e non attraverso il motore di Access che incasina tutto.
Ciao.


title: Problemi Access --- SQL Server con ODBC

text:
"Dr. A."
> > > 3- Se usi le PK Clustered, un bel buggone fa in modo che sulle tabelle
> > > allegate in access l'ordinamento avvenga sull'ultimo indice
dichiarato.
> > > Soluzione: o usi sempre l'order by  o  trasformi le PK in
NonClustered.
> >
> > Molte grazie per l'aiuto  ;-)
> > Un'ulteriore domanda: i vantaggi delle PK Clustered sono prestazionali?
> >
> > Ciao: Max
> In molti casi con le PK clustered si hanno miglioramenti prestazionali
> elevatissimi, ma bisogna valutare attentamente il tipo di tabella e di
> indici, a delle volte è più conveniente clusterizzare un indice diverso
> dalla PK e a volte non averne proprio.
 Comunque le prestazioni le hai con
> l'accesso diretto e non attraverso il motore di Access che incasina tutto.
In effetti è una soluzione temporanea: l'anno prossimo rivedrò tutto con gli
.ADP.
Ancora grazie.
Ciao, Max


title: Criterio query da codice

author: michele

text:
Salve prendendo spunto dalla news di quqqenheim del 03 N0v 2006 ho cercato
di
inviare da modulo i criteri ad una query di accodamento (Qgencom3)
ma all'avvio della Funzione mi viene visualizzato l'errore
di run-time '3061' - Parametri insufficienti. Previsto 3. ed al
debug viene evidenziata la riga qdf.Execute.
Public Function Gencom()
Dim dbs As DAO.Database
Dim qdf As DAO.QueryDef
Dim rst As DAO.Recordset
Nuf As String, IDc As Integer, Nco as String
Nuf = DFirst("Cuff", "Qgencom2")
IDc = DFirst("IDco", "Tabella1")
Set dbs = CurrentDb
Set qdf = dbs.QueryDefs("Qgencom3")
qdf.Parameters![CuffX:] = [Nuf]
qdf.Parameters![IdcoX:] = [IDc]
qdf.Execute
qdf.Close
Set dbs = Nothing
End function
Al solito l'help di access è a volte incomprensibile
potete aiutarmi? in che cosa sbaglio.
grazie
michele
--------------------------------
Inviato via
http://arianna.libero.it/usenet/


title: Criterio query da codice

author: Roberto dal portatile

text:
"michele" <
mic...@inwind.it
> ha scritto nel messaggio
news:82Z61Z44Z18Y1...@usenet.libero.it...
> Salve prendendo spunto dalla news di quqqenheim del 03 N0v 2006 ho cercato
> di
> inviare da modulo i criteri ad una query di accodamento (Qgencom3)
> ma all'avvio della Funzione mi viene visualizzato l'errore
> di run-time '3061' - Parametri insufficienti. Previsto 3. ed al
> debug viene evidenziata la riga qdf.Execute.
>
> Public Function Gencom()
> Dim dbs As DAO.Database
> Dim qdf As DAO.QueryDef
> Dim rst As DAO.Recordset
> Nuf As String, IDc As Integer, Nco as String
> Nuf = DFirst("Cuff", "Qgencom2")
> IDc = DFirst("IDco", "Tabella1")
> Set dbs = CurrentDb
> Set qdf = dbs.QueryDefs("Qgencom3")
> qdf.Parameters![CuffX:] = [Nuf]
> qdf.Parameters![IdcoX:] = [IDc]
> qdf.Execute
> qdf.Close
> Set dbs = Nothing
> End function
>
> Al solito l'help di access è a volte incomprensibile
> potete aiutarmi? in che cosa sbaglio.
Prova a sostituire la riga:
qdf.Execute
con:
Set rst = qdf.OpenRecordset
> grazie
Prego
> michele
--
Roberto
-----------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
-----------------------------------------------


title: Criterio query da codice

author: MA

text:
michele wrote:
> Salve prendendo spunto dalla news di quqqenheim del 03 N0v 2006 ho
> cercato di
> inviare da modulo i criteri ad una query di accodamento (Qgencom3)
> ma all'avvio della Funzione mi viene visualizzato l'errore
> di run-time '3061' - Parametri insufficienti. Previsto 3. ed al
> debug viene evidenziata la riga qdf.Execute.
>
> Public Function Gencom()
> Dim dbs As DAO.Database
> Dim qdf As DAO.QueryDef
> Dim rst As DAO.Recordset
> Nuf As String, IDc As Integer, Nco as String
Anzitutto manca il dim
> Nuf = DFirst("Cuff", "Qgencom2")
> IDc = DFirst("IDco", "Tabella1")
> Set dbs = CurrentDb
> Set qdf = dbs.QueryDefs("Qgencom3")
> qdf.Parameters![CuffX:] = [Nuf]
> qdf.Parameters![IdcoX:] = [IDc]
> qdf.Execute
> qdf.Close
> Set dbs = Nothing
> End function
>
> Al solito l'help di access è a volte incomprensibile
> potete aiutarmi? in che cosa sbaglio.
> grazie
> michele
>
> --------------------------------
> Inviato via
http://arianna.libero.it/usenet/
--
--
Massimiliano Amendola
www.accessgroup.it
Il sito italiano di svilupatori Access
www.donkarl.com/it/cisa


title: Criterio query da codice

author: Carlo Costarella

text:
"michele" <
mic...@inwind.it
> ha scritto nel messaggio
news:82Z61Z44Z18Y1...@usenet.libero.it...

Hai letto la guida a proposito dei parameter?
Mancano le dichiarazioni, per esempio:
Dim prm As Parameter
Una volta impostati i parametri e creata la querydef, questa va assegnata ad
un recordset:
Set rst = qdf.OpenRecordset.
Altra alternativa è quella di salvare una query con parametri e passarli via
codice, magari con funzioni appositamente costruite.
Ciao, Carlo


title: Criterio query da codice

text:
Il 28 Nov 2006, 13:28, "Carlo Costarella" <
carloco...@libero.it
> ha
scritto:
>
> "michele" <
mic...@inwind.it
> ha scritto nel messaggio
> news:82Z61Z44Z18Y1...@usenet.libero.it...
> > Salve prendendo spunto dalla news di quqqenheim del 03 N0v 2006 ho
cercato
> > di
> > inviare da modulo i criteri ad una query di accodamento (Qgencom3)
> > ma all'avvio della Funzione mi viene visualizzato l'errore
> > di run-time '3061' - Parametri insufficienti. Previsto 3. ed al
> > debug viene evidenziata la riga qdf.Execute.
> >
> > Public Function Gencom()
> > Dim dbs As DAO.Database
> > Dim qdf As DAO.QueryDef
> > Dim rst As DAO.Recordset
> > Nuf As String, IDc As Integer, Nco as String
> > Nuf = DFirst("Cuff", "Qgencom2")
> > IDc = DFirst("IDco", "Tabella1")
> > Set dbs = CurrentDb
> > Set qdf = dbs.QueryDefs("Qgencom3")
> > qdf.Parameters![CuffX:] = [Nuf]
> > qdf.Parameters![IdcoX:] = [IDc]
> > qdf.Execute
> > qdf.Close
> > Set dbs = Nothing
> > End function
> Hai letto la guida a proposito dei parameter?
> Mancano le dichiarazioni, per esempio:
> Dim prm As Parameter
> Una volta impostati i parametri e creata la querydef, questa va assegnata
ad
> un recordset:
> Set rst = qdf.OpenRecordset.
> Altra alternativa č quella di salvare una query con parametri e passarli
via
> codice, magari con funzioni appositamente costruite.
>
> Ciao, Carlo
>
scusa se non ho risposto sono stato via ultimamente
ho provato a dimensionare i parametri dim prm as parameter
ma nulla di nuovo.
In effetti ho consultato anche il sito di karl donaubauer vedi faq. 6.16
che riporta piů o meno lo stesso codice che ho indicato ed anche
lě qdf.Execute dovrebbe sostituire set rst ecc..
?????????
ciao



title: Criterio query da codice

author: Karl Donaubauer

text:
michele wrote:
> Carlo Costarella ha scritto:
>>
>>> Salve prendendo spunto dalla news di quqqenheim del 03 N0v 2006 ho
>>> cercato di
>>> inviare da modulo i criteri ad una query di accodamento (Qgencom3)
>>> ma all'avvio della Funzione mi viene visualizzato l'errore
>>> di run-time '3061' - Parametri insufficienti. Previsto 3. ed al
>>> debug viene evidenziata la riga qdf.Execute.
>>>
>>> Public Function Gencom()
>>> Dim dbs As DAO.Database
>>> Dim qdf As DAO.QueryDef
>>> Dim rst As DAO.Recordset
>>> Nuf As String, IDc As Integer, Nco as String
>>> Nuf = DFirst("Cuff", "Qgencom2")
>>> IDc = DFirst("IDco", "Tabella1")
>>> Set dbs = CurrentDb
>>> Set qdf = dbs.QueryDefs("Qgencom3")
>>> qdf.Parameters![CuffX:] = [Nuf]
>>> qdf.Parameters![IdcoX:] = [IDc]
>>> qdf.Execute
>>> qdf.Close
>>> Set dbs = Nothing
>>> End function
>> ...
> In effetti ho consultato anche il sito di karl donaubauer vedi faq. 6.16
> che riporta più o meno lo stesso codice che ho indicato ed anche
> lì qdf.Execute dovrebbe sostituire set rst ecc..
Posta l'enunciato SQL della query.
Forse i 3 parametri insufficienti sono cose completamente diverse.
Vedi anche:
www.donkarl.com/it
 FAQ 6.4 Parametri insufficienti
--
HTH
Karl
*********
Access FAQ:
www.donkarl.com/it


title: Criterio query da codice

text:

salve karl forse cercavi questo?
INSERT INTO Dettaglio ( IDco, Anad, Indd, Comd, Anaa, Indt, Comt, Cuff )
SELECT [IdcoX] AS Espr1, Qgencom1.Anad, Qgencom1.Indd, Qgencom1.Comd,
Qgencom1.Anaa, Qgencom1.Indt, Qgencom1.Comt, Qgencom1.Cuff
FROM Qgencom1
WHERE (((Qgencom1.Cuff)=[Cuffx]));
grazie



title: Criterio query da codice

text:
michele wrote:
>>>> ...
>>>>> inviare da modulo i criteri ad una query di accodamento (Qgencom3)
>>>>> ma all'avvio della Funzione mi viene visualizzato l'errore
>>>>> di run-time '3061' - Parametri insufficienti. Previsto 3. ed al
>>>>> debug viene evidenziata la riga qdf.Execute.
>>>>>
>>>>> Public Function Gencom()
>>>>> Dim dbs As DAO.Database
>>>>> Dim qdf As DAO.QueryDef
>>>>> Dim rst As DAO.Recordset
>>>>> Nuf As String, IDc As Integer, Nco as String
>>>>> Nuf = DFirst("Cuff", "Qgencom2")
>>>>> IDc = DFirst("IDco", "Tabella1")
>>>>> Set dbs = CurrentDb
>>>>> Set qdf = dbs.QueryDefs("Qgencom3")
>>>>> qdf.Parameters![CuffX:] = [Nuf]
>>>>> qdf.Parameters![IdcoX:] = [IDc]
>>>>> qdf.Execute
>>>>> qdf.Close
>>>>> Set dbs = Nothing
>>>>> End function
>>>> ...
>>> ... l'enunciato SQL della query.
> ...
> INSERT INTO Dettaglio ( IDco, Anad, Indd, Comd, Anaa, Indt, Comt, Cuff )
> SELECT [IdcoX] AS Espr1, Qgencom1.Anad, Qgencom1.Indd, Qgencom1.Comd,
> Qgencom1.Anaa, Qgencom1.Indt, Qgencom1.Comt, Qgencom1.Cuff
> FROM Qgencom1
> WHERE (((Qgencom1.Cuff)=[Cuffx]));
Nel codice scrivi i nomi dei parametri con due punti alla fine che nel
SQL della query non esistono. --> cancella i due punti nel codice
Però secondo me il messaggio di errore causato da questo sbaglio
dev'essere diverso. "Nome non trovato in questo elenco" o simile
in italiano.
Cosa succede se apri la query direttamente nella finestra di DB?
Access ti chiede solo le 2 parametri e poi la query funziona?
Il dubbio viene dal messaggio di _3_ parametri insufficienti.



title: Criterio query da codice

text:

Scusa per i due punti è stato un errore di trascrizione
Ho provato ad aprire la query dalla finestra del db è mi ha
richiesto solo i due parametri, funzionando regolarmente.
avviandola da modulo invece solito problema
run-time '3061' - Parametri insufficienti. Previsto 3
e viene evidenziata la riga qdf.Execute.
Michele



title: Criterio query da codice

text:
"michele" <
mic...@inwind.it
> ha scritto nel messaggio
news:193Z227Z215Z155Y...@usenet.libero.it...
cut
> Scusa per i due punti è stato un errore di trascrizione
> Ho provato ad aprire la query dalla finestra del db è mi ha
> richiesto solo i due parametri, funzionando regolarmente.
> avviandola da modulo invece solito problema
> run-time '3061' - Parametri insufficienti. Previsto 3
> e viene evidenziata la riga qdf.Execute.
>
> Michele
>
Hai preso in considerazione i miei suggerimenti?
Ciao, Carlo


title: Criterio query da codice

text:
Il 05 Dic 2006, 14:00, "Carlo Costarella" <
carloco...@libero.it
> ha
scritto:
>

Ho risolto!!!
Innanzitutto vorrei ringraziare in particolare Karl e Carlo per i loro
preziosi suggerimenti.
Per ciò che riguarda la soluzione, il problema
era causato dall'origine dei dati della query di accodamento "Qgencom3"
nella fattispecie la query "Qgencom1".
Difatti uno dei campi di quest'ultima prendeva origine da un controllo
della maschera "Principale" es. Campo1=Forms!Principale!Idcx.
A quanto pare, nonostante la maschera fosse aperta, il valore non veniva
acquisito
'dinamicamente' e quindi in fase di esecuzione la Funzione Gencom( ) lo
richiedeva
come parametro.
Eliminato tale campo tutto ha funzionato regolarmente.
Grazie per l'attenzione dedicatami.
Ciao, a presto



title: aggiornamento multiplo (rapido e professionale) senza aprire schde di un campo data

text:
buongiorno a tutti.
Chiedo aiuto alla Vs. esperienza per fare una maschera meglio ( e più
velocemente ) di quello che potrei fare io...

Ho un db di circa 7000 record dove giornalmente devo/dovrò aggiornare
un campo data con la data odierna ( o altra) per una trentina di
record per il quale inserisco il numero [progr].
Ovviamente potrei aprire ogni singola maschera ma i tempi sono
proibitivi, ciascun accesso richiede una ventina di secondi (..e poi
sarebbe brutto).

Sicuramente dovrò usare una query di aggiornamento ma non ho idea di
come impostare la form che mi dovrà richiedere la serie di [progr] sui
quali suggerire di default, magari a fianco di ognuno un campo con la
data odierna, editabile con altra data e poi un pulsante di
aggiornamento reale del db.

Spero di essermi spiegato e Vi ringrazio per l'attenzione e la
pazienza,
grazie


text:
"ignazio.pilone"  ha scritto nel messaggio
news:b428f408-313b-43e6...@n10g2000vbg.googlegroups.com...

________________Risposta:
Ciao
anzitutto se apri una maschera in 20 secondi c'è qualcosa che non va: hai
tolto la correzione automatica del nome???
dalle info che ci dai è veramente difficile aiutarti.
Sii più chiaro
MA


text:
"ignazio.pilone" <
ignazio...@gmail.com
> ha scritto nel messaggio
news:b428f408-313b-43e6...@n10g2000vbg.googlegroups.com...

Quanto a spiegazione...
Spero di aver capito.
Sostanzialmente ci sono due strade: da codice a da query o meglio da codice
e da codice che fa partire una query di aggiornamento.
Altra alternativa è sistemare un pulsante di comando vicino al progressivo
da aggiornare e al click fai partire  (da codice) la query di aggiornamento.
La query potrebbe essere simile a questa:
UPDATE TUATABELLA SET TUATABELLA.DATA = Date()
WHERE (((TUATABELLA.Progressivo)=[Forms]![NomeMaschera]![Progressivo]));
Va salvata; p.e. UpdProgressivo ed eseguita da codice:
DoCmd.SetWarnings False
DoCmd.OpenQuery "UpdProgressivo"
DoCmd.SetWarnings True

Ciao, Carlo


text:
On 7 Dic, 15:35, "Carlo Costarella" <
carlocoslib...@libero.it
> wrote:
> "ignazio.pilone" <
ignazio.pil...@gmail.com
> ha scritto nel messaggionews:b428f408-313b-43e6...@n10g2000vbg.googlegroups.com...

grazie ad entrambi per l'aiuto.

@MA ---> I venti secondi sono indicativi ma abbastanza reali, è una
maschera che contiene molto codice e diverse possibilità di
aggiornamento e compilazione, ci mette quindi parecchio a caricarsi.
Il mio quesito è appunto rivolto ad un aggiornamento sulla tabella
senza dover aprire la maschera di ciascun record.

@Carlo ----> grazie mille per il codice ma il mio problema è ancora
più grossolano.
Ti faccio un esempio.
In base a documentazione cartacea (purtroppo) giornalmente necessita
aggiornare il db.
Oggi dovrò aggiornare gli intervento con [progr. ]
1600-1558-2500-2501-2502-2503-2504-6500 ecc. ecc. con la data odierna
quindi proposta di dafault, e il 6501 e il 6502 con altra data da
compilare nella cella.
Domani dovrò aggiornare altri interventi in base alle cartelline
approvate.

pensavo anche di far chiedere in apertura quanti interventi (righe)
devo inserire ma non lo posso sapere in anticipo e contare le
cartelline oltre che portar via tempo risulterebbe un lavoro
inutile...

Quindi riassumendo la mia richiesta si può sintetizzare così:.

una maschera (o altro metodo che mi sfugge) che mi dice:
 (1) aggiorna intervento numero (inserisco il numero) alla data (di
default propone la data odierna ma è compilabile).
dopo l'aggiornamento mi chiede:
 (2) vuoi aggiornare un altro intervento o chiudo/salvo.
Se rispondo si mi propone altra casella sotto la prima e si ripete il
ciclo sino a che non arrivo all'ultimo intervento da aggiornare.

il mio problema non è mettere un pulsante vicino al campo da
aggiornare ma come fare per creare una sequenza di inserimenti su una
maschera in maniera lineare e pulita...sicuramente posso adattare il
tuo codice (graditissimo) ma dovrei riuscire a far visualizzare le
sequenze  (1) e (2).
grazie per l'interessamento e per l'aiuto.


text:

> grazie per l'interessamento e per l'aiuto.- Nascondi testo citato
>
> - Mostra testo citato

...davvero nessuno che mi possa aiutare ?
grazie


text:
"ignazio.pilone"  ha scritto nel messaggio
news:b151e244-e140-4e35...@32g2000yqp.googlegroups.com...

______Risposta:
Ignazio, credimi, se ci mette 20 secondi c'è qualcosa che non va.
MA


title: i campi memo in una query si possono filtrare?

text: che voi sappiate?


author: Emyr

text:
On Thu, 04 Jul 2002 19:34:45 GMT, "@----- Pinco --@-- Pallino -----@"
<
tos...@libero.it
> wrote:
>che voi sappiate?
>
solitamente no, vai  su
sitocomune.com
 che avevano detto che c'era
un'alternativa
Saluti.
Emanuele.


text:
"@----- Pinco --@-- Pallino -----@" <
tos...@libero.it
> ha scritto nel
messaggio news:pr1V8.107488$Kt3.2...@twister2.libero.it...
> che voi sappiate?
Hai le stesse possibilitą dei campi di tipo testo.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: ADO MoveNext & Delete

author: RINOŠ

text:
come poter gestire i comandi move next e move previus
e i metodi delete  solo con ADO in un FE con tabelle collegate(Escudendo
totalmente DAO)


title: ADO MoveNext & Delete

author: oliones

text:
RINOŠ <
gen...@tin.it
> wrote in message
hZW77.17026$Qf6.1...@news2.tin.it...
> come poter gestire i comandi move next e move previus
> e i metodi delete  solo con ADO in un FE con tabelle collegate(Escudendo
> totalmente DAO)
>
in parte i comandi sono uguali col codice chi ti ha postato Liones (che sono
io) e alcune modifiche dovrebbe funzionare
per escludere totalmente DAO toglilo dai riferimenti
ciao


title: sql dinamico via codice

text:
Sto provando a realizzare una cosa di cui, ancora, non ho ben chiaro
gli utilizzi pratici, ma sono sicuro che ci saranno.
Voglio realizzare un codice che mi permetta, dinamicamente, di creare
una query. Partendo cioè dall'indicare campi e tabelle, voglio
realizzare una "giusta" query di visualizzazione.
I due ostacoli "teorici" maggiori riguardano:
- relazioni tra le tabelle
- bidirezionalità del processo
Premettendo che desidererei riutilizzare questo progettino in futuro
si MS-SQL e su MY-SQL, oltre che su access, vorrei sapere se:
- esistono già tools a riguardo
- vi sono ostacoli pratici insormontabili
- esiste una "tabella delle relazioni" accessibile ed utilizzabile
(sia in access, che negli altri sistemi, in generale o in specifico)?
Gianluca


title: sql dinamico via codice

author: Sergio MAZZA

text:
"Gianluca_Venezia" <
tempora...@yahoo.it
> ha scritto nel messaggio
news:58962fc9.0404...@posting.google.com...

(in access) Esiste la tabella di sistema (non visibile) MSysRelationships...
Ciao.
--
Sergio MAZZA


title: sql dinamico via codice

text:
"Gianluca_Venezia" <
tempora...@yahoo.it
> ha scritto nel messaggio
news:58962fc9.0404...@posting.google.com...

Vai sul Sito Comune (link qui sotto) e nella Sezione Queries leggi la FAQ
intitolata "Come si può creare in maniera dinamica una query con la tecnica
QBF?".
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: sql dinamico via codice

text:
Un attimo prima di skippare tutto mi sono accorto che  Gianluca_Venezia ha
scritto:
> Sto provando a realizzare una cosa di cui, ancora, non ho ben chiaro
> gli utilizzi pratici, ma sono sicuro che ci saranno.
Cavolo se ci saranno. Io ho sviluppato su 2 software gestionali "famosi" ed
entrambi usavano
questo metodo!
--
Alex
"Un uomo saggio impara dall'esperienza,
un uomo ancora più saggio impara dall'esperienza degli altri." (Saggio
Cinese)


title: Cerco Cavetto per audio digitale

text: Chi può procurarmelo?


title: Cerco Cavetto per audio digitale

author: Giovanni Albertone

text:
On Sun, 6 Feb 2000 10:50:54 +0100, "F.F." <
faf...@tin.it
> wrote:
>Chi può procurarmelo?
Ci sara' pure un negozio dalle parti tue
--
Ciao,
Giovanni


title: Cerco Cavetto per audio digitale

author: MR

text:
Basta schioccare le dita e avrai un suono digitale, per il cavvetto prova ad
arrotolare il cavetto del mouse intorno al polso e penso che cosě avrai
l'oggetto desiderato.
F.F. <
faf...@tin.it
> wrote in message 87jg5a$eup$1...@nslave1.tin.it...
> Chi puň procurarmelo?
>
>


title: RunTime Access2000 dove posso trovarlo in italiano?

author: Roma

text: c.o. grazie


author: Guido dal Faro

text:
On Wed, 18 Oct 2000 14:18:29 +0200, "Roma"
<
schiavet...@libero.it
> wrote:
>c.o. grazie
>
Al momento non puoi; nella MSDN Universal di ottobre c'è solo in
inglese, tedesco e francese.
Ciao.
---------------
Guido
light...@flashnet.it


title: importazione fogli Excel

text:
Buongiorno a tutti
Ho la necessita' di importare alcune centinaia di cartelle Excel 97 in
un DB Access 97.
Ogni cartella contiene 4 fogli; il mio fine e' di ottenere le tabelle
A, B, C e D contenenti, rispettivamente, tutti i dati dei fogli A, B,
C e D.
Ho fatto alcune prove con i moduli VBA
...
Set db = OpenDatabase("NOMECARTELLA.xls", False, False, "Excel 8.0")
Set fg = db.OpenRecordset("NOMEFOGLIO$")
.....
In linea di massima sembra funzionare, ma ho dei problemi con i
NOMIFOGLIO in quantoalcuni contengono "." che non sono ammessi.
Dal momento che non e' proponibile rettificare i nomi  foglio per
foglio e cartella per cartella da Excel, mi chiedo se c'e' la
possibilita' di individuare i fogli come elementi di una collection ed
identificarli con un indice.
In aggiunta, anche il nome "Dati anagrafici" che secondo me non
dovrebbe creare problemi, non viene riconosciuto. Se lo correggo in
"Dati" da Excel, viene (quasi sempre (?)) riconosciuto.
grazie per consigli e suggerimenti
antonio


title: importazione fogli Excel

text:
<
an_ma...@hotmail.com
> ha scritto nel messaggio
news:5c9c8819.03062...@posting.google.com...

Puoi fare riferimento al numero del foglio;
Es.
  Dim MyXL As Excel.Application
  Set MyXL = CreateObject("Excel.Application")
  MyXL.Workbooks.Open "c:\documenti\nomeFile.xls"
  MyXL.ActiveWorkbook.Sheets(2).Select '---> per il secondo foglio
Ciao.
--
Sergio MAZZA


title: importazione fogli Excel

text:
"Sergio MAZZA" <
sergi...@tiscalinet.it
> wrote in message news:<bd6up9$941$
1...@canarie.caspur.it
>...
> <
an_ma...@hotmail.com
> ha scritto nel messaggio
> news:5c9c8819.03062...@posting.google.com...
> > Buongiorno a tutti
> >
> > Ho la necessita' di importare alcune centinaia di cartelle Excel 97 in
> > un DB Access 97.
...................
> >
> > grazie per consigli e suggerimenti
> >
> > antonio
>
> Puoi fare riferimento al numero del foglio;
> Es.
>   Dim MyXL As Excel.Application
>   Set MyXL = CreateObject("Excel.Application")
>   MyXL.Workbooks.Open "c:\documenti\nomeFile.xls"
>   MyXL.ActiveWorkbook.Sheets(2).Select '---> per il secondo foglio
>
> Ciao.
per il momento avevo aggirato il problema con:
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel97, _
    "nometabella", "nomefile.xls", True, "nomefoglio!A1:az1000"
ma voglio provare a anche la strada che mi suggerisci.
grazie
antonio


title: domanda su come impostare un programma gestione parcheggi

text:
devo gestire 400 parcheggi circa e in ognuno dovrà comparire il nominativo
del
cliente che ha parcheggiato, successivamente selezionando un nominativo da
un menu a tendina trovare il parcheggio magari facendolo lampeggiare.
voi che tipi di oggetti useresti per creare i garage da gestire in questo
modo?
Grazie a tutti.


author: ALESSANDRO Baraldi

text:
"Simba883" <
simb...@libero.it
> ha scritto nel messaggio
news:cd6sl0$j2a$1...@lacerta.tiscalinet.it...

Se devi gestire a livello Grafico la cosa io userei Label....!
Ti crei una Mappa(BMP ma Schematica)  del Parcheggio magari per Piani
e Carichi il piano relativo ad ogni piano gestisci il Posizionamento delle
Label.
Usi una Tabella nella Quale salvi Posizione e Piano e NomeLabel, e le usi
per giocare con
un bel Ciclo nel Recordset Filtrato.
Dal RS(Filtrato per Piano) ricavi il Nome che usi per puntare al Controllo
in questo modo:
Me.Controls(RS!NomeLabel).Left=Rs!Left
Me.Controls(RS!NomeLabel).Topt=Rs!Top
Per farlo Lampeggiare ti basta puntare al controllo estratto dal NomeCliente
e su evento
TIMER usi la tecnica del FLASH usando una variabile STATIC associata alla
variabile
NomeLabel.
Ti ho dato un sacco di idee....!
Per la parcella ci accordiamo...!!!
@Alex.


text:
> Per farlo Lampeggiare ti basta puntare al controllo estratto dal
NomeCliente
> e su evento
> TIMER usi la tecnica del FLASH usando una variabile STATIC associata alla
> variabile
> NomeLabel.
>
> Ti ho dato un sacco di idee....!
> Per la parcella ci accordiamo...!!!
>
> @Alex.
>
sei un grande, grazie mille... e a buon rendere.


title: stringa where

author: Riccardo

text:
Salve a tutti,
ho la necessità di aprire sempre lo stesso report, dallo stesso
form, passandogli delle stringhe diverse di filtro in base
al pulsante che uso.
Su evento click di un pulsante ho scritto:
    Dim stDocName As String
    Dim stLinkCriteria As String
    stLinkCriteria = "[Data] BETWEEN " & Me![dadata] & " AND " & Me![adata]
    stDocName = "Stampe"
    DoCmd.OpenReport stDocName, acPreview, , stLinkCriteria
dove Data è il controllo del Report (stesso nome della query di origine dati
chiamata sempre Stampe)
Ma facendo click sul pulsante mi apre un report vuoto.
come mai?
dove sbaglio?
Se invece BETWEEN Forms![Stampe]![dadata] AND Forms![Stampe]![adata]
lo inserisco come criterio della query, tutto funziona bene, ma dovrei
crearmi
una query per ogni scelta di filtraggio, e vorrei evitare questa via.
grazie a tutti.
Riccardo


title: stringa where

author: Roberto da casa

text:
"Riccardo" <
ricc...@free.panservice.it
> ha scritto nel messaggio
news:9gcgjq$evk$1...@news.panservice.it...

Prova a scrivere la stringa dei criteri così:
stLinkCriteria = "[Data] BETWEEN #" & Format(Me![daData], "mm/dd/yyyy") _
& "# AND #" & Format(Me![aData], "mm/dd/yyyy") & "#"
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: stringa where

text:
Roberto da casa <
r.ma...@libero.it
> wrote in message
c6kW6.4404$T52.1...@news.infostrada.it...

SEI UN GRANDE!
grazie mille
Riccardo


title: stringa where

author: Silvio Berruti

text:
"Roberto da casa" <
r.ma...@libero.it
> ha scritto nel messaggio
news:c6kW6.4404$T52.1...@news.infostrada.it...

Inoltre ti sconsiglio vivamente di chiamare [Data] un controllo in un
report, trattandosi di un nome riservato.
--
Silvio
il sito comune di it.comp.appl.access:
http://www.sitocomune.com


title: stringa where

text:
Silvio Berruti <
s...@libero.it
> wrote in message
MaoW6.6035$T52.2...@news.infostrada.it...

_______
quindi conviene chiamarla in modo diverso sin dalla tabella?
ciao
Riccardo


title: stringa where

text:
"Riccardo" <
ricc...@free.panservice.it
> ha scritto nel messaggio
news:9gd318$tf8$1...@news.panservice.it...
>
> Silvio Berruti <
s...@libero.it
> wrote in message
> MaoW6.6035$T52.2...@news.infostrada.it...
> > Inoltre ti sconsiglio vivamente di chiamare [Data] un controllo in un
> > report, trattandosi di un nome riservato.
_______
> quindi conviene chiamarla in modo diverso sin dalla tabella?
Sě, conviene evitare ovunque le parole riservate di Access.



title: Trasposizione di una colonna in AccessXP

author: CarloG

text:
Ciao a tutti!
Ho un problema con una trasposizione di una colonna di una tabella.
Mi spiego meglio.
La tabella di Origine ha un solo campo IdOrigine con una quindicina di
record.
La tabella che vorrei ottenere contiene un record con 15 campi che
contengono
i valori del campo IdOrigine dei 15 record della tabella di origine.
Tabella di Origine (con 15 record)
-------------
| IdOrigine |
|------------
|    1      |
|    2      |
|    3      |
|    .      |
|    .      |
|    .      |
|   15      |
-------------
Tabella Finale (con 1 record)
---------------------------------
|Campo1 | Campo2 | ... | Campo15|
|--------------------------------
|  1    |   2    | ... |   15   |
|--------------------------------
Ho fatto una prova semplificativa tramite codice Visual Basic in
questa maniera, trovando dei consigli in questo stesso NG:
    Dim PrimaTab As Recordset
    Dim SecondaTab As Recordset
    Set PrimaTab = CurrentDb.OpenRecordSet("Trasposizione")
    Set SecondaTab = CurrentDb.OpenRecordSet("TFinale")
    PrimaTab.MoveFirst
    SecondaTab.MoveLast
    SecondaTab!IdStudente1 = PrimaTab.Fields(1)
    PrimaTab.MoveNext
    SecondaTab!IdStudente2 = PrimaTab.Fields(2)
    PrimaTab.Close
    SecondaTab.Close
Ma all'esecuzione del codice tramite un semplice click su un pulsante
di
una maschera mi dice "TIPO NON CORRISPONDENTE" alla riga che contiene
Set PrimaTab=CurrentDb.OpenRecordSet("Trasposizione")
Sinceramente non capisco il motivo. La variabile PrimaTab che ho
dichiarato
è di tipo RecordSet come il tipo restituito dalla parte destra
dell'uguaglianza.
Riuscite a darmi una mano?
Vi ringrazio in anticipo per l'aiuto!
CIAO!
Carlo.


author: Bruno Campanini

text:
"CarloG" <
bp...@libero.it
> wrote in message
news:9a739421.05041...@posting.google.com...

> č di tipo RecordSet come il tipo restituito dalla parte destra
> dell'uguaglianza.
> Riuscite a darmi una mano?
> Vi ringrazio in anticipo per l'aiuto!
> CIAO!
>
> Carlo.
La via che hai scelto non mi pare la piů efficiente.
Avresti dovuto scandire i campi con un For... Next.
In ogni caso l'errore che ti appare non dipende da
questa circostanza.
Sostituisci con:
    Set PrimaTab = CurrentDb.OpenRecordSet("Trasposizione",dbOpenDynaset)
    Set SecondaTab = CurrentDb.OpenRecordSet("TFinale", dbOpenDynaset)
Ciao
Bruno


author: GGAC & co

text:
"CarloG" <
bp...@libero.it
> ha scritto nel messaggio
news:9a739421.05041...@posting.google.com...

Credo, ma solo credo, manchino i riferimenti per la creazione del rst (DAO
nello specifico). Ma non ti fidare, sono scarso. Ciao


text:
"Bruno Campanini" <
bruno.c...@tin.it
> wrote in message news:<HTC6e.1217713$
35.44...@news4.tin.it
>...
> "CarloG" <
bp...@libero.it
> wrote in message
> news:9a739421.05041...@posting.google.com...
>
> La via che hai scelto non mi pare la più efficiente.
> Avresti dovuto scandire i campi con un For... Next.
>
> In ogni caso l'errore che ti appare non dipende da
> questa circostanza.
>
> Sostituisci con:
>     Set PrimaTab = CurrentDb.OpenRecordSet("Trasposizione",dbOpenDynaset)
>     Set SecondaTab = CurrentDb.OpenRecordSet("TFinale", dbOpenDynaset)
>
> Ciao
> Bruno
Grazie Bruno!
Avevo provato anche io questa soluzione che mi è venuta in mente
guardando stamane l'help in linea di AccessXP (ho cercato Recordset).
Cmq non funziona ugualmente poichè la sintassi corretta è:
Set PrimaTab = CurrentDb.OpenRecordSet("Trasposizione","dbOpenDynaset")
Il fatto è che così facendo mi da errore di conversione di tipi!
Forse ho capito dove sta il problema, e sto cercando (per ora senza
buoni risultati) di risolverlo: è questione di librerie! Questa è la
sintassi della libreria DAO e il recordset è ADODB. La soluzione è
caricare la libreria DAO. In teoria sarebbe da andare in
Strmenti>Riferimenti e impostare un riferimento alla libreria DAO 3.6.
Piccolo problema: in Strumenti non ho "Riferimenti".
Se qualcuno ha qualche altro suggerimento gliene sarei grato!
CIAO!


text:
"CarloG" <
bp...@libero.it
> wrote in message
news:9a739421.05041...@posting.google.com...
> Grazie Bruno!
> Avevo provato anche io questa soluzione che mi č venuta in mente
> guardando stamane l'help in linea di AccessXP (ho cercato Recordset).
> Cmq non funziona ugualmente poichč la sintassi corretta č:
>
> Set PrimaTab = CurrentDb.OpenRecordSet("Trasposizione","dbOpenDynaset")
Che non sia lě il problema č un fatto, ma la sintassi corretta č:
---------------------------
Set PrimaTab = CurrentDb.OpenRecordSet("Trasposizione",dbOpenDynaset)
---------------------------
provare per credere.
Bruno


title: funzioni

author: killer

text:
Buon Giorno,
con quale funzione posso farmi tornare il giorno setttimana da una
data(lunedě,martedě,ecc....)
Grazie Mille


title: funzioni

author: Alessandro Baraldi

text:
"killer" <
matteo...@katamail.com
> wrote in message
news:64tXa.225051$
lK4.6...@twister1.libero.it
> Buon Giorno,
> con quale funzione posso farmi tornare il giorno setttimana da una
> data(lunedì,martedì,ecc....)
>
> Grazie Mille
Funzione Weekday.
@Alex.
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: funzioni

author: Luigi

text:
"killer" <
matteo...@katamail.com
> ha scritto nel messaggio
news:64tXa.225051$lK4.6...@twister1.libero.it...
> Buon Giorno,
> con quale funzione posso farmi tornare il giorno setttimana da una
> data(lunedì,martedì,ecc....)
>
>
>
>
> Grazie Mille
>
>
format(data,"dddd")
ciao


title: Come visualizzare in una maschera i dati di un riga partendo da una voce di un combobox

author: Pasquale Cerullo

text:
Salve a tutti, mi occorre aiuto per un piccolo problemino che per me che sono
un neofita di access è attualmente insormontabile.
Sto lavororando alla compilazione di un database del magazzino dove lavoro, e
dopo aver creato una semplice maschera di visualizzazione, vorrei, partendo da
una voce del combobox contenente tutte le descrizioni degli articoli, ottenere
tutti i dati di quell' articolo (selezionati alla creazione della maschera)
Mi spiego meglio :
 La maschera si presente come una serie di caselle contenenti i dati di un
articolo : codice, descrizione, quantita, prezzo ecc.
Il combobox è quello contenente le descrizioni che danno accesso facile e
veloce a tutti gli articoli del database.
Una volta selezionata una voce dalla lista, vorrei sapere come fare per
visualizzare gli altri dati dell'articolo scelto nelle restanti caselle!
Come dicevo sono un neofita, quindi se possibile mi sarebbe veramente utile
avere una descrizione dettagliata delle operazioni da eseguire.
Anche link a siti correlati andrà benissimo!
Un grazie di cuore a chiunque vorrà aiutarmi
--
Posted from
r-na057-8-50.tin.it
 [62.211.48.50]
via Mailgate.ORG Server -
http://www.Mailgate.ORG


author: principiante

text:
"Pasquale Cerullo" <
alph...@libero.it
> ha scritto nel messaggio
news:c08b9bb16f7373cdc13...@mygate.mailgate.org...

Non so se ho capito proprio bene, comunque se il tuo problema è trovare un
articolo all'interno della maschera secondo me la cosa più semplice è:
Togli la combo dalla maschera, poi la ricrei con l'autocomposizione di
Access; segui le istruzioni ed alla fine avrai quello che cerchi.
Fammi sapere.
Paolo


author: Mrok

text:
"Pasquale Cerullo" <
alph...@libero.it
> ha scritto nel messaggio
news:c08b9bb16f7373cdc13...@mygate.mailgate.org...

DLookUp       oppure  metti la combo in testata e Fai una Query per il
corpo.


author: Peter

text:
"Pasquale Cerullo" <
alph...@libero.it
> ha scritto nel messaggio
news:c08b9bb16f7373cdc13...@mygate.mailgate.org...

Premessa : la gestione degli articoli con una combo potrebbe rilevarsi lenta
quando gli articoli aumentano.
Aggiungi alla select di origine della combo i campi che ti interessano e poi
sull'evento dopo aggiornamento della stessa esegui il codice.
Presupponendo che la select riporti i campi ID_Articolo, CODICE,
DESCRIZIONE, PREZZO
me.descrizione = me.combo.column(2)
me.prezzo = me.combo.column(3)
me.quantità = 1
Spero di aver capito giusto !


title: Riflessioni sull'uso delle transazioni dopo ogni aggiornamento.

author: Valerio

text:
Poichè access per default non scarica immediatamente dalla cache gli
aggiornamenti sul database, situazione problematica per una gestione in
multiutenza, ho pensato di inserire nell'evento salva record di una maschera
a modulo continuo (stile excel) la gestione delle transazioni.
Sinceramente penso che forse non è il metodo più elegante, ragionando anche
sull'impatto che può avere in termini di prestazioni e di efficienza.
Comunque in modo da ricevere un chiarimento  alle mie perplessità e/o un
aiuto migliorativo (cosa ben gradita) propongo la parte di codice che ho
implementato.
Grazie in anticipo.
                                                       Valerio
'************************************************************************
Private Sub puls_salva_Record_Click()
On Error GoTo Err_puls_salva_Record_Click
    Dim wsp As Workspace
    Set wsp = DBEngine.Workspaces(0)
    wsp.BeginTrans
    DoCmd.RunCommand acCmdSaveRecord
    wsp.CommitTrans
Exit_puls_salva_Record_Click:
    Set wsp = Nothing
    Exit Sub
 Err_puls_salva_Record_Click:
    MsgBox Err.Description
    wsp.Rollback  '' annulla la transazione
    Set wsp = Nothing
    Resume Exit_puls_salva_Record_Click
End Sub
'*******************************************************


author: Michele Amato

text:
Secondo me non sono non è elegante ma non funziona.
Perchè?
Perchè le transazioni sono "figlie" del workspace e non del database
dato che il DBengine gestisce n workspaces non è detto che quella usata da
Access (maschera associata) sia proprio la 0
>     Set wsp = DBEngine.Workspaces(0)
Tant'è vero che se tu hai una maschera associata su cui poi 3 pulsanti
BeginTrans, Commit e RollBack
prima di inserire un nuovo record premi il pulsante BeginTrans
inserisci, salvi, premi RollBack e vedi cosa succede.
La soluzione al tuo problema sta nella configurazione del DBEngine
dovresti cercare qualcosa tipo CacheWriteBack.
Spero di essere stato d'aiuto
Michele Amato
P.S.
Scusa ma avendo poco tempo non ho potuto rileggere il messaggio con calma e
attenzione per cui potrebbero esserci degli strafalcioni, spero mi
perdonerai.
Valerio <
valeri...@fsmrt.nettuno.it
> wrote in message
8rcplt$qub$1...@pinco.nettuno.it...
