mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.appl.access
Titolo: OpenCurrentDatabase access 2003

Dim appAccess As Access.Application
Dim strDB As String
Dim dbs As DAO.Database
strDB = NomeDatabase & ".mdb"
Set appAccess = CreateObject("Access.Application")
appAccess.OpenCurrentDatabase strDB
appAccess.DoCmd.OpenForm "Pannello comandi", , , , , , forms![pannello
comandi]![matricola]
avevo già postato questo problema tempo fa ma non avevo risolto il problema
ora purtroppo non ho più via di scampo e devo per forza convertire i db in
access 2003
l'inizio non è dei migliori
questa funzione funziona perfettamente con access 97 ma con access 2003
non va
al 99% ho capito quale è il problema: se il db strdb non ha una maschera
in avvio il db non si apre.
tra l'altro non mi da nessun errore quindi non so dove sbattere la testa
qualcuno sa come posso risolvere il problema?
ciao e buon lavoro a tutti  
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 ciao e buon lavoro a tutti
Ciao.
-- 
Sergio MAZZA 

 ciao e buon lavoro a tutti
Non ho capito il problema della form ma il tuo codice può essere scritto anche così:
'---
Dim oMDB As DAO.Database
Set oMDB = Application.OpenCurrentDatabase("nomeMDB.mdb")
...
oMDB.Close
set oMDB = nothing
Ciao.
-- 
Sergio MAZZA 

 Ciao.
grazie per la risposta ma non funziona
ho copiato il tuo codice ma mi da un errore sulla riga
Set oMDB = Application.OpenCurrentDatabase("nomeMDB.mdb")
errore "prevista function o variabile"
per quanto riguarda la maschera basta fare una prova
prova ad aprire un db con la mia funzione che non ha specificato nessuna
maschera in STRUMNETI\AVVIO\VISUALIZZA MASCHERA
vedrai che il db non si apre. al contrario se aggiungi una maschera in
questa opzione tutto gira regolarmente
ciao e per adesso grazie


 ciao e per adesso grazie
Lascia stare l'altro suggerimento non avevo capito cosa dovevi fare.
Questo è il pezzo di codice che ho utilizzato in acc'97 e ora portato in acc'2002(XP?) e senza inserire i riferimenti DAO.
Dim oApp As Access.Application
Set oApp = CreateObject("Access.Application")
oApp.OpenCurrentDatabase ("D:\DATI\VARIE\Sergio\Ng\db2XP.mdb")
oApp.DoCmd.OpenReport "tabella1", acViewDesign
oApp.Visible = True
Ciao.
-- 
Sergio MAZZA 

 Ciao.
non so veramente come ringraziarti.
funziona tutto benissimo
la differenza è stata l'aggiunta di oApp.Visible = True
grazie ancora


> oApp.OpenCurrentDatabase ("D:DATIVARIESergioNgdb2XP.mdb")
Cacchio! Ma qui mancano i backslash!!
Ciao.
-- 
Sergio MAZZA 


E' il tuo browser, io li vedo benissimo
-- 
_ _
Ciao
MAssimiliano Amendola            
www.accessgroup.it
Cisa - Conferenza Italiana per Sviluppatori Access
Info:  
www.donkarl.com/it

 Info:  
www.donkarl.com/it
Dai contali!
E poi io non utilizzo browser per leggere l'NG...
Ciao.
-- 
Sergio MAZZA
Newsgroup: it.comp.appl.access
Titolo: Come eliminare un record con i campi acclusi mediante codice vb

Salve a tutti,
se mentre sono in un nuovo record e st� inserendo i dati nei vari campi 
dello stesso, voglio uscire eliminando lo stesso record con tutti i dati dei 
campi inseriti fino a quel momento naturalmente attraverso codice vb..... 
come debbo fare..?  Grazie.... 


Ciao, non capisco...
se il record è già stato salvato, lo elimini, altrimenti un colpo di
ESC per abortire.
Se poi ci vuoi comunque mettere un pulsante, vedi l'autocomposizione
dei pulsanti (Operazioni su record > Elimina),
magari ci puoi aggiungere una richiesta di conferma a scanso di
cancellazioni indebite.
Ciao
Alberto

 wrote:

Caro augusto, se ti riferisci alla cancellazione delle modifiche
quando stai lavorando con le sottomaschere,
allora dai un occhiata a questo vecchio post del NG, e comunque anche
se non dovesse soddisfare la tua esigenza, fai le ricerche proprio
sugli argomenti trattati nei post:
http://groups.google.it/group/
it.comp.appl.access/browse_thread/thread/
ed65025361088871/7c218e7018b941ec?
hl=it&lnk=gst&q=committrans#7c218e7018b941ec
Saluti,
Franky S.


credo di aver pasticciato nell'incollare il link
http://groups.google.it/group/it.comp.appl.access/browse_thread/thread/cd6e07dbb8b105e2/d474590b68007d1c?hl=it&lnk=gst&q=committrans#d474590b68007d1c
Ciao

Newsgroup: it.comp.appl.access
Titolo: Ordinamento Report

Ciao a tutti, vorrei ordinare i valori di un report in base ad un criterio
immesso in una maschera (es. casella combinata: nome,cognome ecc...).come
posso fare?
Grazie.
Jingo
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it


Hai almeno 2 possibilità:
1)Usare la proprietà order By, dopo aver aperto il Report nel codice
di apertura del Report inserisci:
Per ordinare in modo Crescente così:
Me.OrderBy=Forms!NomeForm!NomeComboBox
Me.OrderByOn=True
Per ordinare in modo Decrescente:
Me.OrderBy=Forms!NomeForm!NomeComboBox & " DESC"
Me.OrderByOn=True
2)Se hai modo di interagire con la QRY del Report allora
    nella Form prima di eseguire il Docmd.OpeReport esegui
    questo:
    Dim qdf as DAO.QueryDef
    set qdf=Currentdb.OpenQuerydefs("NomeQRYReport")
    If instr(qdf.SQL,"ORDER BY") then
        qdf.SQL=Mid$(qdf.SQL,1,instr(" ORDER BY ")+10) & Me.NomeCombo
    Else
        qdf.SQL=qdf.SQL & " ORDER BY " & Me.NomeCombo
    End If
    qdf.Close
    set QDF=Nothing
Ciao
@Alex.

Ciao a tutti,
ho un report che deve essere aperto in orizzontale; sono andato nella
struttura e li ho impostato la proprietą in orizzontale e fin qui tutto
bene. Perņ quando riapro il DB mi ritrovo il report in verticale. Dov'č
che sbaglio?
Grazie


 Grazie
Se hai A2000 vai in strumenti, opzioni e togli lo spunto su correzione
automatica del nome.
installa inoltre il SP1
MAssimiliano

