mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.appl.access
Titolo: Sitocomune Report 4.10 obsoleto

Prendete nota che il report dei Bollettini di c/c/p è una versione del 2001
e da quattro anni non è più valido perché ora sono completamente diversi.
Quindi è il caso di eliminarlo o di aggiornarlo se qualcuno ha la bontà.
--
Ciao, Sandrobi
"De quo nihil dici potest, id tacendum est" (L. Wittgenstein, "Tractatus
logico-philosophicus")

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

 
Scusa Roberto, ma a prescindere dall'essere obsoleta la stampa del 
modello, magari la "tecnica" per realizzare quel tipo di stampa potrebbe 
essere utile a qualcun'altro per qualche altro problema. E poi io sono 
dell'idea che non bisogna cancellare nulla, fa parte della storia di 
access e dell'evoluzione dei problemi risolti e pubblicati nel sito comune.
Invece se qualcun'altro vuole aggiornarla, come è successo per molti 
altri esempi, ci potrebbe investire un po' del suo tempo e potrà vedere 
pubblicato il suo lavoro...
Ciao.
-- 
Sergio MAZZA

 Ciao.
Concordo.
@Alex
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 Ciao.
Come Alex, anche secondo me non va cancellato, ovviamente IMHO
Ciao,
Massimo 

 ha scritto nel messaggio
news:dgskgt$mda$1...@area.cu.mi.it...

Ok concordo, è sufficiente indicare che la versione è aggiornata al 2001 ed
è attualmente obsoleta, per non indurre in errore che la scarica e pensa di
utilizzarla tale e quale, sempre ovviamente IMHO.
Sandrobi

 ha scritto nel messaggio
news:KLxYe.6358$pJ6.3...@news4.tin.it...

Viste la argomentazioni degli intervenuti in questo thread, lascerò la FAQ
in oggetto aggiungendole però in calce una nota esplicativa.


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

Ciao a tutti, ho un piccolo probema con access
Ho creato un bottone che mi crea un file chiamato Prova.rtf da un
report, fin qui nessun problema, adesso però voglio che questo file
Prova.rtf vengo inviato via mail come testo della mail e non come
Allegato.
Come posso fare?
grazie a tutti

 ha scritto nel messaggio 
news:1144400308.5...@u72g2000cwu.googlegroups.com...
Ciao a tutti, ho un piccolo probema con access
Ho creato un bottone che mi crea un file chiamato Prova.rtf da un
report, fin qui nessun problema, adesso perň voglio che questo file
Prova.rtf vengo inviato via mail come testo della mail e non come
Allegato.
Come posso fare?
grazie a tutti
Immagino che il contenuto del report sia derivato da un campo di una 
tabella.
Se č cosě puoi mandare l'e-mail con questo valore come corpo del messaggio.
Ciao, Carlo

in che modo?


Qualcosa del genere:
DoCmd.SendObject acSendNoObject, "", acFormatTXT, "tuonome@dominio", "", "", 
"TuoSoggetto", TuoNomeCampo, False
Ciao, Carlo 

Grazie mille, l'ho provato e funziona perfettamente
Newsgroup: it.comp.appl.access
Titolo: Compile error: Error in loading DLL

L'errore si presenta su uno dei due pc su cui sviluppo
Entrambi usano lo stesso SO (WinXP) e lo stesso Office (2003)
Entrambi hanno gli stessi aggiornamenti
Ci sono differenze per quel che riguarda altri software installati :(
DoCmd.SetWarnings False
DoCmd.RunSQL "UPDATE FORECAST_TABLE SET FORECAST_TABLE.Ok = False;"
DoCmd.SetWarnings True
SysCmd acSysCmdSetStatus, "Create Filter..."
Dim DB As ADODB.Connection
Dim TTT As Long
Dim TABELLA As New ADODB.Recordset
TABELLA.Open "SELECT * FROM FORECAST_TABLE where Ok = false", 
CurrentProject.Connection, adOpenKeyset, adLockOptimistic
L'errore viene segnalato evidenziando .Connection nell'ultima riga di 
codice che ho riportato
Potreste aiutarmi indicando di cosa si possa trattare? che razza di DLL 
va cercando?
Grazie in anticipo
-- 
/-\ /\/\ /\/\ /-\ /\/\ /\/\ /-\ T /-\
http://www.boincsynergy.com/images/stats/comb-2591.jpg

[CUT]
Ciao,
sinceramente prima di cercare le "cose difficili"  mi fernerei a quelle più 
semplici: hai attivato i riferimenti alle librerie nel tuo progetto? Occhio 
vigile ;-)
Buona :-) 



