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

Salve, vorrei creare tramite query di aggiornamento (o altra strada)
un sistema che automaticamente setti le date passate alla data odierna
con i seguenti criteri:
1) il campo [Non richiamare] non deve essere spuntato;
2) aggiorni il campo [Prossimo richiamo] della tabella nominativi;
3) che nel campo [Prossimo richiamo] ci siano delle date passate, cioè
non sia vuoto.
Ho scritto il seguente codice SQL che non funziona.
UPDATE [Nominativi] SET [Nominativi].[Prossimo richiamo]=date() WHERE
(([Nominativi].[Prossimo richiamo]<Date() AND [Nominativi].[Non
richiamare] is not null and [Nominativi].[Prossimo richiamo]<>""
che non funziona. Dove sbaglio?

 che non funziona. Dove sbaglio?
Ci sono 2-3 errori. Prova cosě:
UPDATE Nominativi SET [Prossimo richiamo] = Date()
WHERE [Prossimo richiamo] <Date() AND [Non richiamare] = False
In genere tenta di evitare spazi in nomi di campi e oggetti.
v.a. 
www.donkarl.com/it?FAQ1.5
-- 
Ciao
Karl
*********
Access FAQ: 
www.donkarl.com/it

Newsgroup: it.comp.appl.access
Titolo: Problema conversione 97/2000

Non riesco a convertire un db da Access 97 a 2000 (dice che il file e'
danneggiato ma non e' vero) , sapete mica come risolvere il problema? Mi
pare di aver letto che esisteva una patch...
Grazie e ciao!
MerlinO


Newsgroup: it.comp.appl.access
Titolo: Mouse

Vorrei, disattivare la funzione della rotellina del mouse in una specifica
maschera.
Qualcuno sa se è fattibile?


www.sitocomune.com
Ciao, carlo 

 Qualcuno sa se è fattibile?
Si è fattibile, ma richiede l'uso di Codice ed un minimo di esperienza.
Se nella Form non hai SubForm o ListBox puoi usare quanto trivi
nel mio sito alla Sezione API "MouseWheel".
Ricorda che stai usando il SubClassing pertanto occorre seguire le
procedure adeguate.
Se invece hai Controlli che potrebbero risentire del MouseScroll
e vuoi disbilitare anche quelli allora vai sul sito di Lebans 
www.lebans.com
e trovi una [Windows Dll compilata] con un Demo che risolve anche questi
problemi.
Ciao
-- 
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.mantuanet.it/alessandro.baraldi/
---------------------------------------------------------------------------
Newsgroup: it.comp.appl.access
Titolo: Allineare testo in listbox

Ciao a tutti
Ho questo problema, riempio una listbox da un elenco di un foglio di excel
con questo codice: "vi espongo solo la riga di codice che interessa ": ( 
elemento = .Cells(i + 1, 13).Value & Chr(9) & .Cells(i
+ 1, 9).Value & Chr(9) & Chr(9) & .Cells(i + 1, 2).Value & Chr(9) & .Cells(i
+ 1, 3).Value ).
 Tutto va bene , ho provato con Chr(9)  ,ma se i primi numeri sono di 3 o 4 
cifre l'elenco non viene
ordinato in fila perfetto , vi faccio un esempio:
10    via totti 19   roma    italia
122   via milano 2    milano    italia
1878   via firenze 3    firenze   italia
8   via bari 4    bari     italia
come modifico il mio codice per far si che venga tutto allineato ? ciao e
grazie.


forse dovresti semplicemente gestire 4 colonne anzichè una.
ovvero devi impostare 4 colonne nella listbox e inviargli 4 valori per
ogni riga separati dal ";"
es.
if nz(elemento,"") <> "" then elemento = elemento & Chr(59)
elemento = .Cells(i + 1, 13).Value & Chr(59) & _
                 .Cells(i + 1, 9).Value   & Chr(59) & _
                 .Cells(i + 1, 2).Value   & Chr(99) & _
                 .Cells(i + 1, 3).Value )
ciao
Andrea Papi

 ha scritto nel messaggio 
news:cce39845-66d7-4834...@e31g2000hse.googlegroups.com...

Newsgroup: it.comp.appl.access
Titolo: Modulo fatturazione_Preventivi

 Da mesi cerco di realizzare un gestionale per fatturazione e preventivi con
possibilità di inserimento anagrafica clienti. Qualcuno protrebbe aiutarmi?
Vi ringrazio anticipatamente.
A.Angelo

 ha scritto nel messaggio
news:7TFja.10195$iy5.2...@twister2.libero.it...

Ed in questi mesi nemmeno un'idea ti è venuta? ... prova con
l'utocomposizione File\Nuovo
Ciao...
    omnitow

 possibilità di inserimento anagrafica clienti. Qualcuno protrebbe
aiutarmi?
Access non gestisce situazioni così complesse.
;-)

 ;-)
iahahahhahahaah certo che sei un bel burlone.
comunque A.Angelo ciň che chiedi č molto semplice anche da costruire da soli
crei una tabella per ogni tipo di dato e poi associ ad ogni tabella una
maschera ecc.....
per le fatture con piů voci la cosa č un po complicatina devi creare una
tabella inststazionifatture e una vocifatture e correlarle con un campo
indice
fammi sapere. ciao.

 ha scritto nel messaggio
news:7TFja.10195$iy5.2...@twister2.libero.it...


 ha scritto nel messaggio
news:b6pk4c$ds4$1...@lacerta.tiscalinet.it...


 ha scritto nel messaggio
news:b6pk4c$ds4$1...@lacerta.tiscalinet.it...


 ha scritto nel messaggio
news:osHja.10446$iy5.2...@twister2.libero.it...

Newsgroup: it.comp.appl.access
Titolo: Refresh tabelle collegate ODBC

Ciao cari...
non sono molto addentro alla cosa, per cui vi chiedo...
ho "una" tab SQL collegata in un MDB via ODBC...
quando e se faccio delle variazioni sulla struttura della tab. stessa
nelle console SQL manager, se non la scollego e la ricollego a manina
nell'MDB, le modifiche non me le prende (ricordandosi la struttura
vecchia)... sapete se c'è un modo automatico per REFRESHARE la/le tab. in
questione senza dover per forza si cose scollegare e ricollegare?
tnks
-- 
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

Ciao Caro...
Hai provato ad effettuare il RefreshLink...?
Eventualmente fai una procedurina che elimina le Tabelle_Linked e le
ripristina...
Casualmente questa:
http://www.alessandrobaraldi.it/DettaglioFaq.asp?IdFAQ=200
@Alex

 @Alex