MA ha scritto:


Grazie 1000


 Grazie 1000
Vedi col subject giusto?
MAssimiliano
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/
Newsgroup: it.comp.appl.access
Titolo: Che evento viene generato??

Che evento viene generato quando all'interno di una maschera vengono
fatti scorrere i record con le freccette poste (automaticamente da
access) sotto la maschera stessa?
Vorrei che un campo di testo comparisse soltanto per certi valori
selezionati in una casella combinata. Non vi è alcun problema elaborando
con una condizione if dopo l'aggiornamento della casella combinata.
Se però faccio scorrere i record, la casella combinata cambia valori, ma
il campo non viene aggiornato! Gli altri record contengono valori per
cui non dovrebbe comparire la casella di testo, ma questa resta visibile
se non viene utilizzata la casella combinata (la condizione dopo
aggiornamento non si verifica).
Come posso fare?
Grazie!
Alessio
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG


Su Corrente.
Ciao
U.
----------------------
Niente e' piu' simile all'identico di cio' che e' uguale alla stessa cosa.
(Jacovitti)

> Su Corrente.
In che senso su Corrente?
Scusa ma non ho capito...


Sono riuscito, come non detto..


Newsgroup: it.comp.appl.access
Titolo: Connessione con MySql - errore

Utilizzando questo tipo di connessione mi da errore "Necessario
Oggetto"
al rigo Set ecc.
dove sbaglio ?
strConn = "DRIVER={MySQL ODBC 3.51 Driver};" & _
"SERVER=10.209.10.47;" & _
" DATABASE=servizi;" & _
"UID=root;PWD=; OPTION=3"
Set nomeconnessione = Server.CreateObject("ADODB.Connection")
nomeconnessione.Open strConn


Vossia  provasse questo che mi funzionò (non so cosa voglia dire
OPTION=3 e mi chiedo se hai impostato una password su root)
Credo comunque che manchi la NEW, di più non saprei dirti.
Roberto LF
============================================
    Dim Conn As ADODB.Connection
    Dim rs As ADODB.Recordset
    On Error GoTo Err_Get_AAA_From_MySQL
    '//NOTA: Stringa di connessione a MySQL //
    ConnStr = "Driver={MySQL ODBC 3.51
Driver};SERVER=10.28.97.13;DATABASE=Magazzino;USER=utente1;PASSWORD=password1"
    Set Conn = New ADODB.Connection
    Conn.Open (ConnStr)
    If Conn.Errors.Count = 0 Then
        Connected = True
    Else
        Connected = False
        Resume Exit_Get_AAA_From_MySQL
    End If
    SQL = "Select * FROM Tabella"
    Set rs = Conn.Execute(SQL)
Newsgroup: it.comp.appl.access
Titolo: [AIUTO] Completamento automatico di un campo

ciao ragazzi ho un grosso problema:
ho 3 tabelle 
a) 
nome 
via 
provincia
b) (racchiude per ogni provincia la relativa regione)
provincia
regione
c)
regione 
telefono
Vorrei che in automatico il campo regione della tabella c) mi venisse
riempito
con il valore corretto ovviamente proveniente dalla tabella b filtrata
sul parametro
provincia della tabella a)
Io l'ho fatto utilizzando una query filtrata sul campo a.provincia e ho
attribuito a c.regione
il valore risultante da questa query...ma il campo diventa un menù a
tendina che dovrei andare a
selezionare per ognuno dei 3000 record....esisterà pure un metodo +
intelligente....
ciauz e grazie!!!!
Michele
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 ha scritto nel messaggio
news:d2ef62bb49d8a31adf8...@mygate.mailgate.org...

Usa una Query di aggiornamento

 ha scritto nel messaggio
news:d2ef62bb49d8a31adf8...@mygate.mailgate.org...

Per il momento accontentati di questo: su Evento dopo aggiornamento nel CAP
Private Sub CAP_AfterUpdate()
    Select Case CAP
        Case "00100" To "00199"
            Città = "ROMA"
            Provincia = "RM"
            Regione = "Lazio"
Case "20100" To "20199"
            Città = "MILANO"
            Provincia = "MI"
            Regione = "Lombardia"
End Select
    If CAP > "00040" And CAP < "20199" Then
        Paese = "ITALIA"
    End If
    Paese.SetFocus
End Sub

Newsgroup: it.comp.appl.access
Titolo: Alternative a Nz

Ho una query che restituisce una colonna numerica per somma raggruppata e
che dato che esegue una serie di outer join può anche essere null. Ho la
necessità che questa risulti 0 dove è null, e non posso usare robe tipo
SELECT Nz([Campo];0) AS Risultato perché la query principale (di cui questa
è una subquery) deve essere aperta da una pagina AspNet e a quanto pare se
in mezzo all'sql ci cascano funzioni Vba non gradisce manco un po'.
Qualche idea?
IG


Select (iif(isnull(Tuocampo);0;Tuocampo)) as Tuocampo1, ...
-- 
_ _
Ciao
MAssimiliano Amendola            
www.accessgroup.it
Cisa - Conferenza Italiana per Sviluppatori Access
Info:  
www.donkarl.com/it

 Select (iif(isnull(Tuocampo);0;Tuocampo)) as Tuocampo1, ...
Grazie! Umh... adesso viene il domandone: perché Iif sì e Nz no? Sai per
caso dove posso trovare un elenco del sottinsieme di funzioni Vba che Jet
può elaborare anche al di fuori di Access?
IG

 ha scritto nel messaggio
news:45126d78$0$29085$5fc...@news.tiscali.it...

Credo dipenda dal tipo di SQL usato che in JET non è standard.
-- 
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.alessandrobaraldi.it
---------------------------------------------------------------------------
Newsgroup: it.comp.appl.access
Titolo: Stampa Unione, modificare cartella archivio

Ciao a tutti
utilizzo l'esempio di stampa unione del sito comune faq 6.137
il salvataggio dei documenti avviene nella cartella
c:\ documents and settings\pippo\documenti
vorrei cambiare la cartella di archivio, come?
questo è una parte del codice interessato:
       ''per SALVARE il documento come 
Lettera_<IDcliente>_<progressivo>.doc:
    NomeFile = "Fattura_" & Format(Me.IDCliente.Column(1) & Me.Nome & "_" & 
Format(Me.DataFattura, "dd_mmm_yyyy") & "_", "000")
    'cerca il primo progressivo disponibile per l'IDcliente selezionato
     i = 1
    While Len(Dir(NomeFile & Format(i, "000") & ".doc")) > 0
        i = i + 1
    Wend
    Doc.SaveAs NomeFile & Format(i, "000") & ".doc"
grazie in anticipo
Nick 

 ha scritto nel messaggio 
