mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.appl.access
Titolo: [Access 2010] salvare liste di record selezionati

in attesa di capire la storia della data di creazione di un file, devo 
dedicarmi ad altro
 
ho una tabella TMP generata al volo dal database principale, visualizzata 
in un subform/subreport, dove posso cambiare il campo quantità e il flag di 
stampa sì/no per poi avviare il report di controllo
 
l'utente mi chiede di poter salvare la "selezione" (flag e quantità) in 
modo da poterla richiamare alla bisogna
 
ho quindi predisposto altre due tabelle: 
ListH con ID autonumber e descrizione
ListR con ID (vedi ListH), InternalCode (che identifica le righe della 
tabella TMP di partenza), Qty
le ho collegate in Relationship, uno a molti
 
(nota: sto valutando se sia invece il caso di fare UNA SOLA tabella, con 
ID+InternalCode come chiave... forse è più semplice da gestire)
 
Ora l'idea è di predisporre un pulsante Save che crea una nuova lista in 
automatico (ListH), chiede una descrizione e inserisce in ListR tutti i 
record di TMP con Flag=true e la relativa quantità
 
A fianco di Save metterei una ListBox con i record esistenti di listH e 
tramite doppioclick caricherei i relativi ListR:
- pulizia di tutti i Flag della tabella TMP
- lettura dei record di ListR con attivazione su TMP del Flag e 
aggiornamento della quantità
 
Ora le domande :)
 
- esiste un form standard che mi permetta di inserire un valore e abbia i 
pulsanti OK + Cancel ? (detto valore sarà la descrizione da salvare in 
ListH)
- è possibile attivare una sorta di click destro sulle voci della ListBox 
per inserire il comando "Delete" ? (quando voglio cancellarne una 
esistente)
 
grazie e buon appetito (vista l'ora)
 
-- 
/-\ /\/\ /\/\ /-\ /\/\ /\/\ /-\ T /-\
-=- -=- -=- -=- -=- -=- -=- -=- - -=-
........... [ al lavoro ] ...........

 ........... [ al lavoro ] ...........
 
Non sono certo di aver capito bene... vedi tu.
 
@Alex

 
 
mi piace il menu popup, vado a cercare come si fa

Newsgroup: it.comp.appl.access
Titolo: riferimento a sottomaschera in clausola if

ho una maschera che contiene una sottomaschera.
sulla maschera principale sull'evento "dopo aggiornamento" di una combo vorrei mettere una clausola if facendo riferimento al valore di un controllo della sottomaschera:
se scrivo
if(campo_sottomaschera >0) then
docmd.openform "form1"
else
docmd.openform "form1"
end if
 
non riesco a scrivere la sintassi per riferirmi al campo della sottomaschera
ho provato [sottomaschera].[Form]![VERS] ma non va ([VERS] è il controllo della sottomaschera, numerico)
mi aiutate?
grazie

 controllo della sottomaschera, numerico)
 
Vedi 
http://www.donkarl.com/it?FAQ4.2
 
 
Se non riesci, riporta l'errore e futti i nomi e incolla il codice reale.
 
-- 
Ciao
Karl
*********
Access FAQ:  
http://www.donkarl.com/it
 
 
 


Grazie Karl, così funziona.
ora però ho un'altro problemino che sono sicuro tu puoi risolvere.
la sottomaschera è basata su una query che in alcuni casi può restituire nessun record,e quindi il mio controllo VERS come lo intercetto? perchè non un null ma non esiste proprio. come faccio nella clausola if a verificare se VERS esiste?
grazie
 

 nella clausola if a verificare se VERS esiste?
 
Se ti capisco bene devi fare il controllo separatamente, p.e.
 
If Me!Sottomaschera.Form.CurrentRecord > 0 Then
'ci sono record o la possiblit� di aggiungere e puoi controllare il valore
    If Me!Sottomaschera.Form!CampoOControllo > 0 Then



Perfetto! con il controllo del CurrentRecord è sufficiente.
lo imposto così, se ci sono record apri maschera1 altrimenti maschera2.
Grazie Karl!!
Newsgroup: it.comp.appl.access
Titolo: Report in Pdf

Ciao a tutti.
come faccio a trasformare un report in Pdf.
Mi hanno detto di cercare in google ma come faccio.
C'era una ricerca per newsgroup ma non mi ricordo + come si fa.
ciao e grazie

 ha scritto nel messaggio
news:NB7Vb.20801$Mt6.6...@twister2.libero.it...

leggi qui:
http://groups.google.it/groups?hl=it&lr=&ie=UTF-8&threadm=b03itq%24s43%241%4
0fata.cs.interbusiness.it
&rnum=1&prev=/groups%3Fhl%3Dit%26lr%3D%26ie%3DISO-8
859-1%26q%3Dpdf%26btnG%3DCerca%2Bcon%2BGoogle%26meta%3Dgroup%
253Dit.comp.app
l.access
Link tutto di un fiato...
Ciao.
--
Sergio MAZZA

 ha scritto nel messaggio
news:3_cVb.203841$VW.83...@news3.tin.it...

Scusami ma il link non funziona.
Come faccio, ho visto su google ma non riesco a risolvere il problema.
ciao e grazie

 ciao e grazie
Se inserisci la parola PDF trovi anche il link indicato; comunque prova con
questo link:
http://www.pdf995.com/
Se non ricordo male ti crea una stampante chiamata PDF995 printer...
Ciao.
--
Sergio MAZZA

 ha scritto nel messaggio
news:9VtVb.276632$_P.95...@news4.tin.it...

grazie , sei stato molto gentile anche se non capisco una Mazza. Scusa per
battuta ciao.

 ancora.
Non lo so, non lo utilizzo.
Mi dispiace...
Ciao.
P.S. In confidenza, non ci capisco 'na mazza neanch'io...
--
Sergio MAZZA

 Come faccio, ho visto su google ma non riesco a risolvere il problema.
Ho appena controllato ed il link funziona correttamente.
-- 
Gabriele Bertolucci
PBsoft 
www.pbsoft.it

 battuta ciao.
Se vuoi zero problemi ti consiglio Win2PDF.
In italiano, semplice, efficace, buona compressione.
www.win2pdf.it


 P.S. In confidenza, non ci capisco 'na mazza neanch'io...
Se decidi di utilizzare Win2PDF posso darti una mano io, anche se credo
proprio che non ne avresti bisogno :-)
Qui in azienda lo utilizziamo tutti.


"Gabriele Bertolucci" <CANCEL...@ELIMINApbsoft.TOGLIit> ha scritto nel
messaggio news:o3mWb.218866$VW.89...@news3.tin.it...

Grazie Gabriele, come hai capito era solo per proseguire il cazzeggio; ma se
dovesse servirmi una mano ti tengo presente. Per ora mi tengo alla lontana
da pdf, flash et simili...
Ciao.
--
Sergio MAZZA