We Ale... in effetti il relink è la soluzione che ho usato... ma mi
"scocciava" dover staccare e riattaccare tabelle onestamente... speravo ci
fosse qualcosa di diverso... babbbè, mi toccherà mantenere questa
soluzione. ;)


 Non mi fido molto delle statistiche, perchč un uomo con la testa nel forno


 ha scritto nel messaggio 
news:80f0a3de-9eda-4e21...@z9g2000yqi.googlegroups.com...

Ho visto la tua routine per ricollegare le tabelle
Ma a cosa serve la tabella di appoggiocon i nomi delle tabelle sul db 
origine?
Perche' non le leggi 'al volo' ?
Ciao
RobertoA

 RobertoA
Un DB può avere N tabelle ma non è detto che debbano essere linkate
tutte...!!!!
Quella degli Users/PWD ad esempio non mi sognerei MAI di linkarla...!
Detto questo la tabella serve proprio per limitare il Link alle sole
Tabelle necessarie, anche con l'ottica eventuale di gestione utenti.
@Alex

Newsgroup: it.comp.appl.access
Titolo: record *

Come faccio a non far comparire il record di inserimento nuovo
quello con la *
Addirittura in una sottomaschera visualizzazione maschere continue
me ne compaiono due?
Che roba!

 -------------------------------
Basta che creare una maschera con le propietą aggiungi record a no,
naturalmente ottenedola da tabella/e con record preimpostati...ciao ciao
Newsgroup: it.comp.appl.access
Titolo: Questito su query!!

Ho una maschera chiamata Settori e una sottomaschera relazionata con la 
prima chiamata Attività, in pratica un Settore può contenere molte attività.
Ho la necessità di creare una stampa che mi restituisca soltanto le ultime 
tre attività di ogni settore.
Secondo voi è possibile ottenere tale risultato con una query oppure devo 
necessariamente elaborare un algoritmo tramite codice?
Grazie per gli eventuali post
--
Ken 

 ha scritto nel messaggio
news:SQoKd.779578$35.30...@news4.tin.it...

Cosa intendi per "ultime tre attività"?
-- 
Roberto
-----------------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
----------------------------------------------------

 ha scritto nel messaggio 
news:UbpKd.3314$lB4....@twister1.libero.it...

Per ultime 3 attività intendo gli ultimi 3 record registrati in ordine 
temporale
In pratica se i settori 1 - 2 - 3 - ecc ognuno di essi contengono più di 3 
sottorecord registrati (attività) la query mi deve restituire per ognuno di 
essi soltanto gli  ultimi 3 record registrati.
--
Ken

 Ken



Ok funziona, grazie tante,
in parte ho risolto il mio problema in quanto se ho fatto bene così vedo un 
Settore alla volta con i 3 sottorecord e se creo una stampa dove vedere 
tutti i settori con i relativi 3 sottorecord devo lanciare una stampa alla 
volta per ogni settore. Giusto?
--
Ken 

 volta per ogni settore. Giusto?
Non è necessario; è sufficiente che con la stessa tecnica con cui ti sei
creato una maschera che contiene una sottomaschera, ti crei un report che ha
come origine record la tabella Settori e che contiene un sottoreport che ha
come origine record la query basata sulla tabella attività e per cui hai
impostato a 3 la proprietà Primi valori.


 ----------------------------------------------------
Fantastico ho capito!! ho impiegato 5 minuti a farlo, e pensare che è tutto 
il pomeriggio che ci penso!!
Grazie 1000 per l'aiuto.
--
Ken
Newsgroup: it.comp.appl.access
Titolo: Richiamo di una funzione

scusate,
ho un piccolo problema relativo alle funzioni;
Ho inserito nel mia barra degli strumenti un pulsante che mi permette di
aprire la maschera "clienti"; ho notato che vi è un campo (nella proprietà
del pulsante della barra person.) che si chiama "parametro" e che viene
usato per passare un parametro, appunto , ad una funzione.
Son due giorni che ci sbatto la testa ma io il parametro non son proprio
riuscito a passarlo alla funzione.
La funzione deve contenere il nome del Form per passare il controllo
"Setfocus" su un campo specifico  ( Forms!nomemaschera!campox.setfocus).
Be' guardate se è scritta giusta, magari è gia errata in partenza la
funzione
Function Sposta (frm as string)
    Form!frm!idcli.setfocus
end function
...dove frm dovrebbe essere il parametro (nome form) che viene passato all'
apertura della maschera.
se riuscite a darmi una mano Vi sarei molto grato.
grazie in anticipo e buon lavoro.
Luca

 ha scritto nel messaggio
news:r4cV8.44128$vm5.1...@news2.tin.it...

Prescindendo da tutto,
    Form!frm!idcli.setfocus
è formalmente sbagliato, eventualmente dovrebbe essere:
    Forms!frm!idcli.setfocus
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

 ha scritto nel messaggio
news:ADcV8.110059$j65.2...@twister1.libero.it...



wrote:

dovresti prima passare il focus sulla maschera e poi sul controllo
poi forse per il focus dovresti cercare il form tramite 
for each masc in forms
	if 
masc.name
=frm
	masc.setfocus
	masc.idcl.setfocus
endif
Saluti.
Emanuele.

 ha scritto nel messaggio
news:r4cV8.44128$vm5.1...@news2.tin.it...

Scusa se ho risposto in ritardo ma quando vedo messaggi che hanno gia delle
risposte salto per dedicare del tempo a chi non ha ancora avuto risposte,ma
avendo letto le risposte...sarà meglio darti quella giusta :-))
Si può fare, e senza tanti giri.  Il modo è questo:
    forms(frm)!idcli.setfocus
dove frm è la variabile string che contiene il nome della form.
se invece passi una variabile "frm as form" allora puoi fare direttamente
così:
    frm!idcli.setfocus
ciao.
Newsgroup: it.comp.appl.access
Titolo: Il componente ActiveX non è in grado di creare l'oggetto

Ciao a tutti !
Ho un problema con Access. Quando cerco di creare un DB nuovo , con o senza
autocomposizione, mi appare un msgbox che recita "Il componente ActiveX non
č in grado di creare l'oggetto" .
Qualcuno mi puň aiutare per favore ?!?
PS: uso Access 2000
Grazie 1000 , aLe
-------------------------------------------------------------------------
 A volte vorrei vivere nell'aria e rimanere sospeso senza piů ostacoli