news:490f2c90$0$18150$4faf...@reader3.news.tin.it...

scusate....:-(
...mi rispondo da solo: basta mettere il file mdb nella stessa cartella 
d'archivio.
però in questo modo si hanno tutti i documenti alla rinfusa nella stessa 
cartella.
avendo diversi pulsanti che salvano altrettanti tipi di documenti.
se possibile, come potrei fare? esempio:
C.\cartella\documenti
C:\Cartella\Nomi
C:\cartella\fatture
Nick
Newsgroup: it.comp.appl.access
Titolo: [SITO COMUNE] New Site

Mi dite per favore se la ricerca sullo storico nel NG vi sembra + o - veloce
di prima?
Gracias!
Luciano

 ha scritto nel messaggio
news:9p9nhp$gqcck$1...@ID-86073.news.dfncis.de...

Bah...forse un po' piu' veloce ma il mio collegamento con wind non e' dei
piu' affidabili.
Ciao
--
Andrea

 di prima?
Amazza in quanti avete risposto!:-))
E meno male che si chiama sito COMUNE e non sito di 3 pirla che non hanno
una michia da fare da mane a sera!!:-))))
Saluti.
Luciano

 ha scritto nel messaggio
news:9p9nhp$gqcck$1...@ID-86073.news.dfncis.de...

16.4 secondi per trovare 349 messaggi con la parola "immagini".
Non male.
A me sembra veloce
Ciao
Alessio

 wrote in message
9pbna3$h6g73$1...@ID-86073.news.dfncis.de...

Ehi!
Qui stiamo lavorando mica giocando con la navigazione su internet!!!
Eh eh eh
Antonio

 ha scritto nel messaggio
news:9p9nhp$gqcck$1...@ID-86073.news.dfncis.de...

Ad occhio direi di sě, soprattutto se si lascia impostato le 20 righe per
pagina.
Ciao
Antonio

 Non male.
Sei di bocca buona, fratello!:-)
Il valore che trovi scritto sulla pagina dei risultati misura solo il tempo
di esecuzione della query non essendo ovviamente possibile sapere quanto ci
vorr'a perche' la pagina venga ricevuta. 16 secondi e' veramente un tempo
luuuuungo!
Ho rilanciato la tua stessa query un paio di volte ed ci ha messo circa 3
secondi.
Forse hai beccato un momento di impegno del server, che so', un caffe'...:-)
Saluti.
Luciano

"Luciano (DOC)" <
Sbaglio o ci sta MySQL dietro?
Se cosě fosse tanto di cappello ;-)
Ciao, Simone
P.S: tanto di cappello comunque, le prestazioni di ricerca sono migliorate
almeno di un fattore 5-6 rispetto a un paio di mesi fa...

almeno di un fattore 5-6 rispetto a un paio di mesi fa...
Veramente e' stato spostato solo 2 giorni fa....:-)
Saluti.
Luciano

 Saluti.
Ovviamente, ma l'ultima volta che personalmente ho usufruito del servizio č
stato un paio di mesi fa :-)
Ciao, Simone

 stato un paio di mesi fa :-)
Beh, ci saranno altre novita' a breve...prima di altri di due mesi
spero'!:-)
Saluti.
Luciano

spero'!:-)
Quali?
Se tiri indietro la mano dopo aver buttato il sasso ti mando in mail il virus Ebola ;-D
Ciao, warp

 MySQL...:-)
Beh, a questo punto ti lascio anch'io nel dubbio ;-)
Ciao, Simone

Beh, a questo punto ti lascio anch'io nel dubbio ;-)
Mi sembra giusto!:-))
Saluti.
Luciano

Se tiri indietro la mano dopo aver buttato il sasso ti mando in mail il
virus Ebola ;-D
Potrei risponderti con uno scriptino js quando ti connetti al SC....:-)))
Saluti.
Luciano
Newsgroup: it.comp.appl.access
Titolo: Titolo Applicazione

Ciao a tutti,
c'č un modo per poter impostare il titolo dell'applicazione direttamente da 
codice (non ricorrendo quindi alla finestra Avvio\Titolo applicazione), non 
so magari all'apertura del db, prendendo il nominativo da una tabella del 
database stesso?
Tommy 

Ti allego la funzione per modificare la Barra del titolo, devi
richiamarla così:
Intesta = IntestaBarra("AppTitle", dbText, "TESTO DA METTERE"
RefreshTitleBar
#Funzione#
'Scrive intestazioni sulla barra dei titoli principale
Public Function IntestaBarra(strNome As String, varTipo As Variant,
varValore As Variant) As Integer
  Dim dbs As Database, prp As Property
  Const conErroreProprietàNonTrovata = 3270
  Set dbs = CurrentDb
  On Error GoTo AggProp_Err
  dbs.Properties(strNome) = varValore
  IntestaBarra = True
AggProp_Bye:
    Exit Function
AggProp_Err:
  If Err = conErroreProprietàNonTrovata Then
        Set prp = dbs.CreateProperty(strNome, varTipo, varValore)
        dbs.Properties.Append prp
        Resume
  Else
        IntestaBarra = False
        Resume AggProp_Bye
  End If
End Function
Ciao
@Alex

[CUT]
Grazie funziona perfettamente
Tommy
Newsgroup: it.comp.appl.access
Titolo: Ricerca

Adesso vi spiego cosa intendo fare. Io ho creato 2 tabelle una dei pubs e
una delle zone di roma. Io voglio fare una maschera nel quale scrivo la
zonache mi interessa, il computer cerca la zona nella tabella, e mi manda
un'altra maschera o un report con i pub presenti in quella zona. Come fare?

 wrote in message
cTF08.26403$cU4.8...@twister1.libero.it...

Nella tabella dei pubs dovrai mettere un campo che indichi la zona a cui
appartiene (può essere la descrizione oppure la chiave ID, basta che sia un
valore univoco).
Poi prepari una query sulla tabella dei pub che abbai sotto il campo zona
una cosa così
like nz([forms]![tuaform]![sceltazona];"*")
Questa query ti darà i record con la zona scritta nel controllo sceltazona
della tua maschera
Antonio

Newsgroup: it.comp.appl.access
Titolo: Per ha OfficeXP

Scusate se posto nuovamente il messaggio ma
mi pare impossibile che nessuno abbia OfficeXP.
Chiedo solo una veloce verifica nell'help di Access2002
-----------------------------------------------
Causa forza maggiore sono passato da Acess2000 a Acess2002.
Sto scrivendo una semplice routine per gestire l'evento 'Su non in elenco'
di una casella combinata.
Come i suoi predecessori A2002 genera automaticamente:
Private Sub <nome casella combinata>_NotInList(NewData As String, Response
As Integer)
End Sub
solo che ora l'help di A2002 non mi dice niente in proposito degli argomenti
'NewData' e 'Response' (ne delle costanti a questi associate come
'acDataErrContinue')
E' una trovata di MS per dar maggior supporto agli utenti dei suoi prodotti
oppure il trucco c'e'??
-----------------------------------------------
Qualcuno mi fa da controprova? Ho dimenticato di installare qualcosa io
opp. e' una dimenticanza di MS?
Grazie
---
leo_duca

 ha scritto nel messaggio
news:ZzV38.5557$Mj4.1...@twister2.libero.it...

Neanche in altre versioni di Access esiste un paragrafo di Help.
L'evento richiede due valori: Il nuovo valore inserito nella combo e la
Risposta.
Puoi scrivere quello che vuoi. Per esempio MioNuovoDato as String e
MiaRisposta as Integer.
Dai un'occhiata alla costante acDataErrContinue o simili.
Ciao, Carlo

 Ciao, Carlo
Grazie :)
---
leo_duca
Newsgroup: it.comp.appl.access
Titolo: problema di editazione campi numerici