scusa il ritardo della replica al tuo post
premetto (adesso) che il codice è stato scritto da un'altra persona, 
non contattabile, e che sto cercando di capire come gira l'accrocchio 
per poterlo poi riadattare alle nuove esigenze della ditta :(
la mia conoscenza del VBA si basa esclusivamente sul 'leggi e impara 
dagli esempi' per cui se ci fosse qualcuno che gentilmente mi spiega in 
termini più scolastici di quelli della guida il significato dei 
parametri di quel comando TABELLA.Open... forse potrei identificare 
dove sta l'inghippo :-)
grazie (comunque vada il thread)


Newsgroup: it.comp.appl.access
Titolo: Aiuto pasword access

Ciao a tutti
ho un file in access con psword,
da furbo non me la ricordo più
come posso fare a recuperare i dati?
scusate l'ignoranza.....
grazie.....
enrico

scusate l'ignoranza.....
Eeehh... non lo so....
Scusa l'ignoranza......
Antonio

 wrote in message
8bv6ed$fut$1...@pegasus.tiscalinet.it...


come posso fare a recuperare i dati?
e se invece il file non e' il tuo e stai cercando di aprire quello di
qualcun altro?
--
il sito comune di it.comp.appl.access:
http://members.xoom.it/it_db_access/

Io ho un programmino favoloso che scopre le password di access, ma per
funzionare chiede una password che non mi ricordo più (scusate l'ignoranza)
Appena trovo in programmino che scopre la psw del mio, possiamo usarlo per
scoprire la psw del tuo.
... ma non si fa prima a riscriversi l'applicazione "sfruttando" le idee
degli altri, anzichè il codice?
A me piace vedere come sono fatti i programmi altrui per sfidarmi a farli
migliori (scusate la modestia!)


Forse potrei aiutarvi!!
Newsgroup: it.comp.appl.access
Titolo: Nome tabella In Query PT SQL Server

Ciao a tutti,
oggi mi trovo a dialogare con SQL Server.
Nel mio mdb  Access 03 ho linkato una tabella con proprietario l'utente 
MYUSR, ed il suo nome ï¿œ TB02A8673RRT (non voglio saperne il motivo)
Una volta collegata la rinomino in TBCODES per utilizzarla comodamente 
in ogni punto.
Poi ho costruito una query PT dove dovendo scrivere in quella tabella 
molti record uso una workspacearea e le transazioni.
La domanda ï¿œ:
nel costrutto della query PT devo utilizzare TBCODES (nome oggetto 
linkato) oppure MYUSR.TB02A8673RRT?
Nicoletta

 ha scritto nel messaggio 
news:4ace2b45$0$831$4faf...@reader5.news.tin.it...

Se usi una PT stai lavorando direttamente sul server ergo il MYUSR...

Newsgroup: it.comp.appl.access
Titolo: Gruppo corrente

Salve a tutti.
Nel database che ho appena terminato, ho creato due gruppi: Amministratori e
Ufficio e due utenti per gruppo.
Con la funzione CurrentUser() riesco a capire il nome dell'utente che si è
connesso al database.
E' possibile risalire al suo gruppo?
Esiste una funzione specifica?
Grazie in anticipo.

 E' possibile risalire al suo gruppo?
Dim ws As DAO.Workspace
Dim gp As DAO.Group
Set ws = DBEngine.Workspaces(0)
For Each gp In ws.Users(CurrentUser).Groups
    Debug.Print gp.Name
Next gp
Set ws = Nothing
--
HTH
Karl
*********
Access-FAQ (tedesco): 
http://www.donkarl.com
Newsgroup: it.comp.appl.access
Titolo: Come unire tre tabelle solo per alcune righe

Dispongo di tre tabelle
- fatture
- preventivi
- ddt
Sono con struttura completamente diversa hanno pero' un campo comune fra 
loro
La tabella fatture ha un CODICE_CLIENTE, la tabella preventivi ha un campo 
CLIENTE_CODICE, la tabella ddt ha un campo COD_CLI, tutti sono dello stesso 
tipo, un integer
Ora tra mille righe della tabella fatture ne seleziono 100 che abbiano certe 
caratteristiche
Tra 100 righe della tabella preventivi ne seleziono 10 che abbiano certe 
caratteristiche
Tra le 50 righe della tabella ddt ne seleziono 5 che abbiano certe 
caratteristiche
La domanda e':  come fare, con un colpo di query, ad ottenere la lista di 
tutti i codice cliente vsibili nella prima tabella + quelli visibili nella 
seconda tabella + quelli visibili nella seconda tabella ?
Ricordo che la struttura tabelle e' diversa e quindi la Union non credo di 
poterla usare
 
 
 
 


Fai una tabella temporanea con i campi che ti interessano e 3 INSERT

 ha scritto nel messaggio 
news:11166271.210.1336317512745.JavaMail.geo-discussion-forums@ynee1...

Si, grazie
L'avevo pensato, ma la riservo come l'ultima possibilita'
Volevo capire se c'era la possibilita' di un magico tocco di bacchetta et 
voila' una query che risolva il problema 
 
 

 poterla usare
 
Funziona, vai di UNION.
Ciao.
 
L.
 
 

Il giorno domenica 6 maggio 2012 16:42:01 UTC+2, RobertoA ha scritto:

Ciao!
 
Perché dici che non potrebbe andare?
 
SELECT CODICE_CLIENTE FROM fatture WHERE (criterio per fatture)
UNION SELECT CLIENTE_CODICE FROM preventivi WHERE (criterio per preventivi)
UNION SELECT COD_CLI FROM ddt WHERE (criterio per bolle);
 
Con questa te li trovi tutti, mentre se volessi considerare solo quelli che esistono in tutte 3 le tabelle potresti usare delle query come origini dati da passare alla UNION ...
 
HTH
Popi

 ha scritto nel messaggio 
news:14216839.409.1336383602942.JavaMail.geo-discussion-forums@vbki8...

----------------------------------------
 
Eh si, cosi dovrebbe andare
Non avevo pensato al selezionare solo il campo comune alle tre tabelle
Grazie mille
Newsgroup: it.comp.appl.access
Titolo: Euro

Ciao a tutti
Ho tre tabelle contenenti  campi in formato valuta (Lire) dovrei aggiornarle
in euro quale pensate che sia il metodo piů giusto per voi ? Grazie a tutti.

 ha scritto nel messaggio
news:9n5ves$4pt$1...@fe2.cs.interbusiness.it...

Se vuoi cambiare il valore contenuto nei campi il metodo piů giusto, secondo
il mio parere, č quello di fare una query di aggiornamento, naturalmente
prima di questa operazione devi cambiare il tipo di dati nella tabella che
invece di Valuta dev'essere di tipo Numerico precisione Singola o Doppia.
Se dopo questa operazione vuoi vedere i valori in formato euro imposta la
proprietŕ formato cosě:
formato   "?. "#.##0,00 in modo che il valore ti venga visualizzato cosě: ?.
23,75.
Ciao Roberto - Syd


Dipnde da cosa effettivamente vuoi fare:
1. Gli attuali valori in lire devi conservarli come tali: aggiungi un nuovo
campo alla tabella e con una query aggiorna il nuovo campo tramite la la
divisione Lire/1936.27
2. Gli attuali valori in lire devo essere convertiti in Euro e proseguire a
immettere valori in Euro in quel campo: con una query di aggiornamento
ricalcola i valori e poi apri la tabella in struttura e per quel campo vai a
modificare le proprietà: formato e decimali aggiornandoli all'Euro cioè
#.###,00. Sarà necessario anche andare a modificare:
Start>Impostazioni>Pannello di controllo>Impostazioni internazionali>scheda
Valuta
Infine, nel caso fossi tra quelli che sulla tastiera non hanno il simbolo
dell'Euro, ti ricordo che lo si può ottenere con diverse combinazioni di
tasti: Alt Gr+E oppure Alt Gr+5 (il cinque della tastiera alfabetica, non
quello della tastiera numerica) e comunque solo con i caratteri standard
Microsoft (Arial, Times, Thaoma, Verdana e qualcun altro) e con alcuni
caratteri Adobe.
--
Saluti
NSantini

Newsgroup: it.comp.appl.access
Titolo: Access 2007-2010 Stampa Report in PDF

Ciao a tutti,
Ho necessità di stampare un report in PDF assegnando il nome e la directory di salvataggio da codice VBA.
Grazie in anticipo per i suggerimenti

 directory di salvataggio da codice VBA.
 
Dipende come vuoi assegnarli, ma in principio il metodo è:
 
DoCmd.OutputTo acOutputReport, "NomeDelReport", _
    acFormatPDF, "PercorsoENome.pdf"
 
Con A07 per PDFare dev'essere installato il "componente aggiuntivo":
http://www.microsoft.com/it-it/download/details.aspx?id=7
 
 
-- 
Ciao
Karl
*********
Access FAQ:  
http://www.donkarl.com/it
 
 
 


Ciao Karl,
ho seguito i tuoi suggerimenti ed ho ottenuto esattamente quello che volevo, Grazie di nuovo
Newsgroup: it.comp.appl.access
Titolo: Stampare stesso report prima bianco e nero poi a colori

Sto usando il codice sotto per stampare a colori o bn un report
Ma non mi funziona, nel senso che stampa sempre in bianco e nero
E' una Brother inkjet, ma provato ache su una Hp, stessa roba
Dov'e' che sbaglio?
 
-------------------------------------------------------------
Application.Printer = Application.Printers(nome_stampante)
Set mia_stampante = Application.Printers(nome_stampante)
 
If flag_color Then
    mia_stampante.ColorMode = acPRCMColor
    Else
    mia_stampante.ColorMode = acPRCMMonochrome
    End If
 
DoCmd.OpenReport nome_report, acViewPreview, , filtro_eventuale
Set Reports(nome_report).Printer = mia_stampante
-------------------------------------------------------------

Se fai così cosa succede...?
 
 
DoCmd.OpenReport nome_report, acViewPreview, , filtro_eventuale
With Reports(nome_report).Printer 
If flag_color Then
    .ColorMode = acPRCMColor
Else
    .ColorMode = acPRCMMonochrome
End If
End With
 
@Alex


Sempre bianco e nero
Indipententemente da flag_color
E' possibile che per qualche motivo il driver della mia stampante non 
'capisca' il comando?
Lo escluderei per il fatto che anche su una Hp inkjet non mi va' come 
vorrei, ma si sa mai, magari sono entrambi 'sordi'


avevo lo stesso problema
 
ho risolto cosi:
 
  DoCmd.OpenReport "tuoReport", acViewPreview, , , acHidden
  With Reports("tuoReport").Printer
             If flag_color  Then
                    .ColorMode = acPRCMMonochrome
                           Else
               	.ColorMode = acPRCMColor
             End If
  End With
  DoCmd.PrintOut 
 
  DoCmd.Close acReport, "tuoReport", acSaveYes
 
 
e funziona
fammi sapere
BFS


Eh si, questa funziona
Quindi il report deve averle 'dentro' ste informazioni
Non si puo' cambiarle al volo e ciao
Molte grazie
 

Mi fai capire cosa differisce da quanto avevo suggerito sopra...?
 
@Alex

 
 
In effetti appaiono praticamente uguali
Forse avro' sbagliato qualcosa io quando ho provato il tuo esempio

 @Alex
 
Forse il fatto che lo apre Hidden cambia qualcosa?
 
Ciao

Newsgroup: it.comp.appl.access
Titolo: Porting Access97 - Access 2000

Hi all!
Qualcuno sa dirmi se ci sono particolari problemi nel convertire un database
da Access97 a Access2000!?
Chiedo questo perche' un database perfettamente funzionante in Access97 non
si riesce ad aprire in Access2000 (causa un misterioso errore su un form e
conseguente messaggio di database danneggiato).
Thanks in advance...
Ciao, Alfonso.

>
Fai un database nuovo, aprilo e importa i dati e gli oggetti da quello in
Access 97. Anche se l'errore si ripete, perlomeno identifichi dove e al
limite ti rifai solo la form carogna.
Paolo

Newsgroup: it.comp.appl.access
Titolo: Office Developer 2000

Sapreste dirmi dove è possibile acquistarlo?

 wrote in message
z9E78.20469$5M4.6...@twister2.libero.it...



da un rivenditore di software del tuo paese che lo puň ordinare come
qualsiasi altro pacchetto office...
Saluti.
Emanuele.
Newsgroup: it.comp.appl.access
Titolo: Aggiornamento campi a tabella txt collegata.

WXP SP3/A03 SP3
Ciao a tutti,
nel mio DB Access ho delle tabelle *.txt collegate che, ogni tanto si
"arricchiscono" di campi in quanto dal programma da cui vengono esportate
si decide di aggiungere nuove informazioni. Questo, purtroppo, modifica
erroneamente i collegamenti che ho impostato.
Esiste la possibilit� di aggiungere (e quindi anche eliminare) campi di
una tabella collegata, senza dover rifare tutta la procedura guidata?
Grazie.
-- 
TANNHAUSER
"I've seen things you people wouldn't believe..."
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

prova a vedere se il file schema.ini può aiutarti
http://support.microsoft.com/kb/155512/it
Ciao
Alex

Newsgroup: it.comp.appl.access
Titolo: esiste la codifica del colore "trasparente"?

ciao ragazzi,
devo rendere trasparente lo sfondo di una sottomaschera affinchè renda lo
sfondo della maschera su cui si trovano, è possibile?
da quello che vedo non esiste alcuna opzione, allora mi chiedevo se esiste
un "numero" che vada nel campo colore sfondo e che corrisponda al
trasparente (es 8901542 è il verde).
vi chiedo scusa x la domanda stupida ma ... forse lo sono un pò anche io
:-P
aiuto (dai roberto, tu mi puoi aiutare!)
bacini
dany xxxx
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 dany xxxx
No comment......!
@Alex.

 @Alex.
oddio qualcuno si ingelosisce!!!!!
che ho combinato!?
dany xxx



No, scusa mi sono espresso male, è per i Bacini......!!!
Anche se però rileggendo bene in effetti potrei ingelosirmi....!!!
Lasciamo perdere queste banbinate, il NG è comune e per
educazione e rispetto dei partecipanti, credo sia ora di essere
Signori o Signore.
Saluti a chi possiede la coda infiammabile......!!!!!!!!!!!!!!!!!
@Alex.


Scusami, ma non è per caso che è lo stesso problema che già stiamo
discutendo in un altro tuo thread??
-- 
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------
Newsgroup: it.comp.appl.access
Titolo: Formatazione Report

Ho necessità di stampare un report / certificato per un determinato
prodotto.
Tuttavia è possibile che non tutti i campi siano stati riempiti nel record.
Il mio quesito è il seguente :  è possibile formattare dinamicamente il
report, ovvero non far comparire i campi senza valore (immagino proprietà
visible) e stringere i controlli sul report?
Ciao e Grazie
Dinho



vedi visible e su stampa o su formattazione vedi proprietà larghezza
per dimensionarli a piacimento
Saluti.
Emanuele.

 ha scritto nel messaggio
news:rjan7u02tegc2h66o...@4ax.com...

Ti ha funzionato ? Devo risolvere anch'io lo stesso problema e temo che nel
report rimangano i "buchi" dei controlli vuoti e/o ridotti a larghezza 0.
Pensavo di dover costruire una routine for o while tipo "memorizza le
coordinate del controllo > passa al prossimo > memorizza le coordinate > se
controllo è senza valore passa al prossimo > else > stampalo nelle
coordinate memorizzate > passa al prossimo "
Pensavo..., non ci ho ancora provato.
Se risolvi, me lo fai sapere ?
Grazie e ciao
Sandro


wrote:

non serve memorizzare le coordinate puoi strutturare il tutto con un
ciclo for each 
e poi le proprietà larghezza e sinistra dei controlli
cambi quello corrente e fai riferimento a quello precedente...
Saluti.
Emanuele.

Newsgroup: it.comp.appl.access
Titolo: Now it works (fill fields automatically)

Thanks for you help ( I am using netscape 4.7 to view the news groups
that's my problem I will switch to agent)
Fill Fields automatically on form based on a control's value
This one works have two tables one that is called mytable and one called
tblZipCode
in the table called mytable the fields are listed below
MYID AutoNumber
Zip2 Text
City2 Text
State2 Text
the 2nd table called tblZipCode
ZIPID  AutoNumber
ZIPCODE Text
CITY Text
STATE Text
The form has the fields from table mytable and it's called myTableForm.
On Zip2 the On Exit has
[Event Procedure] that follows.
Private Sub ZIP2_Exit(Cancel As Integer)
Dim txtState As String
Dim txtCity As String
txtState = DLookup("State", "tblZipCode", "ZipCode =[Zip2] ")
txtCity = DLookup("City", "tblZipCode", "ZipCode =[Zip2] ")
If (Not IsNull(txtState)) Then Me![STATE2] = txtState
If (Not IsNull(txtCity)) Then Me![CITY2] = txtCity
End Sub

 ha scritto nel messaggio
news:3E87F599...@dbtech.net...


txtState = DLookup("State", "tblZipCode", "ZipCode = '" & [Zip2] & "'")
txtCity = DLookup("City", "tblZipCode", "ZipCode = '" & [Zip2] & "'")
If (Not IsNull(txtState)) Then Me![STATE2] = txtState
If (Not IsNull(txtCity)) Then Me![CITY2] = txtCity
End Sub
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------
Newsgroup: it.comp.appl.access
Titolo: Verifica massiva anagrafiche su sito Agenzia Entrate ?

Gironzolando sul sito Agenzia Entrate, su Fatture e Corrispettivi / 
Consultazione e download massivi, c'e' un 'Richieste di Verifica 
Anagrafica'
Oltre alla verifica singola c'e' la possibilita' di compilare un xml per 
inviare al controllo piu' anagrafiche contemporaneamente
Avete mai usato il sistema?
Quante sono le anagrafiche che e' possibile inviare?
Dove trovare un file di esempio per la verifica di piu' anagrafiche?
Rispondono subito?
Ciao e grazie
 

https://www.agenziaentrate.gov.it/wps/content/Nsilib/Nsi/Servizi/ServiziTrasversali/Altri/Sid2/Servizi+disponibili/Servizi+Anagrafici+Massivi/?page=servizitrasversali
 
 
prova questo link

 
 
Aggiungo questo per chi fosse interessato
Col servizio 'massivo' e' possibile invare richieste di verifica fino a 
20 anagrafiche, rispondono 'entro 5 giorni'
Non ho parole
 
https://forum.italia.it/t/verifica-partita-iva-e-codice-fiscale/4011/30

Newsgroup: it.comp.appl.access
Titolo: Access e MySQL

Eresie?
Vorrei poter visualizzare i dati di un Database SQL (sono l'amministratore 
ovviamente) su access, in locale.
E' possibile?
 


o la domanda ha il trucco o e' una domanda truccata.
Cosa significa "in locale"? Dove sta il server? E' su un idirizzo IP remoto?
-- 
ac
y-1=x

vuLCan Karayan ha scritto:

scarica i driver ODBC per mysql, installali e creati un collegamento 
odbc al database. collega le tabelle del database in access selezionzo 
ODBC databases come tipo di fonte

 remoto?
In locale, sul mio PC.
Il server è esterno su un IP remoto fisso.
 


Collega come ti ha scritto Silver.
-- 
ac
y-1=x

Newsgroup: it.comp.appl.access
Titolo: maschera con un solo record modificabile

ciao atutti.
devo creare una maschera con un campo Data, collegata ad una tabella che 
contiene solamente due campi, ID e il campo appunto prelevato dalla 
maschera (Data).
Mi interessa che la tabella contenga un solo valore, ossia quello del 
primo record, e la maschera non dovrebbe aggiungere altri record, ma 
poter modificare solo quell'unico record presente nella tabella.
è possibile? e come?
grazie in anticipo
-- 
Sláinte, Eirinn
icq# 3346238 - 
http://eirinn.altervista.org/
"Per aspera ad astra"

 ha scritto nel messaggio 
news:drtd5i$nuc$1...@area.cu.mi.it...


 utili.
ci avevo già provato, ma così facendo mi scompare la casella di testo 
per l'immissione dati.


 è possibile? e come?
in struttura maschera--scheda Dati--Consenti aggiunte = si e Immissione dati 
= no.
Ciao.


 ha scritto nel messaggio 
news:drtd5i$nuc$1...@area.cu.mi.it...

Utilizzi il parametro CondizioneWhere del metodo OpenForm (vedi help 
attivabile con ALT-F11, poi F1) passandogli l'id del record da modificare...
Ciao.
-- 
Sergio MAZZA
Newsgroup: it.comp.appl.access
Titolo: Istruzione STR

salve a tutti, ho un problema.
ho costruito un'aplicazione access con la versione 2000. questa applicazione
l'ho trasportata in una macchina che monta la versione 97 di access. quando
carico l'aplicazione su questo pc (ovviamente ho dovuto convertire la
versione) tutto funziona ok, senonchè quando apro un report mi dice che non
riconosce l'istruzione str. cosa devo fare?
MrFlat

 wrote in message
news:Wlm_5.107959$hk4.3...@news.infostrada.it...

Probabilmente ti si sono "incasinati" i references alle librerie, prova a
dare una
occhiata al menu riferimenti che ti si abilita quando sei in visualizzazione
di un
modulo. Verifica quale libreria VB hai referenziata, poi col "visualizzatore
oggetti"
non dovresti avere grosse difficoltà a risalire a quella che contiene la
str()...
Bye, Ste
Newsgroup: it.comp.appl.access
Titolo: chiedo scusa in anticipo ma proprio non riesco ad aggiornare delle caselle di riepilogo

Ho una maschera con una serie di pagine.
Nella prima pagina ho tutti dei dati relativi a delle unità immobiliari con
una serie di spunte e nella seconda una casella di riepilogo che mi fa da
ricerca delle unità e vedo tutti i campi della prima.
quando faccio doppio click su di una unità nella ricerca torno sulla prima
pagina e visualizzo l' unità, tutto ok fino a qui, ma se modifico una spunta
nella seconda pagina l'elenco non e' aggiornato come faccio?
Ho provato con un requery dopo aggiornamento ma niente,
Grazie

 ha scritto nel messaggio 
news:eipqqu$mto$1...@newsread.albacom.net...

prova a mettere l'aggiornamento della maschera
prima del requery metti
DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70 

Susanna ha scritto:

Premesso che non ho capito il meccanismo, prova sull'evento "su
attivato" del menu a tendina
a scrivere me.comboboxXYZ.requery

 ha scritto nel messaggio
news:1162906347.4...@m7g2000cwm.googlegroups.com...



Susanna puoi rispondere dopo il "quote", per favore
Non ho chiaro il processo
1) dici che le spunte le hai sulla prima pagina
2) Dici che nella seconda pagina hai una listbox
3) Dici  che se modifichi una spunta *sulla seconda pagina* l'elenco non 
e' aggiornato
domanda?
1) cosa fanno le spunte? servono a gestire un filtro?
2) quale' il "rowsource" della listbox?
Probabilmente, ma molto a naso, devi cambiare il rowsource della listbox
-- 
ac
email: w+1=x

 Susanna wrote:
P.S.
L'oggetto sarebbe meglio cos'i'
in 
wwww.sitocomune.com
 sezione ICAA ci sono le istruzioni per l'uso del 
NG. Lettura utile.
-- 
ac
email: w+1=x

 ha scritto nel messaggio
news:LC04h.563$NC5...@tornado.fastwebnet.it...


 spunte.spero di essere un po' piu' chiara.
il "quote" per favore.
1) I check box della prima pagina sono associati?
2) si puo' sapere il Rowsource della listbox
-- 
ac
email: w+1=x

 ha scritto nel messaggio
news:lJ24h.870$NC5...@tornado.fastwebnet.it...


 scusatemi ma sono alle prime armi
Susanna o decidi di rispondere "dopo" il quote o abbiamo interrotto i 
rapporti
Poiche' mi sembra che stiamo facendo il famoso dialogo tra il "faraone" 
ed il terzino della Sampdoria (quest'ultimo sono io) ti faccio una 
offerta "irripetibile", mandami il db (rarrato o zippato) e ti sistemo 
la cosa oppure vedendola riesco a capirla ed indirizzarti al meglio.
L'email e' quella in testata del messaggio con gli aggiustamenti da fare 
  indicati in firma (w+1 = x)
-- 
ac
email: w+1=x

Newsgroup: it.comp.appl.access
Titolo: Lanciare la maschera di "TROVA file o cartelli" con dei parametri

Come faccio a lanciare la maschera di TROVA file di Windows con preimpostato
il percorso che voglio da ACCESS?? Grazie anticipatamente




Newsgroup: it.comp.appl.access
Titolo: Access e le tabelle su MySQL

Salve a tutti.
Mi scuso innanzitutto se ripropongo una domanda di qualche tempo fa, 
allorché mi fu risposto che il tema non era trattato su questo NG e 
consigliato di provare con altri più specifici.
Ho provato, ma poiché non mi hanno filato neanche di striscio e non so più 
dove sbattere la testa, mi arrischio a chiedere nuovamente aiuto qui, 
sperando nel vostro buon cuore e nella vostra grande competenza.
Il problema è la gestione di tabelle residenti in MySQL da Access.
Stranamente su qualche tabella non sono consentite 
modifiche/aggiunte/aggiornamenti, perché come si prova a farlo segnala che 
l'operazione non è possibile in quanto un altro utente sta modificando gli 
stessi dati, anche se ciò non è vero perché l'unico utente sono io.
Qualcuno mi ha consigliato di inserire un campo TimeStamp. Ho provato, ma 
non mi pare funzioni.
Vi sarei veramente grato se mi aiutaste, o almeno mi indicaste link o testi 
da consultare. Quelli che ho trovato finora non trattano il problema.
Grazie, a presto... spero. 


Ma sei sicuro che quelle tabelle abbiano una PK (che deve essere 
comunicata ad access). Se non la hanno access non le rende aggiornabile
-- 
ac
y-1=x

 ha scritto:

Ciao,
Prova a verificare anche che non ci siano dei campi Bit (vero\falso)
senza un valore predefinito. Con i driver ODBC e' un problema
possibile.
--
Lorenzo 

 y-1=x
Ciao
Sě, conosco il problema e tutte le tabelle hanno una Pk, in qualche caso 
multipla.
Quello che segue č la stringa contenuta nel file *.dsn che utilizzo per la 
connessione:
[ODBC]
DRIVER=MySQL ODBC 3.51 Driver
DATABASE=Servizi;
SERVER=localhost;
UID=root;
PASSWORD=pippo;
PORT=3306;
OPTION=2072;
STMT=;
DSN =;
Va bene? devo modificarla?

Ciao,
Non lo sapevo, ora verifico.
Intanto puoi dare uno sguardo alla stringa di connessione che uso su un file 
*.dsn?:
[ODBC]
DRIVER=MySQL ODBC 3.51 Driver
DATABASE=Servizi;
SERVER=localhost;
UID=root;
PASSWORD=onitsogafan;
PORT=3306;
OPTION=2072;
STMT=;
DSN =;
E' corretta, secondo te?
Ciao grazie 

 Ciao grazie
Ciao,
non uso MySQL quindi ti sarei di poco aiuto,
prova a vedere qui:
http://www.connectionstrings.com/?carrier=mysql
-- 
Lorenzo 


Che vuol dire multipla? Multicolonna?
Chiariscimi una cosa, ma se accedi direttamente alla tabella e fai 
operazioni di modifica dei dati funziona o anche li hai  il problema?
Dal punto di vista applicativo cosa stai facendo quando si verifica la 
situazione?
Ultima ratio, se ti interessa, mandami lo schema (create) del db cosi' 
magari posso verificare se riesco a riprodurre la tua malfunzione.
Se mi mandi la email metti un oggetto chiaro poiche' io cancello dalla 
mia inbox tutto cio' che non riconosco.
La stringa di collegamento ODBC mi sembra seguire lo standard e poi se 
riesci a lavorare su una parte delle tabelle, in prima approssimazione, 
la escluderei dai possibili componenti da esaminare.
-- 
ac
y-1=x

 y-1=x
Ciao e grazie di nuovo.
Agos
Newsgroup: it.comp.appl.access
Titolo: Aggiornamento vecchio gestionale adp  a Access 2019

Buon pomeriggio a tutti, sto provando ad aggiornare un gestionale sviluppato in access 2007 tramite progetto adp con una versione Access 2019 con tabelle collegate via ODBC.
Ho risolto svariati problemi ma non riesco a capire come devo cambiare il codice qui sotto riportato:
 
Private Sub Comm_AfterUpdate()
Dim strFiltro, desc1, desc2 As String
Dim rs As ADODB.Recordset
If Me!Cod_rada.Value & "" = "" Then
 
'strFiltro = "Comm =" & Me!Comm
'MsgBox strFiltro
'CondizioniPagamento = DLookup("[Condizioni pagamento]", "CondPagClienti", strFiltro)Cod_tipo_commessa
 strFiltro = DLookup("[Cod_tipo_commessa]", "dbo_Commesse", "COMM =" & "'" & Me!Comm & "'")
  desc1 = DLookup("[Descrizione]", "[dbo_Tipo di commessa]", "Cod_tipo_commessa =" & "'" & strFiltro & "'")
  Set rs = CurrentProject.Connection.Execute("SELECT MAX([N°Fabbrica]) AS NMax, MIN([N°Fabbrica]) AS NMin FROM dbo.[Numero di fabbrica] WHERE Comm = " & "'" & Me!Comm & "'")
MinNF = rs!NMin
MaxNF = rs!NMax
rs.Close
If MinNF = MaxNF Then
desc2 = MinNF
Else
desc2 = MinNF & " - " & MaxNF
End If
MsgBox desc2
  'desc2 = DLookup("[N°Fabbrica]", " [Numero di fabbrica]", "COMM =" & "'" & Me!Comm & "'")
    Me!Descrizione = Replace(desc1, " ", "")  '& Replace(desc2, " ", "")
Me!Descrizione = Me!Descrizione & " - Mod. " & DLookup("[Descrizione]", "Commesse", "COMM =" & "'" & Me!Comm & "'") & " Nr. Fabb. " & desc2
End If
End Sub
 
Mi viene restituito un errore di run-time '-
2147467259
 (80004005)' che capisco che ha a che fare con la stringa di connessione ma non so come risolvere?
Grazie per l'aiuto


RISOLTO: Mi rispondo da sola, quando si collegano le tabelle con ODBC le tabelle vengono nominate dbo_nometabella quindi mi è bastato cambiare:
Set rs = CurrentProject.Connection.Execute("SELECT MAX([N°Fabbrica]) AS NMax, MIN([N°Fabbrica]) AS NMin FROM [dbo_Numero di fabbrica] WHERE Comm = " & "'" & Me!Comm & "'")
le tabelle sul serversql si chiamano dbo.nometabella mentre su access la stessa tabella si chiama dbo_nometabella.
Grazie comunque
Newsgroup: it.comp.appl.access
Titolo: ricerche di un file nel hardisk

un altro dubbio, premetto di VBA non ci capisco niente,
devo inserire in  una tabella nome cognome e foto:
1° come faccio a creare un tasto che mi chieda il percorso della foto ?
2° ma poi la foto se viene spostata continua a vedersi?
3° nella maschera cosa devo utilizzare per far visualizzare la foto?
spero di essere stato chiaro e un grazie a tutti e buon fine settimana 


Trovi ogni risposta sul sito comune (
www.sitocomune.com
)...
Ciao.
-- 
Sergio MAZZA 


buon weekend anche a te

gia fatto ma ripeto non sono riuscito a capire più di tanto



Rispondi alla fine del testo, come faccio io; grazie.
Cosa non ti è chiaro?
Ciao.
-- 
Sergio MAZZA 

 memorizzerai il percorso
io più o meno faccio così
me.immagine.picture = "c:\foto clienti\" cognome & " " & nome & ".jpj"
legato all'evento current record


 ha scritto nel messaggio 
news:41fa5e6b$0$8208$5fc...@news.tiscali.it...

Mi intrometto per ringraziare: ho letto il suggerimento e l'ho usato (con 
successo) in un foglio di Excel.
Ciao
Carlo M.
Newsgroup: it.comp.appl.access
Titolo: collegamento ODBC tabella SQL server