Newsgroup: it.comp.appl.access
Titolo: relazioni fra tabelle molti tutorial ne sconsigliano l'utilizzo

mi è stato detto che molti tutorial sconsigliano l'utilizzo delle relazioni previste in access in creazione tabelle, mi chiedo il motivo, voi cosa ne pensate? e se non vengono usate come elimino a cascata i record relazionati delle sottotabelle di un certo record

mario rossi formulated on Thursday :

Stupidaggini!
Acces, SQL Server, Oracle, MySql, IBM DB2 sono RDBMS
(l'R iniziale sta per relational).
 
Giusto per fartene un'idea:
https://www.jamesserra.com/archive/2015/08/relational-databases-vs-non-relational-databases/
 
 
Bruno
Newsgroup: it.comp.appl.access
Titolo: Access '97 to Access 2003.

Chiedo una cosa che avrete sicuramente hanno fatto tanti prima di me.
Ho comprato Microsoft office 2003 ma usando soprattutto Access '97 e avendo
già provato a passare al '2000 con molti problemi chiedo se può essere la
stessa cosa anche per '2003.
I problemi che ho avuto passando al '2000 e che alcune machere e query non
venivano trasformate e per cui il mio programma non funzionava e sono stato
costretto ad annullare tutto.
Qualcuno mi può aiutare o darmi qualche consiglio.

=2000 che sono ADO.
Fatto questo il programma deve andare.
Ciò premesso se devi passare da A97 ad A2003 devi fare la stessa
cosa, quindi incontrerai gli stessi problemi.
Ciao
-- 
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.mantuanet.it/alessandro.baraldi/
---------------------------------------------------------------------------

 Qualcuno mi può aiutare o darmi qualche consiglio.
Purtroppo tra A97 ed i successivi c'è un confine, voluto da microsoft, che 
una volta varcato...
non rende più possibile il ritorno...

 ha scritto nel messaggio
news:36524mF...@individual.net...

Strana questa cosa dato che nel Menù la stessa MS rende disponibile
il salvataggio alla versione A97.....!!!
Il confine esiste solo se lo sviluppatore non lo sà gestire.
Saluti

Newsgroup: it.comp.appl.access
Titolo: Errore inserimento runtime

Ho questo codice
[code]
Set con = CurrentDb
sql = "SELECT max(IdInterno) as maxInterno From IntestatarioInterno
WHERE Lettera = '" + valoreOPT + "'"
Set rs = con.OpenRecordset(sql)
If (rs!maxInterno > 0) Then
    'esiste già un valore nel db prendo il valore e lo aggiorno
    Dim max As Integer
    max = rs!maxInterno
    con.Close
    Set con = CurrentDb
    sql = "SELECT Numero FROM IntestatarioInterno WHERE IdInterno=" &
max & ""
    Set rs = con.OpenRecordset(sql)
    'Inserisco i valori
    Set con2 = CurrentDb
    sql = "INSERT INTO IntestatarioInterno VALUES('','" + valoreOPT +
"','" & rs!Numero + 1 & "','1')"
    Set rs2 = con2.OpenRecordset(sql)
    MsgBox (sql)
    con.Close
    con2.Close
Else
'Inserisco il valore nel database a partire dal valore dichiarato in
num
    con.Close
    Set con = CurrentDb
    sql = "INSERT INTO IntestatarioInterno VALUES('','" + valoreOPT +
"','" & num & "','1')"
    Set rs = con.OpenRecordset(sql)
    'MsgBox (sql)
    con.Close
End If
[/code]
Ho il problema che non mi esegue la query con la insert... cosa
sbaglio?
Credo sia un problema di sintassi... potete aiutarmi?
Concettualmente:
Controllo se nel db esiste un IntestatarioInterno con una certa
lettera definita dall'utente.
Se esiste prendo l'ultimo valore (il più grande) e inserisco una nuova
tupla dove il campo numero viene incrementato di uno
Se non esiste un Intestatario  interno lo aggiungo semplicemente

 ha scritto nel messaggio 
news:4f62b0a3-d3a4-4212...@w34g2000hsg.googlegroups.com...
Ho questo codice
[code]
Set con = CurrentDb
sql = "SELECT max(IdInterno) as maxInterno From IntestatarioInterno
WHERE Lettera = '" + valoreOPT + "'"
Set rs = con.OpenRecordset(sql)
If (rs!maxInterno > 0) Then
    'esiste giā un valore nel db prendo il valore e lo aggiorno


    Set rs2 = con2.OpenRecordset(sql)

[/code]


Se esiste prendo l'ultimo valore (il pių grande) e inserisco una nuova
tupla dove il campo numero viene incrementato di uno
Se non esiste un Intestatario  interno lo aggiungo semplicemente
------------------------------------------------------------------------------------------------
hai provato ad inserire un punto di interruzione sul
    Set rs = con.OpenRecordset(sql)
??
ci arriva fino a lė?
Trovi sempre un (rs!maxInterno > 0) ??? sembrerebbe di sė vista la query.
Hai dei codici di errore ?
IvanDaBologna
Newsgroup: it.comp.appl.access
Titolo: Maschere collegate e aggiornamenti

Ciao a tutti,
ho un problema con due maschere:
la prima (Padre) mostra tutte le spese telefoniche per ogni telefono e ha
rst Snapshot
NumTel
Importo
...
Premendo il tasto modifica su questa maschera si apre una seconda maschera
(Figlio) con rst Dynaset che mi consente di modificare i dati. Confermando
le modifiche su questa maschera torno alla maschera precedente ma non trovo
i dati aggiornati pur con tutti i me.requery, refresh, repaint e recalc (la
maschera ha anche campi calcolati) del mondo nell'evento Open della tabella
Padre! Tuttavia andando ad aprire la tabella su cui poggiano le due maschere
l'aggiornamento viene effettuato.
Come faccio ad aggiornare la tabella Padre con i dati giusti? Nell'evento
conferma ho già messo uno spostamento di cursore ma non ha alcun effetto.
docmd.gotorecord,,acfirst
Ciao e grazie,
Lorenzo
--------------------------------
Inviato via 
http://usenet.libero.it


scusa ma credo che tutti gli eventi me.requery, refresh, repaint e 
recalc etc devi metterli sull'evento close della mask figlio xchè quella 
padre resta aperta (o no?)

 padre resta aperta (o no?)
Ciao Superpippo,
ho risolto il problema creandomi a "mano" le due maschere (mentre
prima lo facevo fare allo wizard)... credo che Access mi avesse messo
delle proprietà particolari sulla form che mi davano dei problemi...
ora funziona come dovrebbe ma l'evento me.requery l'ho messo cmq
all'apertura della form padre ;-)
Grazie cmq per l'aiuto,
Lorenzo
Newsgroup: it.comp.appl.access
Titolo: Aiuto

Devo aprire una maschera con un recordset limitato
id_ultimo_record č un long
Quando arrivo alla riga seguente...
DoCmd.OpenForm "msc_insert_odl", acNormal, , ("id_richiesta >" &
id_ultimo_rec).....il debiger mi dice l'azione openForm č stata annullata!
Quindi?
Grazie per l'aiuto.
Ciao
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 Quindi?
Quindi????? E ce lo chiedi pure?
E' il settimo messaggio che invii in totale, per cui avrai letto i 
cazziatoni volati in giro.... lo hai capito che "AIUTO" o cavolate simili, 
in un subject non devono esistere?!?!?!?!
Quindi... ritenta, sarai più fortunato.
-- 
-- 
Ciao
Pablitomf (Maurizio Facciuti)
-----------------------------------------------------------------
Access: 97, 2000, XP e 2003
ASP
-----------------------------------------------------------------
http://www.accessgroup.it/
-----------------------------------------------------------------
Il mio motto :
""Non mi fido molto delle statistiche, perchè un uomo con la testa nel forno
acceso e i piedi nel congelatore statisticamente ha una temperatura media." 

 Quindi... ritenta, sarai più fortunato.
Non credevo ci fosse un numero massimo di messaggi da inviare!
E scusate se nell'oggetto non sono stato chiaro e ho usato termini non
consentiti dalla comunity. Forse a questo punto è meglio arrangiarsi e
quando diventerò un'esperto programmatore di access mi
ripresenterò....anche se a quel punto non avrò più bisogno!!
Saluti a tutti!!!!


 Saluti a tutti!!!!
Ciao e buono studio... ;-) 

 > Saluti a tutti!!!!

