mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.appl.access
Titolo: merge pdf di file con nome specifico

Ciao a tutti,
 
secondo voi con access è possibile creare un pulsante per fare il marge di file pdf che contengano nel nome una determinata stringa.
 
esempio:
 
nella cartella "c:\pippo" ci sono
 
gatto_20160301_miele.pdf
cane_20160301_lardo.pdf
pesce_20160305_marmellata.pdf
mucca_20160301_aceto.pdf
cavallo_20151201_burro.pdf
 
dentro la textbox  "nomeparziale" mettendo 20160301 mi faccia solo il merge dei file che contengono nel nome 20160301.
 
Grazie

Dovrebbe essere possibile...se hai ADOBE:
 
Aggiungendo i Riferimenti alla LIB di ADOBE, poi meglio usare LATEBINDING.
Quì trovi un esempio:
https://forums.adobe.com/thread/302802?start=0&tstart=0
 
http://www.khk.net/wordpress/2009/03/04/adobe-acrobat-and-vba-an-introduction/
 
 
@Alex
 


Gli ho dato una letta.......mal di testa arrivato.....
Devo semplificare lato access per avvantaggiarmi lato pdf
Grazie,
Marco

Newsgroup: it.comp.appl.access
Titolo: errore utilizzo Dir per creazione file compresso

qualcuno sa dirmi perchè mi ritrovo un file compresso con dentro solo il primo file dei 3 che ho nella cartella? mentre li copia tutti e 3 e li elimina tutti e 3 , grazie.
 
    d = DLookup("cartellaxml", "fe_impostazioni")
    If d <> "" Then
        j = "*.*" 
        If Right(d, 1) <> "\" Then d = d & "\"
        s3 = Dir(d & j)
        If s3 <> "" Then
            Do While s3 <> "" 
                'aggiungo il file xml allo zip
                AddFilesToZip ZipFile, d & s3
 
                'copio il file in cartella xmlinviati
                FileCopy d & s3, DLookup("cartellaxmlinviati", 
                "fe_impostazioni") & s3
 
                'elimino il file
                Kill d & s3
 
                s3 = Dir(d & j)
 
            Loop
 
        Else
            MsgBox "Nessun file da inviare, vbInformation, """
        End If
    End If


ho risolto ho messo uno Sleep 1000 come segue
 
    'aggiungo il file xml allo zip
    AddFilesToZip ZipFile, d & s3
    Sleep 1000

Newsgroup: it.comp.appl.access
Titolo: [OT] - algoritmo INAIL per calcolo PIN posizione

...io ci provo...
per caso qualcuno ha avuto a che fare o cmq conosce dove reperire 
l'algoritmo che usa l'INAIL per calcolare il codice PIN (non il codice 
di controllo, proprio il PIN) delle posizioni?
i vari addetti che ho interpellato era già bello se sapevano cos'era un 
algoritmo.. e quei pochi non sapevano come fare per recuperarlo...
allora mi son chiesto se qualcuno che ha più fonti di me fosse riuscito 
a sapere come fare per il calcolo...
Grazie
Ciao
Nick


Ho usato questo servizio trovato online è funziona:
https://www.ccnlportatili.it/calcolatore-pin/
Newsgroup: it.comp.appl.access
Titolo: casella di testo che ricerca dati like in maschera

ciao a tutti,
in una maschera ho una casella di testo [testo13] che mi deve filtrare
dei valori.
Private Sub Testo13_AfterUpdate()
On Error GoTo Err_Testo13_AfterUpdate
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "Stradario"
stLinkCriteria = "[Descrizione] = " & " '" & Me![Testo13] & "'"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Testo13_AfterUpdate:
    Exit Sub
Err_Testo13_AfterUpdate:
MsgBox Err.Description
End Sub
vorrei consentire un riceca like del tipo *[testo13]*
ho provato inserendo
stLinkCriteria = "[Descrizione] = " & " like * '" & Me![Testo13] & "'"
ma non mi funziona
mi dareste una mano?
grazie
massimo

 ha scritto nel messaggio

O Like o =, non puoi metterli insieme.
metti l'asterisco anche alla fine, sennò ti trova solo le parole che 
finiscono con ciò che hai scritto.
Poi gli asterischi dentro gli apici, non fuori.
stLinkCriteria = "[Descrizione]  like  '*" & Me![Testo13] & "*'"
Davide (Sib) 

 - Mostra testo citato -
grazie Davide
Newsgroup: it.comp.appl.access
Titolo: Crash di access in stampa report popup

Salve a tutti
mi si presenta un errore davvero strano ed adesso (che sono alla fine)
oltremodo fastidioso
ho un db con molte finestre e molti report
per mia velleità ho voluto inserire una  maschera a tutto schermo con
barra di stato e gioco forza ho impostato tutte le maschere popup e
anche i report.
Nella realizzazione del db, ad ogni prova non avevo avuto problemi,
anche perchè provavo i report in anteprima e tutto filava liscio.
Nella prova finale, alla stampa di ogni report mi va in crash access e
la cosa ho scoperto avviene perchè i report sono impostati popup.
E' importante precisare che, l'errore mi viene fuori solo con accessXP
mentre con 2003 va bene.
Dovendo distribuirlo però con DEV xp (così come suggerito anche da
Roberto) vorrei trovare una soluzione.
Come posso fare???
grazie
a presto
CLaudio

"Claudio" <


Per cominciare, dovresti fornirci le istruzioni per riprodurre il problema
su Northwind.mdb...

 su Northwind.mdb...
Ho lavorato sul db con access2003, poi resomi conto che il Dev2003 mi
dava problemi, ho preferito usare XP, per fare questo ho importato
tutto il dv in accessXP, e con debite modifiche ai riferimenti, tutti
funziona regolarmente.
Ho impostato tutte le maschere ed i report in modalità popup proprio
perchè ho una finestra a tutto schermo che mi gestisce una barra di
stato.
L'anteprima di stampa funziona regolarmente, il report viene aperto, in
modalità popup ma se mando in stampa il report mi va in crash access.
QUesto errore non si presente in Access2003 ma solo in xp
Ecco cosa ho "combinato" :(((((
a presto
CLaudio

"Claudio" <


Se non ci dai istruzioni per riprodurre il problema su un altro progetto non
possiamo aiutarti.
Immagino comunque che avrai già reimportato tutto in un nuovo .mdb per
essere certo che non sia un problema "random"...
Ciao, Simone

 essere certo che non sia un problema "random"...
L'unica differenza appunto è solo il popup nei report, nulla più.
Purtroppo l'errore è presente su tutti i miei svariati file di backup
che ho fatto strada facendo
Per ora ho tamponato creandomi un clone per ogni report
Uno con popup attivo per le anteprime
Uno con popup no per le stampe, con calma vedrò di trovare la
soluzione al problema in via definitiva...
attendo vostre istruzioni
ciao
CLaudio

 possiamo aiutarti.
L'unica differenza appunto č solo il popup nei report, nulla piů.
Claudio, dacci le istruzioni per riprodurre la cosa in un .mdb d'esempio: č
inutile che tu continui a descrivere empiricamente il tuo problema.
Ciao, Simone

Newsgroup: it.comp.appl.access
Titolo: [OT] java virtual machine

Ho scaricato delle aplet java che permettono elaborazioni sulle immagini
Tipo effetto lente ma su wXp non è presente java virtual machine; dove poso
trovarla ho provato con google ma mi da dei siti da cui non è possibile
scaricarne una per XP
stefano

 wrote in
news:mscgb.233456$
R32.7...@news2.tin.it
: 

hai provato con:
http://java.sun.com
-- 
+-------
| Paolo opg
|
| janickg ( at ) hotmail ( dot ) com
+-------
Newsgroup: it.comp.appl.access
Titolo: generare un codice assemblando più campi

In un a query vorrei attaccare assieme il contenuto di + campi per generare
un numero di protocollo
Vorrei fare una cosa del genere
valoreprimocampovaloresecondocampovaloretrerzocampo.
Questo č molto semplice.
Nel terzo campo ho 1 campo data. Vorrei non mettere la data intera ma solo
l'anno
es 03 o 04 ma non so come
Grazie.

 ha scritto nel messaggio
news:MotNb.118977$_P.43...@news4.tin.it...

Unisci al tuo campo Year(tuadata)
MAssimiliano

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

Ho una tabella strutturata con tre campi: nome, mese e giorno
e ho anche un'altra tabella contenente i dati di molte persone con nome e
cognome,ora dovrei creare una query che mi restituisca solo le persone con
il nome corrispondente al giorno attuale.
in pratica se oggi è il 05/04 e il santo di oggi è San Vincenzo  la query mi
deve mostrare le persone che si chiamano Vincenzo! Penso sia facile ma per
me che sono alle prime armi sembra impossibile!
Ciao a tutti e grazie a quanti mi aiuteranno!
Ciao,
Luigi

 in pratica se oggi č il 05/04 e il santo di oggi č San Vincenzo  la query


 ha scritto nel messaggio
news:urnr8.126837$1S3.3...@twister1.libero.it...

Scusate l'intrusione ma il problema era veramente di una stupidità
incredibile e con un pò di riflessione ci sono riuscito da solo!
Ciao

 ha scritto nel messaggio
news:O7or8.125368$%g7.39...@twister2.libero.it...


Newsgroup: it.comp.appl.access
Titolo: unire interi e decimali in un unica stringa senza virgola

ciao a tutti
è da una buona mezza giornata che sto sbattendo la testa sul problema che
vi illustrerò di seguito
ho una tabella con un campo [totale], formato numerico, devo realizzare
una query che tra i vari campi contenga il suddetto campo però nel
formato intero decimale senza virgola con lunghezza decimale di 3
caratteri. ho impostato la funzione che segue:
left([totale];instr([totale];",")-1)+mid([totale];instr([totale];",")+1)
funziona in parte in quanto nella tabella il campo totale non ha sempre 3
decimali, e nel caso in cui non ve ne siano compare solo il valore intero
ed è qui che inizia la mia crisi creativa...
come posso risolvere?
grazie in anticipo
Nicola


la soluzione per me + semplice è di moltiplicare x 100 l'importo per quanto
riguarda 2 decimali e x 1000 se ci sono 3 decimali.
ciao
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/


Puoi fare un esempio del valore in input e di quello che ti aspetti?
123,345 >>>123345?
Ciao, Carlo 

 Ciao, Carlo
si l'esempio è quello che hai esposto, il tutto però deve essere
composto da 9 caratteri con carattere di riempimento " " (spazio)
123,3	>>>	"   123300"
grazie
Nicola
Newsgroup: it.comp.appl.access
Titolo: casella di testo dopo 160 caratteri deve fermarsi e non accettarne piu

mi sapete aiutare?


Nella struttuta della tabella, imposta per il campo 160 caratteri...
Ciao.
--
Sergio MAZZA

 Sergio MAZZA
dimenticavo un dettaglio importante, non è associato a nessun campo la
textbox
mi sai aiutare in questo caso?

 mi sai aiutare in questo caso?
Imposta una maschera input del controllo (proprietà - scheda dati - maschera
input)
es.
CCCCCCCCCCCCCCCCCCCC;;_
ti permette di inserire max 20 car.(vedi help); controlla anche nel sito
comune forse c'è un'altra soluzione...
Ciao.
--
Sergio MAZZA


usa l'evento on_change della text box e la funzione LEN
ciao

 ciao
in questo modo controllo la lunghezza
'chars countdows
conta = 160 - Len(testoSms.Text)
If conta <= 0 Then
    Dim mom
    mom = testoSms.Text
    testoSms = Left(mom, 160)
End If
ma come blocco l'immissione dei caratteri da testiera? perchè se l'utente
digita ancora qualcosa mi azzera il campo e ricomincia mentre io vorrei che
raggiunti i 160 blocchi l'immissione dei caratteri.
Grazie.

 ha scritto nel messaggio
news:bgll3n$v91$1...@lacerta.tiscalinet.it...

se len > 160 Cancel = true
ciao

 ha scritto nel messaggio
news:bgll3n$v91$1...@lacerta.tiscalinet.it...

Arrivato a 160 caratteri, puoi spostare il focus su un altro controllo,
simulando una tabulazione automatica.
Ciao
Galliano

 ha scritto nel messaggio
news:bgll3n$v91$1...@lacerta.tiscalinet.it...

usa questo codice
Private Sub Testo2_Change()
Dim strTestoPrec As String
strTestoPrec = "" & Testo2.Text
    If Len(strTestoPrec) > 160 Then
        Testo2 = Left(strTestoPrec, 160)
        Testo2.SelLength = 0
        Testo2.SelStart = 160
    Else
    End If
End Sub
ciao


Dopo tutto il codice che ho visto credo di dire anch'io la mia:
Private Sub Testo20_KeyDown(KeyCode As Integer, Shift As Integer)
    If Len(Me.Testo20.Text) > 159 Then KeyCode = 0
End Sub
Se vuoi una cosa dinamica sfrutta la proprietą TAG della TextBox:
Private Sub Testo20_KeyDown(KeyCode As Integer, Shift As Integer)
    If Len(Me.Testo20.Text) > Me.Testo20.Tag - 1 Then KeyCode = 0
End Sub
Ciao.
@Alex.

mi sapete aiutare?
Un esempio ke blocca la casella da scrittura qualoira raggiungi i 130
caratteri:
--------------------------------
Private Sun Textbox_OnChange()
Dim Lungo as Integer
Lungo = 130
If Len(Me.Casella) >= Longo Then
 Me.Casella.locked=True
Else
 Exit Sub
End IF
End Sub
---------------------------------
Correggetemi se sbaglio! :)

 ha scritto nel messaggio
news:rssuiv895064qcv0r...@4ax.com...

Avevo provato anch'io cosě ma Access non ti permette di settare locked a
true se il contenuto del controllo non č stato salvato.
Ciao
Galliano


wrote:

Allora potresti fare:
 Private Sun Textbox_OnChange()
 Dim Lungo as Integer
 Lungo = 130
if Len(Me.Casella) >= Longo Then
'qui aggiungi
runcommand accmdsaverecord  
'e continui


 ha scritto nel messaggio
news:gtdvivoajqbc4mb9g...@4ax.com...

Avevo ottenuto comunque l'effetto spostando il focus su un'altro controllo
quando il testo raggiungeva la lunghezza voluta, simulando la tabulazione
automatica.
Galliano.
Newsgroup: it.comp.appl.access
Titolo: Eseguire un pulsante su sottomaschera

Buona sera a tutto il ng
In una maschera principale ho inserito una sottomaschera, la quale è 
impostata in visualizzazione foglio dati.
Nella sottomaschera vi sono 2 pulsanti di comando che eseguono delle 
attività.
Nella maschera principale ho creato 2 pulsanti di comando che dovrebbero 
eseguire il codice (evento clic) che è associato ai 2 pulsanti della 
sottomaschera.
Qual è la sintassi che devo scrivere nell'evento clic dei 2 pulsanti posti 
nella maschera principale?
Grazie anticipatamente a tutti coloro che mi daranno una mano...
A2000
Win XP

 ha scritto nel messaggio
news:436a7370$0$22292$4faf...@reader1.news.tin.it...

Purtroppo mi pare che non puoi chiamare direttamente l'evento
della sottomaschera, pero' puoi simulare l'invio
del tasto con :
        Me.NomeSottoform!NomePulsante.SetFocus
        SendKeys "{ENTER}"
bye :o)

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

Newsgroup: it.comp.appl.access
Titolo: Invio Fax

Salve a tutti coloro che mi potranno dare una mano....
Avrei bisogno si sapere se esiste qualche controllo OCX, per inviare un
report come fax, tramite un modem, come sistema operativo utilizzo WIN98.
Grazie a tutti... per l'aiuto.

 ha scritto nel messaggio 
news:42e2bfd7$0$331$5fc...@news.tiscali.it...

Sia su questo NG che su 
www.sitocomune.com
 potrai trovare molto materiale a 
riguardo.
Ciao, Carlo
Newsgroup: it.comp.appl.access
Titolo: protezioni x MDE (?)

Argomento trito e ritrito ma sono impantanato.
Ho un piccolo db aziendale , residente su server, in Access 2000.
1- Ho preferito trasformarlo in MDE , xchč con il metodo "gruppo di lavoro",
ho capito che basterebbe puntare invece che al link (file informazioni
gruppo) per fare quel che si vuole. Giusto ?
2 - veniamo alla domanda. L' accesso č regolato da una finestra login , che
verifica e da le autorizzazioni in base ad una tabella Tabpassword.
La tabpassword č oggetto nascosto naturalmente.Ma basterebbe che chiunque da
opzioni> visualizzazione mi seleziona la casella oggetti nascosti ed io sono
fregato.
Scusate la domanda banale che devo fare ????
Io preferirei tenere il tutto su una tabpassword xchč gli accessi /modifiche
sarebbero piů semplici.
Grazie DV
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/


Per esempio proprio utilizzando il "metodo" potresti dare alla tabella la
proprietà
di sola lettura agli utenti non amministratore, quindi nessuno anche
aprendola in
visualizzazione potrà variarla se non si sara' loggato (ovviamente con il
System.Mdw
opportunamente configurato) come amministratore.
bye :o)

 ha scritto nel messaggio
news:212Z177Z101Z19Y...@usenet.libero.it...

Devi usare x la protezione il file "mdw" di access e stabilire le
autorizzazioni
ciao

 ciao
Ringrazio entrambi ma č questo il punto.
Riprendo da sitocomune FAQ. Per il mio database (DBprot.mdw) crearsi un
nuovo fileinfo mdw (wrkgrpmio.mdw) a questo punto per aprire il db con il
nuovo mdw creare un link sul desktop e digitare :
"C.\programmi\...\...msaccess.exe" /wrkgrpMio.mdw Dbprot.Mdb.
Se qualsiasi utente avvia dbprot.mdb senza passare dal link indicato
scavalca il nuovo mdw e utilizza il classico system.mdw ed addio password.
Per questo motivo ritengo la soluzione Tabpasswork la migliore.
Ora lurkando qua e la mi č parso di capire che dovrei nascondere cambiare la
barra dei menu solita e nascondere la finestra del db. Inoltre dovrei
disabilitare il tasto shift / F11.
Mi confermate o ci sono sistemi migliori? grazie a tutti . ciao.
DiegoV


 DiegoV
ciao :o)

Newsgroup: it.comp.appl.access
Titolo: Formattazione report

Mi si verifica questo problema :
In un report per stampare delle etichette  imposto dal menů
file - Imposta pagina-  i margini , colonne e layout , e fin qui tutto bene
stampo tranquillamente . Il   problema esce quando dopo qualche giorno
ritorno a stampare quello stesso report  e non trovo piů le impostazioni
inserite precedentemente.
Come posso fare per memorizzare definitivamente le impostazioni date ?
Grazie anticipato
Giuseppe 

 Giuseppe
Ciao giuseppe il tuo problema è comune: prova a disabilitare la
correzione automatica nome da menu strumenti, opzioni, generale.
togli il segno di spunta da tieni traccia ...
Newsgroup: it.comp.appl.access
Titolo: visulizzare due valori nella casella combinata

Salve a tutti, 
sto facendo un banale programma per inserire una raccolta DVD, e nella
maschera ho fatto una casella combinata ed ha come origine due valori
(cognome e nome) di una Tabella chiamata attori
Il nome e cognome riesco a vederli, ma una volta selezionati mi appare
solamente il cognome. Ora nelle proprietą (colonna associata) riesco a
scegliere quale dei due valori posso visualizzare, ma non riesco a far
in modo che entrambi i valori  restino nella casella combinata.
Spero che qualcuno di Voi mi possa aiutare.
Grazie.

 Grazie.
Ciao Tyler Dunden (bizzarro questo nick name):
prova cosě
come origine riga della combobox crei una query sulla tabella attori che ti
restituisca una colonna cosi constituita :
nominativo : nome & " " cognome
impostando numero colonne 1, dovresti ottenenre ciň che ti serve
Ciao

 Ciao
siccome sono scoppiato ho dimenticato una &:
 nominativo : nome & " " & cognome
scusa, ciao

 ha scritto nel messaggio
news:f4c76cae.0503...@posting.google.com...

origine riga = "Select (cognome & " " & nome) as Nominativo from Attori"
dovrebbe tenerlo sempre credo...
hai provato ?
ciao:)

...

Ho fatto come avete detto voi e funziona mi Avete risolto un problema
(per me) non da poco.
Grazie veramente, mi sento sollevato. :)

Newsgroup: it.comp.appl.access
Titolo: RecordSource su database protetto

Ciao a tutti, avrei bisogno di un banale aiuto: in una maschera se uso
Me.RecordSource = "SELECT * FROM tabella IN 'c:\db.mdb'"
tutto funziona correttamente a meno che il database non sia protetto da
password.
In tal caso come posso operare?
Ciao e grazie
--
Matteo Cacciola
Email: 
cacc...@2000net.it
 (private)
 
mat...@es3k.it
 (professional)

 In tal caso come posso operare?
Passandogli la giusta password con l'opportuna sintassi...
Antonio

 Passandogli la giusta password con l'opportuna sintassi...
Fin qui c'ero arrivato, ma qual č?
Newsgroup: it.comp.appl.access
Titolo: Cambio dimensione carattere da VBA in documento Word

Salve,
 
ho un piccolo problema di gestione con VBA Access, quando inserisco dei dati in Word.
 
In pratica ho queste righe di codice:
 
Set xDoc = xWord.Documents.Open("D:\cartella\Prova.docx")
 
Set rs = CurrentDb.OpenRecordset("SELECT * FROM Dettaglio WHERE IDDettaglio=" & DettaglioID & " ORDER BY IDDettaglio DESC")
 
Do Until rs.EOF
 
xWord.ActiveDocument.Bookmarks.Item("Descrizione").Range.Text = rs.Fields(2) & vbTab & "€" & vbTab & Format(rs.Fields(4), "#,##0.00") & " + IVA 22%" & vbLf
 
rs.MoveNext
Loop
rs.Close
 
 
Sul documento Word, vorrei inserire sulla riga successiva a quella inserita con codice 
 
xWord.ActiveDocument.Bookmarks.Item("Descrizione").Range.Text = rs.Fields(2) & vbTab & "€" & vbTab & Format(rs.Fields(4), "#,##0.00") & " + IVA 22%" & vbLf
 
il valore di
 
rs.fields(3)
 
ma con dimensione di scrittura 8 punti anzichè 10 punti com e quella predefinita dal Bookmark "Descrizione".
 
Ho fatto vari tentativi ma non sono riuscito a risolvere ancora il problema, qualcuno disposto a mettermi sulla strada giusta? 
 
Grazie a tutti, saluti
 
SIMONE

Fai la stessa cosa manualmente registrando la macro in word... guarda il codice ed usarlo, adattandolo opportunamente agli oggetti che hai istanziato.
 
@Alex

Ciao, avevo già provato, il punto è che dopo la riga di codice:
 
xWord.ActiveDocument.Bookmarks.Item("Descrizione").Range.Text = rs.Fields(2) & vbTab & "€" & vbTab & Format(rs.Fields(4), "#,##0.00") & " + IVA 22%" & vbLf
 
debbo intercettare la posizione del cursore all'interno del documento Word, per poter cambiare la dimensione del carattere, ho provato sia con questo comando:
 
Selection.TypeParagraph
 
Che con 
 
xWord.ActiveDocument.Selection.TypeParagraph
 
ma l'errore che visualizza è di metodo errato. Vorrei pertanto sapere come fare per intercettare la posizione del cursore sulla nuova riga di Word creata a seguito del termine di paragrafo. 
 
Grazie


risolto:
 
xWord.ActiveDocument.Bookmarks.Item("Descrizione").Select
xWord.Selection.Font.Size = 8
xWord.ActiveDocument.Bookmarks.Item("Descrizione").Range.Text = rs.Fields(3) & vbLf
xWord.ActiveDocument.Bookmarks.Item("Descrizione").Select
xWord.Selection.Font.Size = 10
xWord.ActiveDocument.Bookmarks.Item("Descrizione").Range.Text = rs.Fields(2) & vbTab & "€" & vbTab & Format(rs.Fields(4), "#,##0.00") & " + IVA 22%"
xWord.ActiveDocument.Bookmarks.Item("Descrizione").Range.Text = vbLf & vbLf
Newsgroup: it.comp.appl.access
Titolo: stato attivo di listbox come condizione di una macro

Ciao.
Vorrei che la condizione di esecuzione di una macro sia lo stato
attivo di un campo (ad esempio un Listbox) di una maschera.
Qual'è il codice che indica lo stato attivo di un determinato campo?
Può essere inserito come condizione di esecuzione di una macro?
Grazie a tutti in anticipo; grazie anche per la pazienza che
dimostrate con i neofiti.
Walter.

 ha scritto nel messaggio 
news:1182073892.5...@n60g2000hse.googlegroups.com...

Ciao Walter,
nella condizione della macro metti:
----
[Maschere]![NomeMaschera].[ActiveControl].[Properties]("Name")="NomeListBox"
----
(se va a capo ricomponi il tutto su una riga)
Cambia NomeMaschera e NomeListBox con i nomi effettivi che hai assegnato 
agli oggetti.
Ciao
-- 
Giorgio Rancati
[Office Access MVP]
Newsgroup: it.comp.appl.access
Titolo: maschere e lettura facilitata

esiste la possibilità di una composizione in lettura facilitata (quindi
alternando il colore dello sfondo della maschera) in modalità maschera
continua?
Grazie
--
Stefano

 ha scritto nel messaggio
news:behd08$53t$1...@serv1.iunet.it...

Sicuramene, guarda su 
www.sitocomuna.com
MAssimiliano


Sicuramente su www.sitocomune.com...
Ciao.
--
Sergio MAZZA

 Sergio MAZZA
Ho fatto un pò di casini
Ah MAzza, ammazza quanto sei fiscalista!!!!
;-P
MAssimiliano


Guarda che me ne sono accorto solo perché il link non funziona... Che figura
ci facevi?
Ciao.
--
Sergio MAZZA

 Ciao.
Sergio dallo smile si capisce che scherzavo, era gustoso il gioco di parole
e il fatto che fossi fiscalista non fiscale.
MAssimiliano

 MAssimiliano
MAssimiliano non utilizzo smile ma mi sembrava chiaro che scherzavo pure
io...
Ciao.
P.S. Avevo capito benissimo lo scherzo.

OK, trovato (per poi scoprire che l'avevo anche già scaricato in passato).
Sarà il caldo, sarà lo scoglionamento di fine stagione, sarà il caffè (della
macchinetta a gettoni, che fa veramente schifo)...
Grazie
Stefano

 MAssimiliano
in verità è la prima cosa che faccio prima di postare qui, ma non sono
riuscito ad individuarlo. Ora guardo di nuovo ma se tu potessi esser più
preciso riguardo al titolo dell'articolo te ne sarei grato.
Grazie ancora
Stefano
Newsgroup: it.comp.appl.access
Titolo: Installare Access97 oppure...

Salve NG,
leggendo i post precedenti mi e' venuto un dubbio atroce.
Gestisco il mio database fatto con Access97 (ho installato MS Office
Professional 97) su un notebook con Winzozz Millennium Ed. e tutto funziona
a meraviglia.
Dovro' prestare delle consulenze in uno studio che ha due PC in rete,
Winzozz XP, un programma gestionale basato su un diverso database (che ora
non mi sovviene) e la suite OpenOffice. Vorrei evitare di portarmi dietro il
mio notebook perche' gia' cosi' viaggio carico come un somaro e avrei
pensato di installare Access97 sul PC nella mia stanza per poi usare il
database contenuto in un pendrive tascabile.
Se questo dovesse provocare malfunzionamenti nel database pre-esistente o
nel sistema operativo, sono certo di essere impalato prima di poter
risolvere il problema. Ho letto della versione per sviluppatori che permette
di usare Access senza installare il programma. Potrebbe essere una
alternativa valida e, se si, dove posso reperire una versione per Access97 o
compatibile con esso?
Grazie in anticipo a chi vorra' dirmi la sua,
:-) dal Cava

 ha scritto nel messaggio

Non capisco esattamente il tuo problema.
Se temi che l'installazione di Access possa creare problemi al sistema 
allora posso tranquillamente dirti che non corri nessun tipo di pericolo.
Se poi preferisci lavorare con openoffice allora ti suggerisco di installare 
Clinux...
Davide
-- 
www.gestionedati.com
 

 installare Clinux...
La rete in oggetto non e' mia e mi guardo bene dal toccare qualsiasi cosa,
non ne ho autorita' ne' diritto ne' competenza. OpenOffice gli serve per i
documenti di testo e per i fogli elettronici. Forse sono timori eccessivi i
miei ma veramente non vorrei creare problemi allo studio, piuttosto continuo
a prendere appunti su carta e trasciverli sul mio notebook una volta a casa.
:-) dal Cava

 :-) dal Cava
Ciao.
-- 
Sergio MAZZA 

 non puoi utilizzare l'mdb se non installando sul pc il run-time.
Dove posso trovarlo? Domanda ingenua, lo so, ma abbiate pazienza, sono
veramente a digiuno di queste cose.
:-) dal Cava

 veramente a digiuno di queste cose.
Del '97 solo in vendita e poco tempo fa si trovava su ebay.


 :-) dal Cava
Ah! E se ne parla un messaggio prima del tuo...
Ciao.
-- 
Sergio MAZZA
Newsgroup: it.comp.appl.access
Titolo: Criteri Data Ora nelle Query

Ho bisogno di usare un criterio in una query che mi dia solo i viaggi del 
mese precedente. Guardando sulla guida di access ho trovato proprio quello 
che fa per me solo che non funziona e mi da un errore. La incollo quì per 
vedere se me la potete correggere.
Year([DataViaggio])* 12 + DatePart("m", [DataViaggio]) = Year(Date())* 12 + 
DatePart("m", Date()) - 1
Grazie in anticipo,
tiziano 


Potrebbe essere che la data abbia un valore Null...
Io filtrerei semplicemente mese e anno... nei due campi della query 
inserisci le colonne
Anno : Year([DataViaggio])    Mese : Month([DataViaggio])
criterio
Year([DataViaggio])                Month([DataViaggio])-1
Ciao
-- 
Roberto da Parma 

 Year([DataViaggio])                Month([DataViaggio])-1
Troppo copia/incolla. ;-) Sarebbe:
criterio
Year(Date())                Month(Date())-1
Ma questo metodo ha un problema nel gennaio.
Una via è:
campo calcolato
Format([DataViaggio];"aaaamm")
criterio
Format(DatAdd("m";-1;Date());"aaaamm")
-- 
cu
Karl
*********
Access FAQ: 
www.donkarl.com/it
 

 ha scritto nel messaggio 
news:6v56vcF...@mid.individual.net...


 Access FAQ: 
www.donkarl.com/it
Hai ragione Karl....il metodo DateAdd č migliore sicuramente...
Per il copia/incolla...:-)))....l'ho scritto volutamente cosě....per farmi 
capire meglio....


Grazie mille.

Newsgroup: it.comp.appl.access
Titolo: Urgente!! Come faccio ad inserire immagini collegata in una maschera

Come faccio ad inserire un'immagine collegata in una maschera?
Voglio fare caricare da una maschera la foto di un prodotto salvata in una
cartella esterna:
ho nominato le foto con il codice identificativo del prodotto e nella query
che sta dietro alla mia maschera scrivo il percorso per raggiungerla ma non
riesco ad associare il collegamento nell'oggetto immagine. Cosa posso fare?
Grazie in anticipo a chi vorrą aiutarmi. Andrea


se ho capito bene è sufficente un controllo immagine
sull'evento currentrecord inserirai questo codice
immagine1.picture = "c:\tuadirectory\" & 
me.id

 ha scritto nel messaggio
news:42034a1b$0$32351$5fc...@news.tiscali.it...


 ha scritto nel messaggio
news:uwJMd.495065$b5.23...@news3.tin.it...

1° scrivi sempre dopo la risposta
2°ma l'origine dati della tua maschera è una tabella o una query
3° dove lo hai messo quel codice che dicevi prima?
immagine.pcture=foto01.value
va messo sull'evento della maschera record corrente
Newsgroup: it.comp.appl.access
Titolo: Contatore stampe e programmi eseguiti

Ho intenzione, al fine di valutare l'utilizzo dei programmi e dei
reports all'interno di un progetto, di creare un file di log dove
inserire il numero delle volte che un programma o un report viene
utilizzato.
Qualcuno ha già affrontato il problema?
C'è qualche esempio disponibile?
Grazie in anticipo
Marco D


Ciao Marco,
quando mi  è servito fare qualcosa del genere ho creato una tabella di
log poi, sull'evento significativo
(Es. Apertura del report), una  query di accodamento con i campi
necessari.
Es. docmd.runsql "insert into TabellaLog values ....ecc..ecc.."
Poi, su questa tabella fai tutte le query che vuoi.
Ciao
Alberto

Newsgroup: it.comp.appl.access
Titolo: Ordinamento dei controlli

Vorrei richiamare i controlli di una maschera tramite Me.Controls(i) ma non 
mi e' chiaro qual e' l'ordinamento dei controlli. Non e' l'ordine di 
tabulazione (.tabIndex) ma e' diverso, ho controllato visualizzando 
Me.Controls(i).
E' l'ordine con cui mi muovo col tasto tab in visualizzazione struttura, ma 
non ho ancora capito che ordine e' e come eventualmente modificarlo se 
necessario
il barbi 