Ho provato tutte le soluzuioni standard ma noo ho trovato quella che
potrebbe essermi utile
in fase di digitazione di un numero avrei necessità che tale digitazione si
comportasse in questo modo:
man mano che io digito il mio numero sul campo vorrei veder comarire il
numero da destra verso sinistra e che mi mettesse a posto i punti decimali
facendo anche in modo da non permettermi di digitare i campi con la virgola
per verificare questa cosa usate una qualunque dcalcolatrice e vedrete che:
digitanto    123    mi fa vedere immediatamente 123
    "         1234                        "                         1.234
e cosi via spostando il numero verso sinistra
Grazie Giulio

 ha scritto nel messaggio
news:9qhcsh$oav$1...@fe1.cs.interbusiness.it...

Per quello che so io i campi di tipo numerico non possono avere la proprietà
Maschera input.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

 ha postato:

Non lo avevo mai fatto, però l'ho risolto così:
1. il controllo TextBox dovre sarà digitato il numero lo giustifichi a
sinistra;
2. poi scrivi queste due routine su evento:
a) su pressione:
Private Sub txtNumero_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
    Case 32 To 47, 58 To 255
        KeyAscii = 0
    End Select
 
End Sub
questo per disattivare qualsiasi tasto che non sia un numero
b) su tastosu:
Private Sub txtNumero_KeyUp(KeyCode As Integer, Shift As Integer)
    txtNumero.Text = Format(txtNumero.Text, "#,#")
    txtNumero.SelStart = Len(txtNumero.Text)
End Sub
A me funziona esattamente come chiedi tu.
Ciao, Filippo
P.S.
Voglio i complimenti di Roberto da casa. Ciao
Filippo da studio

Filippo da studio
ovviamente txtNumero è il nome che ho dato al controllo ;-)
Ciao
Filippo da studio

Newsgroup: it.comp.appl.access
Titolo: Tabella Particolare

Ho un problema che non riesco a risolvere sopratutto per la mia
inesperienza.
In una tabella c'è un campo testo che devrebbe contenere dati univoci su
tutto il database.Fin quì non è un problema, però l'univocità deve essere
rispettata esclusivamente nei record che riportano in un secondo campo un
determinato valore.
Grazie a tutti voi.
ciao

 wrote in message
9458b1$821$1...@lacerta.tiscalinet.it...

rendi univoca la coppia campo2/campo1
Newsgroup: it.comp.appl.access
Titolo: casella combinata e casella di testo

Salve, volevo sapere se è possibile aggiornare 2 caselle di testo(con
origini controlli diverse) da una unica casella combinata.
Grazie a tutti


proprietà column
Private sub Tuacombo_afetrupdate()
    me.textbox = me.tuacombo.column(1)
end sub
MAssimiliano 

 ha scritto nel messaggio
news:8mc_d.693$aH3...@news.edisontel.com...

Scusa la mia ignoranza ma devo metterlo nella casella combinata o in quella
di testo?? e poi la column(1) sarebbe il campo che mi interessa??
Grazie mille

 interessa??
Vedi le spiegazioni qui:
www.donkarl.com/it
FAQ 4.15 Casella combinata/di riepilogo - Accesso all'ennesima colonna
-- 
HTH
Karl
*********
Access FAQ: 
www.donkarl.com/it
 + CISA1, Arezzo, 4+5/6/2005
la prima Conferenza Italiana per Sviluppatori di Access 

 ha scritto nel messaggio
news:d1bqi8$r3g$1...@domitilla.aioe.org...

Come non detto .. ho risolto grazie al tuo suggerimento :)
Molto gentile

 ha scritto nel messaggio
news:d1bqsk$r79$1...@domitilla.aioe.org...

Scusate se ripropongo il problema ma vorrei capire se c'è un qualche
controllo che può inibilre l'aggiornamento.
Tempo fà postai il problema perchè non riuscivo ad aggiornare da una
combobox una casella di testo e , grazie ai vostri suggerimenti riuscii a
risolvere. Ora il problema si ripropone e nonostante abbia utilizzato lo
stesso codice, la casella in questione invece di prendere il dato dalla
tabella e salvare nel campo interessato, non "prende" nulla anzi, se
inseirsco a mano un valore non appena faccio una scelta dalla combo
automaticamente mi azzera il valore della text.
Suggerimenti??
Grazie


Newsgroup: it.comp.appl.access
Titolo: cambiare BE a cui l'FE deve accede

ciao a tutti,
come da oggetto, è da un po che consulto i vecchi thread a riguardo e cerco 
di familiarizzare con gli esempi del sito comune legati al relink delle 
tabelle tra FE e BE.
Tenuto conto che le mie finalità e vincoli sono le seguenti:
- "switchare" tra due BE,
- i due BE hanno identica struttura;
- uno dei due BE risiede su pen drive USB (problema risolto come da thread 
di Stero72 del 10/4);
quale strada mi consigliate di percorrere?
grazie,
em.an. 


Sul SitoComune c'è un Demo proprio per Switchare i BE, fai una
ricerca.
@Alex

 ha scritto nel messaggio 
news:1177078673.8...@n76g2000hsh.googlegroups.com...


@Alex
ciao @Alex,
ho scaricato e provato gli esempi presenti nel Sito Comune (mi pare ce ne 
siano anche alcuni simili ma in diverse "versioni"..) e nel tuo sito.
in particolare nei giorni scorsi ho provato a implementare quello del sito 
comune denominato: "1.16 Riallegare tabelle (3) (Funziona anche se il 
Backend è protetto da password)": le tabelle venivano riallegate 
correttamente, salvo apparire diversi messaggi di errore alla fine della 
procedura: ora, dopo un pò di adattamenti, la situazione è migliorata di 
molto.
volevo solo sapere se, tenuto conto dei miei vincoli esposti, ci fosse una 
soluzione  preferibile alle altre..
quale soluzione mi consiglieresti?
grazie,
em.an. 

 em.an