salve!
come da oggetto ho un collegamento ad una tabella SQL server
 
il problema che il campo contatore della tabella Sql Server e' di tipo BIGINT
 
Se collego la tabella ottengo una serie di record con scritto CANCELLATO
 
come posso fare?
 
devo creare una vista e convertire il bigint?
 
Grazie


per dovere di cronaca
 
ho trovato
 
con SQL SERVER
Creare un vista e convertire il BIGINT 
CAST(id as varchar(19)) as id
e poi collegare la vista

Ma fai una vista nel DB principale solo per quel motivo ???
 
Quella tabella/vista deve essere editabile da Client ??
hai impostato il campo Key durante il collegamento?
 
Se non deve essere editabile allora consiglio una query PasTrought nel Client che corrisponde identicamente alla vista nel Server

hai impostato il campo Key durante il collegamento? 
potresti essere piu' specifico? in effetti creata la vista con indice sul campo CAST(id as varchar(19)) as id 
quando faccio il collegamento da mdb mi chiede con che indice
 

 quando faccio il collegamento da mdb mi chiede con che indice
 
Bene, se deve essere editabile allora alla richiesta di individuare l'indice 
devi selezionare il tuo campo Key 
Sperando che non ti dia dei problemi quel CAST(.......)
 
Se ricordo bene con la procedura guidata ( usi quella vero ?? )
ti propone già Access l'elenco di campi da cui selezionare la Key
 