giocare coi mostri delle mie insicurezze
e trasformarli in canzoni come un miracolo ...
LITFIBA - 1994 -
---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (
http://www.grisoft.com
).
Version: 6.0.590 / Virus Database: 373 - Release Date: 16/02/2004

 è in grado di creare l'oggetto" .
[CUT]
Se cerchi nei post del 4 febbraio, Roberto da casa ha già risposto al
medesimo quesito.
Ciao.
--
Francesco G. Rizzoni

 Grazie 1000 , aLe
VAi sul Sito Comune (link qui sotto) e nella Sezione General leggi la FAQ di
Karl Donaubauer intitolata "Errore 429 - Il componente Activex non e' in
grado di creare l'oggetto".
-- 
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


Grazie 1000, ho risolto il problema.
aLe


Newsgroup: it.comp.appl.access
Titolo: numero di record in una tabella

Scusate, all'interno di una Sub di un qualsiasi pulsante in una
qualsiasi maschera è possibile conoscere il numero di record di una
tabella (che non c'entra nulla con quella maschera)? Ed eventualmente
l'ID numero dell'ultimo record?
Sapreste indicarmi come fare?
Grazie
Ciao
Giovanni

 ha scritto nel messaggio 
news:n0tau0l519dlees5j...@4ax.com...

Ciao
guarda sull'help
Dcount e dmax
MAssimiliano 

 ha scritto nel messaggio 
news:n0tau0l519dlees5j...@4ax.com...


 Giovanni
Si possono usare le funzioni di aggregazione sui domini, ma
francamente hannop restazioni molto scarse quando il numero di Records
č elevato.
Io uso questa che risulta decisamente piů veloce:
msgbox tblCount(NomeTabella)
Function tblCount(strTable As String, _
		    Optional ByVal Nome_Dbs As String = vbNullString) As long
   Dim dbs As DAO.Database
   Dim tdf As DAO.TableDef
   Dim rs As DAO.Recordset
   Dim x, num_ogg As Integer
   If IsMissing(Nome_Dbs) Or Nome_Dbs = vbNullString Then
      Set dbs = CurrentDb
   Else
      Set dbs = OpenDatabase(Nome_Dbs)
   End If
   Set rs = dbs.Openrecordset("SELECT COUNT(*) As Conteggio FROM " &
strTable)
   tblCount= rs!Conteggio
   rs.close
   Set rs = Nothing
   dbs.Close
   set dbs=nothing
End Function
Ciao
-- 
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.mantuanet.it/alessandro.baraldi/
---------------------------------------------------------------------------
Newsgroup: it.comp.appl.access
Titolo: Loop delle maschere sulla Formattazione Condizionale

Prima di passare ad un progetto ADP di access usavo la funzione
riportata a margine, che ho ricavato da Internet per gestire la
formattazione condizionale.
Verificavo se il record era pari 0 dispari per variare i colori.
Nel Progetto ADP e i collegamenti alle tabelle SQL, le maschere che
contengono la formattazione vanno in Loop.
Come posso ovviare ??
Public Function GetRecNum( _
) As Long
  On Error GoTo erh
  Dim frm As Access.Form
  Dim rst As DAO.Recordset
  Set frm = CodeContextObject
  Set rst = frm.RecordsetClone
  With rst
    If Not ((.BOF = True) And (.EOF = True)) Then
      .Bookmark = frm.Bookmark
      GetRecNum = .AbsolutePosition + 1
    End If
  End With
ext:
  Set rst = Nothing
  Set frm = Nothing
  Exit Function
erh:
  GetRecNum = 0
  Resume ext
End Function
Ciao e grazie.

 ha scritto nel messaggio
news:79217c6f.04092...@posting.google.com...

Vai sul Sito Comune (link qui sotto) e nella Sezione Forms prova a vedere se
può esserti utile la FAQ di Silvio Savoldi intitolata "Formattazione
Condizionale nelle maschere continue".
-- 
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------
Newsgroup: it.comp.appl.access
Titolo: Come avere campi in grassetto e corsivo in una maschera?

Ciao a tutti.
Scusate l'insistenza, ci riprovo. Sono un neofita di Access, e sto
realizzando un database in cui alcune maschere dovrebbero riportare i miei
dati in modalita' grassetto e corsivo. Pensavo di utilizzare qualcosa tipo
la RichTextBox di Visual Basic, ma non riesco a far funzionare niente...
Qualcuno mi sa dare una mano?
grazie anticipatamente
ciao
Marco

see you again,Paolo

 ha scritto nel messaggio
news:H6_I6.3618$DF1....@news1.tin.it...

Grazie ma non era quello che intendevo.
Del resto c'hai ragione pure tu, se non mi spiego bene e' normale che riceva
delle risposte che non c'entrano molto....
Provo a rispiegarmi meglio.
Ho una maschera che contiente una casella di testo. All'interno di questa
casella di testo vorrei poter mettere il testo con diversi stili, una parte
in grassetto, una parte in corsivo, ecc. ecc.
In VisualBasic userei la RichTextBox, in Access non so come regolarmi....
qualcuno mi sa dare una indicazione?
grazie mille e scusate il disturbo.
ciao
Marco

In VisualBasic userei la RichTextBox, in Access non so come regolarmi....
La casella di testo deve essere riempita di volta in volta con testo
diverso, vero?
Altrimenti, suggerimento ovvio :-), ti basta usare PIU'caselle di testo
affiancate, in ognuna delle quali userai un font diverso. Metodo rozzo e
brutale, ma efficace.
Ciao,
A.-

tabelle daranno un output in grassetto, quali in corsivo ecc.
Prova ad usare il controllo "Microsoft Rich Textbox Control, version 6.0".
Io lo trovo in "Inserisci controllo ActiveX...", voce del menu "Inserisci"
del mio Access2000. Se sapevi come riempirlo in VB con del testo in
grassetto, corsivo, eccetera, dovrebbe essere la stessa cosa. Se riesci a
riempirlo, per favore spiega come fai :-)
Ciao,
A.-

 Marco
non e' possibile farlo con i ctrl testo di access, pero' se hai VB, usa
il RichTextBox cosi' come lo useresti in VB.
-- 
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
----------------------------------

 il RichTextBox cosi' come lo useresti in VB.
il problema e' quello di fornire un prodotto finale che non necessiti di
librerie "estranee". con tutte le varie versioni, tra Access97, 2000, i vari
VB, mi ritrovo sempre con il rischio di arrivare con l'applicazione
definitiva che non gira su una macchina o sull'altra perche' manca la tal
libreria...
vedro' come poter fare ad inglobare la libreria VB in Access senza essere
costretto tutte le volte a reinstallarla.....
ciao
Marco

 riempirlo, per favore spiega come fai :-)