@Alex

 em.an
@Alex
mi scarico e testo subito quella di Federico Luciani allora..
cavolo, proprio ora che avevo rifinito a puntino la tua procedura e 
funzionava alla perfezione! :D
grazie ancora!
ciao,
em.an.

Newsgroup: it.comp.appl.access
Titolo: Report orientamento orizzontale

Salve,
la domanda che vorrei porvi è la seguente:
E' possibile con Access 2000 creare un report per una stampa su foglio
orientata in orizzonatale?
Mi spiego meglio, ho un modulo formato A4 per le ricevute, in cui ci sono 2
ricevute messe in orizzontale nel foglio A4.
Quindi io dovrei stampare sul foglio con l'orientamento orizzontale e non
verticale.
E' possibile, se si come?
Grazie.
    Ciao

 verticale.
In modalita' struttura guarda 'imposta pagina'
ciao

 ha scritto nel messaggio
news:96ud7u$n7f$1...@news.cineca.it...

Newsgroup: it.comp.appl.access
Titolo: Eliminre doppioni

Ho una tabella con vari campi e migliaia di record.
H bisogno di eliminare tutti i record che presentano in un certo campo
valori uguali.Come fare?
                Grazie mille.

 ha scritto nel messaggio
news:SdCra.78640$DT4.2...@twister1.libero.it...

cerca sulla guida
Eliminare i record duplicati da una tabella

 ha scritto nel messaggio
news:wsCra.22350$3M4.6...@news1.tin.it...

Questa soluzione mi pare che elimini TUTTI i record con valore uguale.
Se invece lui ha bisogno di tenere una copia dei record con valori uguali,
la soluzione è quella di copiare la struttura (senza dati) della tabella in
un'altra tabella, quindi mettere in chiave il campo che ha i valori uguali
ed infine eseguire una query di accodamento dalla tabella iniziale a quella
vuota. I record con valori uguali verranno scartati tranne uno per valore.
Antonio

 ha scritto nel messaggio
news:9XKra.79262$DT4.2...@twister1.libero.it...

Ti sbagli, quella è la soluzione giusta leggi bene la guida

 ha scritto nel messaggio
news:AXPra.39705$K35.1...@news2.tin.it...

Anzi quella che hai detto è quella della guida

 ha scritto nel messaggio
news:j%Pra.39747$K35.1...@news2.tin.it...

Va beh, allora cambio l'inciso.
Se lui deve cancellare TUTTI i record deve fare una query di ricerca
duplicati (autocomposizione) e poi cancellarli tutti
Antonio

Newsgroup: it.comp.appl.access
Titolo: Replica locale

Buongiorno,
ho il seguente problema, ho cercato in rete ma non ho capito come fare, ho una macchina remota raggiungibile in VPN con Teamviewer. Su questa macchina c'è un file access in cui un'applicazione va a scrivere tramite odbc. Dal mio PC vorrei creare una copia locale, che si collega al db remoto, per poter eseguire delle query e fare delle analisi. Ho provato a fare collega tabella, ma mi dice che il file è già in uso, quindi attualmente l'unica soluzione che ho trovato è quella di copiare tutte le volte il file mdb sul mio HD. Il db è comunque piccolo, ed il programma in esecuzione aggiunge solo un centinaio di record al giorno, ma molto importanti, quindi questa procedura di replica, mi funzionerebbe anche da backup.
Grazie
Onire

Nessuno sa aiutarmi?

Newsgroup: it.comp.appl.access
Titolo: cancellare contenuto di X colonne in una tabella

vorrei appunto cancellare il contenuto solo di alcune colonne della tabella: 
come faccio?
al momento seleziono la colonna ed eseguo un cerca * e sostituisci con "".
un modo + ra ra pido?
grazie. 

oklim ha scritto:

query di aggiornamento:
UPDATE TABELLA SET CAMPO = '';

 UPDATE TABELLA SET CAMPO = '';
:-O
grazie braun.
Newsgroup: it.comp.appl.access
Titolo: Errore di automazione su lettura di un RS

Ciao a tutti,
vi è mai successo che dopo aver provato a leggere un campo di un record di
un recordset appena aperto (ad es. con rst("Mese")) si genera un errore di
automazione? Ho verificato che il recordset non è vuoto, perchè rst.EOF è
uguale a False.
La cosa curiosa è che quando eseguo il codice per la seconda volta va
tutto bene.
Che problema ci può essere?
Tante grazie,
          GS
 
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it


Il codice?
Ciao.
-- 
Sergio MAZZA

Newsgroup: it.comp.appl.access
Titolo: RecordSource e sottoreport

Ciao a tutti!
Ho un Report contenente anche un sottoreport: per evitare di creare
tanti report strutturalmente uguali, in base alla necessità dovrei
associare il Report ed il Sottoreport a tabella diverse. Per quanto
riguarda il Report con il codice:
        Reports!MioReport.RecordSource
lanciato dall'evento su Apertura del Report ottengo quello che mi
serve senza problemi, ma la stessa cosa non posso dire per cambiare il
RecordSource del sottoreport (proprio non mi riesce), non riesco a
trovare l'evento giusto per il codice:
        Reports!MioReport.MioSottoReport.RecordSource
Mi date una mano?

 ha scritto nel messaggio
news:dde63700-7311-4653...@s19g2000prg.googlegroups.com...

---------------------------------------------------------------------------
Puoi farlo, ma solo su evento Open del Sottoreport...
Ciao!

Newsgroup: it.comp.appl.access
Titolo: FUNZIONAMENTO PULSANTI CONTROLLO IN STRUTTURA MASCHERE ACCESS 2010