Se invece non indichi ad Access quale sia l'indice allora
la vista non sarà editabile
 
.
Newsgroup: it.comp.appl.access
Titolo: Campo null nelle query

Io ho una query che preleva i dati da una tabella.
Nella query metto due campi "Mattina","Pomeriggio". Dove possono esserci
queste situazioni:
        Mattina<>null e Pomeriggio<>null
        Mattina<>null e Pomeriggio=null
        Mattina=null e Pomeriggio<>null
Il problema è proprio negli ultimi due casi perchè non mi visualizza nulla
nel report non essendoci dei dati in uno dei due campi.
E' possibilie fare in modo che mi visualizzi sempre tutto anche se un campo
è nullo? Cioè che nel report mi escano tutti i valori della tabella e bianco
dove non ci sono dati?


Tu non lo dici, ma tutto lascia supporre che nella tua query hai scritto
qualcosa nei criteri relativi ai campi Mattina e Pomeriggio.
Se č cosě fai un salto sul Sito Comune (link qui sotto), Sezione Queries, e
dai uno sguardo alla FAQ di Federico Luciani intitolata "Visualizzare tutti
i records con una query parametrica."; se non ho capito male dovrebbe
risolvere il tuo problema.
In caso contrario rifatti vivo spiegando qualche cosina di piů.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------





