title: problema con DAO

author: geppo

text:
Ciao "FANCIULLO" <
vito...@toglimilibero.it
> ha scritto nel messaggio
news:ITG_i.169730$%k.31...@twister2.libero.it...
> Salve sono Fanciullo,
> Access 97
>
> ho una tabella (tblAnnoscol) con un campo (annoscol)
>
> 2003/04
> 2004/05
> 2005/06
> 2006/07
> 2007/08 --> l'anno scolastico corrente
>
> voglio portarmi sull'ultimo record.....e questo lo faccio così
>
> Set rs = CurrentDb().OpenRecordset("select annoscol from tblannoscol")
> rs.MoveLast
>
> ora dovrei usare questo valore (2007/08) in questo codice in sostituzione
> del valore inserito manualmente:
>
Prova cosi:
  If Me.annoscolastico  = rs.fields("annoscol")  Then
  Me.csPromosso.Value = "anno scolastico in corso"
>
>
> In pratica è come se volessi dire
>
> If me.annoscolastico =  rs.MoveLast Then
>  Me.csPromosso.Value = ""
>
> non so come procedere
>
--
Ciao
Access


title: Variazione parametri query

author: Secundo

text:
Un saluto festoso a tutti.
Scopiazzando qui e la, e grazie ai vostri consigli, ho costruito una piccola
"applicazione" che mi consente di gestire la contabilità  della mia
attività. Funziona tutto dignitosamente, ma la grande seccatura è che alla
fine dell'anno, devo cambiare "a manella" i parametri delle query che
generano i trimestri. E' possibile memorizzarli magari in una tabella e fare
il cambio attraverso una funzione VBA? RingraziandoVi comunque per l'aiuto
che mi avete già dato, Vi auguro un proficuo nuovo secolo, anzi millennio.
Saluti Cld.


title: Variazione parametri query

author: Roberto dal portatile

text:
"Secundo" <
gbg...@hotmail.com
> ha scritto nel messaggio
news:8uh46.3699$FF1.2...@twister1.tin.it...

Perché non ci posti il codice SQL di una delle tue query e ci spieghi un
pochino meglio il tuo problema?
Buon anno, buon secolo, buon millennio ecc. ecc.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://members.xoom.it/it_db_access/
---------------------------------------------


title: Variazione parametri query

text:
> >
>
> Perché non ci posti il codice SQL di una delle tue query e ci spieghi un
> pochino meglio il tuo problema?
> Buon anno, buon secolo, buon millennio ecc. ecc.
>
> --
>
> Roberto
>
Il codice è talmente banale che mi vergognavo a farvelo vedere:
SELECT [Registrazione fatture].Id, [Registrazione fatture].[Data fattura],
[Registrazione fatture].Fornitore, [Registrazione fatture].Imponibile
FROM [Registrazione fatture]
WHERE ((([Registrazione fatture].[Data fattura]) Between #1/1/2000# And
#3/31/2000#));
Date le mie scarne conoscenze, le query sono 4, una per ogni trimestre,
volevo sapere se era possibile variare i parametri attraverso una funzione
in modo da  adeguarli al nuovo anno.Bye


title: Variazione parametri query

text:
"Secundo" <
gbg...@hotmail.com
> ha scritto nel messaggio
news:RJi46.4087$jT6.1...@twister2.tin.it...
[CUT]
> >
> Il codice è talmente banale che mi vergognavo a farvelo vedere:
> SELECT [Registrazione fatture].Id, [Registrazione fatture].[Data fattura],
> [Registrazione fatture].Fornitore, [Registrazione fatture].Imponibile
> FROM [Registrazione fatture]
> WHERE ((([Registrazione fatture].[Data fattura]) Between #1/1/2000# And
> #3/31/2000#));
> Date le mie scarne conoscenze, le query sono 4, una per ogni trimestre,
> volevo sapere se era possibile variare i parametri attraverso una funzione
> in modo da  adeguarli al nuovo anno.Bye
>
>
Nel caso tu voglia continuare ad usare le quattro query (una per trimestre),
puoi rendere parametrico l'anno delle due date che circoscrivono il
trimestre da selezionare; quidi nei criteri del campo [Data fattura] della
query del primo trimestre puoi scrivere:
Between DateSerial([Anno:];1;1) And DateSerial([Anno:];3;31)
vedi la funzione DateSerial sull'help.
Naturalmente per la query relativa al secondo trimestre scriverai:
Between DateSerial([Anno:];4;1) And DateSerial([Anno:];6;30)
e così via per le altre due query.
Così facendo, quando si apriranno le query, ti verrà chiesto di digitare
l'anno (a quattro cifre);  so che è una scocciatura digitare ogni volta
l'anno, però penso che ci sarà un periodo dell'anno (ad esempio febbraio) in
cui tu hai la necessità di conoscere sia i dati dell'ultimo trimestre del
2000 che del primo trimestre del 2001. Valuta te comunque quale è la
scocciatura minore.
Comunque puoi anche ipotizzare di lavorare con un'unica query per tutti i
trimestri; in questo caso come criteri dell'unica query scriverai:
Between [Data Inizio Trimestre:] And [Data Fine Trimestre:]
In questo caso, all'apertura della query, ti verrà richiesto di digitare le
due date per intero (nella forma gg/mm/aa); certo che aumenta la roba da
digitare ogni volta.
Se poi vuoi realizzare ciò che hai ipotizzato nel tuo primo messaggio,
ovvero una tabella che contenga quattro record, ognuno dei quali porta le
due date che delimitano un trimestre, puoi fare così:
1) Creati una tabella (chiamala Trimestri) che abbia la seguente struttura:
Trimestre            Numerico e chiave primaria
DataInizio           Data/ora
DataFine            Data/ora
2) Apri la tabella (mi sembra eccessivo creare del codice per aggiornarla) e
sul campo Trimestre, su quattro record differenti, digita 1, 2, 3  e 4 e
nelle due date la data di inizio e fine del relativo trimestre.
3) nei criteri della query del primo trimestre digita:
Between DLookUp("DataInizio";"Trimestri";"Trimestre= 1") And
DLookUp("DataFine";"Trimestri";"Trimestre= 1")
4) nei criteri della query del secondo trimestre digita:
Between DLookUp("DataInizio";"Trimestri";"Trimestre= 2") And
DLookUp("DataFine";"Trimestri";"Trimestre= 2")
e così via per le altre due query.
Così facendo, quando apri le query, non devi digitare nulla; puoi inoltre
organizzare adeguatamente l'aggiornamento della tabella Trimestri in maniera
tale che tu possa vedere i dati del primo trimestre del 2001 e i dati del
quarto trimestre 2000.
Comunque esistono tanti modi diversi per rendere parametrica una query,
dipende dall'interfaccia che vuoi dare all'applicazione.



title: Variazione parametri query

text:
CUT>
> 1) Creati una tabella (chiamala Trimestri) che abbia la seguente
struttura:
> Trimestre            Numerico e chiave primaria
> DataInizio           Data/ora
> DataFine            Data/ora
>
> 2) Apri la tabella (mi sembra eccessivo creare del codice per aggiornarla)
e
> sul campo Trimestre, su quattro record differenti, digita 1, 2, 3  e 4 e
> nelle due date la data di inizio e fine del relativo trimestre.
>
> 3) nei criteri della query del primo trimestre digita:
> Between DLookUp("DataInizio";"Trimestri";"Trimestre= 1") And
> DLookUp("DataFine";"Trimestri";"Trimestre= 1")
>
> 4) nei criteri della query del secondo trimestre digita:
> Between DLookUp("DataInizio";"Trimestri";"Trimestre= 2") And
> DLookUp("DataFine";"Trimestri";"Trimestre= 2")
>
> e cosě via per le altre due query.
>
> Cosě facendo, quando apri le query, non devi digitare nulla; puoi inoltre
> organizzare adeguatamente l'aggiornamento della tabella Trimestri in
maniera
> tale che tu possa vedere i dati del primo trimestre del 2001 e i dati del
> quarto trimestre 2000.
> Comunque esistono tanti modi diversi per rendere parametrica una query,
> dipende dall'interfaccia che vuoi dare all'applicazione.
>
> --
>
> Roberto
>
Questa era la siluzione che cercavo, infatti le altre le avevo sperimentate
ma comportavano sempre l'inserimento di parametri,
mentre questo mi sembra funzionare perfettamente. Il problema di controllo
su 2 diversi anni non si pone perchč mi serve solo nell'arco dell'anno
solare .Grazie dell'attenzione. CLD


title: Calcolare l'età

author: Fabio

text:
Salve, partendo dalla data di nascita inserita in un campo, posso
visualizzare in una maschera l'età espressa in anni-mesi giorni di una
persona?
Grazie
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: Calcolare l'età

author: Roberto da casa

text:
"Fabio" <
fid...@katamail.com
> ha scritto nel messaggio
news:bdtm6l$7af$1...@news.newsland.it...
> Salve, partendo dalla data di nascita inserita in un campo, posso
> visualizzare in una maschera l'età espressa in anni-mesi giorni di una
> persona?
> Grazie
>
Vai sul Sito Comune (link qui sotto) e nella Sezione General leggi la FAQ di
Silvio Berruti intitolata "Differenza tra due date espressa in anni, mesi e
giorni".
Naturalmente farai la differenza tra la data odierna e la data di nascita.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Numero pagina in report fatture .... però nell'intestazione del report - 2° tentativo

author: Maurino

text:
Grazie all'aiuto di Roberto da casa (che colgo l'occasione per ringraziare!)
sono riuscito ad impostare che le fatture partino dal numero uno. Tutto
funziona solo se il numero di pagina lo inserisco nel piè di pagina di un
report. Io invece, su un modulo esistente, lo devo inserire
nell'intestazione del report. Questo non lo fa.
Ho provato anche l'evento su riesame ma nulla.
Qualcuno sa come aiutarmi ? .... ringrazio comunque anticipatamente chi
volesse farlo
    Ciao da Maurino


author: MA

text:

Lascia stare il fatto che abbia diverse pagine, ma il report è uno solo,
quindi la numerazione sarà comunque sempre = 1 nell'intestazione (di tutto
il report)
Se invece lo sposti nella sez. corpo (e prob intestazione pagina) hai quello
che cerchi.
MAssimiliano


text:
"Maurino" <
proge...@tin.it
> ha scritto nel messaggio
news:V2yRa.85683$qa5.1...@news2.tin.it...

Caro Maurino, guarda che io ti ho risposto al tuo 1° tentativo del 10/7/2003
ore 11:19.
Ti riporto qui di seguito la risposta che ti ho dato il 10/7/2003 alle ore
11:44 :
==============
Inserisci nell'Intestazione pagina del report una casella di testo non
associata che abbia come origine controllo:
=[Page]
ed a fronte dell'evento "Su formattazione" della sezione Piè di pagina
Fattura genera la seguente riga di codice VBA:
 Page = 0
Naturalmente in questo caso non potrai inserire il numero di pagina nel piè
di pagina pagina.
================
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


text:
"Roberto da casa" <
r.ma...@libero.it
> ha scritto nel messaggio
news:N0BRa.183338$lK4.5...@twister1.libero.it...

Grazie. Maurino


title: Filtro non viene applicato

author: Principiante

text:
Salve, mi aiutate?
Perchè i dati non vengono ordinati?
I filtri della Combo non vengono applicati.
Private Sub CboCitta_AfterUpdate()
If IsNull(Me.CboUfficio) Or IsNull(Me.CboCitta) Then
Me.RecordSource = "SELECT * FROM TBLUffici ORDER BY Ufficio, Citta;"
Else
SQL = "SELECT * FROM TBLUffici " & " WHERE Ufficio= '" & Me!
CboUfficio.Value & "'" & " And Citta= '" & Me!CboCitta.Value & "'"
Me.RecordSource = SQL
End If
    stDocName = "TBLUffici Query"
    DoCmd.OpenQuery stDocName, acNormal, acEdit
    DoCmd.Close acForm, "Servizi"
End Sub
---------------------
SQL Query.
SELECT TBLUffici.Ufficio, TBLUffici.Citta, TBLUffici.Indirizzo,
TBLUffici.Telefono
FROM TBLUffici;
Grazie...


title: Filtro non viene applicato

author: 'Roccia' Max

text:
On 12 Giu, 11:28, Principiante <
frcavall...@yahoo.it
> wrote:
> Salve, mi aiutate?
>
> Perchè i dati non vengono ordinati?
Perche' non fai un .requery dell'oggetto...
cia'
Max


title: Filtro non viene applicato

text:

Perdonami; se nell'ultima Combo, Metto:
    Me.Requery
    stDocName = "TBLUffici Query"
    DoCmd.OpenQuery stDocName, acNormal, acEdit
    DoCmd.Close acForm, "Servizi"
Non cambia nulla. La Query viene aperta senza nessun ordinamento.
Ciao..


title: Filtro non viene applicato