Buonasera,
provando a creare nella gestione Parti applicazioni una maschera con alcuni comandi, improvvisamente non mi funzionano più i controlli automatici in modalità struttura delle maschere, ossia se creo un nuovo pulsante non mi da più le funzioni automatiche di prima (tipo apri maschera o esegui query, ma non funzionano più nemmeno le caselle combinate o di riepilogo in fase di creazione.
Aiutatemi per favore!!
Grazie sempre.

 Aiutatemi per favore!!
 
 
PERCHï¿œ URLI NEL SOGGETTO?
Controlla se la creazione guidata ï¿œ attivata come descritto nel
punto 2 qui:
 
http://office.microsoft.com/it-it/access-help/use-a-command-button-to-start-an-action-or-a-series-of-actions-HA010117258.aspx
 
 
-- 
Ciao
Karl
*********
Access FAQ:  
http://www.donkarl.com/it
 
Access Lobby: 
http://www.AccessDevelopers.org
 

 Access Lobby: 
http://www.AccessDevelopers.org
 
 
Ciao Karl,
innanzitutto mi scuso per aver scritto in maiuscolo nell'oggetto;
era da tempo che non scrivevo sul gruppo e mi ero dimenticato della regola.
La prossima volta sarò più attento!!
Per quanto riguarda la soluzione ho risolto con il tuo aiuto.
Grazie sincero, sei sempre preziosissimo.
Leo
Newsgroup: it.comp.appl.access
Titolo: controllo che non si aggiorna

ciao a tutti
 
ho un controllo "Conferma" si/no nella maschera
dove ho inserito in valore predefinito questa espressione
=DLookUp("nCol";"qryValoreStandard";"IdCarico=" & [IdCarico])
 
ma il controllo non si aggiorna a questo valore
 
dove sbaglio?
grazie per l'aiuto
 
 

 ha scritto nel messaggio 
news:51c6b242$0$1346$4faf...@reader2.news.tin.it...

con me.dirty=false
e miocontrollo=DLookUp("nCol";"qryValoreStandard";"IdCarico=" & [IdCarico])
 
sembra andare bene
Newsgroup: it.comp.appl.access
Titolo: post it gestito da vba

Salve , ho provato il seguente interessante software per la gestione dei post it anche in rete :
http://www.zhornsoftware.co.uk/stickies/
 gestibile da vb6 , come da codice in esempio.
 
 
ho fatto il porting in vba e se  non attivo il callback,  posso creare un nuovo post it, mentre con   callback  dichiarato  mi va in crash access.
 
non so come risolvere il problema.


Per riuscire ad aiutarti una cosa fondamentale sarebbe poter vedere il 
codice, per provarlo e vedere se crassha pure hanoi (come la torre)

nel link che postato, c'e tutto, anche il codice in vb6
comunque
il codice incriminato e' questo:
 
Dim stringMessageText As String
Dim integerAnswer As Integer
 
longWINDOWHANDLEOFTHISAPP = Me.hWnd
 
lpPrevWndProc = SetWindowLong(longWINDOWHANDLEOFTHISAPP, GWL_WNDPROC, AddressOf WindowProc)
 


"..ho fatto il porting in vba.."
Nel link indicato non c'e' il codice che hai detto non funzionare 
(appunto il porting in vba)
Come si fa?
 
 

 
link con il progetto esempio convertito
 
 
https://www.dropbox.com/s/rrny77fm6err0eh/stickies.accdb?dl=0
 

 
https://www.dropbox.com/s/rrny77fm6err0eh/stickies.accdb?dl=0
 
 
A parte che non devi usare la proprietà TEXT nel popolare le TextBox, cosa che si fa in VB6 ma non in VBA...!
 
Ti sei reso conto che non è una semplice funzione di CallBack quello che fa il codice, ma si tratta di SubClassare l'applicazione...?
 
Di fatto con Access il SubClassing Funziona solo se non apri il VBE, quindi non puoi assolutamente fare DEBUG, devi aprire l'applicazione senza passare per l'Editor e lanciare l'esecuzione...
 
Quel metodo in ogni caso non è molto sicuro... per subclassare con Access, cosa che assolutamente ti sconsiglio, è bene delegare ad un componente esterno, una volta si usavano delle DLL apposta, che avevno il compito sporco e non generavano CRASH nel VBE.
 
PeEr il resto non mi sogno di provare quel codice per il fatto che serve installare l'applicativo Stiker... e lo lascio fare ad altri.
 
@Alex

grazie per la risposta .
 
ho fatto una traduzione sommaria , solo per vedere se era fattibile il collegamento.
 
ho chiesto spiegazioni dato che il codice del subclassing non l'ho mai  approfondito .
 
il programma sticker lo ho usato da parecchio tempo e non mi ha dato mai problemi, e' gratuito e ricco di funzioni.

Newsgroup: it.comp.appl.access
Titolo: individuare dipendenze di una query

Esiste un modo di individuare le dipendenze di una query (maschere, report o
altre query) con la versione 2002?
Grazie
-- 
Fabio Dalla Villa

 Fabio Dalla Villa
-- 
Roberto
-----------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
-----------------------------------------------
Newsgroup: it.comp.appl.access
Titolo: Inserire carattere su Stringa

Buona sera 
 
con questa istruzione  
 
Left([Codice];2) & Mid([Codice];4)
 
cancello il . (punto) dopo due caratteri 
 
ma invece per inserire il punto dopo due caratteri ? 
 
Mi dite come fare 
 
Grazie 
Giuseppe 

Spezzi e concateni...
Stesso identico codice con in mezzo il PUNTO concatenati.
Che dubbio ti viene...?
 
@Alex

 @Alex
 
 
ok fatto
 
Left([Codice];2) & "." & Mid([Codice];3)
 
Grazie

Appunto nessun dubbio... CVD.
 
@Alex
Newsgroup: it.comp.appl.access
Titolo: runtime access 2000 e windows vista

ho realizzato un'applicazione con Access 2000 ed è installata in un PC
con Win XP e runtime Access 2000: funziona tutto perfettamente.
Stessa applicazione installata in un PC con Windows Vista non funziona
correttamente: pensavo fosse un problema di riferimenti. Dopo vari
tentativi ho scoperto che in una tabella ho un campo DataInserimento
che come valore predefinito è uguale a Date(). Questa funzione mi da
errore: quando inserisco un record nuovo compare il simbolo #.
Non capisco come risolvere il problema
grazie
Maurizio

 ha scritto nel messaggio 
news:e727c9b5-5163-4f19...@d5g2000hsc.googlegroups.com...

Credo che il problema stia nel fatto che hai una visualizzazione che prevede 
anche l'ora (anche se non la vedi), io ho risolto allargando il campo.
Lo stesso problema l'ho riscontrato sui campi numerici dove numeri con molte 
cifre dopo la virgola vengono visualizzati con il valore E02 o E03 a seconda 
del numero.
Sinceramente devo dire che ho provato a formattare il dato prima di 
inserirlo ma non ci sono riuscito e quindi ho allargato il campo e via.
Però pensavo fosse un problema del runtime del 2007, non di vista.
Saluti @ndrea
Newsgroup: it.comp.appl.access
Titolo: If che blocca l'esecuzione di un comando

Salve a tutti.
Su click di un'etichetta eseguo un comando. Non riesco ad inserire che se
nel caso il report non ha valori,
si deve fermare il comando, o eventualmente ne deve fare uno diverso.
Private Sub Etichetta59_Click()
 DoCmd.OpenReport "REmissioneScFisc", acViewNormal, "", "", acHidden
 DoCmd.GoToRecord acForm, "frmTouchScreen", acNewRec
 Me!Tavolo = Nz(DMax("[Tavolo]", "[tblTavolo]"), 0) + 1
 DoCmd.GoToControl "BarCode"
 DoCmd.Close acReport, "REmissioneScFisc"
End Sub
Questo è il comando, che fa bene il suo.
Grazie
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/


Se non ho capito male il tuo problema, è sufficiente che inserisci le
seguenti righe prima del comando:
If IsNull(TuoControllo) then
Exit Sub    ' oppure esegui l'altro comando
End If
Ciaooooooooo


Si, infatti, ho usato però:
If (Eval("([Forms]![MRicTotScFisc]![TotaleScFisc]) Is Null")) Then
Ma poi provando come hai detto tu filava ugualmente.
Grazie
Ciao


 Ma poi provando come hai detto tu filava ugualmente.
 Beh, ci vediamo a ROma allora, se tutte le strade portano lì.....
IS Null alla fine, così, non lo avrei mai messo, ma la funzione eval
manco sapevo che esistesse....
Ehhhhhhhhhhh, c'è sempre da imparare!
^____^


Ti ringrazio, ma da me impari poco, ultimamente sinceramente un pò meno, ma
fino a poco tempo fa
ho stressato spesso tutto l'NG, e me ne scuso ancora, con sicuramente
problemi stupidi ma per me grandissimi, la funzione l'ho tirata fuori
inserendo una condizione macro e poi convertendo il tutto in vb.
Il tutto in modo automatico, da solo è algebra, ma funziona e non vado certo
a cambiare la riga di codice,
son gia diventato matto abbastanza! Passione tanta conoscenza poca!
 Quello che riesco a fare l'ho imparato a suon di stressare l'NG, copiare in
qua e modificare.
Quindi non prendere esempio da me, chi mi sono perso.
Ciao
Fabrizio


 Fabrizio
-------------------------------
Cmq hai ragione, in virtů del fatto che la prendo larga, mi escono dei db
come delle betoniere!!!
Chiedo scusa all'NG per il dialogo non propriamente tecnico.
Saluti a tutti.


 Fabrizio
Non credere, è così per tutti, alla fine...me compreso. L'importante
è non cercare il pacchettino preconfezionato ma metterci del proprio,
prima e dopo i suggerimenti; per quel che ho visto, in questi casi il
NG è sempre molto disponibile!
^_________^

 ^_________^
Confermo per quanto riguarda l'NG e il resto.
Saluti


Newsgroup: it.comp.appl.access
Titolo: Disabilitare conferma inserimento record

Ciao, sto lavorando ad un database access. Dovendo inserire una serie di 
record di una tabella ho usato l'istruzione DoCmd.RunSQL. Ogni 
inserimento di record chiede conferma. Qualcuno sa dirmi come 
disabilitare quel messaggio?
Grazie

"William"

...basta leggere qualche post più sotto... :-)
comunque per disabilitare i messaggi
DoCmd.SetWarnings False
ovviamente prima del DoCmd.RunSQL :-)
Se poi vuoi riabilitare:
DoCmd.SetWarnings True
Ciao!
Newsgroup: it.comp.appl.access
Titolo: Totali progressivi per pagina in report