va bene, non manchero'! :)
ciao
Marco


se usi quell'ocx, devi per forza installarlo su tutte le macchine dove
usi l'mdb.
ti conviene creare un set d'installazione.

Newsgroup: it.comp.appl.access
Titolo: tabelle collegate in .mde: A00 le apre, A02 no.

Buon pomeriggio a tutto il ng.
Ho un mde in rete che funge da FE e punta ad un mdb collocato nella
stessa dir.
Da due postazioni diverse (Nt4/A00 e Win00/A02) punto al mde. Sulla
postazione Nt va tutto bene; dalla postazione Win00 mi viene richiesto
il path delle tabelle collegate (più la pwd di accesso al db). Ho
pensato che fosse qualcosa sulla versione di Access e così, dalla
postazione Win00/A02, ho provato a convertire all'indietro il mde (alla
ver A00), ma mi dice che il file è già convertito.
Prima di disinstallare A02 ed installare A00 (che mi sembra una cosa
poco seria; la versione più recente dovrebbe essere più completa, o
no?), c'è qualche altro tentativo che posso fare?
Grazie in anticipo.

"chippo" <
...

Non so se il tuo problema sia legato a versioni differenti di Access, posso
dirti che è impensabile distribuire applicazioni in quel modo.
A te non deve interessare se e quale versione di Full Access sia installato
sul PC dell'utente: procurati e utilizza la DEV per Access, che ti svincola
da discorsi di quel genere.
Probabilmente è reperibile sul mercato solo la realese più recente:
http://www.microsoft.com/italy/msdn/prodotti/vstudio/officetools/sviluppo.ms
px
Ciao.

 Ciao.
Parole sante!
Soprattutto dopo il tentativo non riuscito di
"convertire all'indietro il mde"...
Bruno 

Molte grazie per la risposta.
Purtroppo l'applicativo (e la successiva distribuzione) non è mio e
non saprei come intervenire.
Pensavo di riuscire a trovare qualche accrocchio per far lavorare gli
utenti.
Grazie ancora.
PS: per DEV di access, intendete il developer tool kit? Il link che mi
avete consigliato punta ad una pagina inesistente...
Ciao e buona giornata.
F.

"chippo"
Molte grazie per la risposta.
Purtroppo l'applicativo (e la successiva distribuzione) non è mio e
non saprei come intervenire.
Pensavo di riuscire a trovare qualche accrocchio per far lavorare gli
utenti.
Grazie ancora.
In tal caso fai in modo che sulle macchine sia installata la stessa realese
di Full Access.
PS: per DEV di access, intendete il developer tool kit? Il link che mi
avete consigliato punta ad una pagina inesistente...
Ciao e buona giornata.
Certo che esiste: occhio al "PX" che è andato a capo nel post sul ng.
Ciao.

ok.
molte grazie
F.
Newsgroup: it.comp.appl.access
Titolo: duplicare o triplicare record a seconda del valore di un campo

Salve a tutti,
ho una tabella con un campo numerico "numero controlli" e devo
estrarre con una query i vari record: questi però mi devono comparire
tante volte quanti sono i controlli (cioè se un record ha "numero
controlli" = 3 mi deve comparire tre volte). Ho dato un'occhiata nel
neswgroup e ho visto del codice sql dove si fa duplicare un record in
funzione di un valore deciso a priori, con la preposizione WHERE. ma
come faccio se voglio che l'operazione di INSERT ...INTO venga
ripetuta tante volte quante sono indicate nel campo "numero
controlli"? e soprattutto in questo caso cosa metto nella preposizione
WHERE?
grazie in anticipo per l'aiuto


Ti propongo una soluzione che ha senso solo se il titolo del post è
esatto (nel senso se gli unici valori possibili per "numero controlli"
sono 2 e 3): crea una nuova tabella ausiliaria, con un unico campo
"numero controlli", ed inserisci due record con il valore del campo
uguale a 2 e tre record con il valore del campo uguale a 3. In
sostanza:
numero controlli
2
2
3
3
3
Crea poi una query in cui metti inserisci la tabella originale e
quella ausiliaria, e crea un join tra i campi "numero controlli" delle
due tabelle. Esegui la query, ed avrai duplicato le righe con numero
controlli=2 e triplicato le righe con numero controlli=3
Newsgroup: it.comp.appl.access
Titolo: Domande per gli esperti

1)E' possibile in access creare una password per accedere al db, in modo che
esca tutte le volte che apro il db? Come si fa?
2)E' possibile in access creare un box-message in modo che tutte le volte
che modifico o creo un nuovo record da una maschera mi avvisi della
modifica/creazione e mi chieda se voglio aggiornare o meno il db? (con 2
opzioni scelta "ok" "annulla") Come si fa?
3)E' possibile impostare in access un parametro che mi immetta per default
la prima lettera di ogni campo sempre maiuscola? Come di fa?
Grazie a tutti (mandatemi le E-mail)
--
Posted from IDENT:root@[193.70.61.1] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 Grazie a tutti (mandatemi le E-mail)
no
Per i come si rimanda all'help di Access
Sib

Newsgroup: it.comp.appl.access
Titolo: Creare tabella collegata con SQL

Un saluto a tutti i partecipanti al NG.
Creare una tabella con SQL è semplice "create table miatabella ([miocampo]
text (25)" per una tabella con un campo solo.
Si può specificare l'attributo "collegata" via SQL ?
Grazie e saluti a tutti.
Ciao - Daniele

 wrote in message
news:jRcye.23667$
TR5....@news.edisontel.com

Forse hai le idee poco chiare.
La tabella viene creata sul Server come hai evidenziato tu.
La Tabella collegata non viene creata sul Server, ma viene
Collegata una tabella del Server al Client, quindi devi
solo Importarla oppure Linkarla inserendo nella proprietà
Connect di una Tabella la stringa di connessione.
LA tabella da creare lato Client va creata con il metodo
CreateTableDef assegnandogli un nome, quindi accedendo alla
proprietà Connect dell'Oggetto creato passare la StringConnection.
Ciao
@Alex
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 ha scritto nel messaggio
news:2d6cc6e20ac6f453a7...@mygate.mailgate.org...

