mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.appl.access
Titolo: visualizzazione a maschera singola

Ciao, scusate, non riesco a trovare il comando per impostare la
visualizzazione a maschera singola di un form. Ho la versione in inglese e
non so come viene tradotto. Mi dareste una dritta per favore?
Grazie
Bye!

 non so come viene tradotto. Mi dareste una dritta per favore?
Trovato: La proprietą "Default view" deve essere impostata su "single form".
bye!

Newsgroup: it.comp.appl.access
Titolo: 1 variabile al posto di tante stringhe

Ciao,
Nel mio database (query, sql, campi, calcoli, criteri) utilizzo sempre la
striga "Mario".
Potrei fare un modulo e creare una variabile chiamate NomeUtente ed
assegnarle il valore "Mario"?
Chi mi aiuta con la sintassi precisa da inserire nel modulo per avere una
variabile leggibile da qualsiasi punto del database?
Grazie.
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it


Piů che una variabile ti serve una costante...
Public const strNome="Mario"

 Public const strNome="Mario"
Ma dopo quando ad esempio nei criteri le strighe vanno racchiuse tra apici
'' e non tra "" non si creano dei problemi?
Grazie



Variabili e costanti si trattano allo stesso modo...
Non c'è alcuna differenza!
Newsgroup: it.comp.appl.access
Titolo: recordsetclone e movefirst

Non riesco ad utilizzare il metodo movefirst dell'oggetto recordsetclone
come mai?
Manca qualche libreria?
Grazie
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 Manca qualche libreria?
Ciao, Franzin.
    Potresti farci vedere come usi tale metodo?
-- 
Ciao :o)
Maurizio Borrelli, Microsoft MVP Access
--------
?SPQR(C)
 X
--------

     Potresti farci vedere come usi tale metodo?