text:
On 12 Giu, 12:50, Principiante <
frcavall...@yahoo.it
> wrote:
> Non cambia nulla. La Query viene aperta senza nessun ordinamento.
AH, la query!
Ma per forza, tu stai andando a modificare l'origine record del...
suppongo della maschera, NON la query che poi vai ad aprire!
Al posto di me.recordsource metti currentdb.querydefs("TBLUffici
query").SQL e dovrebbe funzionare... anche senza il requery :P :P
cia'
Max


title: Salva - record non disponibile!!!

author: Marco M.

text:
No non funziona neanche sostiuendola con DoCmd.RunCommand acCmdSaveRecord
Cavolo che faccio?
Fatevi venire un'idea che sono giorni che sto fermo
Grazie Marco M.
"Sib dal portatile" ha scritto nel messaggio
> "Roberto dal portatile" ha scritto nel messaggio
> > "Marco M." <
teat...@tin.it
> ha scritto nel messaggio
> > > ERRORE
> > > "Comando o azione salva record non disponibile"
> > > Probabilmente dovuto a :
> > >
> > > DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, ,
> > > acMenuVer70
> > >
> > > Non capisco il perchè e soprattutto non me la sento di riscrive le due
> > form
> > > con i relativi collegamenti
> > >
> > > Ciao Marco M.
> > Scusate l'intrusione, ma a me sembra che
>
> Introduciti, introduciti pure (in senso lato s'intende ;-)
>
> > DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
> >
> > sia una forma arcaica mantenuta da A97 per problemi di compatibilità con
> le
> > versioni precedenti; a quanto pare A2000 non la supporta più.
> >
> > Prova a sostituirla con:
> >
> > DoCmd.RunCommand acCmdSaveRecord
>
> Giusto, giustissimo. Figurati che io, anche quando era lecito l'uso
> dell'altra sintassi, non usavo l'autocomposizione del pulsante salva
record
> perche' quella forma mi e' sempre sembrata troppo legata all'applicazione
> (cacchio, gli dovevi specificare pura la versione di access che avrebbe
> dovuto contenere quel comando!)
>
> Sib
>
> PS a volte uso il sendkeys perche' prevede l'optional Wait che ti consente
> di fermare il codice finche' il record non sia effettivamente salvato.
>
> il sito comune di it.comp.database.access:
>
http://www.sitocomune.com


title: Salva - record non disponibile!!!

author: Jonathan Canova

text:
"Marco M." <
teat...@tin.it
> ha scritto nel messaggio
news:qN6w7.19154$pm2.3...@news1.tin.it...
> No non funziona neanche sostiuendola con DoCmd.RunCommand acCmdSaveRecord
> Cavolo che faccio?
> Fatevi venire un'idea che sono giorni che sto fermo
Non ho i messaggi precedenti. Se funziona questa, paghi da bere? :-))))
' Salva il record
If Me.Dirty Then Me.Dirty = False
Ovviamente al Me puoi sostituire il riferimento a qualsiasi form/subform.
--
Cordiali saluti,
Jonathan Canova
www.aladinoinformatica.com


title: Incremento campo data

author: computer valley

text:
Salve a tutto il NG,
ho creato un Db per archiviare i trni del dipendente con questi campi:
DataTurno, OrarioTurno, ecc. ed una maschera che include l'anagrafica di
ogni dip. relazionata ad una sottomaschera con i campi di cui sopra.
Il primo record per ogni dipendente viene inserito con la prima data dal
quale si vuole partire, ora vorrei che su click del pulsante
"AggiugniTurno", la data s incrementasse di un giorno automaticamente,
ovvero se comincio l'archivio inserendo come prima data 10/03/03 su click
diventasse 11/03/03 e cosě via...
Grazie a tutti.
Lucio


title: Incremento campo data

author: Giorgio

text:
"computer valley" <
c.va...@tin.it
> ha scritto nel messaggio
news:3O0ea.118659$zo2.3...@news2.tin.it...

> Me.Data = Me.Data +1
Ciao
Giorgio


title: Incremento campo data

author: Lucio

text:
"Giorgio" <
es...@ticino.com
> ha scritto nel messaggio
news:iF2ea.59$i01....@se2-cb104-9.zrh1.ch.colt.net...

Purtroppo ho provato anche cosě ma su nuovo record mi dice che č impssibile
assegnare un valore all'oggetto poichč il campo contiene un valore null...


title: Incremento campo data

text:
"Lucio" <
napone...@tin.it
> ha scritto nel messaggio
news:oucea.86103$pG1.1...@news1.tin.it...

metti come predefinito la data del giorno   Now()
oppure: If me.Data is Null Then
                Me.Data = Now()
            end if
e su click del pulsante
    Me.Data = Me.Data +1
Giorgio


title: Aggiornamento casella combinata

author: SimoneB

text:
Salve,
ho una maschera dal nome Fattura la quale preleva i dati dall'omonima
tabella. Nella tabella, e in maschera, è presente un campo IdCliente
relazionato con una tabella dal nome Cliente. Quando attraverso la maschera
inserisco un cliente nuovo questo non mi viene inserito automaticamente ed
access mi visualizza una finestra di errore. Andando sull'evento "Non in
elenco" della casella di testo IdCliente ho pensato, con una macro, di farmi
aprire la maschera Cliente in modo tale da poter aggiornare tale tabella
senza dover premere nessun pulsante o cose di questo genere. Solo che
uscendo da tale maschera non mi aggiorna in automatico la casella di testo
IdCliente. Mi hanno detto di fare un riesegui query della casella combinata
ma non riesco a capire a fronte di che evento mettere il riesegui query di
questa tabella e soprattutto in che modo si costruisce il riesegui query di
una casella combinata di una maschera.... mi potete dire come si fa a fare
un riesegui query di una casella combinata di una maschera? E mi potreste
dire se questo codice o macro che mi dite lo devo mettere a fronte
dell''evento su chiusura della maschera cliente?
Grazie e saluti SimoneB


title: Aggiornamento casella combinata

author: Sandro

text:
"SimoneB" <
dklf...@khkhk.it
> ha scritto nel messaggio
news:4363ae94$0$20503$4faf...@reader4.news.tin.it...

Ciao SimoneB,
se ho capito bene ti serve inserire un cliente nuovo sfruttando l'evento not
in list. Ci sono molti modi per farlo, prova ad esempio in questo modo :
If MsgBox("questo cliente non esite", vbYesNo + vbQuestion) = vbYes Then
      Me!TuaCombo.RowSource = Me!TuaCombo.RowSource & ";" & Chr(34) &
NewData & Chr(34)
      Response = acDataErrAdded
    Else
      Me.Undo
      Response = acDataErrContinue
    End If
Ciao, Sandro
ps. bisognerebbe aggiungere la gestione errori, intanto vedi se ti va bene
così.Sul SC e sul sito di Karl ci sono altri esempi.


title: Aggiornamento casella combinata

text:
> se ho capito bene ti serve inserire un cliente nuovo sfruttando l'evento
> not
> in list. Ci sono molti modi per farlo, prova ad esempio in questo modo :
>
>
> If MsgBox("questo cliente non esite", vbYesNo + vbQuestion) = vbYes Then
>      Me!TuaCombo.RowSource = Me!TuaCombo.RowSource & ";" & Chr(34) &
> NewData & Chr(34)
>      Response = acDataErrAdded
>    Else
>      Me.Undo
>      Response = acDataErrContinue
>    End If
>
> Ciao, Sandro
>
> ps. bisognerebbe aggiungere la gestione errori, intanto vedi se ti va bene
> cosě.Sul SC e sul sito di Karl ci sono altri esempi.
>
>
Su che evento imposto il codice?
Ciao SimoneB


title: Cancellazione record

author: John Doe

text:
Ho sviluppato una query, su più tabelle, che estrae un certo set di record.
Mi domando se esista un metodo veloce e generale per cancellare i record in
questione.
Molte grazie e saluti
Enrico


title: Cancellazione record

text:
"John Doe" <xan...@SPAMfreemail.it> ha scritto nel messaggio
news:JBiN9.40696$TC5.1...@twister1.libero.it...

Se hai realizzato collegamenti tra le Tabelle cui ha flaggato "Consenti
Eliminazioni a catena"
ti riesce semplice con una Qry di eliminazione.....! Vedi "DELETE ........."
e il comando Docmd.RunSQL
@Alex.


title: backup

author: avis

text:
ho preso questa soluzione che vi giro da un forum ho fatto alcune modifiche
ma non sono riuscito in tutto. e precisamente
mi piacerebe copiare non solo in file Avis.mdb ma tutta la cartella

e che sulla cartella di backup la data archivio_ esempio 12122014 comparisse
12/12/2014 o 12_12_2014

il 15 del mese non cancella i vecchi file quindi archivio immenso di file

chiedo troppo  grazie

Private Sub chiudi_avis_Comando45_Click()
On Error GoTo Err_chiudi_avis_Comando45_Click
'****************************
Dim retValue As Integer
   Dim strTtl As String
   Dim strMsg As String
   strTtl = "Creare Copia di Sicurezza?"
   strMsg = "Stai per Uscire da Avis." & vbCrLf & _
            "Vuoi effettuare una copia di Backup?"
   retValue = MsgBox(strMsg, vbQuestion + vbYesNoCancel, strTtl)
   Select Case retValue
       Case vbYes

'**********************
Dim oldpath, newpath, archive As String
Dim filesys As Variant
Dim dtsei
Dim mesprec
Dim miopath As String

Set filesys = CreateObject("Scripting.FileSystemObject")

' path di origine del DB
Dim pdb As String
'pdb = "c:\avis caorle\avis acces\archivio dati avis\"

pdb = CurrentProject.Path & "\"
oldpath = pdb

' nomefile del DB
archive = "avis_14.01.mdb"
dtsei = Right(Day(Now), 2) & _
Right("0" & Month(Now), 2) & _
Right("0" & Year(Now), 4)

' path destinazione DOVE CREARE UNA CARTELLA BACKUP

newpath = "G:\AVIS CAORLE\BACKUP_AVIS\Archivio_2014_" & Left(dtsei, 8) & "\"

'*** Copia giornaliera ***
If Not (filesys.FolderExists(newpath)) Then filesys.createfolder (newpath)
filesys.CopyFile oldpath & archive, newpath & dtsei & "_avis_14.01.mdb",
True

If (Left(DateSerial(Year(Now), Month(Now) + 1, 0), 2)) - (Day(Now)) = 0 Then
filesys.CopyFile.CopyFile oldpath & archive, oldpath & "backup\" & dtsei &
".mdb", True

'POI OGNI 15 DEL MESE CANCELLA LE PRECEDENTI COPIE
If Day(Now) = 15 Then
mesprec = DateSerial(Day(Now), Month(Now) - 1, Year(Now))
pdb = CurrentProject.Path & "\"
oldpath = pdb
miopath = (oldpath & "backup\" & Right(Year(mesprec), 2) & Right("0" &
Month(mesprec), 2))
If filesys.FolderExists(miopath) Then
filesys.DeleteFolder (oldpath & "backup\" & Right(Year(mesprec), 2) & _
Right("0" & Month(mesprec), 2))
End If
End If
DoCmd.Quit
'*******
'************ FINE CODICE *************
               'non fare nulla
       Case vbNo
DoCmd.Quit
         '  DoCmd.RunCommand acCmdUndo
       Case vbCancel
           Cancel = True
   End Select
'End Sub
'*******
Exit_chiudi_avis_Comando45_Click:
    Exit Sub

Err_chiudi_avis_Comando45_Click:
    MsgBox Err.Description
'  Resume Exit_chiudi_avis_Comando45_Click

End Sub

---
Questa e-mail è priva di virus e malware perché è attiva la protezione avast! Antivirus.
http://www.avast.com


title: Report senza ripetizioni ne campi vuoti... chi mi aiuta?

author: Arrigo Bernardi

text:
ho sviluppato un classico DB per la mia azienda, e desidero avere un
report relativo agli ultimi preventivi emessi, filtrando tre tabelle:
preventivi, clienti, contatti.
Le tre tabelle sono collegate tramite il campo Nome_azieda.
Desidero visualizzare gli ultimi preventivi visualizzando
contemporaneamente tutti i campi dei preventivi, e tutti i contatti
relativi all'azienda contenuti nelle tabelle "Clienti" e "Contatti".
Ci sono anche riuscito, ma adesso vorrei che i campi vuoti non
apparissero nei report
Inoltre la tabella contatti contiene i dati relativi alle persone di
contatto interne alle aziende cliente.
Vorrei che qualora vi fossero più contatti associati allo stesso
cliente, questi apparissero di seguito, nella stessa scheda report,
invece di generarne un altra.
Tipo: Preventivo ID, Data, Tipo, Importo....
Azienda, tel, fax, etc.
Contatto1_azienda1, funzione, tel, etc.
Contatto2_azienda1, funzione, tel, etc.
Chi mi può aiutare?
grazie
Arrigo
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


author: Emyr

text:
On Wed, 20 Feb 2002 14:14:24 +0000 (UTC), "Arrigo Bernardi"
<
arri...@libero.it
> wrote:
>ho sviluppato un classico DB per la mia azienda, e desidero avere un
>report relativo agli ultimi preventivi emessi, filtrando tre tabelle:
>preventivi, clienti, contatti.
>Le tre tabelle sono collegate tramite il campo Nome_azieda.
>
>Desidero visualizzare gli ultimi preventivi visualizzando
>contemporaneamente tutti i campi dei preventivi, e tutti i contatti
>relativi all'azienda contenuti nelle tabelle "Clienti" e "Contatti".
>
>Ci sono anche riuscito, ma adesso vorrei che i campi vuoti non
>apparissero nei report
metti nei criteri is not null
>
>Inoltre la tabella contatti contiene i dati relativi alle persone di
>contatto interne alle aziende cliente.
>Vorrei che qualora vi fossero più contatti associati allo stesso
>cliente, questi apparissero di seguito, nella stessa scheda report,
>invece di generarne un altra.
>
>Tipo: Preventivo ID, Data, Tipo, Importo....
>Azienda, tel, fax, etc.
>Contatto1_azienda1, funzione, tel, etc.
>Contatto2_azienda1, funzione, tel, etc.
usa un sottoreport in cui metti i contatti
>
>
>
>Chi mi può aiutare?
>grazie
>Arrigo
Saluti.
Emanuele.