Ciao Alex
Ti ringrazio della tua chiara risposta. Non avevo dubbi di questo genere,
chiaramente, ma mi sono espresso male.
Mi interessava sapere se è possibile impostare la proprietà di connessione
di una tabella senza usare l'oggetto Tabledef, ma solamente utilizzando SQL.
Ciao e Grazie ancora.
Daniele

 SQL.
No.
-- 
HTH
Karl
*********
Access FAQ: 
www.donkarl.com/it
+ Conferenza Italiana per Sviluppatori di Access (CISA) 


Ciao Karl
Grazie per l'estrema chiarezza e la insuperabile sintesi.
Ciao - Daniele

Newsgroup: it.comp.appl.access
Titolo: Sfondo finestra di Access

Salve,
Sapete se č possibile cambiare il colore di fondo della finestra principale
di Access o inserire una immagine di sfondo ?
Ciao.

 Ciao.
Si, entrambi, cerca quì:
www.lebans.com
Ciao.
@Alex.

Newsgroup: it.comp.appl.access
Titolo: Richiesta sito per guida

Salve ho un piccolo problema, dopo aver imparato ad usare excel con vba, mi
hanno consigliato di imparare access, mi ci sono immesso come autodidatta,
ma trovo problemi con query, tabelle e maschere, vorrei sapere se esiste
qualche sito che mi chiarisce un pò le idee, magari una guida.
Vi ringrazio anticipatamente!


tasto F1 in access li trovi tutto e molto di piů, oppure i modi migliori
credo siano frequentare questo NG e frequentare il sito comune
www.sitocomune.com
ciao.
Newsgroup: it.comp.appl.access
Titolo: come filtrare i records di una casella cambinata

buon sera a tutti,
sto sempre qui a chiedere delucidazioni sulle caselle combinate mia
croce e delizia!
Vengo al punto:
E' possibile (e se si come) filtrare gli elementi della casella
combinata più vicini a quello che si sta digitando
nella casella combinata stessa?
Faccio un esempio:
se nella casella combinata cboCliente scrivo Pippo e apro la tendina
visualizzo solo i record che iniziano con Pippo, invece io vorrei che
quando scrivo Pippo si visualizzassero tutti i record che contengono
la parola Pippo quindi Ristorante Pippo, Az.Agricola Pippo, Pippo bar
ecc.
Qualcuno di voi può aiutarmi?
Grazie

 ha scritto nel messaggio 
news:46126a37-938c-464a...@d5g2000yqm.googlegroups.com...
buon sera a tutti,
sto sempre qui a chiedere delucidazioni sulle caselle combinate mia
croce e delizia!
Vengo al punto:
E' possibile (e se si come) filtrare gli elementi della casella
combinata pi� vicini a quello che si sta digitando
nella casella combinata stessa?
Faccio un esempio:
se nella casella combinata cboCliente scrivo Pippo e apro la tendina
visualizzo solo i record che iniziano con Pippo, invece io vorrei che
quando scrivo Pippo si visualizzassero tutti i record che contengono
la parola Pippo quindi Ristorante Pippo, Az.Agricola Pippo, Pippo bar
ecc.
Qualcuno di voi pu� aiutarmi?
Grazie
l'utilizzo della casella combinata non � fatto per quanto io ne sappia con 
queste prerogative, potresti per� crearti una casella di riepilogo (o una 
casella combinata) nella maschera che popoli con un query derivata da una 
casella di testo e cio�
casella di testo non associata
casella di riepilogo con origine tramite una query in cui nel campo di 
riferimento inserisci come criterio
like * & forms!tuamaschera!tuacaselladitesto & *
su evento dopoaggiornamento della casella di testo me.casella di 
riepilogo.requery.
in questo modo scrivendo pippo nella casella di testo ritroveresti nella tua 
casella combinata tutti i record in cui in quel campo � presente pippo
ciao
max

 max
Funziona! con un passaggio in più rispetto a quello che avrei voluto
fare io, ma chi si accontenta gode
Grazie
Newsgroup: it.comp.appl.access
Titolo: stampare data in inglese

Ciao a tutti
devo stampare in un report la data
18 gennaio 2012
in questo modo January 18th, 2012
quindi in inglese.
 
il format mi pare non mi aiuti...esiste la possibilità di formattare la 
data estesa in una lingua diversa da quella del sistema?
 
o mi tocca farmi una funzione di conversione a manina?
 
ciao
BFS


Bel problema.... tu non vuoi il formato inglese, ma la traduzione in
EN...!
Se ti affidi a qualsiasi delle funzioni Data nativa, viene invocato il
sistema op. con i conseguente adattamento al formato impostato, quindi
IT.
Dubito fortemente si possa aggirare il problma...
Penso che la soluzione più semplice sia proprio quella della
Funzione...
 
Function ConvertIT2EN(DateIn As Date) As String
   Dim m As Integer
   Dim mEn As String
 
   Dim d As Integer
   Dim dEn As String
 
   Dim y As Long
 
   Dim strDateEN As String
 
   m = Month(DateIn)
   d = Day(DateIn)
   y = Year(DateIn)
 
   Select Case Right(d, 1)
        Case Is = 1
            dEn = d & "st"
        Case Is = 2
            dEn = d & "nd"
        Case Is = 3
            dEn = d & "rd"
        Case Is > 4
            dEn = d & "th"
    End Select
 
    Select Case m
        Case Is = 1
            mEn = "January"
        Case Is = 2
            mEn = "February"
        Case Is = 3
            mEn = "March"
        Case Is = 4
            mEn = "April"
        Case Is = 5
            mEn = "May"
        Case Is = 6
            mEn = "June"
        Case Is = 7
            mEn = "July"
        Case Is = 8
            mEn = "August"
        Case Is = 9
            mEn = "September"
        Case Is = 10
            mEn = "October"
        Case Is = 11
            mEn = "November"
        Case Is = 12
            mEn = "December"
    End Select
    strDateEN = mEn & " " & dEn & ", " & y
    ConvertIT2EN = strDateEN
End Function
 
Ciao
@Alex

 @Alex
 
 
Infatti...dovevo bypassare le impostazioni del sistema operativo.
grazie mille per avermi pure fatto risparmiare il tempo di scrivermi la 
funzione :-)
 
a buon rendere
BFS
 
 

 BFS
 
Fai attenzione che non è perfetta... se passi la Data con l'Anno a 2
CIFRE... è un problema... ma lo sarebbe per qualsiasi funzione Data.
 
@Alex
Newsgroup: it.comp.appl.access
Titolo: Gestione identica di più tabelle