-- 
questo articolo e` stato inviato via web dal servizio gratuito 


Aggiungo che non mi da la possibilità di eseguire nessun metodo di
recordset e di Recordestclone...in pratica se digito il . dopo
recordsetclone non succede niente.....aiutooo
FranziN ha scritto:



Secondo me non hai impostato i riferimenti DAO.
Prova a verificarli dal Menù strumenti di VBA
Riferimenti....!
Ciao.
@Alex.

 
come dice il Baraldi stai usando ADO e non DAO
--
a.cara 
Togli qualcosa dall'email

 Togli qualcosa dall'email
Come siamo formali ultimamente.....!!
Hai cozzato con la testa...........!
Ciao.
@Alex.

 @Alex.


Sono sicuro di avere nei riferimenti sia ADO che DAO.
Conoscete un altro modo per scorrere i record in una sottomaschera?
CIAO
.
franzinn ha scritto:


 .
Si ma dipende da quale dei 2 hai impostato prima.
Non ti preoccupare di altri metodi, deve andare quello
perchè è il migliore, e sono sicuro che non hai verificato bene
la priorità delle 2 Librerie.
@Alex.

 @Alex.


Non so se può essere d'aiuto per qualcuno ma ho risolto il problema
dichiarando esplicitamente il Recordset come oggetto DAO nella
dichiarazione..
cioè mettendo:
Dim rst as Dao.recordset
e poi
set rst=me!sottomaschera.Form.RecordsetClone
Ciao Fran
francesco73 ha scritto:


 Ciao Fran
Era scontato se usavi entrambe le Librerie....
non mi č venuto in mente di suggerirtelo poichč
eri cosě sicuro........!!!
@Alex.
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

Newsgroup: it.comp.appl.access
Titolo: Formato di database non riconosciuto

Buongiorno a tutti.
Mi ą capitato diverse volte di dove ricompattare e ripristinare il db in
seguito a messaggi di questo tipo.
Recentemente mi č capitato, in 2 installazioni diverse, utilizzando
procedure diverse e "consolidate" di ricevere questo errore relativo a
un file JETxxxx.tmp.
Ne sapete qualcosa ?
Grazie+
MArco
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG


Tempo fa in seguito a messaggi del genere con danneggiamento dei db sono 
stato costretto a cambiare le schede di rete ma si trattava appunto di 
computer collegati alla stessa rete.
 Ciao, Carlo 


Inoltre i file JetX.tmp sono file di sistema, sia pure temporanei. 
Assicurati che la cartella tmp e Temp siano in cartelle di sistema del tipo 
c:\Windows\tmp e di avere i permessi come user.
Ciao, Carlo 

 Ciao, Carlo
Ho controllato.
E' tutto come dici.
Anche la rete sembra a posto.
Il fatto è che, come tutti i problemi strani, capitano "ogni tanto".

Newsgroup: it.comp.appl.access
Titolo: Duplicare record presenti nella sottomaschera

Un cordiale saluto a tutti.
Se possibile, quando creo un nuovo record, avrei la necessità di duplicare i
valori presenti nella sottomaschera, nel nuovo record.
Ringrazio in anticipo.
Giovanni

 valori presenti nella sottomaschera, nel nuovo record.
In una sottomaschera, tipicamente ci sono più record.
E allora quali prendi per metterli nel nuovo record?!?
Antonio

Ciò che vorrei duplicare è l'ultimo record della sottomaschera, assieme al
record della maschera principale.
Grazie e un cordiale saluto
Giovanni

 ha scritto nel messaggio
news:RtI0b.111505$cl3.3...@news2.tin.it...
Niente quoting
Skipped....
Antonio

 ha scritto nel messaggio
news:n9J0b.252665$Ny5.7...@twister2.libero.it...

Chiedo scusa per non aver rispettato le regole.
Qualora possibile, vorrei duplicare l'ultimo record della maschera e solo
l'ultimo record della sottomaschera collegata.
Grazie per la Vs. disponibilità.
Giovanni

 l'ultimo record della sottomaschera collegata.
Come fai a definire ultimo un record?
Cioč, quello visualizzato per ultimo nella sottomaschera, ha qualche
caratteristica, tipo un progressivo, un valore in un campo ecc. che mi fa
capire che quello č l'ultimo record?
Oppure no?
Antonio

 Antonio
Ringrazio per la disponibilità.
Per ultimo mi riferisco all'ultimo visibile nella sottomaschera, che poi
dovrebbe essere in effetti l'ultimo record presente nella tabella
"spedizioni".
Vorrei quindi con un pulsante nella maschera principale duplicare l'ultimo
record della sottomaschera e l'ultimo record della maschera in un nuovo
record
Grazie ancora
Giovanni

 record
Query che accoda i record della tabella principale nella stessa tabella
principale filtrando per il campo chiave del record presente in maschera,
quindi facendo riferimento ad il corrispondente controllo associato.
Query che accoda i record della sottotabella secondo lo stesso principio di
cui sopra.
Ovviamente perņ il campo chiave dei record nuovi dovrą essere diverso da
quello da duplicare e usato per filtrare...
Antonio
Newsgroup: it.comp.appl.access
Titolo: Select distinct ... su 2 colonne ... non va?

Salve,
ho provato in 1000 modi ma non capisco xche non vada.
Ho una tabella con n campi. Sto creando una query che vada a caricarne 
solo 2. Il primo è l'ID ed è contatore e l'altro è testo.
La mia select doveva essere abbastanza semplice ma non va con access... 
boh...
"select campo1, distinct campo2 from tab1 group by campo2 order by campo2;"
Il problema è che se aggiungo anche il campo 1 me li fa vedere 
tutti(praticamente non raggruppa nulla.
Come si risolve? Le funzioni in italiano e non standard di access non le 
conosco :-O


Le funzioni in italiano e non standard non ci "azzeccano".
Le domande sono: come puoi "pretendere" che li raggruppi? Come dovrebbe 
far vedere i valori degli id associati allo stesso campo2? Ne prende uno 
a caso? Ma allora id (campo1) a che serve?

 a caso? Ma allora id (campo1) a che serve?
Porca miseria c'hai ragione... che errore mi fucilo da solo :)
Non capisco come ho fatto a toppare così... bah...
Risolto con un campo aggiuntivo :)
Grazie x l'aiuto.

Secondo me è sbagliata la Query.
La Distinct si può fara anche su 2 campi ma non è così semplice
dovresti fare una query a parte che fa la distinct di un campo, poi un'altra 
query dove metti in join quel campo con l'atro
"NewsG" <jhu...@khfsklhd.po> ha scritto nel messaggio 
news:i8ka7v$g7c$1...@speranza.aioe.org...

Newsgroup: it.comp.appl.access
Titolo: file btrieve o simile

ciao,
un cliente deve importare dei dati da un'applicazione che li archivia con
quel formato.
non li ho visti; non ne conosco l'estensione.
li avete mai trattati ??
--
Cordialità
Calogero Di Lorenzo


E' un formato usato per esempio da "Esatto"
(programma di contabilita' della ESA Software).
Devi procurarti  il driver ODBC per BTRIEVE
fornito (a pagamento credo) dalla
Pervasive Software,
e poi importi tranquillamente i dati.
Ciao. ElioP.

 wrote in message 39e41d6d...@news.libero.it...


li avete mai trattati ??
Ciao Calogero, so che i prg in RMCobol scrivevano file
btrieve. Una volta ho interfacciato un mdb, usando pero' i
driver odbc forniti da Ryan McFarland.
Non conosco altri metodi.
Il prg non prevede esportazione in txt?
--
Lorenzo Coronati
--
<<Complimenti per la risposta disinteressata a 
differenza di altri che sul NG ci mangiano sopra.>>
(Voltolini, 20/04/2000)
--
<<[...] Altrimenti ci arrabbiamo....>>
(Voltolini, 10/10/2000)
--

Procurati il driver ODBC oppure il Pervasive SQL SDK, e non ci sono
problemi. Però sono a pagamento.
Una soluzione gratuita consiste nell'utilizzare Access 2 (sic!). A
quell'epoca esisteva un'interfaccia diretta con Btrieve. Infatti Access 2 ha
Btrieve come formato di tabella collegate, oltre che importabili. Dopo non
ti sarà difficile fare le varie conversioni.

 ti sarà difficile fare le varie conversioni.
Domani, la prima cosa che proverò in ufficio, è di importare tabelle BTrieve
in Access 2.
Se quello che dici è vero mi ammazzo: ho perso giornate intere di lavoro ad
importare non so da quante tabelle e una marea di record, leggendo i dati da
dei file di testo importati alla cacchio di cane (teso formattato, con tanti
bei caratteri per poter disegnare i riquadri quando questi files venivano
stampati).

confermo. con access 2 null problem
grazie
un saluto particolare a Lorenzo, ho visto che vai alla cena di Roma.
Purtroppo io non posso,
trooopo lavoro.
--
Cordialità
Calogero Di Lorenzo
Andrea Sciamanna <w...@tamtando.com.cancellami> wrote in message
2XZk6N7...@newsmst.mcis.galactica.it...


trooopo lavoro.
Peccato, cmq vedrai che prima o poi torno dalle vostre parti
a trovarvi :-)
Salutami tanto tua moglie

Newsgroup: it.comp.appl.access
Titolo: variabile per valore interruttore

salve!
Da un interruttore ho nella tabella questi valori:
vuoto, 0, -1;
che tipo di variabile è consigliabile?
testo o numerico?
grazie

 salve!Da un interruttore ho nella tabella questi valori:vuoto, 0, -1;che tipo di variabile č consigliabile?testo o numerico?grazie
 
Cosa intendi per "variabile"... nella tabella hai i campi, intendi
 Tipo di Campo... FieldType meglio...?
Se l'interruttore ha lo stato triplo ti basta usare Intero che
 accetta il Null.
Ho detto INTERO perché quando tu dici Numerico, ci sono piů
 opzioni che soddisfano il concetto di Numerico.
 
-- 
@Alex
 
 
----Android NewsGroup Reader----
https://piaohong.s3-us-west-2.amazonaws.com/usenet/index.html
 

Alberto Luzi formulated on Wednesday :

Il Boolean YES/NO  (NO = 0,   YES <> 0)
 
Bruno


Alberto Luzi Scrive:
[Da un interruttore ho nella tabella questi valori: vuoto, 0, -1; ]
 
Come gestisci il "Vuoto" o Null con il Booleano...?
Magari la lettura veloce o l'età...
 
 @Alex


grazie, ma nel mio caso devo utilizzare numerico intero lungo,
per poter gestire anche il "vuoto" o "null"


grazie, ma nel mio caso devo utilizzare numerico intero,


 per poter gestire anche il "vuoto" o "null"
 
No Intero Lungo... non serve, basta un INTEGER.
 
@Alex

Bruno Campanini was thinking very hard :

Non avevo fatto caso a quel "vuoto".
 
1 - Inserisci un Toggle Button
2 - Poni a YES la sua proprietà Triple State
3 - Metti in esecuzione qualcosa del genere:
 
================================
 Private Sub Toggle0_Click()
 
If Toggle0 = True Then
    Toggle0.Caption = "Vero"
End If
If Toggle0 = False Then
    Toggle0.Caption = "Falso"
End If
If IsNull(Toggle0) Then
    Toggle0.Caption = "Vuoto"
End If
 
End Sub
================================
 
Anche un Check Bos ha la proprietà Triple State.
 
Bruno

 Bruno
 
Mah... 
HA CHIESTO il campo della Tabella non tutto il pippone della Caption... LEGGI e non avere fretta.
 
@Alex


grazie Alex
quindi Tipo dati "Numerico", dimensione campo "Intero"

 quindi Tipo dati "Numerico", dimensione campo "Intero"
 
Certo, esattamente.
 
@Alex


ancora grazie

No al massimo sono 3 stati.
 
Ma puoi spiegare meglio l'esigenza...?
 
Per avere più valori puoi usare una combo... oppure un. Normale
 command button rielaborato.
Quest'ultima soluzione però non è cosi scontato funzioni in
 maschere continue... anzi forse no.

Newsgroup: it.comp.appl.access
Titolo: avviare macro con .vsb

 
Buon giorno
Ho la necessita di far partire una macro che apre una maschera con un
.vbs.Uso il codice per aprire il DB "TRASPORTI" ma non riesco ad arrivare ad
aprire la MACRO "INIZIO" contenuta nello stesso DB.
Potete aiutarmi ?
Dim WshShell, oExec
Set WshShell = CreateObject("WScript.Shell")
Set oExec = WshShell.Exec("f:\Programmi\Microsoft Office\Office\msaccess.exe
f:\Documenti\trasporti.mdb")
'---- se serve puoi controllare la chiusura dell'applicazione
Do While oExec.Status = 0
     WScript.Sleep 100
Loop
WScript.Echo "Access chiuso"
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

 Potete aiutarmi ?
[cut]
se "INIZIO" deve partire *sempre* in fase di avvio rinominala "autoexec"
altrimenti l'unica cosa che mi viene in mente e che in fase di 
attivazione passi un parametro al db ed in funzione di quel parametro 
fai eseguire la macro o meno (cfr "command" su help)
--
ac

Newsgroup: it.comp.appl.access
Titolo: Aggregazione su domini... Criteri

Ciao a tutti.
Questa è una funzione esempio di DSum:
DSum ("[Tabella1]![CampoA] ", "[Tabella1]", "[CampoB] > 1")
Funziona alla grande ma come posso specificare un connettore booleano nel
criterio?
Ho provato a scriverlo in tutti i modi e la guida di access non tratta il
problema (se di problema si può parlare): la guida usa sempre infatti un
criterio "cretino" con un solo valore.
Vorrei che il criterio fosse "[CampoB] > 1 and [CampoB] < 10"
Ma non funziona.
QUalcuno ha qualche dritta? Dove sto sbagliando?
Sono costretto a fare per due volte un DSum specificando prima "[CampoB] >
1" e poi "[CampoB] < 10"?!?
Ditemi di no, vi prego! :))
Ciao

 ha scritto nel messaggio
news:WTqwa.93180$3M4.2...@news1.tin.it...

C'è un errore nella stringa del criterio.
Questa quella esatta:
DSum("MioCampo", "MiaTabella", "MioCampo > 1 And MioCampo <  10")
Ciao, Carlo

 ha scritto nel messaggio
news:WTqwa.93180$3M4.2...@news1.tin.it...

Ciao
La funzione
DSum ("[Tabella1]![CampoA] ", "[Tabella1]", "[CampoB] > 1 and [CampoB] <
10")
è corretta e funziona bene se vuoi valutarla a livello booleano
DSum ("[Tabella1]![CampoA] ", "[Tabella1]", "([CampoB] > 1 and [CampoB] <
10)=True")
ma il risultato non cambia.
Evidentemente il problema è di altra natura, controlla bene i dati o fai una
prova con una tabella semplice con pochi dati.
Ciao Giorgio.
Newsgroup: it.comp.appl.access
Titolo: Come si nascondono i menu' e si lascia attiva solo la maschera di partenza?

come da oggetto vi ringrazio

fatti una maschera con 2 pulsanti, ed assegnagli il seguente codice:
Private Sub Comando2_Click()
  CommandBars("Menu Bar").Enabled = False
  CommandBars("Formatting (Form/Report)").Enabled = False
  CommandBars("Form View").Enabled = False
  CommandBars("Database").Enabled = False
  CommandBars("Form Design").Enabled = False
  CommandBars("Toolbox").Enabled = False
End Sub
Private Sub Comando3_Click()
  CommandBars("Menu Bar").Enabled = True
  CommandBars("Formatting (Form/Report)").Enabled = True
  CommandBars("Form View").Enabled = True
  CommandBars("Database").Enabled = True
  CommandBars("Form Design").Enabled = True
  CommandBars("Toolbox").Enabled = True
End Sub
NOTA CHE COSI' I MENU' RESTANO DISATTIVATI ANCHE SE RIAVVII IL DB TENENDO
PREMUTO SHIFT.
Se capita che ti incasini puoi comunque andare nella finestra di debug
premendo CTRL+G
e da li digitare i singoli comandi
  CommandBars("Menu Bar").Enabled = True
  CommandBars("Formatting (Form/Report)").Enabled = True
  CommandBars("Form View").Enabled = True
  CommandBars("Database").Enabled = True
  CommandBars("Form Design").Enabled = True
  CommandBars("Toolbox").Enabled = True
Ciao, Max

Grazie mille proverň

Newsgroup: it.comp.appl.access
Titolo: Report a colori/bianco e nero..

Salve..Ho un problemino: Nel mio db ho creato alcuni report, e per 
omogeneità ho usato in essi i colori blu e nero..Ora: alcuni, 
stampandoli, mi escono a colori, come nell'anteprima (snapshot), 
altri,lanciati in stampa sempre sulla stessa stampante, mi escono solo 
in bianco e nero, facendomi diventare il blu-->nero, anche se 
nell'anteprima è corretto...Perchè!!Eppure ho guardato nelle proprietà 
dei report, mi sembrano simili e non penso esista una proprietà che mi 
faccia stampare soltanto in bianco e nero..Bo?Mi sapete dare una mano?
Grazie 1000!
-- 
AA
Inviato da 
www.mynewsgate.net

 ha scritto:

Dimenticavo..il report che viene stampato in bianco e nero contiene un 
sottoreport all'interno..può influenzare?..Credo di no!


 ha scritto:


Il report non è una foto, e penso che non utilizzi una stampante per foto.
Quello che vedi in anteprima difficilmente l'otterrai in fase di stampa.
Tra l'altro tutto varia da stampante a stampante. Lo stesso report
stampato in due stampante diverse risulterà con colori diversi. Hai
tentato a prendere una tonalità più chiara del bleu??
Infine, la tua cartuccia colori è carica, i colori ci sono tutti??
--
rgrds
SC
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 
Ti ho descritto che i due report li stampo uno di fila all'altro, sulla 
STESSA STAMPANTE, e la tonalità dei colori è la stessa in tutti e due!!


 ha scritto:

Per caso hai utilizzato la "Formattazione condizionale", nel secondo
report?

Newsgroup: it.comp.appl.access
Titolo: Sintassi corretta in dmax()

Ciao
avrei necessità di trovare il numero di bolla più alto in base
all'anno in corso ed al fornitore
selezionato, ho provato con la funzione dmax() ma non riesco a trovare
la corretta sintassi,
DMax("NumBolla", "Ordini", "Year([Data]) = " & year(date()) and
[codfor] = Val(Me.fornitore.Column(0))

 [codfor] = Val(Me.fornitore.Column(0))
Premesso che se la stai usanto in VBA van bene le virgole altrimenti ci
vogliono i punti e virgola : 
Se Val(Me.Fornitore.Column(0) � un numero:
DMax("NumBolla", "Ordini", "Year([Data]) = " & year(date()) & " and
[codfor] = " & Val(Me.fornitore.Column(0))
Se invece � una stringa : 
DMax("NumBolla", "Ordini", "Year([Data]) = " & year(date()) & " and
[codfor] = " & chr(34) & Val(Me.fornitore.Column(0) & chr(34))
-- 
Ciao
Pablitomf
----------------------------
http://www.accessgroup.it/
----------------------------
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.
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 questo articolo e` stato inviato via web dal servizio gratuitohttp://
www.newsland.it/newssegnala
 gli abusi ad 