GUARDA NELL' HELP LA FUNZIONE "NZ" 


 


CIAO
Newsgroup: it.comp.appl.access
Titolo: Al solito...lista utenti...

Ho riletto tutti i msg sull'argomento, però mi son bloccato. Ho una
tabella "utenti connessi" in cui all'apertura del FE ciascun utente
sovrascrive ...il problema è che tutti gli utenti sono "Admin"
?!?!?!?! e quindi uguali ed irriconoscibili ...se non ho capito male
posso risolvere soltanto configurando "utenti e gruppi" ma ho paura di
fare pasticci, perchè a me non interessa limitare l'accesso a
qualcuno, bensì solo avere il nome di CurrentUser .... inoltre la
configurazione "utenti e gruppi" la dovrei fare sul BE o sul FE ....
??? arghhhh.... 
l'Andre

 l'Andre
prenditi l'id della macchina e creati una tabella
-- 
_ _
Ciao
MAssimiliano Amendola            
www.accessgroup.it
Cisa - Conferenza Italiana per Sviluppatori Access
Info:  
www.donkarl.com/it

 ha scritto nel messaggio news:1152012332.2...@m73g2000cwd.googlegroups.com...
Ho riletto tutti i msg sull'argomento, perň mi son bloccato. Ho una
tabella "utenti connessi" in cui all'apertura del FE ciascun utente
sovrascrive ...il problema č che tutti gli utenti sono "Admin"
?!?!?!?! e quindi uguali ed irriconoscibili ...se non ho capito male
posso risolvere soltanto configurando "utenti e gruppi" ma ho paura di
fare pasticci, perchč a me non interessa limitare l'accesso a
qualcuno, bensě solo avere il nome di CurrentUser .... inoltre la
configurazione "utenti e gruppi" la dovrei fare sul BE o sul FE ....
??? arghhhh....
l'Andre
[risposta]
Hai letto, sul sito comune, come implementare i gruppi?
Ciao.
-- 
Sergio MAZZA 

 Ciao.