Come posso, in un report, avere un totale progressivo pagina per pagina, che
mi riporti il saldo della pagina precedente sulla pagina successiva?
TIA per qualsiasi suggerimento.
Ciao, Sandro.
--------------------------------
Inviato via 
http://usenet.libero.it

 mi riporti il saldo della pagina precedente sulla pagina successiva?
Nei post di pochi giorni fa ce ne era uno di Karl proprio a proposito di
questo.
Sib

 Ciao, Sandro.
Io ho capito che in un report nel piè di pagina pagina vuoi visualizzare,
per ogni pagina, il totale progressivo di un campo dell'oggetto che è
origine record del report; mi sembra anche di capire che nell'intestazione
pagina di ogni pagina vuoi visualizzare il riporto, ovvero il totale
progressivo che hai visualizzato nel piè di pagina pagina della pagina
precedente.
Se questo è quello che ti serve.
Se il campo di cui vuoi calcolare il toatale progressivo si chiama Importo.
Nel corpo del report inserisci una casella di testo chiamata ImportoProgr;
la casella di testo deve essere NON visibile e nella sua origine controllo
scrivi:
=[Importo]
Imposta a Su tutto la proprietà Somma parziale della casella di testo
ImportoProgr .
Inserisci nel Piè di pagina pagina del report una casella di testo non
associata chiamata TotalePiede e nella sua origine controllo scrivi:
=[ImportoProgr]
Infine nell'Intestazione pagina del report inserisci una casella di testo
non associata nella cui origine controllo scrivi:
=[TotalePiede]-[Importo]
-- 
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

 ImportoProgr .
Oh... Era esattamente ciò che NON conoscevo dei report! Il totale
progressivo, fino ad ora, me lo sono calcolato a codice vba ... ;-)
Grazie infinite, Roberto. E grazie anche a Sib, la cui indicazione mi ha
consentito di trovare il link alla pagina del Microsoft Support su cui è
riportato un esempio.

Newsgroup: it.comp.appl.access
Titolo: Paginazione foglio dati studio dell'interfaccia

Buon giorno,
premesso che da Access sia in grado di recuperare le "pagine" di 
resultset da sql server  con una tecnica simile a 
http://www.davidhayden.com/blog/dave/archive/2005/12/30/2652.aspx
 ... la 
domanda ï¿œ questa:
la soluzione user interface come questa 
http://www.ms.oyangudi.com/blog/wp-content/uploads/DataGridPagingusingDataReaderCWindowsFor_145C2/DataGridPaging_DataReader.gif
 
non mi piace.
Vorrei delle alternative se a qualcuno di voi ï¿œ venuto in mente qualcosa 
di diverso.
In pratica mi piacerebbe che la navigazione tra le pagine in realtï¿œ 
fosse del tutto trasparente all'utente. Vorrei darli l'impressione che 
utilizzando i tasti cursore, pagup, pagedown e di navigazione eseguire 
lo scroll dei foglio dati come se si trattasse di una maschera foglio 
dati giï¿œ completamente popolata.
Spero di essermi spiegato.
Grazie a chi vorrï¿œ darmi una mano per migliorare l'estetica e la 
funzionalitï¿œ.
Daniele

 Daniele
Si vede che non guardi le mie demo... :D
http://www.accessgroup.it/HomeArgomenti.asp?ID=56&Oggetto2=Personalizza%20maschera%20da%20codice%20VBA
(secondo me puoi prendere spunto..)
fammi sapere. 