ab...@newsland.it
è un numero ora funziona ma ho dovuto aggiungere una parentesi alla
fine
grrrazzzzzieeeeeeee

Newsgroup: it.comp.appl.access
Titolo: Spesometro 2017

Non e' che da qualche parte si trova qualche sorgente, in Access, per 
produrre l'xml per l'invio 'spesometro 2017' (Elenco Clienti/Fornitori 
come da provvedimento Agenzia Entrate 182070) ?


per ora ci sono online solo le specifiche fornite dall'agenzia..che come 
al solito presentano alcuni punti oscuri che verrano chiariti come al 
solito pochi giorni prima della scadenza.
 
di per se non mi sembra difficile alla fina si tratta di creare un file 
con i tag indicati
 
ciao
BFS


Si, sto vedendo ora
E' un lavoro barboso, non c'e niente da imparare
Per questo cercavo un po' di 'pappa pronta'
 


difficile trovare la pappa pronta..bisognerebbe che il tuo db avesse la 
stessa identica stuttura dati (fatture, anagrafiche, regimi iva etc) a 
quella di chi prepara la pappa :-)
 
 
 


Difficile ma non impossibbole
Magari qualche buon cuore si impietosisce
Per la struttura db diversa direi non ci sono problemi
I campi/tabelle si chiameranno in altro modo, bastera' sostituirci 
campi/tabelle corrette
Newsgroup: it.comp.appl.access
Titolo: rinominare automaticamente