...cut
NO ! ...non riesco a trovare la relativa guida, in quale sottopagina si
trova ?
l'Andre

 ha scritto nel messaggio news:1152113650.9...@b68g2000cwa.googlegroups.com...
...cut
NO ! ...non riesco a trovare la relativa guida, in quale sottopagina si
trova ?
l'Andre
[risposta]
Sezione General
6.3 Come utilizzare la sicurezza di Access?
Ciao.
-- 
Sergio MAZZA
Newsgroup: it.comp.appl.access
Titolo: query con parametro e non

Non so se riuscirò a spiegarmi!!
1ª query unisce l'elenco dei dipendenti e la data dell'ultimo esame (con un left join in cui si visualizzano tutti i dipendenti anche quelli che non hanno sostenuto l'esame)
 
2ª query seleziona tutte le assenze dei dipendenti
 
vorrei una 3ª query che mi facesse l'elenco di tutti i dipendenti e visualizzasse solo i campi in cui la data di inizio assenza è maggiore della data dell'esame
 
NOMINATIVO       DATAESAME           ASSENZADAL        ASSENZAAL
ROSSI BRUNO      01/03/2014          15/03/2014         20/3/2014
BIANCHI MARIO    15/4/2014             ""                 ""
 
 
 
i campi assenza sono vuoti poiché le assenze sono precedenti alla data di esame
 
 
non ci riesco proprio perché se metto i criteri la query seleziona solo i record che soddisfano i parametri. ma a me serve l'elenco intero.
 
 
che fatica spiegare!!!!
grazie

...ma questo post non.stuzzica l'appetito intellettuale di nessuno :-)

In realtà, a me serve che la 2ª query peschi il parametro dalla prima.
La data di esame, cioè, serve per estrarre i dati della seconda. 
però se nella seconda metto tra i parametri il campo della prima,
la query non funzione!!
aiuto

non c'è possibilità di ricevere un pò d'aiuto!!? :-)
Newsgroup: it.comp.appl.access
Titolo: Conversione in EURO anche con vaolori negativi

La funzione che ho scritto in un post precedente (Arrotondamento? di
Giancarlo Leccese) non prevedeva i numeri negativi.
Karl mi ha fatto notare questa mancanza.
Pertanto va corretta in:
Public Function ArrotondaEuro(dblValore)
    If dblValore < 0 Then
    dblValore = (dblValore * 100) + 0.4
    Else
    dblValore = (dblValore * 100) + 0.5
    End If
    If InStr(CStr(dblValore), ",") <> 0 Then dblValore = Int(dblValore)
    ArrotondaEuro = dblValore / 100
End Function
Prego Federico Luciani di provvedere alla correzione.
Ciao, Carlo


Come ti ha fatto notare Karl c'e' ancora qualcosa che non va:
?ArrotondaEuro(-1.0444) -> -1,05 
invece dovrebbe essere -1,04
prova quella di Karl che sta sul SC
-- 
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
----------------------------------

 ha scritto nel messaggio
news:3BB6F12F...@sitocomune.com...

Il buon Karl ha quasi ragione. Il quasi č per le cifre superiori alla terza
decimale. Infatti visto che č obbligatorio mettere al massimo due cifre
decimali, solo una eventuale terza cifra č da prendere in considerazione.
Comunque ho modificato la funzione in modo che tenga conto anche di piů di
tre cifre decimali.
Mi sono inoltre informato presso l'autore del libro "EURO: Manuale per il
2002" che potrete trovare all'indirizzo
http://www.diamint.com/estratti/euroestratto.htm
 e che mi ha risposto che in
caso di valori negativi l'arrotondamento viene effettuato come se il numero
fosso positivo e poi gli si mette un meno davanti.
Ecco la funzione modificata:
Public Function ArrotondaEuro(dblValore)
    If dblValore < 0 Then
    dblValore = (Mid(dblValore, 2, Len(dblValore)) * 100) + 0.5
    If InStr(CStr(dblValore), ",") <> 0 Then dblValore = Int(dblValore)
    ArrotondaEuro = dblValore / 100
    ArrotondaEuro = "-" & ArrotondaEuro
    Else
    dblValore = (dblValore * 100) + 0.5
    If InStr(CStr(dblValore), ",") <> 0 Then dblValore = Int(dblValore)
    ArrotondaEuro = dblValore / 100
    End If