no, sono io che non leggo bene i tuoi post... :D (foglio dati).... vabb�, 
guarda lo stesso il demo... magari ti serve lo stesso 

    
Intercettare gli eventi spostamento dopo l'ultimo record e procedere in 
modo trasparente al retrieving della pagina successiva senza che 
l'utente se ne accorga?
Che ne pensi?
Daniele
Newsgroup: it.comp.appl.access
Titolo: R: Un rompicapo per esperti


###########
in TestoAAA scrivi
=Somma([SumDiSumDiImponib]+ [testoY]+[TestoZ])
ciao Riccardo

 wrote in message
9iomiu$7mb$1...@news.panservice.it...

Ciao Riccardo.
Ti ringrazio ma anche così non funziona. Mi restituisce #Errore?
Se ti viene in mente qualche altra soluzione, ti prego di farmela sapere.
Grazie 1000. Ciao
Giuseppe

Newsgroup: it.comp.appl.access
Titolo: Dare/Avere di un cliente

Salve a tutti,
ho un DB dove ho le seguenti tabelle con i seguenti campi
Cliente: IdCliente, Nome, Indiirizzo, ecc.
Fattura: IdFattura, IdCliente, Numero, Data,
DettaglioFattura: IdDettaglioFattura, Quantità, Articolo, Prezzo, IdFattura
Pagamento: IdPagamento, IdCliente, Data, Importo
Vorrei crearmi una maschera ed un report che mi mostrino in dettaglio ogni
fattura emessa con relativo importo totale, ogni pagamento effettuato ed un
riepilogo totale del dare/avere dei vari clienti.
Siccome non so assolutamente usare VB e non mi veniva in mente nessuna
soluzione con access ho optato per la seguente solutzione:
1)  Ho fatto una query di creazione tabella con i campi IdCliente.Cliente,
Nome.Cliente, Numero.Fattura, Data.Fattura,
Imponibile.QueryCalcoloImponibili, ESPR1
2) Query di accodamento: IdCliente.Cliente, Nome.Cliente, Data.Pagamento,
Importo.Pagamento (quest'ultimo campo l'ho incolonnato in ESPR1)
Così facendo e ovviamente creandomi della altre query successive ho risolto
il problema... ma la cosa mi sembra molto macchinosa non ci sono altre
soluzioni che mi suggerite? Se non ce ne sono ho un'altra domanda questa
procedura mi evidenzia molti avvertimenti noiosi e ripetitivi alcuni dei
quali sono riuscito ad eliminare me ne rimane solo uno e cioè quello che mi
viene visualizzato rieseguendo la query di creazione tabella per + volte...
dalla seconda volta la query di creazione tabella deve eliminare la prima
creata e di conseguenza mi avverte di questa eliminazione non c'è la
possibilità di eliminare questo avvertimento?
Grazie e un saluto a tutti Simone

Per eliminare i messaggi di avviso devi impostare l'azione "impostaavvisi"
=no nella macro che esegue le query. Ricordati di fare il contrario alla
fine della procedura.
Se invece vuoi compilare le n-schede dei clienti per i quali hai emesso
fattura dei impostare un ciclo For ... next dove il contatore sarà il nr
dei clienti con fattur/nc. All'interno del ciclo scrivi una stringa sql
con delle variabili che devono cambiare di volta in volta (cliente,
tabella in cui accodare i dati....). Ad ogni ripetizione del ciclo
cambierà la stringa sql e docrai eseguire il comando "docmd.runql striga
sql".
Spero di essere stato esauriente, è abbastanza lungo da spiegare.
Fai qualche tentativo
Berti Simone ha scritto:








-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 Per eliminare i messaggi di avviso devi impostare l'azione "impostaavvisi"
Invece per rispondere, devi scrivere correttamente DOPO il quoting!!!
Antonio
Newsgroup: it.comp.appl.access
Titolo: msgbox

Ciao a tutti. Vorrei cambiare sfondo,font, ect. in una msgbox. E' possibile
fare questo?
grazie
michele b.

 fare questo?
non credo, ma puoi sempre fati un form che serva allo scopo, la crei popup
ed a scelta obbligatoria, cosě č come un msgbox; e poi ci metti tuttgli gli
sfonddi e fonts che vuoi :-)
Max

 fare questo?
L'unica è prepararti una form apposita.
L'unica modifica che puoi fare sul font è questa:
usando il carattere @ puoi suddividere in tre sezioni il tuo messaggio. La
prima in grassetto, quindi, con una riga bianca in mezzo, altro testo,
infine un'altra riga bianca e altro testo.
Esempio
msg = "Attenzione, dati mancanti!@Rilevata mancanza del
cognome.@Provvedere."
msgbox  msg
genera
Attenzione, dati mancanti (in grassetto)
Rilevata mancanza del cognome.
Provvedere.
Antonio

 msgbox  msg
ma se faccio
msgbox "sfsdd @ sdfdsfd @ sdfsd"
non fa niente... mi da un messaggio con scritto "sfsdd @ sdfdsfd @ sdfsd".
ho probvato dalla finestra di debug.
è normale?
Max

 ha scritto nel messaggio
news:05nL7.8790$BA4.3...@news1.tin.it...

Quanto ha scritto Antonio si riferisce a A97, non funziona con A2000.
--
Silvio
il sito comune di it.comp.appl.access:
http://www.sitocomune.com

> Quanto ha scritto Antonio si riferisce a A97, non funziona con A2000.
aaaaaaahhhh, ecco :-)
Max


Il che č un'altra dimostrazione della solaggine dell' Access 2000
Antonio

Newsgroup: it.comp.appl.access
Titolo: cercare query da file system

esiste un modo di "cercare" in quale file di access (.mdb) sia presente una 
determinata query?
in sostanza ho il nome della query ma non mi ricordo in quale db sia 
presente, per evitare di dover aprire tutti i db possibili (sono tanti) mi 
occorrerebbe uno strumento che faccia la ricerca per nome all'interno del 
file mdb.
si puň fare?
grazie
 

"vale"  ha scritto nel messaggio 
news:4e89bfb7$0$44211$4faf...@reader1.news.tin.it...

___Risposta:
Via codice sě
 
Public Sub Ricerca()
 
Dim MyPath As String
Dim MyName As String
Dim db As DAO.Database
Dim qdf As DAO.QueryDef
Dim strPath As String
 
MyPath = Application.CurrentProject.Path & "\"
MyName = Dir(MyPath)
 
 
 
 
Do While MyName <> ""
If Right(MyName, 3) = "mdb" Or Right(MyName, 5) = "accdb" Then
    Set db = Application.DBEngine(0).OpenDatabase(MyPath & MyName)
    For Each qdf In db.QueryDefs
        If qdf.Name = "Q_10" Then MsgBox "trovato: " & MyName
        Exit Sub
    Next
End If
 
     MyName = Dir
Loop
 
End Sub