Salve a tutti il mio quesito è questo:
con una procedura attingo un record da tabella1 e faccio un'operazione
di rename di colonne di tabella2. Nel rapporto uno a uno tutto ok; se
volessi rinominare in sequenza piu' colonne che tipo di operazione
dovrei fare? Mi sono incartato tra for next e while eof
grazie
F

 ha scritto nel messaggio
news:53daef02.03022...@posting.google.com...

Cosa intendi per "rename di colonne"?
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

 ha scritto nel messaggio
news:eJJ7a.163489$YG2.4...@twister1.libero.it...

Ciao con rename intendo dire che vorrei cambiare il nome di una colonna (o
campo) della tabella2, es. Campo1=Vendita e farlo diventare Campo1=Acquisto,
attingendo il nome da un'elenco predefinito nella tabella1
Non so se ho reso l'idea
grazie
F

 F
Continuo a non capire o forse penso di non capire, visto che mi sembra
quanto mai strno voler cambiare i nomi ai campi di una tabella.
Comunque la cosa migliore è crearti una query che, traite gli alias cambia
di nome ai campi; puoi crearti dinamicamente la stringa SQL della query che
ti serve.


 ti serve.
Ciao cerco di spiegarmi meglio postandoti il codice:
Private Sub tasto_esecuzione_Click()
Dim MioDb As database, miatab As TableDef
Dim campodarinom As String
Set MioDb = OpenDatabase("db1.mdb")
Set miatab = MioDb.TableDefs("tab1")
   campodarinom = "Campo4"
 
   miatab.Fields(campodarinom).Name = Me.prop
 
End Sub
Cosi messo mi rinomina il campo4 con il parametro passato dal campo
testo della maschera, ossia il valore di prop che viene attinto da un
elenco di valori predefinito in un'altra tabella. Fin qui tutto ok, ma
se volessi rinominare ciclicamente tutti i campi del db? Mi sto
scervellando tra cicli for ma senza successo. Spero di essere stato
piu' chiaro
grazie
F

 F
Se la tabella di cui vuoi modificare tutti i nomi dei campi si chiama
Tabella1.
Se la tabella che contiene i nuovi nomi dei campi da assegnare si chiama
Tabella2 ed ha la seguente struttura:
IDCampo                Contatore e chiave primaria
NomeCampo           Testo
Se Tabella2 contiene tanti record quanti sono i campi di Tabella1, prova
cosě:
Dim MioDb As DAO.Database
Dim MioTDef As DAO.TableDef
Dim MioRst As DAO.Recordset
Dim Pippo As Integer
Set MioDb = OpenDatabase("francesco.mdb")
Set MioTDef = MioDb.TableDefs("Tabella1")
Set MioRst = MioDb.OpenRecordset("Tabella2")
MioRst.MoveFirst
For Pippo = 1 To MioTDef.Fields.Count
MioTDef.Fields(Pippo - 1).Name = MioRst!NomeCampo
MioRst.MoveNext
Next Pippo
Set MioRst = Nothing
Set MioTDef = Nothing
Set MioDb = Nothing



Ho provato ma mi da' il seguente errore:
Impossibile definire il campo piu' di una volta
come se si fermasse al primo record e non skippasse al successivo
ciao
F
--------------------------------
Inviato via 
http://usenet.libero.it

 F



Ho riprovato e funziona tutto......ho dovuto spostare il contatore dopo il
campo ID e cioč 2
grazie mille per l'aiuto

Newsgroup: it.comp.appl.access
Titolo: Setfocus controllo

Ciao a tutti ...
mi suggerite come potrei modificare questo codice...
inserito nel controllo TXTdatanascita
in quanto dopo l'aggiornamento del controllo
se digito "SI" si posiziona sul controllo successivo...
se digito "NO" fà la stessa cosa... mentre vorrei che si posizionasse
al record iniziale per un nuovo inserimento e precisamente sul controllo
ID_Utente....
La maschera è singola.
Permette l'aggiunta di nuovi record.
dopo l'ultimo controllo della maschera è previsto che vada nella
sottomaschera...
sotto posto il codice del controllo
grazie...
----------------------------------------
Private Sub txtDataNascita_AfterUpdate()
    If Nz(DLookup("ID_Utente", "SQControlloEsistePaziente"), 0) = 0 Then
    Exit Sub
    Else
        If MsgBox("Il paziente è stato già inserito!, Proseguire?", vbYesNo
+ vbDefaultButton2, "Pz. presente in elenco") = 7 Then
        Me.Undo
        Exit Sub
        Else
        Exit Sub
        End If
    End If