title: apertura access2000

text:
Salve,
Ho convertito i miei databases da acces97 ad access 2000.
Con access97 quando aprivo un database, me lo apriva a schermo intero e se
poi ne aprivo un altro mi apriva anche il secondo a schemo intero e cosi
via...
Con acces 2000 mi apre il primo a schermo intero e se ne apro un altro me lo
apre a schermo ridotto.
Cosa posso fare per aprirli sempre tutti a schermo intero ?
Grazie
Ciao
Giorgio


title: apertura access2000

author: CarloCos

text:
"Giorgio" <
gior...@libero.it
> ha scritto nel messaggio
news:w6Fk7.18698$MO.6...@news.infostrada.it...

Se per schermo intero ("quando aprivo un database...") ti riferisci alla
maschera "DATABASE" che compare all'apertura di un qualsiasi db, allora la
risposta è no, non si può.
Se ti riferisci all'applicazione Access, al programma vero e proprio, allora
la risposta è sì. La prima volta che apri l'applicazione massimizza la
finestra principale di Access cliccando sull'icona corrispondente in alto a
destra, sulla barra del titolo dell'applicazione. La successiva apertura
sarà massimizzata.
Se invece, come credo, ti riferisci alle singole maschere allora sull'evento
"Su Apertura" puoi scrivere DoCmd.Maximize e su "Chiusura" DoCmd.Restore.
Ciao, Carlo


title: apertura access2000

author: Silvio Berruti

text:
"CarloCos" <
carloco...@libero.it
> ha scritto nel messaggio
news:bRIk7.19552$MO.6...@news.infostrada.it...
>
> "Giorgio" <
gior...@libero.it
> ha scritto nel messaggio
> news:w6Fk7.18698$MO.6...@news.infostrada.it...
> > Salve,
> >
> > Ho convertito i miei databases da acces97 ad access 2000.
> >
> > Con access97 quando aprivo un database, me lo apriva a schermo intero e
se
> > poi ne aprivo un altro mi apriva anche il secondo a schemo intero e cosi
> > via...
> > Con acces 2000 mi apre il primo a schermo intero e se ne apro un altro
me
> lo
> > apre a schermo ridotto.
> > Cosa posso fare per aprirli sempre tutti a schermo intero ?
> >
> > Grazie
> > Ciao
> > Giorgio
> >
> >
>
> Se per schermo intero ("quando aprivo un database...") ti riferisci alla
> maschera "DATABASE" che compare all'apertura di un qualsiasi db, allora la
> risposta č no, non si puň.
E' possibile massimizzare la finestra Database mettendo un Docmd.Maximize su
apertura della 1a maschera, che provvederai poi a ridurre a icona o a
nascondere con l'istruzione successiva.
Se invece intendevi ingrandire la finestra di Access e non quella di una sua
finestra, puoi usare un SendKeys "% n", true (vale solo x le versioni di
Windows in italiano.
Spulciando i messaggi di qualche tempo fa, dovresti trovare anche una
risposta di Karl che spiegava come farlo in modo differente.
Inoltre, mi pare che ci sia qualcosa con le Api sul Sito Comune o su quelli
di Dev Ashish
http://www.mvps.org/access/
--
Silvio
il sito comune di it.comp.appl.access:
http://www.sitocomune.com


title: Somme particolari, molto particolari

author: Maurizio

text:
Ciao Amici, ho una casella di riepilogo vorrei sommare i valori delle
colonne 8 e 10 della casella di riepilogo e visualizzare il risultato in una
casella di testo non associata, come mi comporto?


title: Somme particolari, molto particolari

author: salvino

text:
Maurizio ha scritto:
> Ciao Amici, ho una casella di riepilogo vorrei sommare i valori delle
> colonne 8 e 10 della casella di riepilogo e visualizzare il risultato in una
> casella di testo non associata, come mi comporto?

Prova ad utilizzare Dsum al campo della  tabella/query associata.
rgrds
SC
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: Somme particolari, molto particolari

text:
"salvino" <
salv...@box.enel.it
> ha scritto nel messaggio
news:bkuvgi$lf2$1...@news.newsland.it...

Come dovrebbe essere la sintassi della funzione DSum?


title: Somme particolari, molto particolari

text:
Maurizio ha scritto:

Dall'help di Access:
inizia
Č possibile utilizzare la funzione DSum per calcolare la somma di un set
di valori di un determinato set di record, un dominio. Utilizzare la
funzione DSum in Visual Basic, in una macro, in un'espressione nella query
o in un controllo calcolato.
.
.
.
finisce
Supponendo in "MiaTabella"  un campo "MioCampo", inserire nel controllo
non associato quale RecordSource:
=Dsum("MioCampo";"MiaTabella")



author: Piero

text:
ciao a tutti
ho inserito in Form_KeyDown questo codice

On Error Resume Next
    If KeyCode = vbKeyDelete Then
        KeyCode = 0
        DoCmd.RunSQL "DELETE * from TbOrdini where IdOrdine = " &
Me!IDOrdine
        Forms![Ordini per cliente88]!CboElencoClienti.Requery

        Dim lngStore As Long
        lngStore = Me!IDOrdine
        Me.Requery
        Me.Recordset.FindFirst "IdOrdine = " & lngStore
    End If

cosa è preferibile:
On Error Resume Next  oppure
On Error exit sub?

grazie


title: On Error Resume Next  oppure On Error exit sub

text: on error goto GestrioneErrori


text:
CUT
>on error goto GestrioneErrori

Grazie


title: Cerco guida ad Access 2002

author: Danilo Cesari

text:
Salve a tutti ! :o)
Qualcuno saprebbe indicarmi per favore una guida ad Access 2002 scaricabile
dalla rete, possibilmente in italiano. Non esiste un qualche pdf magari,
ormai si trova di tutto...
Grazie 1000 !!!
Danilo.


title: Cerco guida ad Access 2002

author: Fabrizio yQy

text:
"Danilo Cesari" <
danilo...@libero.it
> ha scritto nel messaggio
news:YLNw9.105595$RO.27...@twister1.libero.it...
> Salve a tutti ! :o)
>
> Qualcuno saprebbe indicarmi per favore una guida ad Access 2002
scaricabile
> dalla rete, possibilmente in italiano. Non esiste un qualche pdf magari,
> ormai si trova di tutto...
F1 .. !
c'e' tutto
www.sitocomune.com


title: Cancellare file da codice..

author: Alby

text:
Buongiorno a tutti..Una domanda: da codice come posso eliminare un file
txt che ha un suo percorso ben preciso?Grazie 1000 anticipatamente!
--
Alby
Inviato da
www.mynewsgate.net


title: Cancellare file da codice..

author: ringo

text:
"Alby" <
6175i...@mynewsgate.net
> ha scritto nel messaggio
news:200411191...@mynewsgate.net...
> Buongiorno a tutti..Una domanda: da codice come posso eliminare un file
> txt che ha un suo percorso ben preciso?Grazie 1000 anticipatamente!
>
> --
> Alby
Kill ("percorso del file")
Ciao!
ringo


title: Cancellare file da codice..

text:
"Alby" <
6175i...@mynewsgate.net
> ha scritto nel messaggio
news:200411191...@mynewsgate.net...
> Buongiorno a tutti..Una domanda: da codice come posso eliminare un file
> txt che ha un suo percorso ben preciso?Grazie 1000 anticipatamente!
>
> --
Kill("C:\cartelladelfile\eventualesottocartella\nomefile.ext")


title: problemino

author: Ri. Gal Software

text:
Come evidenziare con colore rosso gli importi negativi
nelle stampe di access???
Grazie
GR


title: problemino

author: Roberto dal portatile

text:
"Ri. Gal Software" <
rig...@tin.it
> ha scritto nel messaggio
news:97q06.8304$ag5.4...@twister1.tin.it...

Come Formato del controllo scrivi:
#.###;-#.###[Rosso]
oppure
L.#.###;-L.#.###[Rosso]
Buon Natale


title: Compilare...

author: CV

text:
Salve,
vorrei sapere cosa é necessario per "compilare" un programma fatto con
Access,ho sentito parlare di Developer Edition ma non c´ho capito
molto.Qualcuno mi puó spiegare meglio per cortesia ?
Grazie.
Claudio


title: Compilare...

author: stwe

text:
"CV" <
clau...@clix.pt
> ha scritto nel messaggio
news:5agI7.69204$Am.171...@newsserver.ip.pt...

www.sitocomune.com
 sezione general, il primo in basso...
by
stwe


title: Compilare...

author: Antonio Biso

text:
CV <
clau...@clix.pt
> wrote in message
5agI7.69204$Am.171...@newsserver.ip.pt...

Ovviamente devi procurarti l'apposito compilatore...
Antonio


title: Compilare...

author: Sergio MAZZA

text:
"Antonio Biso" <
ch...@etruria.net
> ha scritto nel messaggio
news:B6qI7.89558$sq5.4...@news.infostrada.it...
>
> Ovviamente devi procurarti l'apposito compilatore...
>
> Antonio
>
Che sarà distribuito in versione Light (30 giorni) a chi partecipa al
Raduno. Così mi ha detto una fonte vicino alla Triade...
Ciao.
--
- - - - - - - - - - - - - - -
Sergio MAZZA
- - - - - - - - - - - - - - -


title: Compilare...

author: Cellofan

text:
CV wrote:

un esempio, puoi convertire una macro in modulo e convertire quest'ultimo
da  ACCESS. Scopo: aumentare la velocità di esecuzione.


title: stampare report parametrico in pdf

text:
Ciao a tutti sono nuovo del gruppo e ringrazio in anticipo chi mi potrà aiutare.

Lavoro con le cartografie ed ogni tanto mi imbatto con qualche problema con il db access

Ho necessità di stampare un report singolo per ogni record della mia tabella, rinominandolo con il numero di id

Ho creato una maschera con un pulsante sul evento clik mi stampa il report1

Navigando in rete ho trovato e modificato qualcosa, ripeto non sono un programmatore.

Il codice si blocca dopo avermi creato 5 report su 10
indicandomi errore di run-time 3021 nessun record corrente, dove sbaglio?

Private Sub Comando30_Click()

' creo un insieme temporaneo di record estraendoli dalla Tabella1, contenuta 'nel database aperto
Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset("Tabella1")

' creo una variabile chiamata strReportName e le do il valore del report che 'mi interessa cioè Report1

Dim strReportName As String
strReportName = "Report1"

rs.MoveFirst

' gli passo il filtro

Dim strWhere As String
Do Until rs.EOF
    strWhere = "id_bdu=" & rs.Fields("id_bdu").Value
    rs.MoveNext
'Loop

' apro il report richiamando la variabile che avevo definito prima '(strReportName)

DoCmd.OpenReport strReportName, acViewPreview, , strWhere, acHidden

DoCmd.OutputTo acReport, strReportName, acFormatPDF, "c:\linux\prove\" & rs.Fields("id_bdu").Value & ".pdf"

DoCmd.Close acReport, strReportName, acSaveNo

Loop

rs.Close

Set rs = Nothing

End Sub


title: stampare report parametrico in pdf

text:
NOn hai strutturato affatto bene il codice...
Ti rendi conto che parti dal 1° ma lo incrementi subito, quindi ne perdi 1...

La parte centrale deve essere modificata:

Do Until rs.EOF
    strWhere = "id_bdu=" & rs.Fields("id_bdu").Value
    DoCmd.OpenReport strReportName, acViewPreview, , strWhere, acHidden

    DoCmd.OutputTo acReport, strReportName, acFormatPDF, "c:\linux\prove\" & rs.Fields("id_bdu").Value & ".pdf"
    DoEvents
    DoCmd.Close acReport, strReportName, acSaveNo
    rs.MoveNext
Loop

Potrebbe essere necessario aggiungere un Delay appena dopo la Stampa con PrintOut per evitare il riempimento del Buffer... converrebbe inserire prima di DoEvents uno SLEEP con le API...

@Alex


title: esempi applicazioni

author: ggg

text:
Sono nuovi di access c'e'  vorrei imparare potete mandarmi esempi
applicativi anche complessi con nuove idee con i quali posso avviarmi a
questo prodotto
grazie in anticipo
massimo
scrivere
massimo...@hotmail.com


title: esempi applicazioni

author: lbo dal portatile