End Function
Ciao, Carlo

 fosso positivo e poi gli si mette un meno davanti.
chiarissimo


 End Function
Sembra di essere ok così.
Sono sempre prudente di dire questo perché solo è giusto fino
alla prova del contrario in un singolo caso - specialmente con
l'arrotondamento. ;-)
--
cu
Karl
*********
Access-FAQ (tedesco): 
http://www.donkarl.com
Newsgroup: it.comp.appl.access
Titolo: Modificare Filter da subform su altra subform

Ho una form principale sulla quale sono presenti due subform
La prima contiene le righe testate fatture, la seconda contiene le righe del 
corpo fattura attuale
Vorrei, sull'evento Current della subform testate fatture, inserire del 
codice per modificare la proprieta' Filter della subform righe fatture
Ho tentato cosi:
forms![frmPrincipale]![frmRigheFatture].form.filter="ID_FATTURA=" & 
ID_FATTURA
ma purtroppo non funziona
Sapete aiutarmi nell'impostare la ropieta' Filter della subform righe 
fatture da dentro l'evento Current della subform testate fatture ?
Ciao e grazie
RobertoA


Purtroppo "non funziona" è sempre la descrizione più popolare...
In caso che non ricevi un errore ma succede niente, prova
se solo manca questa come seconda riga:
forms![frmPrincipale]![frmRigheFatture].form.FilterOn = True
-- 
HTH
Karl
*********
Access FAQ: 
www.donkarl.com/it
 

"RobertoA"

Però puoi utilizzare le proprietà "collega campi master/secondari" per 
legare le due SubForms...
Saluti. 

 wrote in message 
news:484a5f09$1...@newsgate.x-privat.org...

Per inserire il filtro:
Parent![frmRigheFatture].Form.FilterOn = True
Parent![frmRigheFatture].Form.Filter="ID_Fattura=" & [ID_Fattura]
Per eliminarlo:
Parent![frmRigheFatture].Form.FilterOn = False
Bruno 


Si, hai ragione. Il codice nell'evento CURRENT della form master e' questo
-------------------------------------------------
    If Not (IsNull(LOTTO_INTERNO)) Then
        Parent![frmChiusureLottiVenditeRighe].Form.FilterOn = True
        Parent![frmChiusureLottiVenditeRighe].Form.Filter = 
"DOCUMENTIRIGHE.LOTTO_INTERNO=""" & LOTTO_INTERNO & """ "
        End If
-------------------------------------------------
L'intento sarebbe di aggiornare il recordset visualizzato dalla form detail
La seconda riga (...FilterOn=True...) e' quella che scatena l'errore 2455, 
che pero' poi' ho capito essere legato alla visualizzazione della form piu' 
che all'istruzione in se
Infatti una volta visualizzata la form principale (quella che contiene la 
subform master e la subform detail), l'errore non esce piu'
Attualmente ho tamponato intercettando l'errore, ma vorrei anche capire 
perche' succede e sistemareil problema all'origine
Ciao e grazie
RobertoA

 legare le due SubForms...
Si pero' non mi piace, alcune volte mi hanno dato problemi inspiegabili del 
tipo collegamenti che scomparivano ed altro
Insomma preferirei fare a manina
Ciao e grazie
RobertoA

 ha scritto nel messaggio 
news:484a756e$0$18151$4faf...@reader3.news.tin.it...

Si, grazie
Avevo infatti provato anche cosi
Poi mi sono accorto che l'errore veniva scatenato solo all'avviamento form, 
quando il codice viene eseguito e la form non e' ancora visualizzata
Dalla seconda volta in poi tutto filava liscio
Ciao
RobertoA

 Insomma preferirei fare a manina
Contento te...     ;-)
Ad ogni modo i collegamenti Master/Secondario funzionano benissimo.
Saluti.
Newsgroup: it.comp.appl.access
Titolo: Inserire righe codice in form

Ciao a tutti!
Con Evento Click su CommandButton1 in Form2, vorrei inserire il
seguente codice:
DoCmd.Maximize
nel modulo di classe su evento "Su attivazione" di Maschera1. Ho
provato con CreateEventProc e InsertLines, ma continua a darmi errore:
mi date una dritta?
Grazie e ri-ciao!

 DoCmd.Maximize

Con Maschera1 aperta prendendo spunto dall'Help:
  Function EvProc() As Boolean
    Dim frm As Form, mdl As Module
    Dim lngReturn As Long
    On Error GoTo Error_EvProc
 
    Set frm = Forms!Maschera1
    Set mdl = frm.Module
 
    ' Aggiunge una routine evento.
    lngReturn = mdl.CreateEventProc("Activate", "Form")
    ' Inserisce il testo nel corpo della routine.
    mdl.InsertLines lngReturn + 1, vbTab & "Docmd.Maximize"
    EvProc = True
 Exit_EvProc:
    Exit Function
 Error_EvProc:
    MsgBox Err & " :" & Err.Description
    EvProc = False
    Resume Exit_EvProc
 End Function
--
sv
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 
paolo.donnaru...@tin.it
 ha scritto:

Grazie ci sono riuscito. L'unica cosa che mi rimane è che resta aperta
la finestra del modulo: ho provato a chiuderla con
DoCmd.Close AcModule, mdl
ma mi rimane aperta su altri moduli! Come posso fare?

paolo.do...@tin.it
 ha scritto:


Chiudila con Alt+Q
--
sv
-- 
questo articolo e` stato inviato via web dal servizio gratuito 


 - Mostra testo citato -
Sì così funziona, ma non c'è qualche comando via codice?

paolo.do...@tin.it
 ha scritto:


Nel modulo della form2:
Private Declare Function FindWindow _
                          Lib "user32" Alias "FindWindowA" _
                              (ByVal lpClassName As String, _
                               ByVal lpWindowName As String) As Long
Private Declare Function PostMessage _
                          Lib "user32" Alias "PostMessageA" _
                              (ByVal hwnd As Long, _
                               ByVal wMsg As Long, _
                               ByVal wParam As Long, _
                               lParam As Any) As Long
 
Private Const WM_CLOSE = &H10
e poi la sub che richiami nell'evento click del pulsante:
Sub ChiudiVBE()
  PostMessage FindWindow("wndclass_desked_gsk", vbNullString), _
              WM_CLOSE, 0&, 0&
  'per annullare la chiusura della finestra di dialogo
  SendKeys "{ESC}", True
  DoEvents
End Sub
Alla fine ricordarti che la Maschera1 deve essere salvata. Se non la salvi
Access va in errore e ritenti l'esperimento Access va in errore.
Una curiosità ma perchè tutto questo.. io non lo farei mai..
--
sv
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