Salve
Ho un programmino tramite il quale vedo, seleziono, stampo, ecc.
Esso � basato su una sola tabella (Tabella1), varie queries e un paio di 
reports.
Ora mi si serve introdurre un'altra tabella (Tabella2), perfettamente 
identica
nella struttura a Tabella1 e sulla quale fare le medesime operazioni
con le stesse queries e stessi reports.
Quale � secondo voi la strada migliore da seguire?
(Attualmente nelle queries e nei reports � indicato Tabella1.campo1, 
Tabella1.campo2, ecc.)
Ha senso fare un rename delle tabelle, all'inizio, in modo tale che compare 
sempre il
nome di Tabella1 nelle elaborazioni delle queries e dei reports,
e alla fine rifare un rename per riportarle al loro vero nome ?
Antonio 
 

 Antonio
 
Al Link di seguito, credo che ci sia la soluzione del tuo quesito.
 
http://www.accessgroup.it/tabelle/cambiare-origine-tabella-ad-un-form-da-codice.html
 
 
 
Saluti

 
 
"tommaso"  ha scritto nel messaggio 
news:44a6a7ba-284c-419d...@googlegroups.com...

Ciao Tommaso
Non riesco a leggere il codice... :-(
Antonio
 

 Antonio
 
 
Se la struttura è identica non ha senso suddividere i dati in più tabelle.
Fai un'unica tabella e aggiungi un campo numerico nuovo per distinguere i 
dati che avresti messo nella tabella 1, nella 2, nella 3, ..... 
Poi sarà semplicissimo usare maschere e report, ti basta un criterio 
nell'origine dati o un filtro.
Ciao.
-Marco-
 
 
 
 
-- 
 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it
 
 
 

 e alla fine rifare un rename per riportarle al loro vero nome ?
 
A parte considerazioni generali sul layout (due tabelle uguali...)
appare più logico, più semplice e più facile cambiare via VBA il 
parametro Tabella1 nella stringa SQL della query.
 
Bruno

Newsgroup: it.comp.appl.access
Titolo: GetNamespace errore: "il computer server remoto non esiste o non è disponibile"

buongiorno a tutti
 
la prima volta che eseguo le due righe SET funziona tutto perfettamente
la seconda volta restituisce l'errore in oggetto
c'è qualche istruzione di chiusura che non eseguo correttamente e quindi al secondo richiamo da quell'errore?
 
 
        Dim oINS As NameSpace
        Dim Folderinbox As MAPIFolder
        Dim olMail As MailItem
        Dim filtered_items As Items
 
        Set oINS = GetNamespace("MAPI")
        Set Folderinbox = oINS.GetDefaultFolder(olFolderSentMail)
 
      ....codice prelevo e salvo mail
 
        Set Folderinbox = Nothing
        Set oINS = Nothing
 
 
 
grazie a tutti.


ho risolto come segue, aggiungendo oINS.Quit prima di Set oINS = Nothing 
 
        Set Folderinbox = Nothing
        oINS.Quit
        Set oINS = Nothing
 
fonte:  
https://support.microsoft.com/it-it/topic/automazione-di-excel-non-riesce-a-seconda-esecuzione-codice-6647c4b4-da5c-ee1f-cc6f-58815d47702d
Newsgroup: it.comp.appl.access
Titolo: Select TOP per ogni gruppo

Buongiorno,
l'argomento secondo me è già stato +o- posto , ma non riesco in ogni caso a
tirarlo fuori.
Data una tabella tipo :
Impiegato , Livello , Stipendio
come faccio a tirare fuori i primi 5 impiegati, per ogni livello ,con lo
stipendio più alto ?
Quindi i primi 5 impiegati del livello 1 con lo stipendio + alto, poi altri
5 record di impiegati del livello 2 con lo stipendio più alto etc etc ..
Grazie a tutti e scusate per l'eventuale repost.
Diego
--------------------------------
Inviato via 
http://usenet.libero.it

Diego
Così a bruciapelo , senza aver provato e senza averci pensato su
troppo , farei una Union Query sulle singole query salvate col metodo
Select top 5 .
Ciao. Fabrizio.
(Access XP (sp2), Win ME, P4 1Ghz, 320 RAM)

Il 25 Nov 2002, 16:33, oizirbaF <fabrizio...@SPAMtiscalinet.it> ha
scritto:

--------------------------------
Inviato via 
http://usenet.libero.it



Ho provato è fattibile , faccio un esempio usando NortWind:
1° query ProvaTop1
SELECT TOP 5 Clienti.NomeSocietà, Clienti.Paese
FROM Clienti
WHERE ((Clienti.Paese) Like "usa");
2° query ProvaTop2
SELECT TOP 5 Clienti.NomeSocietà, Clienti.Paese
FROM Clienti
WHERE ((Clienti.Paese) Like "francia");
UNION QUERY
SELECTprovatop1.[NomeSocietà], provatop1.paese
FROM provatop1
UNION SELECT provatop2.[Nomesocietà], provatop2.paese
FROM provatop2;
Se c'è qlc di meglio dire!!


 Diego
Se i dati sono contenuti in una tabella chiamata Tabella1 nella quale il
campo Livello è di tipo Testo, prova con uan query che abbia il seguente
codice SQL:
SELECT Tabella1.Impiegato, Tabella1.Livello, Tabella1.Stipendio
FROM Tabella1
WHERE (((DCount("*","Tabella1","Livello=" & Chr$(34) & [Livello] & Chr$(34)
& " And Stipendio >=" & [Stipendio])) <= 5))
ORDER BY Tabella1.Livello, Tabella1.Stipendio DESC;
Se invece il campo Livello è di tipo Numerico:
SELECT Tabella1.Impiegato, Tabella1.Livello, Tabella1.Stipendio
FROM Tabella1
WHERE (((DCount("*","Tabella1","Livello=" & [Livello] & " And Stipendio >="
& [Stipendio]))<=5))
ORDER BY Tabella1.Livello, Tabella1.Stipendio DESC;
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

ORDER BY Tabella1.Livello, Tabella1.Stipendio DESC;
Magnifico , con le funzioni di aggregazioni sui domini sei un mostro:
complimenti!!!


 Roberto
Provato. ottimo
grazie a tutti. Diego

Newsgroup: it.comp.appl.access
Titolo: Blocco records

Salve.
E' possibile sapere all'apertura di una maschera se il recordset è gia 
impegnato in contemporanea da qualche altro utente ?
Grazie.

 ha scritto nel messaggio
news:8eBsd.256417$b5.12...@news3.tin.it...

Si utilizzando il BLOCCO RECORDS ed impostando a RECORDS MODIFICATI
Ciao
-- 
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.mantuanet.it/alessandro.baraldi/
---------------------------------------------------------------------------

 Ciao
Ciao alex.
In realtà mi serve sapere se un determinato record è bloccato
all'apertura della maschera ed eventualmente da chi.
Ciao.

 ha scritto nel messaggio
news:gOCsd.460907$35.19...@news4.tin.it...

Domanda generica---> risposta generica.
No non è possibile con Access a meno di non realizzarsi una
procedura personalizzata che scrive in una Tabella
RecordEditato(ChiavePrimaria+
UserName), a quel punto pupoi fare quello che vuoi.
Non pensare però che sia banale una gestione di questo tipo se
la vuoi rendere Attiva oltre che passiva(solo Informativa)


Newsgroup: it.comp.appl.access
Titolo: E' possibile cancellare il codice vba?

ciao a tutti sono nuovo in questo gruppo.
ho un problema con un db di access installato presso un mio cliente,
improvvisamente viene cancellato tutto il codice vba di maschere,
report e moduli, praticamente rimane vuoto.
Secondo voi è possibile una cosa del genere o debbo sospettare che c'è
qualcuno che lo cancella?
grazie

ma...@cosmoservice.it
 ha scritto:

sicuramente c'e'  'qualcosa' che lo cancella!
Perchè non imposti una password all'ambiente VBA e stai a vedere se ci 
riescono ancora?? ;))
IvanDaBologna
PS
altrimenti puoi impostare tutto il guscio della sicurezza e protezione, 
ma è pesante.
Altrimenti crea un MDE e nessuno tocca più nulla!