text:
>Sono nuovi di access c'e'  vorrei imparare potete mandarmi esempi
>applicativi anche complessi con nuove idee con i quali posso avviarmi a
>questo prodotto
guarda, quando installi access installi anche un file che si chiama
northwind, uno che si chiama soluzioni e uno che si chiama ordini.
inoltre se traffichi sul sito di microsoft trovi altra roba.
se invece vuoi copiare il gestionale di qualcun altro per rivendertelo
agli amici del tuo papa' mi sa che non e' il caso.
se sei agli inizi stai tranquillo che guardare "applicativi anche
complessi" serve solo a farti perdere tempo.
la sai fare un'agendina?  una rubrichetta fatta bene?  comincia con
quello, che vedrai che c'e' gia' parecchio da fare, poi si vede.
se hai contatti ai quali vuoi vendere il risultato delle tue
elaborazioni (attivita' meritoria, ci mancherebbe altro) sappoi che il
fatto che tu sappia "usare" access (qualsiasi cosa questo voglia
dire), cioe' in sostanza che tu sappia programmare, e' del tutto
irrilevante.
quello che e' necessario sapere e' come fare l'analisi di un
applicativo.  poi a programmarlo e' un'altra cosa.  allora fai cosi',
vai dagli amici del tuo papa' e gli dici: "vi faccio un'applicazione
gratis, pero' voi dovete avere la pazienza di sopportarne le mancanze
finche' non la perfeziono".  e ti assicuro che si parla di mesi, se
non di anni.
nel frattempo ti studi un po' di teoria dei dati, un po' di vb e vba e
vedi che si puo' fare.
ma emulare il lavoro altrui senza capirlo, oltre ad essere antietico,
e' anche inutile.
--
il sito comune di it.comp.appl.access:
http://members.xoom.it/it_db_access/


title: INVIARE UN REPORT SU UNA E-MAIL

author: angelo manfredini

text:
Utilizziamo nel nostro  reparto di chirurgia una lettera di dimissione
creata da me con access e disponenedo della e-mail di alcuni medici di base
vorremmo inviare il report sia sulla stampante che direttamente alla loro
e-mail.
Qualche suggerimento per automatizzare la cosa?
Grazie anticipatamente
Ciao Angelo


title: INVIARE UN REPORT SU UNA E-MAIL

author: mark

text:
"angelo manfredini" <
ange...@libero.it
> wrote in message
news:fWFd6.63941$ew1.3...@news.infostrada.it...

Vedi sito comune  nella sezione risorse
http://www.sitocomune.com/index_new.html
Ciao
Marco Dell'oca
D.M.Software


title: INVIARE UN REPORT SU UNA E-MAIL

text:
"mark" <
marco....@tiscalinet.it
> ha scritto nel messaggio
news:957ge3$jjk$1...@pegasus.tiscalinet.it...

Grazie per la segnalazione: adesso me la studio per bene
Ciao


title: INVIARE UN REPORT SU UNA E-MAIL

author: Pivo

text:
"angelo manfredini" <
ange...@libero.it
> ha scritto nel messaggio
news:fWFd6.63941$ew1.3...@news.infostrada.it...

 DoCmd.SendObject acReport, "nome_report", "SnapshotFormat(*.snp)",
"
i...@io.it
", "
t...@io.it
", "
n...@io.it
", "report da access", "ti invio il report
di access", False, ""
dove:
nome_report  ci metti il nome del tuo report
SnapshotFormat(*.snp) è il formato che invii (puoi scegliere anche html)
il primo indirizzo di posta è il destinatario, il secondo il CC ed il terzo
il CCn
report da access è l'oggetto del messaggio
ti invio il report di access è il testo inserito nella mail
False ovvero non modificabile
il comando che ti ho scritto puoi ad esempio inserirlo come evento
SuApertura del tuo report.
ciao


title: INVIARE UN REPORT SU UNA E-MAIL

author: UJ

text:
>  DoCmd.SendObject acReport, "nome_report", "SnapshotFormat(*.snp)",
> "
i...@io.it
", "
t...@io.it
", "
n...@io.it
", "report da access", "ti invio il
report
> di access", False, ""
Io ho provato, come da miei messaggi vecchi, ma se non si mettono i nomi dei
Contatti al posto degli indirizzi email compare l'errore di Run-Time 2287 -
Impossibile aprire la sessione di posta elettronica.
Hai qualche suggerimento in merito? Tu metti direttamente gli indirizzi come
hai fatto nell'es.?
Grazie
UJ


title: Immagini Collegate

author: Renato Mulinacci

text:
Piuttosto che impostare un'immagine di sfondo in una maschera come
incorporata (occupa troppo spazio), preferisco inserirle come immagini
collegate; l'unico problema è quando cambia il percorso delle immagini
collegate, Access non le trova e all'avvio mi dà un errore.
C'è un modo per intercettare questo errore? Anche se imposto all'avvio una
maschera, una macro ,etc... prima Access controlla che le immagini siano
presenti e perciò becca l'errore...
C'è un modo per risolvere questo problema?
Renato.


title: Immagini Collegate

author: Alessandro Baraldi

text:
"Renato Mulinacci" <
r.mul...@libero.it
> wrote in message
news:XKStf.107179$
65.30...@twister1.libero.it

Beh se inserisci la gestione errori(su Form_Error) dovrebbe restituirti
un Err.Number da intercettare.
In ogni caso perchè dovrebbe cambiare il percorso della foto...?
Se strutturi la distribuzione con una serie di Cartelle ti basta
poi avere il percorso relativo d'installazione, che puoi salvare
in un Registro o in una Tabella durante l'installazione stessa...!
Io realizzo pacchetti con InnoSetup e nel Client ho una  tabella
nella quale INNOSETUP scrive i parametri d'installazione, questo
perchè non mi piace usare registri.
In questo modo non può mai succedere quello che dici.
Oltretutto queste Cartelle le rendo NON VISIBILI e spesso le chiamo
$NomeCartella per evitare pasticci di un utente rompiscatole...!
Ciao
@Alex
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: Immagini Collegate

text:
"Alessandro Baraldi" <
ik2...@libero.it
> ha scritto nel messaggio
news:8fef03245903f1b48e...@mygate.mailgate.org...
> "Renato Mulinacci" <
r.mul...@libero.it
> wrote in message
> news:XKStf.107179$
65.30...@twister1.libero.it
>
>> Piuttosto che impostare un'immagine di sfondo in una maschera come
>> incorporata (occupa troppo spazio), preferisco inserirle come immagini
>> collegate; l'unico problema è quando cambia il percorso delle immagini
>> collegate, Access non le trova e all'avvio mi dà un errore.
>>
>> C'è un modo per intercettare questo errore? Anche se imposto all'avvio
>> una
>> maschera, una macro ,etc... prima Access controlla che le immagini siano
>> presenti e perciò becca l'errore...
>>
>> C'è un modo per risolvere questo problema?
>>
>> Renato.
>
>
> Beh se inserisci la gestione errori(su Form_Error) dovrebbe restituirti
> un Err.Number da intercettare.
>
>
> In ogni caso perchè dovrebbe cambiare il percorso della foto...?
C'è sempre q.che utente deficiente che magari me le cancella....
> Se strutturi la distribuzione con una serie di Cartelle ti basta
> poi avere il percorso relativo d'installazione, che puoi salvare
> in un Registro o in una Tabella durante l'installazione stessa...!
>
> Io realizzo pacchetti con InnoSetup e nel Client ho una  tabella
> nella quale INNOSETUP scrive i parametri d'installazione, questo
> perchè non mi piace usare registri.
> In questo modo non può mai succedere quello che dici.
> Oltretutto queste Cartelle le rendo NON VISIBILI e spesso le chiamo
NON Visibili nel senso che se in Windows uno ha di mostrare file nascosti me
la vede oppure realmente diventa non visibile?
> $NomeCartella per evitare pasticci di un utente rompiscatole...!
Scusa l'ignoranza ma mettere la $ davanti al nome a cosa serve?
>
> Ciao
> @Alex
>
Ciao, Renato.



title: Immagini Collegate

text:
"Renato Mulinacci" <
r.mul...@libero.it
> wrote in message
news:PnTtf.24556$
eD5.4...@twister2.libero.it
[CUT]
> NON Visibili nel senso che se in Windows uno ha di mostrare file nascosti me
> la vede oppure realmente diventa non visibile?
>
> > $NomeCartella per evitare pasticci di un utente rompiscatole...!
>
> Scusa l'ignoranza ma mettere la $ davanti al nome a cosa serve?
>
> Ciao, Renato.
Prova e vedi che succede....!
;-)
@Alex



title: Chiusura doc Word linkato manda Access in icona

author: Francesco

text:
Salve a tutti!
Ho fatto un'applicazione che prevede in una forma un controllo "collegamento
ipertestuale".
Quando questo manda ad un doc e viene aperto con Word, uscendo da Word
manda l'applicazione Access in icona.
Questo non succede nel caso di un pdf, ove chiudendo Acrobat ritrovo la
finestra di Access come l'ho lasciata.
Come si può ovviare a ciò
Grazie
Francesco


title: Chiudere una maschera

author: Amico

text:
Scusate se la domanda può sembrare banale ma non riesco a chiudere una
maschera aperta da codice.
Facendo eseguire il comando Unload Nome maschera mi compare un messaggio di
errore che mi dice impossibile chiudere o scaricare la maschera.
Qualcuno può aiutarmi.
Grazie


title: Chiudere una maschera

author: Roberto da casa

text:
"Amico" <
nard...@inwind.it
> ha scritto nel messaggio
news:oSOL8.13732$K4.2...@twister2.libero.it...

Prova a vedere sull'help il Metodo Close dell'oggetto DoCmd.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: domanda sulluso dei report e l'origine dei dati

text:
secondo voi posso usare un solo report per più tipi di documento decidento
da vba prima di aprire il report
a quale tabella o query deve esssere associato il report?
se riesco a fare questo dovrei riuscire a gestire più stampe con un solo
report, dico bene?
qualcuno a già fatto e poò confermarmi?
Grazie a tutti.


author: pixel

text:
"Simba883"

Puoi: su evento apertura assegni a codice il recorsource del Report...
Pixel


author: DenNiOut

text:
> > se riesco a fare questo dovrei riuscire a gestire più stampe con un solo
> > report, dico bene?
> >
> > qualcuno a già fatto e poò confermarmi?
>
> Puoi: su evento apertura assegni a codice il recorsource del Report...
>
> Pixel
cioè? come gli dico devi avere questa tabella anzichè quell'altra?
hai un esempio di codice?


author: MarcoMac

text:
"DenNiOut" <
denn...@libero.it
> ha scritto nel messaggio
news:ca1ihi$rj4$1...@lacerta.tiscalinet.it...

IF Condizione1 = vera
Me.recordsource =  Query1, tabella1, stringa SQL (quello che vuoi)
ELSE
Me.recordsource =  Query2, tabella2, stringa SQL (quello che vuoi)
End IF


title: Criteri query attraverso maschera

author: Paolo

text:
Salve a tutti!!!
Qualcuno mi sa dire se è possibile creare una maschera associata ad una
query in modo tale che nella maschera venga visualizzato un dato record in
base al valore che esso ha in un determinato campo?!
In pratica vorrei che immettendo il codice di un prodotto nella maschera mi
vengano visualizzati tutti i relativi campi.
E' poi possibile inserire in un'altra tabella qesti dati?!
Grazie mille!!!!!


title: Criteri query attraverso maschera

author: Marco Zabot

text:
> In pratica vorrei che immettendo il codice di un prodotto nella maschera
mi
> vengano visualizzati tutti i relativi campi.
detto Cod il campo della maschera Mask nella query che seleziona i dati  nei
criteri del campo codice scrivi:
=forms!mask!cod


title: Criteri query attraverso maschera

text:
"Paolo" <
paolopa...@hotmail.com
> ha scritto nel messaggio
news:8YIj9.972$Eu.1...@twister1.libero.it...

Ho il vago sentore che stai rovesciando il problema.
Se non ho capito male tu hai una tabella chiamata AltraTabella che ha una
struttura Simile a questa:
ID                                Contatore e chiave primaria
IDProdotto                  Numerico
DescrizioneProdotto     Testo
PrezzoProdotto            Valuta
Quantità                       Numerico
ecc. ecc
Hai poi una tabella TabellaProdotti che ha una struttura simile a questa:
IDProdotto                    Contatore e chiave primaria
DescrizioneProdotto       Testo
PrezzoProdotto              Valuta
ecc. ecc.
Tu vorresti che, quando iserisci un record nella AltraTabella, digiti solo
IDProdotto e poi automaticamente vengano riempiti i campi
DescrizioneProdotto e PrezzoProdotto ricavati da TabellaProdotto per quel
IDProdotto.
Se le cose stanno così, creati una maschera (Maschera1) che abbia come
origine record AltraTabella ed in cui i controlli hanno gli stessi nomi dei
campi di AltraTabella cui sono allegati.
In Maschera1 trasforma la casella di testo associata a IDProdotto in una
casella combinata; fai in maniera che questa colonna combinata di nome
IDProdotto abbia 3 colonne di cui visibile solo la seconda; fai in maniera
che la casella combinata abbia come Colonna associata 1 e come Origine riga
questo codice SQL:
SELECT DISTINCT TabellaProdotti.IDProdotto,
TabellaProdotti.DescrizioneProdotto, TabellaProdotti.PrezzoProdotto FROM
TabellaProdotti ORDER BY TabellaProdotti.DescrizioneProdotto;
A fronte dell'evento "Dopo aggiornamento" della casella combinata genera il
seguente codice VBA:
Private Sub IDProdotto_AfterUpdate()
Me!DescrizioneProdotto = Me!IDProdotto.Column(1)
Me!PrezzoProdotto = Me!IDProdotto.Column(2)
End Sub
Ora apri Maschera1 e dalla casella combinata scegli o digita la descrizione
prodotto: vedrai che, quando la casella combinataa perde il fuoco, i valori
delle caselle di testo DescrizioneProdotto e PrezzoProdotto verranno
determinati automaticamente.
Spero che questo sia ciò che ti serviva: ho dovuto lavorare un po' di
fantasia per immaginare la natura del tuo problema.
La prossima volta ti consiglio di dirci cosa ti serve e non cosa vuoi fare:
quello che c'è da fare lo vedremo insieme.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: sono quasi ad un punto morto

author: vinan

text:
Ciao a tutti.
Sono un novizio di Access e dopo aver letto e riletto la guida,
provato e riprovato le nozioni, mi sono finalmente deciso a disturbare
qualche anima pia di questo forum. (ringrazio fin da subito chiunque
volesse aiutarmi)
La situazione in sintesi è questa:
-Ho la possibilità di disporre di dati di Borsa (aggiornati in Real
Time) tramite un software commerciale che si interfaccia ad Excel
tramite il DDE, ma che non memoriza tali dati ne ti permette di
eseguire semplici operazioni su di essi (mi servirebbe la possibilità
di analizzare in Real time lo storico del flusso dati dei book di
negoziazione)
-Ho collegato la tabella di Excel (10 titoli), realizzato una query di
selezione che vada ad alimentare una maschera (per adesso entrambi
solo per un titolo sui 10), una macro che attivi una query di
accodamento ad una tabella di storici (per ora sempre solo per un
titolo), attivata dall'evento "dopo aggiornamento".
Problema:
-mashere, tabelle e query si aggiornano (o almeso cosi sembra) in real
time solo se sono aperte in modalità dati; è possibile evitarlo?
-la maschera, al variare dei dati mi sembra che non inneschi la macro;
quale evento mi conviene scegliere?
-la macro sembra non attivare la Query di Accodamento; quali azioni mi
conviene seguire per lanciarla?
-la Query di Accodamento non fà il suo lavoro (La tabella Storico
titolo non mi viene aggiornata); perchè?
-come posso fare ad innescare il tutto al variare di uno qualsiasi dei
dati (es. solo Ordine, o solo Prezzo) senza dover scrivere una macro
per ogni campo della maschera?
Spero possiate aiutarmi.
Grazie.
P.S.: Nel qual caso qualcuno si trovasse nella stessa situazione (o
conoscesse qualcuno che vi si trova) lo pregerei, se gli aggrada di
contattarmi; Nel caso qualcuno fosse a conoscenza di risorse in Rete
atte a questo tipo di attività, farebbe cosa gradita se mi girasse i
link corrispondenti;
Grazie


title: sono quasi ad un punto morto

author: SunRex

text:
"vinan" <
vinc...@yahoo.com
> ha scritto nel messaggio
news:efce2eaf.04011...@posting.google.com...
[CUT]
Quando sei arrivato fai un fischio....
....e metti anche un subject significativo ;)
SunRex


title: sono quasi ad un punto morto

author: ALESSANDRO Baraldi

text:
"SunRex" <
sunrexs...@hotmail.it
> ha scritto nel messaggio
news:C1WNb.129080$_P.46...@news4.tin.it...

Intendevi dire quando sei morto del tutto fai un fischio.....!
Magari senza fare troppo rumore.......!!!!!!
;-)
@Alex.


title: sono quasi ad un punto morto

text:
"ALESSANDRO Baraldi" <
ik2...@libero.it
> ha scritto nel messaggio
news:bu9b6f$1jm$1...@lacerta.tiscalinet.it...

Function ISDead()
ISDead=True
If cnServer.State = adStateClose Then
    Beep
   ISDead=True
Else
    ISDead=False
end if
End Function
SunRex ;)


title: sono quasi ad un punto morto

text:
Il Fri, 16 Jan 2004 18:59:53 GMT, "SunRex" <
sunrexs...@hotmail.it
>
ha scritto:

function dontKillMePlease()
youDisposition=sympathetic
if youDisposition=sympathetic and youCharacter=available then
	msgbox"Please Help Me.."
	myDisposition=pleasant
else
	msgbox"you appear good shoot about Red Cross?....
Murderer!!!!!"
end if
End Function
Bye ;-)


title: Contenuto di Routine VBA su DB.

author: Daniele

text:
Un saluto a tutti i partecipanti al NG.
Mi scuso per la domanda che a degli esperti sembrerà banale, ma che mi
incuriosisce non poco.
E' possibile impostare una Sub es.
public sub faiqualchecosa
......
.....
....
end sub
e recuperare tutto il contenuto della Sub, sia i comandi che le variabili
(tutto il testo) in un database in cui ho precedentemente memorizzato il
contenuto della Sub ?
Grazie a chiunque mi risponderà.
Ciao a tutti.
Daniele


title: Contenuto di Routine VBA su DB.

author: Sergio MAZZA

text:
"Daniele" <
dan...@tonyperotti.it
> ha scritto nel messaggio news:PS6Mc.4333$B06....@news.edisontel.com...

Includi l'mdb nei riferimenti...
Ciao.
--
Sergio MAZZA


title: Contenuto di Routine VBA su DB.

text:
"Sergio MAZZA" <
sergi...@tiscali.it
> ha scritto nel messaggio
news:cdquko$mjr$1...@canarie.caspur.it...

Per semplicità di esposizione, supponiamo una casella di testo ed un
pulsante.
Nella casella di testo scrivo "MsgBox("buone ferie a tutti")", e nell'evento
su click del pulsante come faccio a recuperare ed eseguire la sub, dal testo
nella casella ?
Ciao - Daniele


title: Contenuto di Routine VBA su DB.

text:
"Daniele" <
dan...@tonyperotti.it
> ha scritto nel messaggio news:ni7Mc.4343$B06....@news.edisontel.com...
>
> Per semplicità di esposizione, supponiamo una casella di testo ed un
> pulsante.
> Nella casella di testo scrivo "MsgBox("buone ferie a tutti")", e nell'evento
> su click del pulsante come faccio a recuperare ed eseguire la sub, dal testo
> nella casella ?
>
> Ciao - Daniele
>
Avevo capito tutt'altra cosa; comunque vedi Funzione Eval nell'help in linea.
Es.
Eval Me!nomeCasellaDiTesto
Ciao.
--
Sergio MAZZA


title: Contenuto di Routine VBA su DB.

text:
"Sergio MAZZA" <
sergi...@tiscali.it
> ha scritto nel messaggio
news:cdqvt9$mur$1...@canarie.caspur.it...

Ti ringrazio e ti saluto cordialmente.
Daniele


title: Contenuto di Routine VBA su DB.

text:
"Sergio MAZZA" <
sergi...@tiscali.it
> ha scritto nel messaggio
news:cdqvt9$mur$1...@canarie.caspur.it...

Scusami se insisto ma vorrei approfondire.
Supponiamo che la mia casella di testo contenga questo testo :
Dim db As DAO.Database, rs As DAO.Recordset, sql As String, testo As String
set db = currentdb
sql ="'select * from miatabella"
set rs = db.openrecordset(sql)
rs.movefirst
testo = rs!miocampo
msgbox(testo)
set rs = nothing
set db = nothing
perchè la funzione Eval(Me!testo0) non mi riconosce le parole chiavi "Dim"
oppure "set" ecc. ?
Ciao - Daniele


title: Contenuto di Routine VBA su DB.

text:
"Daniele" <
dan...@tonyperotti.it
> ha scritto nel messaggio news:QN7Mc.4352$B06...@news.edisontel.com...
> Scusami se insisto ma vorrei approfondire.
> Supponiamo che la mia casella di testo contenga questo testo :
> Dim db As DAO.Database, rs As DAO.Recordset, sql As String, testo As String
> set db = currentdb
> sql ="'select * from miatabella"
> set rs = db.openrecordset(sql)
> rs.movefirst
> testo = rs!miocampo
> msgbox(testo)
> set rs = nothing
> set db = nothing
>
> perchè la funzione Eval(Me!testo0) non mi riconosce le parole chiavi "Dim"
> oppure "set" ecc. ?
>
> Ciao - Daniele
>
Direi che esageri un pochino; ma che devi fare?
Ciao.
--
Sergio MAZZA


title: Contenuto di Routine VBA su DB.

text:
"Sergio MAZZA" <
sergi...@tiscali.it
> ha scritto nel messaggio
news:cdr1qi$nks$1...@canarie.caspur.it...
> "Daniele" <
dan...@tonyperotti.it
> ha scritto nel messaggio
news:QN7Mc.4352$B06...@news.edisontel.com...
> > Scusami se insisto ma vorrei approfondire.
> > Supponiamo che la mia casella di testo contenga questo testo :
> > Dim db As DAO.Database, rs As DAO.Recordset, sql As String, testo As
String
> > set db = currentdb
> > sql ="'select * from miatabella"
> > set rs = db.openrecordset(sql)
> > rs.movefirst
> > testo = rs!miocampo
> > msgbox(testo)
> > set rs = nothing
> > set db = nothing
> >
> > perchč la funzione Eval(Me!testo0) non mi riconosce le parole chiavi
"Dim"
> > oppure "set" ecc. ?
> >
> > Ciao - Daniele
> >
>
>
> Direi che esageri un pochino; ma che devi fare?
>
Nessun progetto concreto, vorrei solamente sapere se in linea teorica č
possibile assegnare ad un evento su click di un pulsante una routine di
volta in volta diversa, scelta dall'utente, e precedentemente memorizzata in
un db di supporto.
Si tratta di pura e semplice teoria.
Ciao - Daniele


title: Contenuto di Routine VBA su DB.

text:
"Daniele" <
dan...@tonyperotti.it
> ha scritto nel messaggio news:058Mc.4358$B06...@news.edisontel.com...

Premetto che non l'ho mai utilizzata l'Eval; la vedo ora per la prima volta.
La cosa migliore da fare sarebbe indicare in Eval una funzione o Routine, non il codice contenuto...
Ciao.
--
Sergio MAZZA


title: Contenuto di Routine VBA su DB.

text:
"Sergio MAZZA" <
sergi...@tiscali.it
> ha scritto nel messaggio
news:cdr2oq$nrm$1...@canarie.caspur.it...
> "Daniele" <
dan...@tonyperotti.it
> ha scritto nel messaggio
news:058Mc.4358$B06...@news.edisontel.com...
> >
> > "Sergio MAZZA" <
sergi...@tiscali.it
> ha scritto nel messaggio
> > news:cdr1qi$nks$1...@canarie.caspur.it...
> > > "Daniele" <
dan...@tonyperotti.it
> ha scritto nel messaggio
> > news:QN7Mc.4352$B06...@news.edisontel.com...
>
> Premetto che non l'ho mai utilizzata l'Eval; la vedo ora per la prima
volta.
> La cosa migliore da fare sarebbe indicare in Eval una funzione o Routine,
non il codice contenuto...
>
> Ciao.
>
> --
Questo presuppone che la Routine sia già scritta in un Modulo ?
Se fosse così il risultato finale sarebbe utile ma molto meno versatile.
Ciao - Daniele


title: Contenuto di Routine VBA su DB.

text:
"Daniele" <
dan...@tonyperotti.it
> ha scritto nel messaggio news:Pd8Mc.4362$B06...@news.edisontel.com...
>
> Questo presuppone che la Routine sia già scritta in un Modulo ?
Sì;
> Se fosse così il risultato finale sarebbe utile ma molto meno versatile.
potresti studiare il modo di fare scrivere le istruzioni all'utente e poi tu le inserisci in un modulo via VBA.
> Ciao - Daniele
Ciao.
--
Sergio MAZZA


title: Contenuto di Routine VBA su DB.

text:
"Sergio MAZZA" <
sergi...@tiscali.it
> ha scritto nel messaggio
news:cdr466$obg$1...@canarie.caspur.it...

Per scrivere direttamente in un Modulo, trovo qualche informazione sull'help
di VBA ?
Ciao - Daniele


title: Contenuto di Routine VBA su DB.

author: Karl Donaubauer

text:
Daniele wrote:
>...
> Per scrivere direttamente in un Modulo, trovo qualche informazione
> sull'help di VBA ?
<F1>
CreateEventProc
DeleteLines
CountOfLines
CountOfDeclarationLines
Find
InsertLines
ReplaceLine
--
HTH
Karl
*********
Access FAQ:
www.donkarl.com/it


title: Contenuto di Routine VBA su DB.

text:
"Karl Donaubauer" <
NoS...@donkarl.com
> ha scritto nel messaggio
news:2mcm8tF...@uni-berlin.de...

Grazie e Ciao a tutti.
Daniele


title: Offro 70.000 per un modestissimo database

author: Nico Ferrigni

text:
Ciao a tutti
avevo intenzione di fare un piccolo database. Piccolo nel senso che sarà
composto da una sola tabella ma dovrà contenere molti dati e molte query.
Pensavo di farmelo da me ma avendo poco tempo a disposizione, pensavo se ci
fosse in zona ROMA (solo Roma) qualcuno molto esperto da poterlo fare. Sono
sicuro che chi conosce access potrebbe farlo in un'oretta. Offro 70.000.
Chi fosse interessato mi risponda via mail a:
Nic...@iol.it
p.s. cerco qualcuno veramente MOLTO bravo e non uno smanettone come me
Ciao a tutti


author: Enrico T.S.

text:
----- cut -------
> sicuro che chi conosce access potrebbe farlo in un'oretta. Offro 70.000.
> Chi fosse interessato mi risponda via mail a:
>
Nic...@iol.it
>
> p.s. cerco qualcuno veramente MOLTO bravo e non uno smanettone come me
> Ciao a tutti
>
>
Per 70 sacchi nemmeno approfondirei l'argomento.
bye :o)


author: Govardo Libero

text:
"Enrico T.S." <WlaRom...@Hotmail.com> ha scritto nel messaggio
news:9uok80$t23$1...@nreadb.inwind.it...

Te lo potrei fare per 35.000 euro.
Se ti va bene ti invio le coordinate bancarie per il bonifico.
--
                     Angelo
------------------------------------------------------
Sito comune di it.comp.appl.access
http://www.sitocomune.com
------------------------------------------------------


author: Luciano (DOC)

text:
Govardo Libero ha scritto nel messaggio ...
>Te lo potrei fare per 35.000 euro.
Non cominciamo a svendere la professione, per favore! Se lui ha detto
70.000, 35.000 e' un ribasso eccessivo.
Non credo che si possa fare per meno di 60/63.000.
+ IVA, ovviamente.
Saluti.
Luciano


text:
Scusami Luciano, ma non ho tanto lavoro e non volevo perdermi l'appalto.
La prossima volta ci mettiamo d'accordo prima.
Ciao.
--
                     Angelo
------------------------------------------------------
Sito comune di it.comp.appl.access
http://www.sitocomune.com
------------------------------------------------------
"Luciano (DOC)" <
lucia...@sitocomune.com
> ha scritto nel messaggio
news:9uolf6$9ks4i$1...@ID-86073.news.dfncis.de...



text: Scusate il quoting tanti soldi mi danno alla testa.


author: The-real-Isaac

text:
"Nico Ferrigni" <
Nic...@iol.it
> ha scritto nel messaggio
news:9uoduv$q3r$1...@nreadb.inwind.it...

Ho riletto 4 volte il tuo post....
.... ma, stai scherzando, vero?
--
Alberto


text:
Non scherzo. Offro 70.000 perchè, credetemi, si tratta di una sola tabella
(che posso fare pure io) con semplicissime query. Poi ho scritto su questo
newsgroup. perchè pensavo fosse un newsgroup molto serio, di gente preparata
e matura. Invece, purtroppo, ho constatato il contrario. Allora, dato che
70000 sono per una semplice tabella, c'è qualche romano disposto ad aiutarmi
per pura empatia?
Ciao ragazzi e scusate non volevo offendere, chiedevo solo aiuto in un
newsgroup competente?
Ciao
The-real-Isaac <sartori.rossi.nospam@tin> wrote in message
Q9RP7.5968$ob5.1...@news2.tin.it...



author: SuperDavid

text:
"Nico Ferrigni" <
Nic...@iol.it
> ha scritto nel messaggio
news:9uorng$dt$1...@nreada.inwind.it...

Permettimi l'intromissione,
ma per creare un db con una sola tabella, e qualche query un ora vola, non
tanto per creazione fisica, ma perchè di sicuro c'e' anche bisogni di
pensarci, per cui almeno 3/4 ore ti ci servono.
Altra domanda, se hai già afferamto di potertela fare da solo.........
Ciao
--
*SuperDavid*


author: stwe

text:
apparte che scrivo sopra, ma secondo voi con 65.000LIRE italiane riesco a
trovare qualcuno in grado di darmi un buon db "conpilato"?
che poi se riuscite a conpilarlo con adeguato compilatore il compenso
potrebbe anche salire....
by
stwe
che ha besstemmm pechè a cambiato scheda video
"Govardo Libero" <
gov...@libero.it
> ha scritto nel messaggio
news:T3RP7.253213$sq5.12...@news.infostrada.it...



text:
"Nico Ferrigni" <
Nic...@iol.it
> ha scritto nel messaggio
news:9uoduv$q3r$1...@nreadb.inwind.it...

Per 70.000 neanche ti sto' a sentire. O è uno scherzo o sottovaluti il
lavoro dell'Analista/Programmatore...
Ciao.
--
- - - - - - - - - - - - - - -
Sergio MAZZA
- - - - - - - - - - - - - - -


text:
"Nico Ferrigni" <
Nic...@iol.it
> ha scritto nel messaggio
news:9uorng$dt$1...@nreada.inwind.it...
> Non scherzo. Offro 70.000 perchč, credetemi, si tratta di una sola tabella
> (che posso fare pure io) con semplicissime query. Poi ho scritto su questo
> newsgroup. perchč pensavo fosse un newsgroup molto serio, di gente
preparata
> e matura. Invece, purtroppo, ho constatato il contrario. Allora, dato che
> 70000 sono per una semplice tabella, c'č qualche romano disposto ad
aiutarmi
> per pura empatia?
> Ciao ragazzi e scusate non volevo offendere, chiedevo solo aiuto in un
> newsgroup competente?
> Ciao
Ti assicuro che nessuno stava scherzando e se ti reputi capace (o pensi che
sia semplice) perché non risparmi le 70.000 e te lo fai da solo?
Pensa che se invece di esordire con quella ridicola proposta, avessi scritto
per chiedere informazioni su come farlo (il db), trovavi almeno 10 risposte
e a quest'ora l'avevi bello e pronto!



author: Antonio Biso

text:
Nico Ferrigni <
Nic...@iol.it
> wrote in message
9uoduv$q3r$1...@nreadb.inwind.it...

Mortacci oh!
70000 sono sempre 70000 e c'avete sputato tutti!!!
Ma è un NG de Rocchefelle, eh!!!
Antonio


text:
"Antonio Biso" <
ch...@etruria.net
> ha scritto nel messaggio
news:QA%P7.255361$sq5.12...@news.infostrada.it...
>
> Mortacci oh!
>
> 70000 sono sempre 70000 e c'avete sputato tutti!!!
> Ma è un NG de Rocchefelle, eh!!!
>
> Antonio
>
AH! AH! AH! AH! AH! AH! AH! AH! AH! AH! AH! AH! AH! AH!



text:
"Nico Ferrigni" <
Nic...@iol.it
> ha scritto nel messaggio
news:9uorng$dt$1...@nreada.inwind.it...
> newsgroup. perchè pensavo fosse un newsgroup molto serio, di gente
preparata
> e matura. Invece, purtroppo, ho constatato il contrario.
> Ciao ragazzi e scusate non volevo offendere, chiedevo solo aiuto in un
> newsgroup competente?
Non volevi offendere? E quello che hai appena scritto cos'e', un
complimento?:-))
Saluti.
Luciano


text:
"stwe" <
st...@stwe.org
> ha scritto nel messaggio
news:%BTP7.254388$sq5.12...@news.infostrada.it...
> trovare qualcuno in grado di darmi un buon db "conpilato"?
Con Ponzio, vuoi dire?:-)
> che poi se riuscite a conpilarlo
Aridaje.....:-))
Saluti.
Luciano


text:
"Nico Ferrigni" <
Nic...@iol.it
> ha scritto nel messaggio
news:9uorng$dt$1...@nreada.inwind.it...

Visto che Biso è stato buono (non avrà voluto infierire ulteriormente) te lo
dico io:
   i l    q u o t i n g   ! ! !
Io non ti posso aiutare perché:
a) sono di Verona e non di Roma
2) non mi considero "molto esperto" e quindi non vorrei appropriarmi
disonestamente della "cospicua".
Comunque ha ragione Sergio: se chiedevi aiuto & consigli a quest'ora -
grazie anche alla tua dichiarata capacità - avresti già risolto aggratis il
problema.
Ciao
--
Alberto


text:
"Nico Ferrigni" <
Nic...@iol.it
> ha scritto nel messaggio
news:9uorng$dt$1...@nreada.inwind.it...
> Non scherzo. Offro 70.000 perchè, credetemi, si tratta di una sola tabella
> (che posso fare pure io) con semplicissime query. Poi ho scritto su questo
> newsgroup. perchè pensavo fosse un newsgroup molto serio, di gente
preparata
> e matura. Invece, purtroppo, ho constatato il contrario. Allora, dato che
> 70000 sono per una semplice tabella, c'è qualche romano disposto ad
aiutarmi
> per pura empatia?
Bastava chiedere e ti sarebbero stati risolti tutti o quasi i tuoi problemi
senza pagare, non è un NG a pagamento.
Io per esempio ti avrei potuto fornire una buona autocomposizione
autoempatica, e una copia cracktata del compilatore per access97, come
saprai se frequenti in NG quella per access2000 non esiste.
Solo che non essendo romano non se ne fa niente :-(



text:
Allora che devo dire che ho sbagliato? Allora è la prima volta che entro in
questo newsgroup. Ho solo provato a offrire puree un compenso (pur se
minimo). Non pensavo che se avessi chiesto aiuto l'avrei avuto senza
problemi.
Allora ci provo:
c'è qualcuno che mi aiuta  a creare un database gratis?
Pur se non di Roma?
Ragazzi a questo punto, dato che ho scatenato un "casino", e ho offeso molta
gente, non posso che chiedervi scusa. Ho malignato e mi auguro di avere un
aiuto.
Ciao ciao
Govardo Libero <
gov...@libero.it
> wrote in message
MlbQ7.259960$sq5.12...@news.infostrada.it...



text:
Nico Ferrigni <
Nic...@iol.it
> wrote in message
9urhq3$ooq$1...@nreada.inwind.it...
> Allora che devo dire che ho sbagliato? Allora è la prima volta che entro
in
> questo newsgroup. Ho solo provato a offrire puree un compenso (pur se
> minimo). Non pensavo che se avessi chiesto aiuto l'avrei avuto senza
> problemi.
> Allora ci provo:
> c'è qualcuno che mi aiuta  a creare un database gratis?
> Pur se non di Roma?
> Ragazzi a questo punto, dato che ho scatenato un "casino", e ho offeso
molta
> gente, non posso che chiedervi scusa. Ho malignato e mi auguro di avere un
> aiuto.
Aspè.
Prima di tutto devi scrivere DOPO il quoting.
Secondo, un conto è darti qualche dritta per qualche problema particolare, e
un conto è realizzare un intero database con tutte le sue funzionalità...
Oh, il pupo piagne perchè c'ha fame!!!!
Antonio


text:
Non sto a piagne. Grazie lo stesso antonio
Antonio Biso <
ch...@etruria.net
> wrote in message
yglQ7.261858$sq5.12...@news.infostrada.it...



text:
Nico Ferrigni <
Nic...@iol.it
> wrote in message
9usv15$2qb$1...@nreada.inwind.it...
> Non sto a piagne. Grazie lo stesso antonio
Guarda che il pupo non eri tu!!!
Era per dirti che realizzare un database tutto intero (e non darti  la
semplice dritta) è il nostro lavoro, con cui facciamo campare noi e la
famiglia!!!
E poi non mi hai scritto DOPO il quoting!!!
Antonio


text:
Ok allora come non detto.
Ciao e grazie
Antonio Biso <
ch...@etruria.net
> wrote in message
anwQ7.266265$sq5.13...@news.infostrada.it...



author: Sib dal portatile

text:
"Nico Ferrigni" <
Nic...@iol.it
> ha scritto nel messaggio
> Ok allora come non detto.
> Ciao e grazie
> Antonio Biso <
ch...@etruria.net
> wrote in message
> anwQ7.266265$sq5.13...@news.infostrada.it...
> > Nico Ferrigni <
Nic...@iol.it
> wrote in message
> > 9usv15$2qb$1...@nreada.inwind.it...
> > > Non sto a piagne. Grazie lo stesso antonio
> >
> > Guarda che il pupo non eri tu!!!
CUT
E' inutile Anto', e' un osso duro!
Dopo il quoting non ci scrive mica!
Sib
--
----------------------------------------------------
la mia home:
http://digilander.iol.it/syb
----------------------------------------------------
il sito comune di it.comp.database.access:
http://www.sitocomune.com
----------------------------------------------------
4000 anni fa', il saggio egizio Ptahhotep scrisse:
"... perche' non esistono saggi per nascita."
------------------------------------------------------
Saturiamo ECHELON:
bomba saddam attentato medio oriente


text:
"Nico Ferrigni" <
Nic...@iol.it
> ha scritto nel messaggio
news:9uoduv$q3r$1...@nreadb.inwind.it...
Mi disctraggo un attimo e mi sfugge un messaggio cosi', ormai tutto quello
che doveva essere detto e' stato detto. Acc...
> Ciao a tutti
> avevo intenzione di fare un piccolo database. Piccolo nel senso che sarà
> composto da una sola tabella ma dovrà contenere molti dati e molte query.
Forse non ti sei reso conto che gia' la tua descrizione fa capire che c'e'
molto lavoro di analisi da fare perche' non te ne fai niente di "una tabella
e molte query".
> Pensavo di farmelo da me ma avendo poco tempo a disposizione, pensavo se
ci
> fosse in zona ROMA (solo Roma) qualcuno molto esperto da poterlo fare.
Sono
> sicuro che chi conosce access potrebbe farlo in un'oretta. Offro 70.000.
Se chiami un idraulico per una riparazione di 15 minuti ne vuole almeno il
doppio (se in orario di servizio ordinario)
> p.s. cerco qualcuno veramente MOLTO bravo e non uno smanettone come me
> Ciao a tutti
Pure molto esperto lo cercavi?
Consentimi di ribaltarti la frittata cosi' da farti capire cosa stai
dicendo:
Che lavoro fai? cosi' ti faccio un esempio di cosa hanno inteso farti capire
gli altri.



text:
"Luciano (DOC)" <
lucia...@sitocomune.com
> ha scritto nel messaggio
news:9uqan7$a99v1$1...@ID-86073.news.dfncis.de...

AH! AH! AH! AH! AH! AH! AH! AH! AH! AH! AH! AH! AH! AH! AH!



author: Emyr

text:
On Thu, 6 Dec 2001 19:40:52 +0100, "Nico Ferrigni" <
Nic...@iol.it
>
wrote:
>Ciao a tutti
>avevo intenzione di fare un piccolo database. Piccolo nel senso che sarà
>composto da una sola tabella ma dovrà contenere molti dati e molte query.
>Pensavo di farmelo da me ma avendo poco tempo a disposizione, pensavo se ci
>fosse in zona ROMA (solo Roma) qualcuno molto esperto da poterlo fare. Sono
>sicuro che chi conosce access potrebbe farlo in un'oretta. Offro 70.000.
>Chi fosse interessato mi risponda via mail a:
>
Nic...@iol.it
>
>p.s. cerco qualcuno veramente MOLTO bravo e non uno smanettone come me
>Ciao a tutti
>
Mi son letto questo thread solo ora ed è il più divertente finora!
forse per 70.000 Lire all'ora gli conveniva assumere uno smanettone
che considerato quello che ha chiesto probabilmente era più che
sufficiente.
Emanuele
Complimenti a tutti.
P.S. la mia tariffa oraria comunque è molto più bassa ma spenderesti
un capitale di trasferta!


author: @vene.dave.it PiroPiro

text:
On Thu, 6 Dec 2001 19:40:52 +0100, "Nico Ferrigni" <
Nic...@iol.it
> wrote:
> > Sono sicuro che chi conosce access potrebbe farlo in un'oretta.
> > Offro 70.000.
Emyr <
fan...@lavoro.com
> wrote in message
dm8q1ukigvonhsk2j...@4ax.com...
> Mi son letto questo thread solo ora ed è il più divertente finora!
> forse per 70.000 Lire all'ora gli conveniva assumere uno smanettone
> che considerato quello che ha chiesto probabilmente era più che
> sufficiente.
Mi viene un sospetto: Nico nel suo messaggio dice che offre 70.000 senza
specificare cosa: mica che per caso già è pasato all'Euro? In tal caso mi
offro spontaneamente io, anche se non mi ricordo più dove sia (Roma?), posso
accettare anche di accollarmi io le spese di trasferta. In fondo 70 mila
Euro mi farebberi abbastanza comodo, per di più per un lavoretto che si può
fare in un oretta... O sbaglio qualcosa? :-)))
Ciao,
PiroPiro