Lungi da me fare della polemica!!
Allora con molta umiltà cercherò di risolvere il problema da solo senza
usare incontrollatamente il newgroup.....e scriverò solo dopo aver capito
che sarebbe impossibile da solo arrivare a capo della soluzione.
Credo che questo sia un buon compromesso!
Scusate ancora!
A presto...


 Non credevo ci fosse un numero massimo di messaggi da inviare!
Non c'e' un numero massimo di messaggi da inviare.
E' il numero di copie dello stesso messaggio che non serve.
Il NG accetta una copia.
Dalla seconda copia in poi cominciano a volare i "cazziatoni"
Riposta lo stesso messaggio come "Azione openform annullata"
(Che e' un "oggetto" significativo) e come per magia otterrai risposta e 
azzeramento dei cazziatoni
--
ac

 A presto...
Ti propongo una nuova alternativa che forse non hai preso in
considerazione....
"Prova ad effettuare una ricerca per Oggetto nel NG".
Se quelli che scrivono hanno evitato Oggetti come il tuo ti assicuro
che trovi nel 90%
dei casi che l'argomento è stato trattato... come anche in questo
caso...
Fai questo tentativo e vedi quanti Post escono.
Google consente di risalire a messaggi vecchi di 10 anni(per dire un
numero)
..... credo sia abbastanza...
@Alex
Newsgroup: it.comp.appl.access
Titolo: Condizioni arresto macro

Ciao a tutti,
Ho creato un macro che a sua volta deve eseguire un'altra macro, e nelle
condizioni di arresto vorrei dire:
il record contenuto in Forms!maschera!record1  è diverso da Forms!maschera
record2. come posso scriverlo?
grazie.
Ciao.


Prova con:
Forms!maschera!record1  <> Forms!maschera record2
Se record1 e record2 sono due controlli di due maschere entrambe aperte...
Ciao.
-- 
Sergio MAZZA

Newsgroup: it.comp.appl.access
Titolo: ridimensionare form in base alla risoluzione schermo e relativa sottomaschera

Salve a tutti
ho una form con relativa subform tabellare che vorrei adattare sempre alla 
massima risoluzione dello schermo utilizzato.
Questo perchč da clienti che lavorno con 800x600 la maschera occupa tutto lo 
schermo mentre da altri che lavorano con risoluzioni mostruose la maschera č 
un francobollo e non riesco a sfruttare l'altezza per dell'area dello 
schermo per mostrare molti piů record.
Ho risolto (quasi) con questo codice nell'apertura:
Dim rctParent As RECT
hWndParent = GetParent(hWnd)
Call GetClientRect(hWndParent, rctParent)
Call MoveWindow(Me.hWnd, 0, rctParent.Top, rctParent.Right, 
rctParent.Bottom - rctParent.Top, 1)
Me.Corpo.Height = fPixelsToTwips(rctParent.Bottom, 1) - 
Me.IntestazioneMaschera.Height - Me.PičDiPaginaMaschera.Height
Me.sottom.Height = Me.Corpo.Height - 400   '400 č l'altezza della barra di 
scorrimento orrizontale...anche qui ho qualche dubbio cmq funziona
Me.sottom.Width = Me.Width
Me.sottom.Top = 0
Me.sottom.Left = 0
ora la maschera occupa tutto lo schermo...la sottomaschera (sottom) occupa 
tutto il corpo in altezza (quindi vedo molte righe) ma non in 
larghezza...praticamente non mi considera
Me.sottom.Width = Me.Width
sbaglio qualcosa?
Grazie BFS 

 Grazie BFS
C'è un articolo sul sito di donkarl

 Grazie BFS
C'č un articolo sul sito di donkarl
bhe fare una form per ogni risoluzione non mi sembra proprio una buona idea.
e neppure voglio aggiungere addin esterni.
mi basterebbe solo capire come mai non funziona quella riga..il resto mi va 
alla perfezione su tutte le risoluzioni
ciao e grazie
BFS
Newsgroup: it.comp.appl.access
Titolo: i calcoli di una maschera non vengono inseriti in tabella

Ciao a tutti,
ho creato la tbl A e per rendere l'inserimento dei record più allettante 
graficamente, ho creato una maschera A.
In questa maschera però ci sono dei campi a cui ho dato come origine dei 
dati, delle formule seppur semplici, che mi velocizzano per es l'inserimento 
delle fatture (si completano le somme IVA, IMPONIBILI o TOT FATTURE).
Il problema è che questi campi, nella tabella compaiono con valore 0.00? e 
quindi, avendo la necessità di creare una query per questi dati ho dei 
problemi.
Forse è sbagliata proprio la concezione di creare la tabella e poi la form?
Dovevo creare una maschera di inserimento dati e quindi la tabella avrebbe 
"appreso" correttamente tutti i dati compresi quelli delle formule?
Grazie per chi avrà anche solo letto
-- 
Giorgia 

 ha scritto nel messaggio 
news:47bc6cbd$0$10628$4faf...@reader2.news.tin.it...

Io ho letto. Prego :-D 

 ha scritto nel messaggio 
news:fpi09g$503$1...@tdi.cu.mi.it...

Scherzi a parte... se ti interessano le fatture, guarda questo mio piccolo 
demo :
http://www.accessgroup.it/HomeArgomenti.asp?ID=126&Oggetto2=DB%20Fatturazione
-- 
---
Ciao
Pablitomf (Maurizio Facciuti)
Web Master 
www.accessgroup.it
 

 ha scritto nel messaggio 
news:fpi0bv$52m$1...@tdi.cu.mi.it...

eh eh grazie per aver letto e ancor di più per aver risposto!!
ho dei problemi ad aprire il tuo dataase di es per fatture, mi dice che è di 
sola lettura.....
Giorgia 

 ha scritto nel messaggio 
news:47bd3f46$0$17949$4faf...@reader1.news.tin.it...

Almeno questo l'ho risolto!avevo dei problemi ad estrarre i file.
Molto molto ben fatto cavolo!!chissà se arriverò mai ad avere una simile 
padronanza di Access.
Ho trovato esattamente la query che mi serve per il riepilogo dell'iva 
mensile ma non riesco a capire come devo inserire i parametri mese e 
anno.....
Giorgia 


Di solito i campi calcolati non si mettono in tabella, prorpio perchè
calcolati e quindi inutile occupare spazio fisico nella tabella...
Se poi li vuoi in una query puoi sempre ricalcolarli con una formula
nella query.
Se prorpio li vuoi in tabella, non puoi calcolarli come origine dati,
dato che l'origine dati ti serve per associare il controllo al campo
della tabella, per cui puoi mettere la formula nel valore predefinito.
F.
Newsgroup: it.comp.appl.access
Titolo: Intercettare messaggio allarme ?

Voglio eseguire una query di creazione tabella, ma mi succede che quando
questa tabella esiste già mi appare il messaggio "La tabella "miatabella"
verrà elimintata prima dell'esecuzione della query, ....
Ovviamente mi sta bene che la elimini, ma vorrei lo facesse in modo
"silenzioso" .
Ho provato ad inserire del codice prima di fargli eseguire la query (codice
che rimuove la tabella già esistente), ma quando questa tabella non esiste
succede un caos !
Come faccio a dirgli :
Se tabella "XX" esiste then Cancellala e procedi ?
Grazie
Ciao by Ciao by Max 
max...@quios.com
 
max...@libero.it
 Visit my web page at
http://run.to/Galway

 ha scritto nel messaggio
news:95c6d6$6nt$1...@lacerta.tiscalinet.it...

Prima di eseguire la query imposta il SetWarnings a False.
Es.
'--------------
DoCmd.SetWarnings False
DoCmd.OpenQuery "blabla"
DoCmd.SetWarnings True
'--------------
Ciao.

"silenzioso" .
Prova andando in Strumenti\Opzioni
Nel tab Modifica/Trova disabilita il check in Conferma - Eliminazione
documenti 
-- 
Giovanni "Gyo" Perdicaro
E-Mail: 
gperd...@sicilyonline.it

...

Alla tua domanda ha già risposto Sergio però se dovesse servirti
In ACC97
Dim rst As Recordset
Set rst = CurrentDb.OpenRecordSet("select count(*) from msysobjects where
name = 'tabella1' and type =1")
If rst(0) > 0 Then
MsgBox "esiste"
Else
MsgBox "Non esiste"
End If
Attenzione al type  che vale 1 per una tabella locale, 6 per una collegata
da un altro mdb....
Un'altra posssibilità è quella di gestire l'errore
On error goto err_NomeFunzione
....
exit function
err_nomefunzione:
if err = numeroerrore resume esecuzionequery
end function
Ciao Nicola
email: metti inwind al posto  di NOSPAM
Newsgroup: it.comp.appl.access
Titolo: eventi su controlli

-casella di testo: se gestisco le proprietà 'valido se' e 'msg d'errore'
tramite la finestra proprietà E tramite codice con l'evento lostfocus(),
quale dei 2 sistemi ha la prevalenza?
-sempre casella di testo: se il valore immesso è 0 (valore predefinito) lo
stato attivo deve rimanere sul controllo. dopo varie prove, l'unica maniera
di gestirlo efficacemente è stata quella di agganciare (com'è il termine
esatto?) l'evento lostfocus(), dare il msg d'errore, spostare lo stato
attivo su un'altro controllo e poi riportarlo sul controllo corrente.
La cosa funziona, ma ho la sensazione che dovrebbe esserci un sistema
migliore...
qui sotto il codice:
Private Sub Peso_lordo_LostFocus()
If Me.Peso_lordo = 0 Or IsNull(Me.Peso_lordo) Then
    MsgBox "Il peso deve essere maggiore di zero.", vbOKOnly
    Me.rif_scatola.SetFocus
    Me.Peso_lordo.SetFocus
    Exit Sub
End If
End Sub
ancora casella di testo: se sulla casella gestita dal codice sopra ho lo
stato attivo, come posso intercettare un evento (il click su di un
pulsante)? ho provato con
    Esci.OnClick = "[esci_maschera_click()]"
esci =nome pulsante
esci_maschera_click() = sub di evento sul pulsante
ma ovviamente non funge
gianni

 ma ovviamente non funge
Piuttosto ovvio.
Non sei tu a intercettare l'evento, ma il sistema operativo e se il
controllo precedente non perde lo stato attivo, l'evento non si verifica.
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
Newsgroup: it.comp.appl.access
Titolo: Formato valuta in un TextBox in Visual Basic

Ciao a tutti, come v�?
Sto riversando alcune mie applicazioni da Access a VisualBasic 2008 e, come 
sempre accade, � nelle cose cretine che sorgono i maggiori problemi,
Il vero quesito � dopo, ma tanto per chiacchierare:
Ho creato una maschera collegata ai dati con pulsanti di spostamento e tutto 
il resto, apparentemente tutto funziona e se modifico un record spostandomi 
e ritornandoci sopra nella maschera lo vedo effettivamente modificato, ma se 
ricarico la maschera il record torna com'era prima, in pratica le modifiche 
vengono fatte sulla tabella temporanea che la maschera crea automaticamente 
ma non vengono trasmesse al database.
Allora ho creato nuovamente la maschera ma stavolta con la procedura 
guidata, la maschera risulta identica alla prima ma stavolta funziona 
perfettamente e i dati vengono effettivamente modificati anche nel database 
collegato.
Ho controllato riga di codice per riga di codice, anche nel codice interno 
che genera la maschera, ho controllato propriet� per propriet� tutti gli 
oggetti e non ho trovato alcuna differenza, ma non mi arrendo!
--
Vero questito:
in questa maschera ho un controllo che contiene un importo, nel database 
questo importo � un float, come si formatta in valuta all'interno del 
controllo? in access � talmente facile che non mi spiego come mai in VB2008 
sia cos� difficile.
Ariciao
Davide
-- 
http://www.gestionedati.com
"...perch� non esistono saggi per nascita."
(Ptahhotep, 2640 ac) 

Ciao Davide...
Purtroppo solo per i saluti... non ho ancora aperto Net... anche se
sono 2 anni che vorrei farlo....!!!
@Alex

 ha scritto nel messaggio 
news:641fe212-9596-4a4e...@o36g2000vbi.googlegroups.com...

Ciao Alex,
come ti capisco.
Anche io ho rimandato anni perch� ogni volta che ci provavo capivo perch� 
avevo scelto Access.
Ora per� pare che MS non intenda pi� fornire strumenti developer e a questo 
punto voglio provarci!
Ciao


  e a questo punto voglio provarci!
La nuova versione di Access � abbastanza interessante in vari aspetti,
ma si deve ancora aspettare un po' per le prime informazioni ufficiali
dalla MS.
-- 
cu
Karl
*********
Access FAQ: 
www.donkarl.com/it
 

 Davide
-- 
Ciao
Geppo 

 ha scritto nel messaggio

Ciao Karl,
piacere di rileggerti.
Io ci sto provando con VB, vediamo se cavo il ragno dal buco,
Ciao
Davide
(PS: Il mio vecchio invito � sempre valido.)

Newsgroup: it.comp.appl.access
Titolo: Calcolo giorni lavorativi con vacanze

Ciao a tutti
scopro con mia grande sorpresa che access non ha una funzione per il
calcolo dei giorni lavorativi intercorrenti tra due date analoga all
GIORNI.LAVORATIVI.TOT di excel.
Come posso fare dovendo calcolare i giorni lavorativi tra due date
tenendo conto anche delle vacanze?
Grazie a tutti
Rick
-- 


No ovviamente Access non è Excel, ed anche Excel ha i suoi
problemi...!
Guarda questo:
http://www.alessandrobaraldi.it/DettaglioFaq.asp?IdFAQ=302
Manca ovviamente l'integrazione della Festa del 150°... il 17/Marzo/
2011
Fai attenzione a metterla nel Modulo e non nella Tabella, in quanto è
vincolata solo a quest'anno...
@Alex

 @Alex
Funziona alla grande direi! Grazie mille!
Non trovi però strano che un applicazione come Access non abbia una
funzione 
nativa che fa questo calcolo?
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 nativa che fa questo calcolo?
No.

 nativa che fa questo calcolo?
Direi che è normale... anche perchè Excel stesso non considera il
17Marzo, il 18Marzo che a Mantova è il Patrono... ecc...!
Intervenire su funzioni predefinite è più difficile e scomodo che
crearsi una funzione propria... almeno per me....
@Alex

Ciao Maurizio... hai visto che ogni tanto scivo ancora qualche riga di
codice che funziona....!
;-)
@Alex


"Nun t'allarga'". Raramente ti succede ma e' un caso, puro "asshole".  ;-{)
-- 
ac (x=y-1)


wrote:

"asshole"...? Beh ci vuole pure questo... anzi... beato chi lo ha,
fatica di meno...!!!!
;-)
@Alex

 @Alex
grazie
-- 
Ciao
Geppo 

 Geppo
Si è possibile che manchi un +1 nel ciclo di calcolo del DateDiff
nella funzione [GetWorkDaysNum].... insomma vedi un pò tu dove è
l'inghippo... poi dacci feedback del Bug.
@Alex

 wrote:

... Non dovrebbe essere difficilissimo.
Solo scusami : che intendi esattamente per "vacanze" ?
Immagino i sabati + domeniche + feste comandate.
Giusto ? Pero' :
A Roma si festeggia SS pietro, a Milano S. Ambrogio.
E sono date diverse.  Mi spiego ?

 l'inghippo... poi dacci feedback del Bug.
Si effettivamente qui mancava il +1:
lngTot = DateDiff("d", dtStart, dtStop) + 1
Perfetto.
Grazie
-- 
Ciao
Geppo 


Guarda il demo che propongo, personalizza in base alle esigenze
personali o Regionali/Provinciali...
@Alex


E come hai fatto con le feste a data variabile, come la Pasqua ?

 E come hai fatto con le feste a data variabile, come la Pasqua ?
Guarda....
@Alex


Uffa ... :-)
Newsgroup: it.comp.appl.access
Titolo: Matrici in Access

Un saluto a tutti.
Ho una tabella con 17 records con 8 campi, vorrei mettere questa
tabella in una matrice o array (come si dice?), per poter recuperare i
loro valori successivamente, però vorrei inserire solo 6.campi (invece
di 8).
Io ho tentato di fare qualcosa ma poi…. Non mi fa errore ma neanche ha
preso i valori della tabella!
Public Sub RiempiMatriceBidim()
    Dim db As DAO.Database
    Dim RS As DAO.Recordset
    Dim NomeTab As String
 
    NomeTab = "tblTariffe"
    Set db = CurrentDb
    Set RS = db.OpenRecordset(NomeTab, dbOpenDynaset)
(la parte sotto l'ho copiata dall'help [Utilizzo delle matrici],)
    Dim intI As Integer     '..pilota ciclo conta records
    Dim intJ As Integer     '..pilota ciclo conta fields
    Dim intN As Integer     '..intero del numero di records
 
    Dim curMatriceTariffa(0 To 16, 0 To 5) As Currency
 
    For intI = 0 To 16
        For intJ = 0 To 5
            curMatriceTariffa(intI, intJ) = intI * intJ
            Debug.Print curMatriceTariffa(intI, intJ)
        Next intJ
    Next intI
End Sub


Ti ricordo che una query come una tabella è una matrice bidimensionale:
righe e colonne.
Perchè non usi una query usando solo i sei campi che ti servono? Se la
tabella, come spero, ha un indice univoco, non ti sarà difficile recuperare
qualsiasi valore della tua "matrice".
Ciao, Carlo


come suggerito da carlo potresti usare una query e poi prelevare i valori con un dlookup o recordset...
cmq il tuo codice dovrebbe essere cambiato in (ho copiato solo la parte da modificare che parte da dim curMatriceTariffa (riga
esclusa, fino alla fine)
intI = 0
do while not rs.eof
        intJ = 0
             curMatriceTariffa(intI, intJ) = rst!campo1
        intJ = intJ+1
             curMatriceTariffa(intI, intJ) = rst!campo2
.
.
.
    rs.movenext
    intI = intI +1
loop
cosě riempi la matrice...
perň io sono dell'idea di Carlo e di usare una query, altrimenti dovresti dimensionare ogni volta la tua matrice... ma cmq vedi
tu....
ciao
Nick

di 8).
cut
Un ringraziamento per la sollecitudine e l'interessamento.
Innanzi vi faccio presente che ho inserito quel ciclo inviatomi da
Nick e la cosa è andata benissimo (chiaramente voi non avevate dubbi
su ciò). Per quando riguarda il vostro consiglio (di adoperare tabelle
e/o query come matrici) vorrei fare questa piccola esperienza dal
momento che non ho mai avuto occasione di adoperarle, magari alla fine
poter valutare e perché no ritornare sui propri passi eseguendo le
procedure con le tabelle e/o query.
Anzi se mi consentite approfitterei per chiedervi ancora dei
chiarimenti:
1) questa matrice una volta creata rimane in memoria fino a chiusura
del Db?
2) questa matrice rimane pubblica ossia è visibile da ogni parte del
Db?
3) Per richiamare un vettore magari per assegnare il suo valore ad una
variabile, è sufficiente fare la chiamara così, es.:
curMatriceTariffa(6, 2)?
Grazie.


prego :)
ciao
Nick


Ti ringrazio. ciao
Newsgroup: it.comp.appl.access
Titolo: [OT] Sì... ma quando si mangia?

Sto sempre aspettando che si organizzi qualcosa in aiuto dei nostri poveri
stomachini...
con sto' freddo poi....


tra mezzoretta noi in padania si cena ... se vuoi aggiungerti posso offrire 
specialità locali ...

 ha scritto nel messaggio
news:d0a5g3$a3g$1...@hulme.interac.it...

Ciroteo... e le altre 8 ore per raggiungerti?..

 ha scritto nel messaggio
news:d0a5g3$a3g$1...@hulme.interac.it...

Cena alle 19.00
come in Lapponia...
Sigh...
Antonio

"Antonio Biso" <ch...@NOSPAMetruria.net> ha scritto nel messaggio 
news:z5XWd.65454$lB4.1...@twister1.libero.it...

eh sai, qui in padania certe abitudini sono difficili da dimenticare ...
per non parlare del pranzo ... rigorosamente a mezzogiorno, i meno ortodossi 
addirittura alle 12.30 ...
all'una è già ora di pennichella ... 

 ha scritto nel messaggio
news:d0jv9n$he7$1...@hulme.interac.it...

Spiritoso...
In padania la pennichella non esiste:
LAURA', LAURA', DANE', DANE'
Antonio
Newsgroup: it.comp.appl.access
Titolo: integrare paint in access

secondo voi esiste qualche programma tipo microsoft paint da integrare in
access oppure da realizzare all'interno di access per manipolare immagini
bmp con strumenti tipo il secchio per colorare aree o qualcosa di simile?
grazie a tutti.



tempo fa si parlava dei Wang tools
chi sa qualcosa di più parli
vedi vecchi 3d su google
Saluti.
Emanuele.

 ha scritto nel
messaggio news:aqjm0b$ta9$1...@lacerta.tiscalinet.it...

Qualcosa del genere la trovi sotto il nome di PictureBoxVer32.mdb nel sito:
www.lebans.com
--
RoDAgo

Newsgroup: it.comp.appl.access
Titolo: Lanciare un database..