L'ordine ï¿œ quello della creazione. Puoi solo modificarlo con cancellare
e ricreare i controlli p.e. con Taglia/Incolla.
-- 
HTH
Karl
*********
Access FAQ: 
www.donkarl.com/it
 

il barbi ha scritto:

Su controls, la mia e' logica, che e' una collezione (insieme) i vari 
elementi vengono addizionati in ordine naturale, cioe' man mano che 
vengono creati (metodo add della collezione), e sono accedibili 
attraverso l'indice (i) o attraverso il "name".
Per averli nella sequenza che desideri devi cancellarli e ricrearli 
secondo l'ordine che vorresti.
--
ac


quindi non posso richiamare un controllo in base al suo TabIndex?
il barbi 

 
volendo si
set CtlxTabIndex = getControl(n)   dove n e' iltabindex
Function getControl( i as long)
    for each ctl in me.controls
	if ctl.tabindex = n then
	   set getControl = ctl
	   exit getControl		
	end if
    next
end function
si puo' fare in modo piu' furbo ma richiede qualche riga in piu'.
Essenzialmente creando una collezione "indexando" per il tabindex  e poi 
usarla al posto di controls.
--
ac

        exit getControl 
	exit function
--
ac

 poi usarla al posto di controls.
o un array con i nomi dove l'indice del array = TabIndex:
On Error GoTo myError
Dim ctl As Control
Dim strArr() As String
Dim i As Long
ReDim strArr(Me.Controls.Count - 1)
For Each ctl In Me.Controls
        strArr(ctl.TabIndex) = ctl.Name
Next ctl
For i = 0 To UBound(strArr) - 1
    If Not strArr(i) = "" Then
        Debug.Print i, strArr(i)
    End If
Next i
myExit:
    Exit Sub
myError:
    Select Case Err.Number
        Case 438 ' controllo non ha un TabIndex
            Resume Next
        Case Else
            MsgBox Err.Number & " " & Err.Description
            Resume myExit
    End Select

Newsgroup: it.comp.appl.access
Titolo: esportazione....allineamento

Devo esportare in formato .txt dei dati presenti in una tabella...
La procedura di esportazione la conosco bene.....
Il problema sta nel fatto che alcuni dati, quelli numerici, dovrebbero
apparire nel file .txt con gli zeri davanti ed allineati a destra....
es. campo [Colli] = 3
dovrei esportare su un un campo di 5 caratteri e quindi
00003
Come fare ???
Grazie
Enrico
-- 
Posted from 
smtp2.libero.it
 [193.70.192.52] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

*****
* Devo esportare in formato .txt dei dati presenti in una tabella...
*
* La procedura di esportazione la conosco bene.....
* Il problema sta nel fatto che alcuni dati, quelli numerici,
dovrebbero
* apparire nel file .txt con gli zeri davanti ed allineati a
destra....
* es. campo [Colli] = 3
*
* dovrei esportare su un un campo di 5 caratteri e quindi
* 00003
*
* Come fare ???
*
* Grazie
* Enrico
*****
Fai una query dove c'č il campo [Colli] e crea un nuovo campo cosě
fatto:
ColliStr: Right$("0000" & (CStr([Colli]));5)
vedrai che funziona.
Ciao,
Luigi Corolli.
--------------------------------------
Link al Sito del Linux User Group di Gorizia
http://www.linux.it/mailman/listinfo/golug
Sito del Linux User Group di Trieste
http://trieste.linux.it
Sito Comune di it.comp.appl.access
http://www.sitocomune.com
--------------------------------------
-- 
Posted from 
alquanto.nextra.it
 [193.43.2.90] 


Newsgroup: it.comp.appl.access
Titolo: ID Contatore

come posso fare per creare un id fatture in questo formato
aaNNNN
 aa=indica l'anno
NNNN=numero progressivo
ad ogni inserimento nuovo dovrei calcolare l'id in base alla data che mette
l'utente e cercare il max(NNNN) di quell'anno
è possibile farlo?
per ora sono riuscito a farlo utlizzando Date() e il valore predefinito del
campo id come proposto sul sito comune, invece vorrei riuscire trovare la
dipendenza cn la data che immette l'utente quando vuole fare una nuova
registrazione
KGrazie

 ha scritto nel messaggio
news:b6f7sc$n3j$2...@newsread.albacom.net...

Funzione DMax
Antonio

Newsgroup: it.comp.appl.access
Titolo: impostare il criterio di una query da codice VBA

Ad esempio il criterio del campo nome prima lo imposto a
Is Null     e poi a         Is Not Null
sapete se č possibile? Grazie.

 sapete se č possibile? Grazie.
Puoi sempre modificare da codice VBA il codice SQL di una query registrata.
Un esempio di come agire sul codice SQL di una query registrata lo trovi sul
Sito Comune (link qui sotto) nel database di esempio allagato alla FAQ della
Sezione Queries intitolata "Come si puņ creare in maniera dinamica una query
con la tecnica QBF?".
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------
Newsgroup: it.comp.appl.access
Titolo: immissione valuta ?

Ciao a tutti.
come posso fare a immettere dei pagamenti nel mio data base in Euro (acces
97) ?
Se fosse possibile spiegatemi come si fa.
Vi ringrazio anticipatamente.
BUON ANNO A TUTTI
ALFREDO

Se fosse possibile spiegatemi come si fa.
metti un campo di tipo double dove registri gli importo pagati in
euroi con i due decimali!
semplice no?
Saluti.
Emanuele.

Newsgroup: it.comp.appl.access
Titolo: Calcoli su qry a campi incrociati

Salve a tutti, mi ripresento per chiedere un consiglio su quanto in 
oggetto. Ho creato una qry di creazione tabella che mi crea una tabella 
tipo:
Data
Luogo
TipoProdotto
QuantitàProdotto
TotaleProduzione
e una query a campi incrociati che mi crea un report tipo
luogo	data	prodotto1	prodotto2	prodotto3
italia	2	5000		2000		3000
italia	3	2000		2500		8000
il problema è che se io volessi aumentare del 20% il prodotto1, del 2% 
del prodotto2 e del -15% il prodotto3 come faccio? ho creato una 
maschera con un campo PercProdotto1 ecc e sul campo prodotto1 come 
origine dati ho messo:=Prodotto1*PercProdotto1 ma il risultato è: 
#Errore e mi sono messo il dubbio che non si possa fare, in quanto la 
persona vorrebbe, prima di stampare, visualizzare in maschera il 
risultato. Ringraziando e spero che possiate darmi una dritta
-- 
maurizio56
:-))
browser: FireFox 1.0.4
mailreader: ThunderBird 1.0.2

 ha scritto nel messaggio
news:P0fye.2978$%7.4...@twister2.libero.it...

Prova a generare dalla query a campi incrociati una query di selezione in
cui metterai tutti i campi della query a campi incrociati.
In questa query di selezione inserisci il campo calcolato...
Saluti Luca

Zappus ha detto: in data 05/07/2005 10.12:

OK funge tutto, Grazie


maurizio 56 ha detto: in data 05/07/2005 20.19:

A proposito, forse chiedo troppo, posso memorizzare i campi calcolati in 
una tabella??

Newsgroup: it.comp.appl.access
Titolo: Come creare una maschera di input che non ammetta il carattere spazio?

Slave
vorrei creare una casella di testo nella quale non sia possibile
inserire caretteri di spazio, quindi avevo pensato di usare la
seguente maschera di input:
AAAAAAAAAAAAAAAA;;_
in teoria ad A dovrebbe corrispondere un carattero od una cifra,
invece posso inserire anche gli spazi.
come posso creare una maschera di imput che impedisca all'utente di
inserire degli spazi?
Ciao, Max

"MarcoMax" <p...@papapa.pupupu> ha scritto nel messaggio
news:392e8ae5...@news.tin.it...

Non so se esiste una maschera input che fa quello che dici, in sostituzione
potresti utilizzare una funzione, nell'evento prima di aggiornare, che legge
carattereXcarattere e restutiisce la stringa senza gli spazi:
es.
Function noSpace(xStringa As String, xTogli As String)
Dim ritorno As String, xLunghezza As Integer, conta As Integer, xCarattere
As Integer
ritorno = ""
xLunghezza = Len(xStringa)
If xLunghezza > 1 Then
    For conta = 1 To xLunghezza
        xCarattere = Asc(Mid(xStringa, conta, 1))
        If Asc(xTogli) = xCarattere Then
Rem non fa niente
        Else
            ritorno = ritorno & Chr(xCarattere)
        End If
    Next
End If
    noSpace = ritorno
End Function
Ciao.

 Ciao, Max
Ciao Max,
se desideri che venga ignorata la pressione dello spazio, è sufficiente
inserire la seguente riga di codice nell'evento Su Pressione del controllo
incriminato:
    If KeyAscii = 32 Then KeyAscii = 0    ' 32 codice Ascii dello spazio
e hai risolto.
Ciao
Silvio

Newsgroup: it.comp.appl.access
Titolo: popup che non funziona!!

Cari amici,
ho predisposto una maschera di ricerche che restituisce i risultati in una 
sottomaschera "a maschere continue"
ho fatto poi in modo che sull'evento corrente si apra una maschera filtrata 
in base all'id del record corrente appunto con alcuni altri campi-dettagli 
dello stesso record
ora questa procedura sul computer in ufficio funziona, su quello di casa no 
la maschera "popup" che si apre è bianca, senza controlli.
un'altra cosa: io ho poi messo lo stesso codice sull'evento click di un 
controllo e funziona lo stesso sul pc dell'ufficio e non su quello di casa.
ma mi sbaglio o non dovrebbe funzionare sull'evento click, altrimenti il 
valore ID del record corrente da dove lo prende access???
eppure funziona!!!!
rimane sempre il problema del pc di casa
Grazie 

 ha scritto nel messaggio 
news:471909f3$0$36449$4faf...@reader5.news.tin.it...

Non è che sul pc di casa mancano i record filtrati?
Nessun record = maschera vuota, "bianca"
Ciao, Carlo 

 ha scritto nel messaggio 
news:ffes8f$32p$1...@tdi.cu.mi.it...

no è lo sresso file che sposto con una pen drive
Newsgroup: it.comp.appl.access
Titolo: Consiglio nella realizzazione di report

Ciao Amci del newsgrupo ho bisogno del vostro aiuto per cercare la soluzione
migliore per ottimizzare le prestazioni del database Access in una rete
locale.
Mi spiego:
Ho un database nel quale ho costruito una tabella nella quale sono riportati
un insieme di compiti da distribuire a piu operatori. La tabela è cosi
composta dai campi:
IdCont  (Contatore); DataCarico (Data/ora); Descrizione (Testo);  Operatore
(testo); ecc.
Dalla tabella mi sono costruito una query generale e tante query, tante
quanti sono gli operatori, inserendo nel criterio in corrispondenza
dell'Operatore il nome di ognuno di essi. Adesso devo costruire i report.
Le soluzioni possono essere tre:
1) Da ciascuna query degli operatori posso costruirmi un report;
2) Inserire nel criterio del campo della query generale l'espressione
[Inserisci Nome operatore] in modo tale che partendo da una sola query mi
costruisco un solo report che visualizza solo i dati richiesti;
3) Costruire un report generale che visualizza tutto, pero nelle maschere
degli operatori associo, se è possibile questo non lo so, all'evento click
di un pulsante  una subroutine che richiamando il report di cui sopra mi
visualizza solo i lavori dell'operatore in questione.
Delle tre soluzioni qual'è quella che stressa meno Access? E, gentilmente,
potete dirmi la sintassi necessaria nella subroutine del caso tre?
Sperando di essere stato molto chiaro e poco noioso vi ringrazio
anticipatamente.

 wrote in message
yoYGa.90055$Ny5.2...@twister2.libero.it...

Sicuramente è da escludere la prima soluzione, altrimenti invece di
stressare Access ti prendi tu l'esaurimento nervoso.
La seconda è una soluzione possibile; forse però sarebbe meglio che nei
criteri della query invece di [Inserisci Nome operatore]  scrivere i
riferimenti ad una casella di testo non associata il cui valore, a fronte
dell'evento "Su clic" del tuo pulsante di comando, lo imposti con il nome
dell'operatore.
La terza soluzione è una soluzione che per filtrare i dati da stampare fa
ricorso all'argomento condizioneWHERE del metodo OpenReport (vedi help).
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

 ---------------------------------------------
Grazie Roberto
Newsgroup: it.comp.appl.access
Titolo: Campo autoaggiornante

Non capisco perchè nn funzioni, ho fatto una cosa praticamente simile
proprio ieri!
Nella mia maschera ho una casella di testo Id e subito accanto un'altra
casella di testo Cliente, che dovrebbe andare nella tabella Clienti e
restituire il NomeCliente corrispondente a quanto digitato nella casella Id.
Nella proprietà dell'evento DopoAggiornamento di Id ho messo
=Cliente.requery mentre per la casella Cliente ho fatto un paio di tentativi
ma nn mi funzia.
Ho pensato ad una query del tipo "SELECT Clienti.NomeCliente FROM Clienti
WHERE Clienti.Id = Maschera!OrdineCLiente!Id" ma poi nn so come usarla!
Qualcuno può illuminarmi?

 ha scritto nel messaggio
news:CekJb.32252$VW.15...@news3.tin.it...


 ha scritto nel messaggio
news:IDkJb.32323$VW.15...@news3.tin.it...


Newsgroup: it.comp.appl.access
Titolo: Pari o Dispari?

Salve, come posso controllare se il numero digitato in una text sia pari o
dispari?
Grazie
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 -- 
Usa MOD
se tuonumero mod 2 restituisce 0 allora è pari, altrimenti è dispari:
10 Mod 2 restituisce 0.....è pari
11 Mod 2 restituisce 1.....è dispari
Ciao, Carlo 

 Grazie
Per farti un esempio:
if TuoNumero Mod 2 = 0 then
msgbox "Numero Pari"
else
msgbox "Numero Dispari"
end if
Ciao, Carlo 

 pari o dispari?
http://tinyurl.com/35gzmc
--
PBsoft di Gabriele Bertolucci
www.pbsoft.it
skype:pbsoftsolution


E che vordi' sta cosa?



che se fai click ottieni :
Salve, come posso controllare se il numero digitato in una text sia pari 
o dispari? Grazie
Per farti un esempio:
if TuoNumero Mod 2 = 0 then
    msgbox "Numero Pari"
else
    msgbox "Numero Dispari"
end if
Ciao, Carlo
May 1 by Carlo Costarella - 5 messages - 4 authors
E' un post di un paio di giorni fa ed e' una if con una else e con l'uso 
  dell' operatore/istruzione "mod" che significa "modulo"
-- 
ac
y-1=x
Newsgroup: it.comp.appl.access
Titolo: orologio

Ho un vuoto di memoria!
Non ricordo più come si fa a inserire un orologio in una maschera; ricordo
che, dopo aver creato nella maschera una casella di testo non associata ed
imposto come origine controllo = time(), si doveva andare nelle proprietà di
questa maschera ed impostare in "Intervallo Timer" il valore 1000 (che
corrisponde ad un secondo). C'era un'altra cosa da fare, ma mi sfugge!!!
Qualcuno può aiutarmi.
Auguri a tutti e grazie.
massimo :-)

 ha scritto nel messaggio
news:i7Gdc.118566$Kc3.3...@twister2.libero.it...

nell evento timer della form metti controllo = time ()

 ha scritto nel messaggio
news:c57bsr$fv$1...@lacerta.tiscalinet.it...

Avevo già provato, ma non funziona (l'ora rimane fissa).
Ciao
massimo :-))


Private Sub Form_Timer()
MIOcontrollo.Value = Time()
End Sub
il codice va messo nell'evento del form no del controllo (come detto da
Simba83)

 ha scritto nel messaggio
news:i7Gdc.118566$Kc3.3...@twister2.libero.it...

Caro max se andavi su
http://groups.google.it/groups?hl=it&lr=&ie=ISO-8859-1&q=orologio&meta=group
%3Dit.comp.appl.access
e cercavi orologio trovavi subito 238 messaggi dedicati all'inserimento di
un orologio su una frm.
Inoltre sul sito comune
http://www.sitocomune.com/
  alla pagina novità c'è un bellissimo
esempio chiamatao "Realizzare un cronometro preciso al millesimo di secondo"
di Mario Pecoraro.
Ciao
SunRex

 ha scritto nel messaggio
news:i7Gdc.118566$Kc3.3...@twister2.libero.it...

nell evento timer della form metti controllo = time ()

 ha scritto nel messaggio
news:JsNdc.121077$FJ6.4...@twister1.libero.it...

A me sembra che, per funzionare, la casella di testo non associata deve
essere in realtà una etichetta, cosi' funziona|.
Auguri.
Newsgroup: it.comp.appl.access
Titolo: STRING SQL

Ciao a tutti c'e' un errore in questa stringa ma non riesco a trovarlo 
la variabile codx e' numerica 
la variabile datax e' di tipo data ora l' errore in debug si ferma
Corpo.DDORDINE  "impossibile trovare il metodo o il membro dei dati 
il campo DDORDINE nella tabella Corpo esiste  
Set rsq = DB.OpenRecordset(" SELECT CORPO.NORDINE, CORPO.DDORDINE,
Sum([NIZ]+[NFIN]) AS INFIN, Sum(CORPO.NIN) AS SommaDiNIN" & _
         " FROM Corpo" & _
         " GROUP BY CORPO.NORDINE, CORPO.DDORDINE" & _
         " HAVING CORPO.NORDINE=" & codx And Corpo.DDORDINE = "#& datax &
#")
qualcuno ha suggerimenti Grazie bye bye 
-------------------------------------------------------
Messaggio inviato da 
http://www.sandlab.org/newsgroup/
Accesso gratuito via web ai Newsgroup

 -------------------------------------------------------
Così a occhio c'è un errore proprio nell'ultimo pezzo della SELECT.
Correggi così
 ... And Corpo.DDORDINE = #" & datax & "#")
Cioè le virgolette.
Ciao
Riccardo Baldinotti

 Riccardo Baldinotti
Ciao Riccardo,
 ho provato pultroppo non funge ho tutto il codice in rosso sigh!!



manca anche
" & _
alla fine della prima riga. Me lo sono riscritto così e non dà errore
(per l'esecuzione è un altro discorso...)
Set rsq = DB.OpenRecordset("SELECT corpo.nordine, corpo.ddordine, " & _
    "[niz]+[nfin] AS infin, Sum(corpo.nin) AS SommaDinin " & _
    "FROM Corpo " & _
    "GROUP BY corpo.nordine, corpo.ddordine " & _
    "HAVING corpo.nordine = " & codx & " AND corpo.ddordine = #" &
datax & "#;")
avviandola da codice mi dà l'errore "Impossibile eseguire una query
che non include l'espressione "[niz]+[nfin]" specificata come parte di
una funzione di aggregazione"
Aggiungendo niz e nfin alla query l'errore scompare, almeno in una
query fatta per l'occasione, mentre se chiamo il codice da pulsante mi
dà "Tipo non corrispondente".
Ne ho provate tante: mettere le variabili tra virgolette, togliere i
cancelletti alla data, usare un solo criterio, ma niente.
Purtroppo devo uscirmene per tutto il pomeriggio. Fammi sapere.
Riccardo Baldinotti

 Accesso gratuito via web ai Newsgroup
-- 
_ _
Ciao
MAssimiliano Amendola            
www.accessgroup.it
Cisa - Conferenza Italiana per Sviluppatori Access
Info:  
www.donkarl.com/it

 girino ha scritto:



Ti ringrazio riccardo ora il query e' giusto l' unica cosa e' il formato
della data che access il VBa sql la vuole in un certo formato ma non
ricordo quale se mm/gg/yyyy  oppureYYY/mm/gg bo provo con la funzione
Format .


MA wrote:





Ti ringrazio massimiliano ora il query e' giusto l' unica cosa e' il
formato della data che access il VBa sql la vuole in un certo formato ma
non ricordo quale se mm/gg/yyyy  oppureYYY/mm/gg bo provo con la funzione
Format 
ciao 


 Accesso gratuito via web ai Newsgroup
-- 