text:
On Sun, 9 Dec 2001 23:20:32 +0100, "Nico Ferrigni" <
Nic...@iol.it
>
wrote:
>Ok allora come non detto.
>Ciao e grazie
se mi spieghi cosa ti serve vedo di aiutarti dopo averne valutato
l'impatto...
rigorosamente via newsgroup


title: Tabelle collegate A97

author: Nicoletta

text:
Oggi è giorno di problemi....
Pur avendo tentato di ricollegare le tabelle seguendo tutti i metodi
descritti sul sitocomune, mi ritrovo ad avere questo problema con tabelle
collegate via ODBC (Oracle e Centura).
Nel mio mdb ci sono tabelle collegate ad un db di una applicazione
gestionale che può averfe come motore Oracle o Centura.
Quando consegno il mio mdb (sviluppato su un PC ove è presente Centura), in
presenza di Oracle tutto OK, ma l'utente ha sostituito la password di
default, tutto va in crash.
Mi spiego meglio.
Anche sul mio PC se cambio la password al database e rilancio Access e il
mio mdb, ottengo il messaggio di connessione odbc non riuscita.
Debuggando mi sono accorta che è proprio il refresh link a non funzionare
correttamente.
Credo che al primo tentativo di collegamento tabelle, qualcosa si "intruppi"
in access e da quel momento non è più nemmeno possibile ricollegare a mano
le tabelle o creare un nuovo collegamento. Bisogna chiudere Access,
rilanciarlo e collegare manualmente subito le tabelle senza fare altri
tentativi.
Non so per quale motivo ciò accada, ma per risolvere il problema vorrei
utilizzare un metodo più drastico ed ho bisogno del Vs. aiuto.
Vorrei lanciare il mio mdb con un parametro particolare e in questo caso
cancellare i collegamenti alle tabelle e ricrearli da zero (non
rinfrescarli).
Potete aiutarmi indicandomi la strada?
Ciao
Nicoletta


title: esportare varie tabelle di access in uno stesso file di excel (su diverse cartelle)

author: andrea

text:
Sto cercando il modo di esportare (tramite VBA) in automatico varie tabelle
in excel.
Con TransferSpreadsheet mi risulta che si possa specificare solo il nome
file (e non il nome del foglio di lavoro, che viene automaticamente
assegnato uguale al nome della tabella di access).
Se n è il numero di tabelle da esportare, quindi riesco solamente a creare n
files (composti da un solo foglio di lavoro).
Vorrei invece creare 1 solo file con n fogli all'interno (con nomi diversi
assegnati da dialogbox in access).
Qualcuno ha già risolto il problema?
Ciao e grazie a tutti.


title: verifica esistenza file e non path

author: casper

text:
Ciao, sto realizzando un archivio immagini, e ringrazio quanti hanno
messo a disposizione la loro esperienza nei post e sul Sitocomune,
Ho un problema con un caso particolare di controllo esistenza file.
Spero mi possiate dare qualche dritta. Ho letto i precedenti post, ma
non sono riuscito a venirne a capo.
In un campo (nome campo: miopath) può essere digitato un percorso (es
C:\prova\imamgini\aaa.jpg) da utilizzare come origine per un controllo
immagine della maschera o report.
Se però viene digitato solo un path esistente (C:\prova\imamgini\)
senza nome file, la funzione Dir mi restituisce comunque un nome (il
primo file della directory).
Riesco ad intercettare l'errore quando cerco di impostare l'origine
Picture (vedi codice seguente), ma avrei necessità di verificare con
una query quali sono i record con valori non validi.
Quindi i quesiti sono:
1) come posso fare, in una query, a identificare i campi Path con
valori non validi?
2) Come faccio a verificare che venga sempre digitato il nome di un
file e non solo il path (per quanto corretto possa essere) ?
3) come posso accorgermi che il valore inserito è relativo ad un path
senza nome file?
Spero che il quesito possa essere di utilità più generale.
Grazie per l'aiuto.
Casper
Private Sub Form_Current()
On Error GoTo Err_Form_Current
Dim FileExist As Boolean
FileExist = CBool(Len(Dir(Me!path.Value)) <> 0)
If FileExist Then
   	Me![Immagine14].Picture = Me![miopath].Value
End If
Exit_Form_Current:
    Exit Sub
Err_Form_Current:
    Msg = "Attenzione, Percorso errato o incompleto"
    MsgBox Msg  'Err.Description
    Resume Exit_Form_Current
End Sub


title: verifica esistenza file e non path

text:
"casper" <
rossepa...@libero.it
> ha scritto nel messaggio
news:70c154bc.05020...@posting.google.com...

Verifica la presenza del punto (della estensione del file) nella stringa:
Es.
If Instr(Me!path,".") > 0 then
    '--> il nome del file c'è
else
    '--> nisba!
end if
Io comunque separerei il path dal nome del file, anche per evitarmi la
possibilità di arrivare al limite dei 255 caratteri...
Ciao.
--
Sergio MAZZA


title: verifica esistenza file e non path

author: Fabio Gulotta

text:
Casper....
volevo chiederti a proposito,
 poichè stavo lavorando su progetto per archiviare dei documenti,
se usi un ocx (e se si quale) per importare immagini da scanner ,
o se utilizzi solo immagini già presenti sul computer.


title: verifica esistenza file e non path

author: MA

text:
"Fabio Gulotta" <
fgul...@tiscali.it
> ha scritto nel messaggio
news:4200fb43$0$32335$5fc...@news.tiscali.it...

Sul sitocomune c'è un'applicazione di Roberto
e usa ocx Kodak
MAssimiliano


title: verifica esistenza file e non path

text:

Grazie Sergio per la dritta. Speravo ci fosse qualche funzione a me
sconosciuta che potesse svolgere direttamente il controllo, ma anche
così va bene lo stesso, grazie!

Ciao, purtoppo no, non ho ancora implementato nulla di scanner, uso
jpg scaricati su pc da macchina digitale. La risposta che ti ha dato
MAssimiliano è quella che ti avrei dato io. Buon lavoro :-)
Casper


title: verifica esistenza file e non path

author: Sergio MAZZA

text:
"casper" <
rossepa...@libero.it
> ha scritto nel messaggio
news:70c154bc.05020...@posting.google.com...
>
> Grazie Sergio per la dritta. Speravo ci fosse qualche funzione a me
> sconosciuta che potesse svolgere direttamente il controllo, ma anche
> così va bene lo stesso, grazie!
> Casper
Non esiste, e non esisterà mai "...una funzione sconosciuta.." che ci
risolva i problemi; esistono invece delle tecniche che ti permettono di
ottenere dei risultati.
Oltre al suggerimento che è moolto semplice e veloce ma anche limitato,
esistono funzioni in VBScript che puoi richiamare ed utilizzare:
es.
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
MsgBox "il nome del file è: " & fso.GetFileName("C:\pippo.txt")
Set fso = nothing
Ma anche questo pezzo di codice ha i suoi limiti, perché leggendo l'help del
metodo GetFileName:
oggetto.GetFileName(specPercorso)
Il metodo GetFileName restituisce una stringa di lunghezza zero ("") se
specPercorso non finisce con il componente specificato.
Nota   Il metodo GetFileName funziona solo per la stringa del percorso
specificata. Non verrà eseguito alcun tentativo di risolvere il percorso né
di verificare l'esistenza del percorso specificato.
Quindi avrai sì il nome del file ma non saprai se effettivamente esiste...
Ciao.
--
Sergio MAZZA


title: verifica esistenza file e non path

text:
casper wrote:

Ciao, ti propongo 2 metodi per controllare l'esistenza di un File, una
Subroutine e una Function.
1° Metodo:
'*********************************************
'Controlla se un File esiste o no, restituisce
'True se esiste False se non esiste.
'NomeFile = percorso completo del File
'*********************************************
Function EsisteFile(NomeFile As String) As Boolean
On Local Error GoTo GestoreErrori
'Controlla l'esistenza del file specificato.
If NomeFile <> "" Then
    EsisteFile = IIf(Dir(NomeFile, vbNormal Or vbHidden Or vbReadOnly Or
vbSystem) <> "", True, False)
Else
    EsisteFile = False
End If
Exit Function
GestoreErrori:
'Sì è verificato un errore: il file non esiste.
EsisteFile = False
End Function
Testato su: Tutti i Sistemi operativi
2° Metodo:
'*********************************************
'Controlla se un File esiste o no
'file = file da controllare
'exist = restituisce -1 se trova il file, 0 se non lo trova
'*********************************************
Public Sub EsistFile2(file As String, exist As Integer)
Dim nfile As Integer
nfile = FreeFile
exist = 0
Open file For Append As #nfile
exist = (LOF(nfile) > 1)
Close #nfile
If exist = 0 Then Kill file
End Sub
Sono metodi usati all'interno di alcuni miei applicativi, andranno
probabilmente rivisti e "riadattati" al tuo codice.
Per ogni problematica, da lunedì sarò nuovamente presente durante l'orario
ufficio!!! Saluti,
--
strano...mavero (da casa)


title: Calcolare le lettere in un campo

author: Vulcanbrain

text:
Ciao ragazzi, sto tentando mio malgrado di costruire una routine che mi
indichi, ad ogni inserimento di carattere in un campo, quanti sono i
caratteri presenti nel campo.
sapete indirizzarmi?


title: Calcolare le lettere in un campo

author: Alessandro Baraldi

text:
"Vulcanbrain" <
vulcanbra...@libero.it
> wrote in message
news:3IsXa.225008$
lK4.6...@twister1.libero.it

Vuoi ottenere la limitazione del numero di caratteri in una TextBox..??
@Alex.
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: Personalizzazione Barra strumenti

text:
Secondo voi č possibile inserire nella barra degli strumenti una casella
di testo in cui poter scrivere qualcosa ed eseguire poi una mia fuzione
che elabori il testo inserito.
Per essere piů chiaro, ho uno schedario clienti in access vorrei poter
inserire nella barra degli strumenti una casella di testo in cui digiatare
il codice cliente ed aprire quindi la relativa scheda.
Ho frugato un pň in strumenti/personalizza ma non ho trovato soluzione...
Qualche idea??
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: Personalizzazione Barra strumenti

author: Gabriele Bertolucci

text:
> Secondo voi è possibile inserire nella barra degli strumenti una casella
> di testo in cui poter scrivere qualcosa ed eseguire poi una mia fuzione
> che elabori il testo inserito.
No, le CommandBar possono contenere solamente CommandButton.
--
PBsoft di Gabriele Bertolucci
www.pbsoft.it
skype:pbsoftsolution


title: Personalizzazione Barra strumenti

author: Pablitomf

text:
"giuseppe76" <
dfs...@ssadd.it
> ha scritto nel messaggio
news:fk5vee$d9l$1...@news.newsland.it...
> Secondo voi č possibile inserire nella barra degli strumenti una casella
> di testo in cui poter scrivere qualcosa ed eseguire poi una mia fuzione
> che elabori il testo inserito.
>
> Per essere piů chiaro, ho uno schedario clienti in access vorrei poter
> inserire nella barra degli strumenti una casella di testo in cui digiatare
> il codice cliente ed aprire quindi la relativa scheda.
> Ho frugato un pň in strumenti/personalizza ma non ho trovato soluzione...
> Qualche idea??
>
E per questo vuoi usare una Barra?... un campo Text non ti basta?
Pablitomf (Maurizio Facciuti)


title: Personalizzazione Barra strumenti

text:
Gabriele Bertolucci ha scritto:
> > Secondo voi è possibile inserire nella barra degli strumenti una casella
> > di testo in cui poter scrivere qualcosa ed eseguire poi una mia fuzione
> > che elabori il testo inserito.
> No, le CommandBar possono contenere solamente CommandButton.
peccato... vedendo le caselle di testo per la sezione dei font o simili
speravo si potesse fare...



title: Personalizzazione Barra strumenti

author: IgnazioC