Salve a tutti!Vi spiego il mio problema:
In una form di un database vorrei creare dei link a degli altri 
programmi access fatti da me,i quali risiedono su una cartella di rete 
che è mappata su tutti i pc con la stessa lettera,quindi su tutti i pc 
il percorso ai questi pgm è uguale!Ho intrapreso diverse strade,ma con 
scarsi risultati:
- ho usato la Shell("..",1), ma mi dà errore..Questo immagino perchè la 
shell possa aprire soltanto file che risiedono in C (l'ho dedotto 
perchè ho spostato i pgm in c,e con la stessa sintassi,cambiando 
logicamente l'unità su cui vado a leggere,me li apre!)
- ho usato la proprietà Coll.ipertestuale su di un'etichetta,e 
funziona..soltanto che poi,quando chiudo il programma aperto con il 
link,mi viene richiesta a video la password del database,che non 
esiste,e mi manda in tilt il pgm..
- ho creato dei file bat che con la sintassi "Start j:\mio programma" 
mi lanciano i diversi database..Questa soluzione sembra funzionare 
bene,ma se all'interno della rete cè già qualcuno che sta usando il pgm 
in questione,il file bat non me lo apre +..cosa ke non succede 
aprendolo a mano.
Non so dove sbattere la testa..Sapreste consigliarmi qualche soluzione?
Vi ringrazio anticipatamente!
Inviato da 
www.mynewsgate.net

 logicamente l'unità su cui vado a leggere,me li apre!)
Strano!
Io così apro file in excel.Provala cambiando i riferimenti ad Office
e fammi sapere.
SunRex
Public Function ApriProgramma()
Dim strPath As String
Dim RetVal
On Error GoTo ErrHandle
strPath = "D:\TuaCartella\File\TuoFile.xls"
RetVal = Shell("C:\Programmi\Microsoft Office\Office\Excel.exe " & strPath,
vbNormalNoFocus)
ErrHandle:
If Err.Number = 0 Then Exit Function
End Function


 ha scritto nel messaggio news:200407221...@mynewsgate.net...

Mi sembra strano che avendo mappato la risorsa la shell non funzioni;
comunque prova con questo script wsh.
Dim oWshShell
Set oWshShell = CreateObject("WScript.Shell")
oWshShell.Run "d:\nomeFile.mdb"
Set oWshShell = Nothing
Ciao.
-- 
Sergio MAZZA
Newsgroup: it.comp.appl.access
Titolo: Database maggiore di 2 GB

Ciao a tutti,
ho una serie di query che mi dovrebbero creare un file di circa 5 GB ma 
access gestisce file al max di 2 GB.
Qualcuno riesce a suggerirmi qualche soluzione?
Grazie,
Christian 

 ha scritto nel messaggio
news:b3WBe.21707$b93....@tornado.fastwebnet.it...


 ha scritto nel messaggio
news:b3WBe.21707$b93....@tornado.fastwebnet.it...

Se lavori in Monoutenza direi FireBird, con una sola Dll hai le
prestazioni di un vero DatabaseRelazionale senza limiti, non va
installato, fà tutto la DLL di cui sopra, il tutto è decisamente ben
spiegato nel sito Borland dedicato a FireBird.
Se sei in Multiutenza i suggerimenti di Carlo sono una valida
alternativa, personalmente ritengo MySQL ancora da migliorare
nell'uso in rete, ed al lavoro uso SQL_2000, ma come ti dicevo
per lavoretti corposi FireBird di Borland per Monoutenza è
eccezionale, ora da quanto sono riuscito a capire(qualche mese fà)
i DRIVER sono affidabili e costano pochissimo, qualche decina di $.
Ciao
-- 
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.mantuanet.it/alessandro.baraldi/
---------------------------------------------------------------------------

 ha scritto nel messaggio 
news:dbbfku$ebo$1...@domitilla.aioe.org...

Grazie dei consigli,
Christian 

 @Alex (Alessandro Baraldi)
Ti riferisci alla dll di questo sito?
http://www.devrace.com/en/fibplus/index.php
Se è così hai comunque bisogno di FireBirdsql di cui il sito ufficiale è:
http://www.firebirdsql.org/
questo è un vero database relazionale, usato da più del 59% di chi usa 
database opensource e che una volta si chiamava InterBase. E' completamente 
gratuito e opensource.
La dll di cui sopra si applica solo a programmi tipo Delphi, C++ Builder, 
Interbase e FireBird.
Mi sbaglio?
Ciao, Carlo

 Ciao, Carlo
Ciao Carlo.
Qualche anno fà mi dedicai a FireBird un Gioiello di RDBMS, ora non
ricordo il Link, non lo uso più ma da SourcForge sicuramente, lessi
che solamente distribuendo la DLL di cui non ricordo il nome era possibile
tramite i Driver ODBC connettersi al DB in Monoutenza senza assolutamente
altri ammennicoli.
La cosa fu discussa anche sul NG di ICLVB sempre quache anno fà....!
Quì si trovano i DRIVER:
http://www.praktik.km.ua/
Altro non saprei poichè il mio fu un'esperimento breve.....!
L'interfaccia di IB è in ogni caso usufruibile per la configurazione.
Ciao
-- 
@Alex (Alessandro Baraldi)

Newsgroup: it.comp.appl.access
Titolo: Problema ricerca con *

Ciao a tutti,
ho un piccolo problema con le stringhe e gli asterischi (e non credo essere
stato l'unico anche se non ho trovato la soluzione al mio problema).
Apro un recordset da stringa e voglio filtrare i campi con un istruzione del
tipo "selec * from clienti where CAP like '36*'".
Il campo cap è un campo stringa.
Purtroppo questa stringa non restituisce nessun risultato.
Che stringa devo inserire per poter aprire dei recordset e inserire già un
filtro in apertura simile a quello di cui sopra?
Ho provato anche con "[36]*" ma non funziona!
Ciao e grazie
--
David_one

 wrote in message
3qwB9.5248$Ka3.1...@twister1.libero.it...

Prova con
like 36 & *
ciao Max

 ha scritto nel messaggio
news:3qwB9.5248$Ka3.1...@twister1.libero.it...

Manca una t alla parola Selec (Select e non Selec) e manca il punto e
virgola in fondo.
La stringa SQL:
"SELECT * FROM Clienti WHERE CAP Like '36*';"
è formalmente esatta e dovrebbe fare il suo mestiere; dipende però dal
contesto in cui la usi.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

 ha scritto nel messaggio
news:_2xB9.23599$Yw.11...@news2.tin.it...

Perchè è differente visto si tratta di STRINGA e non numerico.....??????????
@Alex.

Newsgroup: it.comp.appl.access
Titolo: dopo aggiornamento ci un campo "andare alla linea d interru"

Ho una maschera x l'immissione.....
...tale maschera è lunga quindi l'ho divisa con 3 linee "interruzione di
pagina" con 3 pulsanti a pie di pagina x richiamare le 3 schermate....
quando faccio l'immissione, arrivati all'ultimo campo della prima scheramta,
vorrei che premendo il classico TAB, la maschera vada alla seconda
"schermata", cioè vorrei eseguire la funzione equivalente al premere il
"pulsante pagina2" della maschera in questione.
Spero mi abbiate capito.
Grazie,
ancora,
Roby
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/


Ciao.
Per esempio:
Private Sub Testo4_LostFocus()
DoCmd.GoToPage 3
Me.Testo8.SetFocus
End Sub
Questo codice sposta il focus sul primo controllo (Testo8) della pagina 3
dopo aver "lasciato" il controllo Testo4.
Ciao, Carlo

 ha scritto:

Grazie,
ho risolto prima di leggere il post con il seguente codice:
Private Sub FOTO_3_Exit(Cancel As Integer)
    DoCmd.GoToPage 2
End Sub
Funge!
Ciao,

Newsgroup: it.comp.appl.access
Titolo: Saluti e domande :-)

Innanzitutto saluto tutti i partecipanti del NG... ma veniamo alle cose
serie: avrei un problemino con access e SQL, io ho un database che contiene
diverse tabelle ListinoPrezzi,ListinoCategoria e Rapportini); su un campo
della tabella rapportini ho impostato come tipo di dati la possibilità di
elencare certi valori in base alla scelta che si è fatta precedentemente su
un altro campo (della stessa tabella) ed ho provato a farlo con questo
codice:
SELECT ListinoPrezzi.IDNome
FROM ListinoPrezzi, ListinoCategoria, Rapportini
WHERE ListinoCategoria.IDCategoria = Rapportini.IDCategoriaRapporto
Il problema è che non conosco molto bene SQL e i database in generale e, non
avendo tempo per studiarlo a fondo, spero che qualcuno mi possa dire dove ho
sbagliato. Spero di essere stato abbastanza chiaro nella spiegazione del
problema, aiutatemi per favore :-)
--
By Fino
fi...@libero.it


Manca la struttura delle tabelle: non si capisce cosa vuoi fare.
--
Silvio
il sito comune di it.comp.appl.access:
http://members.xoom.it/it_db_access

Allora, ho tre tabelle:
ListinoCategoria (IDCategoria)
ListinoPrezzi (IDNome, IDTipo, IDPrezzo, IDCategoria)
Rapportini (IDDataImmissione, IDCategoria, IDNome, IDValore, IDCantiere)
Nella tabella Rapportini ho impostato nel campo IDCategoria il metodo di
ricerca con origine il contenuto della tabella ListinoCategoria.
A questo punto vorrei avere la possibilità di scegliere il valore
Rapportini.IDNome in base alla scelta fatta su Rapportini.IDCategoria, si
dovrebbero visualizzare i valori IDNome che appartengono alla categoria
IDCategoria, nel modo in cui sono associati nella tabella ListinoPrezzi...
... urca.... spero di essere stato un po' + chiaro.... ma non è
semplice.....
Grazie :-)
By Fino
fi...@libero.it

Newsgroup: it.comp.appl.access
Titolo: Report & Passaggio dati

Buongiorno a tutti!
in una maschera ho due campi nome e cognome(tabella Nominativi) e un
pulsante che mi visualizza l'anteprima di stampa del report. Nel report i
dati inseriti sono nome e cognome(Tabella nominativi) e tutti i campi della
tabella Dettagli.
io vorrei che mi visualizzasse l'anteprima di stampa del record che in quel
momento è visualizzato..come faccio?
grazie
--------------------------------
Inviato via 
http://usenet.libero.it


Guarda nei thread precedenti, l'argomento è stato ripetutamente dibattuto e
risolto
Non averne a male, ma altrimenti rispondiamo sempre alle stesse cose.
ciao MAssimiliano

Ciao!..ho fatto una ricerca..ho capito che bisogna filtrare i dati..ho
provato cosě ma non va:
filter=me.Id_Nominativi
stDocName="Stampa"
DoCmd.OpenReport stDocName, acPreview, Filter
il report ha come origine dati una query che seleziona tutti i campi delle
due tabelle(relazionate tramite Id)


 provato cosě ma non va:
Ma porco cane!!!
Saranno 72mila volte che ti si dice di quotare parte del messaggio
precedente!!!!
Il Tek č di gomma al confronto!!!
Antonio
Newsgroup: it.comp.appl.access
Titolo: Chiudere database diverso da quello in uso

Salve a tutti
Vorrei sapere come chiudere uun mdb aperto diverso da quello in uso.
Grazie

Come l'hai aperto...?
@Alex

 @Alex
Dim strPath As String
Dim Str
strPath = "C:\programmi\tribunale.mdb"
Str = SysCmd(acSysCmdAccessDir) & "MSAccess.exe " & strPath
Shell Str, vbMaximizedFocus

Io lo avrei aperto da Automazione, in quel modo non puoi certo
chiuderlo senza
rischiare di chiudere l'applicativo in uso..!
Se avessi usato l'automazione ti bastava chiudere l'oggetto Database.
In questo modo invece devi conservarti il PID del processo aperto e
terminare
in base al PID, oppure ricavando l'Handle della Finestra e chiuderlo
con SendMessage...!
Pessimo direi.
@Alex

 Io lo avrei aperto da Automazione, in quel modo non puoi certo

Cosa intendi con "aperto da Automazione" ?

Access Automation....!
Tecnica LateBinding.
Public mdb As Object 'Access.Application
Public Function OpenAccessFile(strFile) As Boolean
On Error GoTo Err_OpenAccessFile
    ' APRE SE ESISTE GIA' UN'OGGETTO Access
    Set mdb = GetObject(, "Access.Application")
    ' NEL CASO NON ESISTA VERRA' GESTITO L'ERRORE
    ' E VERRA' CREATO UN NUOVO OGGETTO Access
    mdb.Visible = True
Exit_OpenAccessFile:
    Exit Function
Err_OpenAccessFile:
   If Err.Number = 429 Then
       'se c'è stato un errore è perchè Excel non era già aperto:
       'aprilo adesso
       Set mdb= CreateObject("Access.Application")
       Resume Next
   Else
       MsgBox Err.Description
       Resume Exit_OpenAccessFile
   End If
End Function
Per chiuderlo
    mdb.Quit
    Set mdb = Nothing
Potresti avere problemi con la Massimizzazione del processo, quindi con
2 API
recuperi l'handle passandogli il ClassName "OMain" con FindWindow e con
SendMessage lo massimizzi.
Ciao
@Alex
Newsgroup: it.comp.appl.access
Titolo: procedura Access che quando la chiudi poi riparte ?!?

Questa e' nuova nuova di stamattina
Vado a fare una modifica ad un programma che funziona da anni, una 
schrmata col ricalcolatore per i prezzi articoli
Access 2013, file in formato mdb, compilato in mde
Avvio l'mde, provo se il calcolatore funziona, tutto bene, chiudo con la 
x in alto a destra, la cornice di Access
Il programma si spegne e subito si riavvia la finestra di Access vuota, 
esattamente come quando si avvia l'ambiente di sviluppo ma non si e' 
ancora fatto 'Database Desktop vuoto'
Ma cliccandoci sopra con la X in alto a destra non si chiude
L'unico modo di chiuderlo e' 'terminarlo' col task manager
Cercando di capire se fossero state le modifiche eseguite in mattinata a 
provocare l'anomalia, avvio il programma, inserisco cliente, nuovo 
articolo, nuova fattura, spengo tutto bene
Riavvio e vado a ricalcolare alcuni prezzi, bamm inizia la tiritera di 
prima e quindi e' proprio li il problema, oppure c'e' sempre stato e 
quel codice l'ha scatenato
Il problema e' sicuramente nel nuovo codice inserito, ma guardando e 
riguardando non vedo niente di anomalo, sono aperture recordset, 
modifiche ai dati, chiusura recordset, rinfreschi schermata, e tutta 
roba normale usata milllioni di volte
Avete qualche idea da cosa possa essere provocato un effetto simile e 
come risolvere?

 come risolvere?
 
Ricordo molti anni fa qualcosa di simile, anzi identico, con la storica versione 97.
Si risolve empiricamente, modificando leggermente la parte di codice che sembra innescare il problema finchè non rilevi più anomalie.
In ogni modo non è un problema "critico": rimane aperto un task inutilizzabile di Access e/o Runtime finchè il pc non viene spento.
 
Saluti


"..Si risolve empiricamente.."
Ammappete, pensavo fossimo tennici di buon livello
Invece siamo come stregoni che preparano intrugli e routine sperando che 
vadano alla 'speriamo che io me la cavo'
Vado a prendermi il cappello da mago dai ciaina


Il problema di Access che si spataccava e non si riusciva piu' a 
chiudere, nel senso che apena chiuso si riavviava da se', stava nella 
seguente riga
 
c_iva=Nz(DLookup("CODICE_IVA","ARTICOLI",MyRsArticoli("CODICE_INTERNO")),0)
 
che per qualche oscuro motivo mandava in patacca tutto quanto
Sostituita con le seguenti due e' tornato tutto a posto:
 
cod_art_int = MyRsArticoli("CODICE_INTERNO")
c_iva = Nz(DLookup("CODICE_IVA", "ARTICOLI", cod_art_int), 0)
 
Dal punto di vista tecnico, vedete qualche motivo per cui non sia 
possibile usare la prima riga?

 possibile usare la prima riga?
 
 
E' una domanda pleonastica a cui potrebbe rispondere uno sviluppatore di Access con sottomano il tuo applicativo.
La riga incriminata in condizioni ordinarie funziona e basta, inutile fare ipotesi su meccanismi che non controlliamo.
 
Saluti
Newsgroup: it.comp.appl.access
Titolo: Help

Salve.
Questo il mio problema da "pincipiante": ho un database piuttosto vasto
(alcune decine di migliaia di record), ma i dati di alcuni campi si ripetono
spesso. Come è possibile fare in modo che, durante l'inserimento da
maschera, dopo la digitazione delle prime lettere, il programma suggerisca
come completare il campo (per intenderci come accade in Word con le formule
stereotipate, tipo "cordiali saluti" o coi giorni della settimana)? Questo
mi eviterebbe di spostarmi ogni volta su e giù per i records per fare il più
classico dei copia e incolla!
Grazie in anticipo a chi potrà e vorrà rispondermi.
Stefano

stereotipate, tipo "cordiali saluti" o coi giorni della settimana
Metti nella maschera un controllo casella combinata detto combo
imposta la proprieta' "espansione automatica" a si
Certo che se i record  sono decine di migliaia la vedo un po' dura
filtrarti ogni volta tutti i record
Piccolo dettaglio: non ho capito se i dati che devono essere completati sono
a se stanti o invece
sono quelli inseriti
Carlo Ve