Mi pare più una corruzione del DB che una volontaria cancellazione...
ricordo che succedeva se non erro con la versione A2000.
In ogni caso chi distribuisce applicativi fatti con Access non
distribuisce MAI Mdb... ma sempre MDE che non consentono molte
manomissioni.
@Alex

Newsgroup: it.comp.appl.access
Titolo: Importazione testo

Domanda da ignorante,
qualcuno di voi sa dirmi come faccio ad importare automaticamente il
contenuto di un file HTML in un campo?
Mi spiego: ho un cliente che mi edita il testo in un file HTML e voglio che
Access me lo importi in automatico in un campo.
Grazie

 ha scritto nel messaggio
news:8tbsv7$m8mal$1...@ID-39855.news.dfncis.de...

Hai già provato con il Metodo TransferText?
Ciao.

contenuto di un file HTML in un campo?
Open NomeFile For Input As #1
TuaVar = ""
Do While Not EOF(1)
    Input #1, riga
    TuaVar = TuaVar & riga & vbCrLf
Loop
Close #1
Bai
--
Lorenzo Coronati
--
<<Come posso dunque sprotegere il database? 
Esiste un crack o qualcosa del genere 
che mi faccia accedere ai dati?>>
(Cocco, 17/10/2000)
--
Newsgroup: it.comp.appl.access
Titolo: [forse OT] altro problema geometrico

conoscendo i vertici di 2 poligoni è possibile (sempre tramite codice)
capire se uno si trova all'interno dell'altro?
grazie per le eventuali risposte.
___________________________________________
"in fondo anche l'amore è un sovrappensiero..."
m.querc...@sis-ter.it
Togli NOSPAM dall'e-mail per rispondere.

 grazie per le eventuali risposte.
cut
E' certamente un OT, se risolvi il problema geometrico e' piuttosto
automatico convertire la soluzione in codice.
Devi trovare le condizioni (geometricamente parlando) per cui due policoni
siano l'uno circoscritto dall'altro.
Parti dal presupposto che se conosci i vertici allora conosci tutte le
caratteristiche del poligono.
Sib

 grazie per le eventuali risposte.