text:
giuseppe76 ci ha detto :
> Secondo voi è possibile inserire nella barra degli strumenti una casella
> di testo in cui poter scrivere qualcosa ed eseguire poi una mia fuzione
> che elabori il testo inserito.
>
> Per essere più chiaro, ho uno schedario clienti in access vorrei poter
> inserire nella barra degli strumenti una casella di testo in cui digiatare
> il codice cliente ed aprire quindi la relativa scheda.
> Ho frugato un pò in strumenti/personalizza ma non ho trovato soluzione...
> Qualche idea??
l'idea è carina, una possibile soluzione potrebbe essere quella di
creare una form contenente un'unica casella di testo e un commandbutton
predefinito per reagire al tasto invio.
potresti fare aprire questa form tramite un pulsante nella commandbar.
a mio avviso otterresti un risultato simpatico con pochissimo codice.
--
ignazioc


title: Recordset e stringa sql

author: Pino

text:
Ho abbandonato i campi associati per via delle troppe limitazioni e mi
sono buttato sui recordset.
Adesso vorrei gestire l'inserimento di dati nel db con le istruzioni
sql ma purtroppo sono alle prime armi e ho problemi.
Nell'evento Before Update non solo non m'inserisce una cippa ma non
appare neanche la finestra di dialogo che richiede il salvataggio
(questa invece non mi ha mai dato problemi).
Secondo voi cosa c'è di sbagliato? Cosa dovrei cambiare?
Private Sub Form_BeforeUpdate(Cancel As Integer)
Dim strTtl As String
Dim strMsg As String
Dim strDataNuc
Dim strOdg
Dim retValue As Integer
    strTtl = "Richiesta di salvataggio"
    strMsg = "" & vbCrLf & _
            "Vuoi salvare i dati inseriti?"
If Me.Dirty Then
 retValue = MsgBox(strMsg, vbQuestion + vbYesNoCancel, strTtl)
   Select Case retValue
        Case vbYes
            strDataNuc = Me.data_odg.Value
            Dim strOdg = Me.data_odg.Value
            myquery = "Insert into tab_odg (data, odg) Values
(strDataNuc,strOdg)"
            Dim cnn As New ADODB.Connection
            Dim rst As New ADODB.Recordset
            Set rst = New ADODB.Recordset
            Set cnn = CurrentProject.Connection
            rst.Open myquery, cnn, adOpenDynamic, adLockPessimistic
            Me.data_odg = ""
            Me.odg_input = ""
     Case vbNo
          Me.data_odg = ""
          Me.odg_input = ""
     Case vbCancel
          Cancel = True
        End Select
   End If
 End Sub


title: Recordset e stringa sql

author: Alessandro Cara

text:
Pino wrote:
> Ho abbandonato i campi associati per via delle troppe limitazioni e mi
> sono buttato sui recordset.
cioe'
> Adesso vorrei gestire l'inserimento di dati nel db con le istruzioni
> sql ma purtroppo sono alle prime armi e ho problemi.
appunto
> Nell'evento Before Update non solo non m'inserisce una cippa ma non
> appare neanche la finestra di dialogo che richiede il salvataggio
> (questa invece non mi ha mai dato problemi).
> Secondo voi cosa c'è di sbagliato? Cosa dovrei cambiare?
usare i controlli associati? Comunque non mi risulta che le "cippe"
possano essere inserite
>
[cut]
Ho tagliato la routine. Lascia stare. La logica che usi non mi pare
molto corretta.
Quando scatta il dirty? ma poi scatta? E se non scattasse come pretendi
di avere il messaggio di richiesta di salvataggio?
--
ac
y-1=x


title: [6/8 OT] Disabilitare FN Key su notebook

author: RobertoA

text:
Allora, il problema e' un po' particolare, ma sempre relativo a
problematiche su procedure Access
Su un notebook ho installato delle procedure per l'acquisizione delle
vendite
L'operatore, per comodita' vuole usare un teastierino esterno
Ho preso un paio di questi
http://www.kraun.it/pages/products/datasheet.shtml?product_code=KR.TV&language=it
La tastiera, molto carina e comoda (e' sottile e ben stabile) ha pero' una
funzione malefica che si attiva con la pressione del tasto in basso a
sinistra
Lo stramalefico FN Key
In pratica il programma legge i tasi premuti a colpi di keycode (cosi
interpreto sempre un 4 anche se e' disattivato il num-lock) ma il problema
sorge quando l'operatore sfiora il tasto FN sulla tastierina
Il cursore del programma piazza il focus sul menu ed i successivi tasti
premuti, rilevati come evento keydown/keyup sulla form, non vengono piu'
rilevati
Una soluzione potrebbe essere prendere un'altra tastierina che non abbia il
malefico tasto, ma sia per il fatto che ne ho prese due, sia perche'
un'altra tastierina potrebbe avere altre funzioni malefiche, preferirei
trovare una soluzione con questa
Una soluzione potrebe essere, aprire la tastiera e tagliare i contatti del
melefico tasto FN
Altra soluzione e' prendere un martello oppure dargli una martellata sopra
che tanto se lo merita
Pero' vorrei risolvere in modo meno rozzo
La domanda e':
- come fare a disabilitare l'attivazione di questa funzione?
Che non sembra 'passare' tra gli eventi del programma, sembra un qualcosa a
piu' alto livello
Insomma vorrei 'sentire' da programma solo i tasti 1.2...9, -,+,/,* ed Enter
Tutte gli altri carateri/funzioni sulla tastierina non mi interessano
Qualcuno di voi ha gia' usato questa tastierina?
Ciao e grazie
RobertoA


author: Roberto da Parma

text:
"RobertoA" <
amor...@tiscalinet.it
> ha scritto nel messaggio
news:4b4d7d91$1...@newsgate.x-privat.org...

Usa l'evento SuPressione e gestisci le pressioni con questo evento...I
riferimenti del codice ASCII li trovi su google.
Ciao
--
Roberto da Parma


text:

Non si vede l'evento 'passare'
Sembra un qualcosa che viaggia 'sopra' l'ambiente operativo di Access, viene
visto da Windows che reagisce infatti
Ciao e grazie
RobertoA


text:
"RobertoA" <
amor...@tiscalinet.it
> ha scritto nel messaggio
news:4b514e19$1...@newsgate.x-privat.org...
>> Usa l'evento SuPressione e gestisci le pressioni con questo evento...I
>> riferimenti del codice ASCII li trovi su google.
>
> Non si vede l'evento 'passare'
> Sembra un qualcosa che viaggia 'sopra' l'ambiente operativo di Access,
> viene visto da Windows che reagisce infatti
> Ciao e grazie
> RobertoA
>
Devi settare "Anteprima Tasti" a s�


title: hash table, possibile?

author: acMad

text:
sto invano cercando nell'help di access vba...
e su google...
e' possibile creare hash table in vba?
o meglio conosciuti come array associativi?
roba del tipo:
Dim ar() as String
ar("indice1") = "pippo"
ar("indice2") = "pluto"
ecc.. ??
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: hash table, possibile?

text:
acMad ha scritto:
> sto invano cercando nell'help di access vba...
> e su google...
>
> e' possibile creare hash table in vba?
> o meglio conosciuti come array associativi?
>
> roba del tipo:
>
> Dim ar() as String
>
> ar("indice1") = "pippo"
> ar("indice2") = "pluto"
>
> ecc.. ??
L'unico oggetto nativo e diretto è il Recordset.
Puoi accedervi sia con DAO che con ADO, il Metodo Move permette di
spostare
il Bookmark all'indice che serve...!
A questo punto il tuo esempio è da comprendere, sai bene che un
Recordset nella tua
visione dell'array sarebbe meglio vederlo come Array Bidimensionale,
quindi
ar(x,y) dove x=Indice ri riga e Y indice di colonna.
L'indice di colonna è quello da passare alla Collection Fields, membro
dell'oggetto Recordset.
Quindi :
Dim rs as DAO.Recordset
Set rs=CurrentDb.OpenRecordset("SELECT * FROM T1")
rs.Move 100
Msgbox rs.fields(2)
ti mostrerà il campo ad indice 2 del 100° Record(se esiste)
Saluti
@Alex


title: hash table, possibile?

text:
Alessandro Baraldi ha scritto:
> acMad ha scritto:




> Quindi :


ehmmm Alessandro ti ringrazio ma io intendo proprio
creare una struttura dati come l'array ma con gli indici non numerici..
in modo che posso accedere ai dati contenuti nell'array non tramite
array(0) ma tramite array("pippo") ...
i dati vengono si da una query ma ho bisogno (per evitare altre mille
operazioni) di formare un array di quel tipo..
in molti linguaggi si puo' ... (java,php per citare quelli che conosco
bene)
in vba si puote?
o forse ho frainteso il tuo suggerimento... :S



title: hash table, possibile?

text:
acMad ha scritto:
[CUT]
> ehmmm Alessandro ti ringrazio ma io intendo proprio
> creare una struttura dati come l'array ma con gli indici non numerici..
> in modo che posso accedere ai dati contenuti nell'array non tramite
> array(0) ma tramite array("pippo") ...
>
> i dati vengono si da una query ma ho bisogno (per evitare altre mille
> operazioni) di formare un array di quel tipo..
>
> in molti linguaggi si puo' ... (java,php per citare quelli che conosco
> bene)
> in vba si puote?
>
> o forse ho frainteso il tuo suggerimento... :S
Per tè "Pippo" cos'è...?
Il nome del Campo o un valore...?
Nel 2° Caso cosa mai restituirebbe un Array al quale passi il
Valore...???
Non sò se hai capito male quanto detto, ma vorrei capire io meglio la
tua esigenza...!
Ritornando alla collection Fields.... se fai Fields("NomeCampo")
restituisce il valore....!!!
@Alex


title: hash table, possibile?

author: eSQueL

text:
"acMad" <ac...@acMad.it> ha scritto nel messaggio
news:egftnl$jk6$1...@news.newsland.it...

Forse acMad intende una struttura dati astratta che può usare qualsiasi tipo
di dato come indice. Se è così, gli serve per una ricerca non basata su
confronti di chiavi, ma per accedere direttamente ai dati trasformando
aritmeticamente le chiavi in indirizzi della tabella.
Non ho assolutamente idea se con access si possa fare. Puoi provare GetRows
(ADO) che prende i dati del recordset e li trasferisce in una matrice
bidimensionale. Ma sempre con indici numerici avrai a che fare.
Ciao.
eSQueL


title: hash table, possibile?

text:
acMad wrote:
> sto invano cercando nell'help di access vba...
> e su google...
>
> e' possibile creare hash table in vba?
> o meglio conosciuti come array associativi?
Collezioni (Collection)
--
ac


title: hash table, possibile?

text:
eSQueL wrote:
[cut]
>
> Non ho assolutamente idea se con access si possa fare. Puoi provare GetRows
> (ADO) che prende i dati del recordset e li trasferisce in una matrice
> bidimensionale. Ma sempre con indici numerici avrai a che fare.
intende questo
clsConfig
--
Option Compare Database
Option Explicit
Private Items As New Collection
Private Sub class_Initialize()
Dim rs As Variant
Set rs = CurrentDb.OpenRecordset("Config")
Do Until rs.EOF
     Items.Add Item:=rs!Valore.value, Key:=rs!Chiave
     rs.MoveNext
Loop
End Sub
Function getItem(pParm As String)
On Error Resume Next
     Set getItem = Items(pParm)
     If Err.Number <> 0 Then
         Err.Clear
         getItem = Items(pParm)
     End If
     If Err.Number <> 0 Then getItem = "<undefined>"
End Function
Sub setItem(pParm As String, pValue As Variant)
On Error Resume Next
     Items.Remove (pParm)
     Items.Add pValue, pParm
End Sub
Genera un array associativo con indice=Chiave
per una tabella (Config) con due attributi.
Usa l'atributo "Chiave" come indice e l'attributo "valore" come valore
associato a quell'indice
Questo e' un esempio semplice (quello che uso normalmente fa un po' di
cose in piu')
--
ac


title: hash table, possibile?

text:
Alessandro Cara ha scritto:





GRANDEEEE!!!
esattamente questo!
grazie...!!



title: hash table, possibile?

text:
"Alessandro Cara" <
al...@puntablunet.it
> ha scritto nel messaggio
news:acNWg.22391$pp1....@tornado.fastwebnet.it...

Me la farò bastare :)
Ciao e grazie
eSQueL


title: hash table, possibile?

text:
acMad wrote:
[cut]
>
> esattamente questo!
"Impiccione".  Infilarsi in un ramo di 3d di non competenza ;<)
A te avevo risposto solo : Collezioni
--
ac


title: hash table, possibile?

text:
eSQueL wrote:
[cut]
>
>
> Me la farò bastare :)
Non sai cosa perdi! ;<)
--
ac


title: hash table, possibile?

text:
Alessandro Cara ha scritto:

Fammi capire l'utilità di questo...!
La Key è contenuta nel Recordset e la usi come Key della Collection
che popoli
ciclando l'intero Recordset.
Bene il Metodo Find o FindFirst applicato all'oggetto Recordset invece
cosa
farebbe di così diverso... su un Recordset:
Dim rs as DAO.Recordset
set rs=CurrentDb.OpenRecordset("SELECT Valore,Chiave From
T1",dbreadOnly)
Function GetItem(rs as Dao.Recordset,Key as string)
    rs.findFirst "Key='" & key & "'"
    if rs.nomatch then
        GetItem=""
    Else
        GetItem=rs!Valore
    End If
End Function
Vorrei capire meglio, ho la certezza di perdermi un pezzo, visto che
vedo solo un enorme rallentamento... e conoscendoti sò che non faresti
una cosa inutile...!
@Alex