End Sub

"SuperPippo®" <ik0qddT...@TOGLISPAMlibero.it> ha scritto nel messaggio
news:PVxhb.24756$vO5.8...@twister1.libero.it...

prova ad aggiungere alla risposta No il comando
docmd.gotorecord,,acnewrec
me.id_utente.setfocus

 me.id_utente.setfocus
---------------------------------------------
semplicemente fantastico... funziona perfettamente
ecco il codice... grazie....
-------------------------------------------------------
Private Sub txtDataNascita_AfterUpdate()
    If Nz(DLookup("ID_Utente", "SQControlloEsistePaziente"), 0) = 0 Then
    Exit Sub
    Else
        If MsgBox("Il paziente è stato già inserito!, Proseguire?", vbYesNo
+ vbDefaultButton2, "Pz. presente in elenco") = 7 Then
        DoCmd.GoToRecord , , acNewRec
        Me.ID_Utente.SetFocus


Newsgroup: it.comp.appl.access
Titolo: Stampa file di testo da access usando il drive windows "generica solo testo"

Ciao a tutti,
Mi sapete indicare come posso fare per stampare da Visual Basic di Access 
2000 un file di testo impiegando il drive di windows "Generica Solo 
Testo"?
I margini devono essere impostati tutti a zero.
N.B. non posso usare un comando del tipo "oBj.CopyFile "C:\LBS_MAT.TXT", 
"COM1", False" perché la stampante non stampa correttamente.
Grazie, ciao

 ha scritto nel messaggio
news:A84L7.149299$sq5.7...@news.infostrada.it...
Ciao a tutti,
Mi sapete indicare come posso fare per stampare da Visual Basic di Access
2000 un file di testo impiegando il drive di windows "Generica Solo
Testo"?
non stamparlo, esportalo con    docmd.transfertext
Max

Newsgroup: it.comp.appl.access
Titolo: Ciclo For Each ....In

Ciao a tutti
imposto il seguente ciclo su controlli di una Form :
dim ctl as control
for each ctl in Me.Controls
ctl.BackColour = 255   <<<<<<<
e il debug mi segnala un errore sull'ultima riga dicendo che l'oggetto non
supporta la proprietą.
Dove stą il mio errore ?
Grazie per l'aiuto e un saluto a tutti.
Daniele

 Dove stà il mio errore ?

Newsgroup: it.comp.appl.access
Titolo: su apertura del database decidere quale form aprire in base ad un parametro

su apertura del database decidere quale form aprire in base ad un parametro
proventiente da un programma visual basic che aprirą il database.
sapete aiutarmi? grazie.

 sapete aiutarmi? grazie.
Quante possibilita hai?
Se sono finite puoi facilmente creare una macro per l'apertura di ogni 
form e chiamare il db access passando da linea di comando la richiesta 
della macro da eseguire.
In alternativa utilizzi un file di scambio che in cui scrivi il 
parametro da VB e poi apri access che per mezzo della macro qutoexec va 
a leggere il file di scambio e carica il parametro.
saluti.

 ha scritto nel messaggio
news:k9waa.189349$YG2.5...@twister1.libero.it...

Io proverei a passare un parametro all'apertura del DB con Command.
Quando usi Shell e dai il Percorso completo del DB inserisci nella stringa
del Percorso+Nome questo "/cmd Parametro".
All'apertura del tuo DB usi la Macro AUTOEXEC e dirotti il programma
su una FUNZIONE in un Modulo, nella quale leggi e confronti il parametro
passato da Command "cmd"
Public Function VerifyCommand()
    If Len(Command) > 0 Then
    'Initiate Compact routine
        Select case cint(Command)
            case 1
                'Apri la Form 1
            case 2
                'Apri la Form 2
            ............................
        end select
    Else
        DoCmd.Quit
    End If
End Function
Ciao.
@Alex.

 ...
...o usi il parametro passato direttamente nella Macro.
p.e. puoi mandare il nome della maschera con il parametro e
nell'azione AprireMaschera (o simile in italiano) scrivi come
nome della maschera: =Command()
--
HTH
Karl
*********
Access-FAQ (tedesco): 
http://www.donkarl.com

 ha scritto nel messaggio
news:b4fc06$1ubkdk$1...@ID-46617.news.dfncis.de...

Bellissima finezza.....!!
Non ci avevo pensato.....
Ciao.
@Alex.

Newsgroup: it.comp.appl.access
Titolo: database su un file e interfaccia su un altro

si può fare quello che dico??
sapreste indicrmi come??
grazie


Cerca nel menů strumenti "divisione database"...
Ciao.
-- 
Sergio MAZZA

 grazie
Si può e si dovrebbe (sembra) sempre fare anche a scapito di un certo 
rallentamento.
(Aspetto per questa mia affermazione critiche, dissensi e discussioni.)
In db1 tutte le tabelle e in db2 tutto il resto + tabelle collegate.
Se sei fortunato funziona al primo tentativo altrimenti dovrai sudare
un pò.
Ciao
Marco
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 ha scritto nel messaggio
news:%cuLc.31819$5D1.1...@news4.tin.it...

Newsgroup: it.comp.appl.access
Titolo: immissione automatica

Ciao a tutti.
Ho un problemino che mi ha bloccato tutto il giorno.
1)Ho una query con due campi [Cantiere] e [Rapportino] (quest'ultimo
numerico).
2)Una maschera i due corrispondenti box  [Cantiere] e [Rapportino]
Nella realtà i Rapportini sono numerati progressivamente a seconda del
cantiere (avrò tanti numeri che si ripetono) e lo scopo del gioco è fare in
modo che la numerazione venga immessa automaticamente a seconda del cantiere
selezionato.
Vorrei fare in modo tale che selezionando il cantiere nella box [Cantieri]
venga automaticamente immesso il valore nella box [Rappotino] preso dalla
query + 1 unità
Infatti sono almeno riuscito a fare in modo che la query mi restituisca il
più alto dei valori per ogni cantiere...ma il resto?come fare in modo che
venga automaticamente immesso?
ciao ciao



 ha scritto nel messaggio
news:f%Lba.6878$7y3.1...@twister1.libero.it...

Se il controllo in maschera non è associato, metti come origine dati
=Dmax("Rapportino";"Tuatab";"Cantiere'" & ControlloCantiere & "'")
Altrimenti via codice sul dopo aggiornamento del controllo cantiere, scrivi
il valore risultato della Dmax nel controllo ControlloCantiere
Antonio

Newsgroup: it.comp.appl.access
Titolo: Errore 429 (giustificazione!!!)

Buongiorno a tutti.
Come da oggetto, il mio problema č trovare una giustificazione all'errore
429. Mi spiego meglio:
Leggendo sia nel sito comune che in vari post, ho capito il problema
(credo!!!) e di conseguenza la soluzione. Perň mi trovo che in un
pacchetto di una mia applicazione fatto  con il developper, in alcuni
computer (la casisitica vuole che siano quelli con XP) devo fare la
registrazione della libreria DAO360 per far funzionare il mio programma.
Il problema č che questa mia applicazione viene distribuita in circa 100
installazioni in tutta Italia e non tutti saranno in grado di fare
l'operazione di registrazione della libreria.
Inoltre il committente dice che dovevo sistemare il problema io.
La mia domanda č: Ha ragione il committente, mi sono dimenticato di fare
qualcosa, oppure posso "incolpare" Microsoft (eh! eh! eh!)???
Saluti
-- 
Raffaele Alberoni
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 fare qualcosa, oppure posso "incolpare" Microsoft (eh! eh! eh!)???
Non voglio rispondere alla tua domanda perché IANAL. ;-)
Forse non ancora conosci le possibilità di registrare le librerie
con l'API "DllRegisterServer" come descritto da michka:
http://www.trigeminal.com/usenet/usenet026.asp
 nel punto 9 e
sotto. Esp. per DAO esiste il suo modulo RegisterDao:
http://www.trigeminal.com/code/RegisterDao.bas
Non l'ho mai provato ma forse puoi includere il codice per
una registrazione automatica nei tuoi installazioni.
-- 
HTH
Karl
*********
Access-FAQ (tedesco): 
http://www.donkarl.com
Newsgroup: it.comp.appl.access
Titolo: [query] raggruppare e sommare valori tra più tabelle.

non riesco a venire a capo di una cosa..ho diverse tabelle relazione
1aM con la tabella "corrispettivi"
tabella pagamenti, tabella versamenti, etc.
vorrei realizzare una query che visualizzi per ogni record l' ID della
tabella corrispettivi e poi i totali delle altre tabelle...ma non ci
riesco.(ovviamente le tabelle collegate hanno numero di record
diversi)
questo è il codice generato da access..ma riporta dati errati.
----------------------------------
SELECT corrispettivi.ID, Sum(pagamenti.importo) AS SommaDiimporto,
Sum(versamenti.importo) AS SommaDiimporto1
FROM (corrispettivi LEFT JOIN pagamenti ON corrispettivi.ID =
pagamenti.FKidcorrispettivo) INNER JOIN versamenti ON corrispettivi.ID
= versamenti.FKidcorrispettivo
GROUP BY corrispettivi.ID, corrispettivi.Data;
-----------------------------------
come posso fare?
grazie.
--
IgnazioC
----------------------
www.sitocomune.com
 > Sito Comune di ICAA
www.patx.net
       > versione beta
----------------------

 -----------------------------------
Ciao Ignazio,
chissà se un giorno implementeranno anche in Access la funzione SUM(Distinct
...)
Per il momento puoi fare così:
Crea una query basata sulla tabella Pagamenti, metti il campo
FKidcorrispettivo come raggruppamento e il campo Importo come Somma, poi
salvi la query con nome totPagati.
Fai la stessa cosa per la tabella Versamenti, poi in una terza query di
selezione senza raggruppamento metti in left join queste due query tenendo a
sinistra la tabella corrispettivi.
Ciao
-- 
Giorgio Rancati
[Office Access MVP]

Ciao
..allora non sono proprio imbecille..perchè dopo una mattinata di
capocciate al muro è proprio la soluzione che avevo trovato.
io volevo in qualche maniera "annidare" le varie query..ma mi sa che
non è possibile.
grazie mille per la risposta, anche se avevo, in parte, già risolto mi
hai dato conferma di quello che avevo supposto.


 hai dato conferma di quello che avevo supposto.
Ciao IgnazioC,
be, no dai, con l'Sql puoi fare quasi tutto :-)
se vuoi puoi usare le tabelle derivate
es...
----
SELECT corrispettivi.ID,
       Pag.TotPagamenti,
       Ver.TotVersamenti
FROM (corrispettivi
   LEFT JOIN
     (SELECT FKidcorrispettivo,
             SUM(importo) AS TotPagamenti
      FROM Pagamenti
      GROUP BY  FKidcorrispettivo) AS Pag
      ON corrispettivi.ID = Pag.FKidcorrispettivo)
   LEFT JOIN
      (SELECT FKidcorrispettivo,
              SUM(importo) AS TotVersamenti
       FROM versamenti
       GROUP BY  FKidcorrispettivo) AS Ver
       ON corrispettivi.ID= Ver.FKidcorrispettivo
----

Newsgroup: it.comp.appl.access
Titolo: Query di ricerca dati univoci

Buon giorno a tutto il n.g. e buona Pasqua.
Ho creato un piccolo db per la gestione delle mie nozze, inserendo gli 
invitati ed il n. del gruppo familiare a cui appartengono. Ho la necessità 
di creare una query che mi estrappoli un solo record per nucleo familiare, 
esempio:
Tizio, Caio e Sempronio, fanno parte del gruppo familiare 1, vorrei poter 
ottenere con una query, uno solo di questi tre nomi.
Come posso fare?
Grazie a tutti.
Rob.

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

Che sbadato!!!!!!!!!
Auguri di buona Pasqua, ma innanzitutto auguri per il tuo matrimonio.


 Roberto
Grazie Roberto, contraccambio di cuore.
Grazie anche per la dritta che sto tentando di mettere in pratica...!
Roberto
Newsgroup: it.comp.appl.access
Titolo: =Evidenzia Lbl

Dove posso trovare la spiegazione del comando in oggetto.
Lo vorrei usare per visualizzare un colore diverso di un pulsante al
passaggio del mouse.
Grazie


Scusa, dove trovi quel comando?
Riccardo Baldinotti


L'ho visto nel demo CISA3, ma riesco a capire come funziona.


il mio?... :S sarebbe?


Sarebbe la possibilità di visualizzare il colore del pulsante
diversamente se ci passo il mouse.
Grazie


Ripeto :
il mio? (nel senso : il mio demo?)... sarebbe? (nel senso, questo
comando, quale sarebbe e da dove lo hai preso?)

 - Mostra testo citato -
Si, il tuo demo CISA3, (
http://lnx.accessgroup.it/community/forms/
presentazione-cisa3-grafica.html) nella struttura del Maschera1 c'è il
menù dei relatori; quando si passa il mouse su uno dei tasti diventano
da azzurri in grigi.
In più sull'evento "Su mouse spostato" di ogni tasto hai messo
=EvidenziaLbl("Frm1").
Ne volevo capire il funzionamento.
Grazie

Si, il tuo demo CISA3, (
http://lnx.accessgroup.it/community/forms/
presentazione-cisa3-grafica.html) nella struttura del Maschera1 c'č il
menů dei relatori; quando si passa il mouse su uno dei tasti diventano
da azzurri in grigi.
In piů sull'evento "Su mouse spostato" di ogni tasto hai messo
=EvidenziaLbl("Frm1").
Ne volevo capire il funzionamento.
Grazie
-----------
basta entrare nella struttura della pagina...e cercare la funzione 
EvidenziaLbl...
cmq la funzione ha lo scopo di spostare le immagini sottostanti ai titoli, 
(il pulsante grigio sopra quello azzurro per evidenziare il pulsante su cui 
č posizionato il mouse).
E' semplicemente un effetto grafico.

 E' semplicemente un effetto grafico.
Grazie.
Newsgroup: it.comp.appl.access
Titolo: Controllo applicazione

Come faccio a impedire all'utente che usa la mia applicazione Access di
lanciare la stessa infinite volte?
Grazie!


Questa procedura è veramente una chicca:
Fai partire il programma con una macro che chiami Autoexec.
Nella macro Autoexec scrivi nella colonna condizioni: VerificaAperti()=Vero.
Nella colonna Azioni: Casella messaggio (scrivi quello che vuoi)
Colonna Condizioni sotto la prima scrivi: ... (tre puntini). Colonna Azioni
: ESCI
Due righe vuote. Colonna Condizioni: VerificaAperti()=Falso. Colonna Azioni:
Esegui codice (quello che vuoi)
In un nuovo modulo copia quello che ti scrivo:
Option Compare Database
Option Explicit
      Declare Function GetWindow Lib "USER32" (ByVal hWnd As Long, ByVal
wCmd As Long) As Long
      Declare Function GetWindowText Lib "USER32" Alias "GetWindowTextA"
(ByVal hWnd As Long, ByVal lpString As String, ByVal CCh As Long) As Long
      Declare Function IsWindowVisible Lib "USER32" (ByVal hWnd As Long) As
Long
      Public Const GW_HWNDFIRST = 0
      Public Const GW_HWNDLAST = 1
      Public Const GW_HWNDNEXT = 2
      Public Const GW_HWNDPREV = 3
Function GetAppName(Lnghwnd As Long)
Dim LngResult As Long
            Dim StrWinText As String * 255
            Dim LngCCh As Long
         LngResult = GetWindowText(Lnghwnd, StrWinText, 255)
         GetAppName = Left(StrWinText, LngResult)
End Function
    Function GetCountOfWindows(Lnghwnd, StrAppCaption)
    Dim LngResult As Long
    Dim LngICount As Long
    Dim StrAppName As String
         LngResult = GetWindow(Lnghwnd, GW_HWNDFIRST)
         Do Until LngResult = 0
         If IsWindowVisible(LngResult) Then
               StrAppName = GetAppName(LngResult)
               If InStr(1, StrAppName, "NomeApplicazione") Then
                  LngICount = LngICount + 1
                  End If
            End If
            LngResult = GetWindow(LngResult, GW_HWNDNEXT)
         Loop
         GetCountOfWindows = LngICount
End Function
Function VerificaAperti() As Boolean
'procedura per verificare se è stata aperta un'altra applicazione con lo
stesso nome
      If GetCountOfWindows(hWndAccessApp, "NomeApplicazione") > 1 Then
        'Cancel = True
        'MsgBox "E' possibile aprire una sola volta il programma." & Chr(13)
& _
        '        "Verificare sulla barra di stato. Esiste una" & Chr(13) & _
        '        "copia già aperta del programma."
        'DoCmd.Quit acQuitSaveNone
        VerificaAperti = True
        End If
End Function
Funziona perfettamente. Leggi bene il codice e sostituisci al nome
NomeApplicazione il nome della tua applicazione.
Ciao, Carlo

 Ciao, Carlo
Cià RoDAgo

 > Ciao, Carlo
 AriCià RoDAgo

 wrote in message
8fegqq$167$1...@pegasus.tiscalinet.it...

Newsgroup: it.comp.appl.access
Titolo: SQL Server ? (OT?)

Ciao a tutti,
ho una domanda che vi farà sicuramente ridere.
Cos'é Sql server ? Cioè se io lo compro come funziona ? Come access dove
creo tabelle maschere ecc o qualcosa di diverso ? Ho guardato sul sito della
Microsoft ma al di là di tutti i pregi che vengono indicati io non ho ben
capito in cosa consiste il software. Scusate l'ignoranza e grazie.
Ciao

 creo tabelle maschere ecc o qualcosa di diverso ? Ho guardato sul sito
della
SQL Server è un RDBMS cioè un Relationship Database Management Sistem, cioè
un Sistema per l'amministrazione di database relazioni.
Riassumendo velocemente possiamo dire che è molto più potente di access per
quanto riguarda il database vero e proprio; inoltre consente di collegare
più utenti contemporanamente (molti utenti), consente di vietare/permettere
di vedere/leggere/scrivere alcune tabelle ad alcuni utenti.
A una serie di strumenti per evitare la perdita di dati. E tante altre cose.
Gli manca un qualcosa tipo le maschere di access.
Però puoi collegare le sue tabelle con le maschere create in access. Insieme
lavorano molto bene
ciao
Luca

 ha scritto nel messaggio
news:b8ori3$4ft$1...@newsreader.mailgate.org...

Grazie 1000 della delucidazione. Scusa per il ritardo nella risposta ma ero
fuori per lavoro. Solo una domanda...
Per l'utilizzo dovrei installare SQL Server su un server e poi utilizzare un
progetto access per intervenire sui dati ? Grazie.
Ciao

 progetto access per intervenire sui dati ? Grazie.
Per utilizzarlo devi installare SQL Server (va bene anche un normalissimo
pc, basta che ci sia sopra Win2000, con il98/ME non potresti utilizzarlo al
meglio) e da li puoi costruire il db e manipolare i dati.
Con access poi puoi creare un'interfaccia con maschere, report e altro. Ma
per inserire, eliminare e manipolare i dati basta sql server.
ciao
Luca

 ha scritto nel messaggio
news:b9nfrj$ecr$1...@newsreader.mailgate.org...

Grazie mille. Ora mi č abbastanza chiaro. Ciao
Newsgroup: it.comp.appl.access
Titolo: Aggiungere campo in un  altro database

Come posso aggiungere un campo in una tabella inserita in un altro
database ?
Esempio : devo aggiungere il campo "NOME" di tipo TESTO della tabella
"CLIENTI" presente nel db C:\azienda.mdb.
Il tutto devo farlo dal database C:\origine.mdb
Grazie
Alberto


Che versione di Access usi?
-- 
_ _
Ciao
MAssimiliano Amendola            
www.accessgroup.it
Cisa - Conferenza Italiana per Sviluppatori Access
Info:  
www.donkarl.com/it

 ha scritto nel messaggio 
news:1131407615.5...@o13g2000cwo.googlegroups.com...

Questo un esempio:
Public Sub NuovoCampo()
 On Error Resume Next
    Dim dbs As Database
    Dim tdf As TableDef, fld1 As Field
    Dim i As Integer
    Set dbs = OpenDatabase("C:\azienda.mdb")
    For i = 1 To dbs.TableDefs.Count
    If dbs.TableDefs(i).Name = "CLIENTI" Then
    Set tdf = dbs.TableDefs(i)
    Exit For
    End If
    Next i
    Set fld1 = tdf.CreateField("NOME", dbtxt)
    tdf.Fields.Append fld1
    Set dbs = Nothing
End Sub
Questo è invece un esempio per creare una nuova tabella in un secondo db, a 
patto di averne costruita una nel proprio db:
 DoCmd.TransferDatabase acExport, "Microsoft Access", "TuoPercorso.mdb", 
acTable, "NuovaTabellaCrea", "NuovaTabella", True
La guida in linea agli argomenti OpenDatabase, CreateField e Append ti sarà 
di grande aiuto.
Ciao, Carlo 


Utilizzando Access2003
con questa procedura (ed omettendo la riga ON ERROR RESUME NEXT)
mi segnala l'errore
"ERRORE DI CONVERSIONE DEL TIPO DI DATI"
sulla linea
Set fld1 = tdf.CreateField("NOME", dbtxt)
Ciao


Devi aggiungere i riferimenti dao


 Devi aggiungere i riferimenti dao
Anche con un secondo riferimento a DAO (il primo bisogna già il
OpenDatabase...) manca ancora un "e" --> dbtext
-- 
;-)
Karl
*********
Access FAQ: 
www.donkarl.com/it
+ Conferenza Italiana per Sviluppatori di Access (CISA) 


Dim db As DAO.Database
Set db = OpenDatabase("C:\azienda.mdb")
db.Execute "ALTER TABLE Clienti ADD COLUMN Nome VARCHAR"
db.Close: Set db = Nothing
-- 
HTH

Newsgroup: it.comp.appl.access
Titolo: Form access sempre in primo piano

Vorrei che una maschera pop up fosse sempre in primo piano a video, anche
con altre applicazioni aperte, es. internet explorer.
Si puň fare?
Grazie Roberto


Credo che per questo tu debba ricorrere ad una API di Windows.
Comunque bisognerà subclassare l'applicativo e i messaggi di Windows
Ciao, Carlo

 ha scritto nel
messaggio news:hRQua.134073$K35.3...@news2.tin.it...

Già.....................
In ogni caso non è così semplice, ma su 
www.mvps.org
 divisione
Access c'è qualcosa che può essere di spunto per partire.......!
@Alex.

 Effettivamente su 
http://www.mvps.org/access/api/
 ho trovato un esempio
che usa apiShowWindow Lib "user32" e così facendo riesco a mantenere la form
in primo piano finchè questa ha il focus, ma aprendo un'altra applicazione
essa scompare e bisogna usare ALT+TAB per ripescarla, perchè non è la form
che deve stare sempre in primo piano ma Access stesso.
Se riesco vi farò sapere, altri suggerimenti ben vengano
grazie roberto

 ha scritto nel messaggio
news:DPUua.137033$K35.3...@news2.tin.it...

Si è proprio il comportamento di Windows, ed è proprio per questo che
Carlo accennava al SubClassing.
Si può evitare che le altre applicazioni prendano il FOCUS, ma occorre
subclassare i messaggi di Win, in quanto non più gestibili......!
Tieni presente che la tecnica del SubClassing è un pò rognosetta....!
@Alex.

 Grazie lo stesso Roberto

Newsgroup: it.comp.appl.access
Titolo: Invertire contenuto stringa

Esiste un comando od una routine per invertire il contenuto di una stringa.
per esempio:
stringa1= "pippo"
stringa1_invertita="oppip"
Ciao e grazie
Enzo

Enzo <e.br...@ANTISPAMlibero.it> wrote in message
902mkg$295$1...@fe1.cs.interbusiness.it...

la butto li velocemente ricontrollala:
function sInverti(str as string) as string
dim i as integer
sinverti = ""
for i = len(str) to 1 step -1
 sinverti = sinverti & mid$(str, i ,1)
next i
end function
Newsgroup: it.comp.appl.access
Titolo: pulsante "sfoglia" in una maschera per copiare nome file

quello che desidererei io è, dato un campo di testo, aggiungervi accanto un
tasto sfoglia, che consenta di selezionare un file sul disco rigido.
quello che poi in realtà deve copiare nel campo di testo è SOLO il nome del
file.
è possibile?
grazie
Ciao
Silvia.
--
www.silvietta.it
...everyone's invited!

 ....everyone's invited!
cerca nel sito comune la funzione cmdlg_file.
ciao
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

Newsgroup: it.comp.appl.access
Titolo: Aiuto valori negativi

Carissimi del Ng
In una query ho calcolato un campo con una formula che può anche
restituire valori negativi. Vorrei fare in modo che quando si verifica
la presenza di un valore negativo mi venga restituito il valore 0.
E' possibile farlo per la query in questione?
Mi potrebbe andare bene anche se lo si può fare in una maschera.
grazie a tutti
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 E' possibile farlo per la query in questione?
iif(formula<0;0;formula)
Antonio

 Antonio
-- 


 > Antonio
Lo volevi nella query?
E allora mettilo nella query come campo calcolato
Antonio

grazie e scusa per il quoting
ciao


 ciao
Per completare, il quoting ce lo devi anche mettere, almeno in parte, non
devi tagliare tutto!!!!
Antonio

Newsgroup: it.comp.appl.access
Titolo: Problemi con ocxTreeView

Ciao a tutti,
Ho impostato il seguente albero con il controllo ocxTreeView:
Set objNode = Me!ocxTreeView.Nodes.Add(, , "Chiave_Menu", "Menu", 1)
Set objNode = Me!ocxTreeView.Nodes.Add("Chiave_Menu",
4,"Chiave_Utilitą","Utilitą", 1)
Set objNode = Me!ocxTreeView.Nodes.Add("Chiave_Utilitą",4,"Chiave_Compatta",
"Compatta", 1)
Adesso come si scrive il codice che sul click della "foglia" "Compatta" mi
apre una maschera?
Grazie Henri


sul sito comune trovi vari esempi sull'utilizzo delle treeview, cmq devi
gestire l'evento NodeClick del controllo.
esempio:
Private Sub ocxTreeView_NodeClick(ByVal Node As Object)
    Msgbox "Testo: " & Node.Text & vbcrlf & "Chiave: " & Node.Key
End Sub
-- 
Federico
----------------------------------
Rimuovi paperino. per e-mail
----------------------------------
Tutte le richieste che arrivano
in privato, vengono cestinate.
----------------------------------
Sito Comune di it.comp.appl.access
http://www.sitocomune.com
mailto:
webm...@sitocomune.com
----------------------------------