Forse trovi informazioni utili su NG dove parlano di giochi e grafica 3D.
Questo perchč, per velocizzare il tracciamento di ambienti 3D complessi, č
utile sapere se un oggetto č completamente coperto da un altro, per evitare
di disegnarlo (credo che la tecnica si chiami z-buffer). Se riporti il
concetto in 2D, potrai sapere se un oggetto ne copre un altro sullo stesso
piano (quindi il suo perimetro circoscrive il perimetro dell'altro).
--
Ciao, AntoGal
*************************************************
Gestione punti vendita (casse e pos NCR)
 
www.powerretail.it
-------------------------------------------------------------
per scaricare un gioco di DAMA ITALIANA
http://volftp.mondadori.com/italiani/galletta/
*************************************************
Newsgroup: it.comp.appl.access
Titolo: Requery non funziona!

Salve a tutti,
in una maschera ho una csella di riepilogo e una combo box basata su una
query che prende un parametro di confronto da un campo della maschera
stessa; sia quando ci si sposta di record (il valore del campo di confronto
può cambiare) che quando si aggiunge un nuovo record (deve comparire nella
casella di riepilogo) ho necessità di eseguire un requery su i due controlli
(casella di riepilogo e combo box): ho quindi provato a insreire le stringhe
[nomecasellariepilogo].requery
[nomeccombobox].requery
Sia nell'evento Current che sul'evento AfterUpdate della maschera (form),
sperando che le eseguisse ogni volta che mi sposto su un record diverso, ma
non funziona!
Il bello è che se invece associo le stesse istruzioni all'evento click di un
pulsante e lo premo tutte le volte che cambio record, la cosa funziona
perfettamente...
DOVE SBAGLIO?!
Grazie in anticipo
Giacomo

 ha scritto nel messaggio

In effetti non sbagli.
Il problema sta nel fatto che talvolta l'aggiornamento della casella con il
requery "arriva prima" dell'aggiornamento del filtro che vuoi usare.
Per esempio, se usi l'evento DopoAggiornamento prova a usare l'evento
SuUscita.
Sib
Newsgroup: it.comp.appl.access
Titolo: istruzione non valida all'esterno del blocco type

salve,
 
sto cercando di filtrare i dati di una maschera con valori che si trovano all'interno di una tabella.
ho scritto la seguente istruzione ma mi restituisce l'errore in oggetto, non so come andare avanti.
 
Private Sub Comando249_Click()
 
 
rs As Recordset
sql As String
dicmapi As String
 
dicmapi = "form1"
 
sql = "SELECT Form1.[Codice Fiscale] From Form1 GROUP BY Form1.[Codice Fiscale];"
Set rs = CurrentDb.OpenRecordset(sql, dbOpenDynaset)
 
Me.Filter = "[codice fiscale] = rs![codice fiscale]"
Me.FilterOn = True
 
End Sub

 End Sub
 
-- 
Ciao
Karl
*********
Access Info: 
https://AccessForever.org
 
Access News: 
https://youtu.be/cs_mZvaKYeY
 
Access DevCon: 
https://www.donkarl.com/devcon
 
Access FAQ: 
https://www.donkarl.com/it
 


grazie per la correzione ma l'errore è segnalato su questo gruppo
 
rs As Recordset
sql As String
dicmapi As String
 
Saluti

 Amodio Piscitelli:
 > ...l'errore è segnalato su questo gruppo
 >
 > rs As Recordset
 > ...
 
https://www.donkarl.com/it?FAQ7.11
 
o
https://www.donkarl.com/it?FAQ7.1
 



Grazie Karl,
 
non ho risolto l'errore ma sono riuscito ad ottenere il risultato che volevo in questo modo:
 
Dim source As String
 
source = "SELECT prev_class.* From prev_class WHERE (((prev_class.[codice fiscale]) In (select [codice fiscale] from form1)));"
Me.RecordSource = source
 
Saluti
Newsgroup: it.comp.appl.access
Titolo: ...leggi un record e lo salvi in *.txt nella directory "Pippo"...?come?

...leggi un record e lo salvi in *.txt nella directory "Pippo"...?come?
cioč:
il contenuto del record con
id=1
num-ordine=3201 ( [id]+3200 )
descrizione=Pluto
quantitā=5
Riferimento=500/2001
ecc.....
deve essere salvato nella directory c:/pippo/500-2001
come file con nome "of3201.txt"
come posso fare?
PS Sono mooolto neofita sia su Access che su VB6
--
N.B. Se non ti dispiace, rispondimi anche con una mail
        (togli lo SMAMMA dall'indirizzo)
^___^ molte onorevoli grazie
Ciao Luca :-)

 come posso fare?
Giusto un esempio, controlla comunque la guida in linea, dove ne troverai
altri.
(controlla la sintassi, sto scrivendo direttamente da O.Express)
Private Sub StampaRecordSuFile()
 Dim NomeFile As String
 NomeFile = "c:\pippo\500-2001\of3201.txt"
 On Error GoTo ErrorCreaFile:
 Dim FileNum As Integer
 FileNum = FreeFile
 Open NomeFile For Output As #FileNum
  Dim rst As Recordset
  Set rst = CurrentDb.OpenRecordset ("TuaQueryoIstruzioneSQL",
dbOpenSnapshot)
  With rst
   If .EOF Then Exit Function
   .MoveFirst
   Do Until .EOF
    Print #FileNum, Nz(!Campo1)
    Print #FileNum, Nz(!Campo2)
    ' ecc.
    .MoveNext
   Loop
   .Close
  End With
 Set rst = Nothing
 Close #FileNum
 Exit Sub
ErrorCreaFile:
 Close #FileNum
 MsgBox "Impossibile creare il file " & NomeFile, vbCritical
End Sub
--
Ciao, AntoGal
*************************************************
Gestione punti vendita (casse e pos NCR)
 
www.powerretail.it
-------------------------------------------------------------
per scaricare un gioco di DAMA ITALIANA
http://volftp.mondadori.com/italiani/galletta/
*************************************************


...gulp....mi sembra Arabo....
provo a strappolarci un pò sopra, al massimo ti torno a rompere un poco eh?
;-) Grazie 1.000
ciao Luca
Newsgroup: it.comp.appl.access
Titolo: Problema di Append di una tabledef allegata senza field (con un po' di teoria)

Questo thread riguarda un argomento diverso, ma risolverebbe il problema del
mio precedente thread titolato Riallegare da codice tabella con nome locale
diverso da quello remoto
Solo che non mi riesce....
Allora, io vorrei, da codice, creare una nuova tabledef, dargli un nome e
dirgli che deve essere allegata, e quindi dargli il path del db remoto e il
nome della tabella a cui deve collegarsi.
Tutto questo si può fare con un unico comando e cioè
set tbl = currentdb.createtabledef(NomeLocale, , NomeRemoto, PathDBRemoto)
ma si può anche settare le proprietà SourceTableName e Connect in un secondo
tempo facendo così
set tbl = currentdb.createtabledef(NomeLocale)
tbl.SourceTableName = NomeRemoto
tbl.connect = PathDBRemoto
Fino a qui non fa una piega, l'help è chiarissimo.
A questo punto però si tratta di andare ad accodare all'insieme tabledefs la
tabella appena creata.
La sintassi sarebbe quindi
currentdb.tabledefs.append tbl
Qui cominciano i problemi in quanto mi da un errore per il fatto che non ho
creato alcun oggetto field per la tabella in questione. In effetti l'help su
CreateTableDef recita:
"Inoltre, non è possibile accodare un oggetto TableDef all'insieme TableDefs
fino a quando non si definisce almeno un oggetto Field per l'oggetto
TableDef."
Ma la maiala deh!!!
Ma se io mi sto connettendo ad una particolare tabella già esistente in un
altro db, perchè cavolo devo dargli i campi?!?! Se li prenderà dalla tabella
remota no?
D'altro canto, smucinando un po' l'help mi trovo questo esempio su
SourceTableName
Sub ConnettiOrigine()
    Dim dbs As Database, tdf As TableDef
    ' Restituisce il riferimento al database corrente.
    Set dbs = CurrentDb
    ' Crea un nuovo oggetto TableDef.
    Set tdf = dbs.CreateTableDef("AutorePDX")
    ' Aggiunge l'autore della tabella Paradox al database C:\PDX\Editori.
    tdf.Connect = "Paradox 4.X;Database=C:\PDX\Editori"
    tdf.SourceTableName = "Autore"
    dbs.TableDefs.Append tdf
    Set dbs = Nothing
End Sub
Questo esempio è preciso quello che voglio fare io, l'unica differenza (e mi
pare strano che sia questa la discriminante) è che sto allegando una tabella
Paradox piuttosto che una access.
Commenti, grazie...
Antonio

 non ho creato alcun oggetto field per la tabella in questione...
Se usi il secondo metodo debbe funzionare.
Solo tiene in mente che usi tutta l'espressione Connect. Vuol dire:
tbl.Connect = ";DATABASE=PathDBRemoto"
-- 
HTH
Karl
*********
Access-FAQ (tedesco): 
http://www.donkarl.com

 non ho creato alcun oggetto field per la tabella in questione...
Se usi il secondo metodo debbe funzionare.
Solo tieni in mente di usare tutta l'espressione Connect:
