mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.appl.access
Titolo: Selezione file per documenti Office

Salve al newsgroup!
Ho costruito un database con A97 per l'archiviazione dei documenti
di tipo word, excel, testo ecc...
In una maschera associata alla tabella documenti ho inserito un pulsante
che apre la finestra di dialogo per la selezione di un file
La funzione che ho prelevato dal sito comune qui sotto lavora alla grande
... però ...
ora ho la necessità di aprire il documento archiviato...
'Funzione da richamare
Public Function cmdlg_file()
   'Autore: Stefano Bettini
   'Restituisce: il percorso completo del file selezionato
   Dim OpenFile As OPENFILENAME
   Dim lReturn As Long
   Dim sFilter As String
   OpenFile.lStructSize = Len(OpenFile)
   sFilter = "Tutti i file (*.*)" & Chr(0) & "*.*" & Chr(0) _
             & "Documento Word (*.DOC)" & Chr(0) & "*.DOC" & Chr(0) _
             & "Rich Text Format (*.RTF))" & Chr(0) & "*.RTF" & Chr(0) _
             & "Foglio Excel (*.XLS)" & Chr(0) & "*.XLS" & Chr(0) _
             & "Solo testo (*.TXT)" & Chr(0) & "*.TXT" & Chr(0)
   OpenFile.lpstrFilter = sFilter
   OpenFile.nFilterIndex = 1
   OpenFile.lpstrFile = String(257, 0)
   OpenFile.nMaxFile = Len(OpenFile.lpstrFile) - 1
   OpenFile.lpstrFileTitle = OpenFile.lpstrFile
   OpenFile.nMaxFileTitle = OpenFile.nMaxFile
   OpenFile.lpstrInitialDir = "C:\"
   OpenFile.lpstrTitle = "Selezione documento"
   OpenFile.flags = 0
   lReturn = GetOpenFileName(OpenFile)
   If lReturn = 0 Then
      cmdlg_file = ""
   Else
      cmdlg_file = Left(OpenFile.lpstrFile, InStr(OpenFile.lpstrFile, Chr$(0)) -
1)
   End If
End Function
... quindi sull'evento doppio clic del campo NomeFile eseguo il seguente
codice:
Private Sub NomeFile_DblClick(Cancel As Integer)
 Dim Esegui
 If IsNull(Me.NomeFile) Then
    MsgBox "Il campo nome file non deve essere vuoto!!!", vbInformation,
conNomeApp
 Else
    Esegui = Shell(Me.Applicazione & " " & Me.NomeFile, vbNormalFocus)
 End If
End Sub
... e se il percorso non contiene spazi (ad esempio: C:\DOCUMENTI come nel
caso di WIN98)
viene aperta l'applicazione e il file contenuto nel campo...
se invece il percorso contiene spazi (ad esempio C:\DOCUMENTS AND
SETTINGS\ALE\DOCUMENTI come in
XP) viene generato un errore dall'applicazione chiamata e non viene aperto
il file.
Ora la mia richiesta è questa: esiste qualche funzione che mi permette di
aprire il file
a prescindere dal percorso con o senza spazi?
Ho provato ad utilizzare la funzione TRIM ma senza risultati... sigh!!!
Grazie per qualsiasi chiarimento o delucidazione....
PS ho testato il database su WIN98 con esito positivo, mentre in XP non
funziona...
Ale
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

 Ale
Basta che racchiudi tra doppi apici il nome del file da aprire
  Shell(Me.Applicazione & " """ & Me.NomeFile & """", vbNormalFocus)
O in alternativa puoi usare la proprietà Collegamento ipertestuale
(HyperlinkAddress F1).
Namor
-- 
namor at inwind punto it
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it


Grazie ... funziona!!

Newsgroup: it.comp.appl.access
Titolo: Copiare MS Reporting Services

Ciao a tutti,
sapete dirmi come posso copiare un sistema esistente e funzionante di
Reporting Service su un nuovo server ?
Grazie.

 ha scritto nel messaggio 
news:11cde904-94d2-441b...@y43g2000hsy.googlegroups.com...

Ciao,
In un percorso del tipo ...\Documenti\Visual Studio 2005\Projects 
dell'attuale server SQL c'è uan cartella contenente i file del progetto 
reporting services. Copiala sul nuovo server.
Configura Reporting Services sul nuovo server. Se hai SQL 2005 
http://www.microsoft.com/italy/technet/prodtechnol/sql/2005/usingssrswithsqlexpress.mspx
Build and Deploy il progetto sul nuvo server.
Spero di esserti stato d'aiuto!
-- 
Marco Papetti
www.shortchannel.it
 Il software di commercio elettronico OpenSource
www.mondoideale.com
  - Prodotti naturali e biologici.

Newsgroup: it.comp.appl.access
Titolo: errore activex non e in grado di creare...

 
          Aiuto, ho appena istallato access e quando vado in creazione guidata per una
maschera per esempio, o nella maschera qualche cosa con la "guida" mi dice:
errore activex no e in grado di aprire la finestra.
che devo fare? ho provato a reinstallare il tutto, ma idem!!
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

 che devo fare? ho provato a reinstallare il tutto, ma idem!!
www.donkarl.com/it
FAQ 7.9 ActiveX non è in grado di creare l'oggetto
-- 
HTH
Karl
*********
Access FAQ: 
www.donkarl.com/it
+ Conferenza Italiana per Sviluppatori di Access (CISA)

Newsgroup: it.comp.appl.access
Titolo: DIMENSIONARE UNA MASCHERA

Ciao chiedevo come si puo, all'apertura di una maschera, dimensionarla in 
base al contenuto. Grazie Ciao Alberto 

 base al contenuto. Grazie Ciao Alberto
Scusa ma il contenuto cambia continuamente..? No non credo, anche
perchè Access a Runtime non consente di creare Oggetti...!
Quindi perchè devi dimensionare via codice la Form... e non a Design ?
@Alex

 ha scritto nel messaggio 
news:1176191331....@o5g2000hsb.googlegroups.com...



@Alex
...............
Ho cercato di dimensionare a design ma quando vado ad aprire la maschera la 
apre a tutto schermo ed invece vorrei che si aprisse adattata al contenuto. 

 ha scritto nel messaggionews:1176191331....@o5g2000hsb.googlegroups.com...

Non è possibile significa che hai inserito un Maximmize da qualche
parte e non ti sei accorto...!
Imposta la proprietà Dimensioni Automatiche = Si e salva, verifica di
non avere un Maximize nel codice.
@ALex
Newsgroup: it.comp.appl.access
Titolo: controllo numerico non preciso

Ho un controllo numerico in formato Euro con 2 decimali.
Scrivo, per esempio, il valore 21,03 e una volta che ci ritorno sopra me lo
trasforma in 21,0300006866455.
Cosě anche con altri valori!!!
La tabella di origine č impostata su: numerico, precisione singola, formato
Euro.
Perchč mi aggiunge quei decimali?

 ha scritto nel messaggio
news:oyJW7.35919$OP2.1...@news2.tin.it...

Prova a mettere precisione doppia. Non ho approfondito il problema, ma
qualche guru dell'NG dice che con la precisione singola ci si prende dei mal
di pancia. (E se lo dicono loro vai tranquillo che č cosě)
Paolo


Grazie, così rimane giusto.
Se aggiungo un controllo che ha origine da una query come faccio a mettere
la proprietà precisione doppia? Nelle proprietà del controllo non la
trovo!...c'è solo nelle proprietà dei campi di una tabella?!


wrote:

che sappia io non si può specificare nelle query che tipo di dati
restituiscono e penso siano determinati in automatico a seconda del
tipo di dati alla base dell'origine del tipo:
a=double b=double
query c:a.b
c di tipo double
Saluti.
Emanuele.

 ha scritto nel messaggio
news:DRMW7.36277$o9.12...@news1.tin.it...

CDbl([tuonumero])
Però, se decidi di operare con numeri a precisione doppia, è meglio che tu
la faccia già a livello di tabella.
Ciao
--
Alberto
Newsgroup: it.comp.appl.access
Titolo: query parametrica

Un saluto a tutti
Apro un recordset creando una query direttamente da codice, ma non riesco ad
assegnare la giusta sintassi Where.
Ho provato in diversi modi ma mi ritorna sempre un errore
rstSuppliers.Open "SELECT tblDettagliMovimentiMagazzino.Descrizione,
tblDettagliMovimentiMagazzino.Quantitą, _
blDettagliMovimentiMagazzino.Importo,
tblCausaliMovimentiMagazzino.IDCausaliMovimentiMagazzino, _
tblCausaliMovimentiMagazzino.Descrizione, tblMovimentiMagazzino.DataFattura,
tblMovimentiMagazzino.NumeroFattura, _
tblMovimentiMagazzino.DataRegistrazione, tblMovimentiMagazzino.GruppoCliFor,
tblMovimentiMagazzino.ContoCliFor,  _
tblMovimentiMagazzino.SottocontoCliFor,
tblMovimentiMagazzino.RagioneSociale,  _
blDettagliMovimentiMagazzino.IDMovimentiMagazzino,
tblCausaliMovimentiMagazzino.Contocfn FROM _  (tblCausaliMovimentiMagazzino
INNER JOIN tblMovimentiMagazzino ON _
tblCausaliMovimentiMagazzino.IDCausaliMovimentiMagazzino =
tblMovimentiMagazzino.IDCausaliMovimentiMagazzino)   INNER JOIN
tblDettagliMovimentiMagazzino ON _
tblMovimentiMagazzino.IDMovimentiMagazzino =  _
tblDettagliMovimentiMagazzino.IDMovimentiMagazzino _
WHERE tblCausaliMovimentiMagazzino.Contocfn = & Me.CF   ",
CurrentProject.Connection
Mi fate capire dove sbaglio?
Saluti Massimo

 Saluti Massimo
L'errore potrebbe essere nella tipologia della variabile usata.
Se č di tipo testo serve la sintassi adeguata.
WHERE tblCausaliMovimentiMagazzino.Contocfn = " & chr(34) & Me.CF &
chr(34)
Se č Numerico 
WHERE tblCausaliMovimentiMagazzino.Contocfn = " & Me.CF 
Come hai scritto tu inserendo il riferimento Me.CF all'interno dei doppi
apici non diventa piů un riferimento al controllo, ma un Testo.
Ciao.
@Alex.
 
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG
Newsgroup: it.comp.appl.access
Titolo: Apostrofo 2

Scusate se non seguo il thread ma scivo offline.
La domanda alla quale non ho ancora trovato la risposta č: come sostituisco
un apostrofo con uno spazio?
Grazie ad Antonio Biso, ho capito che l'apostrofo č chr(39) e lo spazio č
chr(329, ma come posso operare la sostituzione nel valore del campo
sull'evento AfterUpdate dello stesso?
Grazie per l'attenzione!
--
'--------------------------------------------------------
'Saludos
'--------------------------------------------------------

 sull'evento AfterUpdate dello stesso?
Non credo che sia corretto quello che vuoi fare tu.
Se hai problemi con l'apostrofo, nell'esecuzione di query o creazione di
stringhe per criteri vari via codice, č piů corretto gestire successivamente
l'apostrofo, piuttosto che eliminarlo dai dati inseriti.
Per gestirlo trovi molti esempi nel sito comune
Antonio

 ha scritto nel messaggio
news:qbBZ8.1483$GV2....@twister2.libero.it...

Grazie per la risposta.
Il problema č che da un ocx treeview, riportante un elenco di clienti
suddivisi per regione, sono riuscito a fare eseguire ad A97 l'apertura della
maschera con l'anagrafica del cliente sul quale si č doppio-cliccato,
ordinandogli di trovare l'IDCliente al quale corrisponde la ragione sociale
visualizzata.
Purtroppo se la ragione sociale comprende un apostrofo non apre l'anagrafica
perchč nella sintassi l'apostrofo rovina la sintassi, in quanto interpretato
come chiusura della stringa-criterio...
Puoi consigliarmi qualche escamotage?

Grazie per l'attenzione!
usa un ciclo do loop
usa instr()
usa mid() e right () 
con queste fai il tutto sulle'evento afterupdate
č un semplice esercizio di programmazione
Saluti.
Emanuele.

 come chiusura della stringa-criterio...
Public Function doppi_apici(X As String) As String
    Dim app As String
    Dim i As Integer
    app = ""
    For i = 1 To Len(X)
        If Mid(X, i, 1) = "'" Then
            app = app & "''"
        Else
            app = app & Mid(X, i, 1)
        End If
    Next
    doppi_apici = app
End Function
e poi quando usi la ragione sociale scrivi
doppi_apici(ragione_sociale)
Antonio

 ha scritto nel messaggio
news:zxPZ8.3964$s74....@twister1.libero.it...

Ti ringrazio per l'indicazione utilissima, che ho sfruttato in modo un pò
differente da quanto suggeritomi:
- la ragione sociale la inserisco normalmente senza curarmi se ci sono
apostrofi o meno (ieri sera alla fine ho capito come sostituire i caratteri,
figata!!!)
- nel popolare l'ocx (mediante ciclo su recordset) faccio inserire, anzichè
la ragione sociale,
doppi_apici(RagioneSociale)
in questo modo l'apostrofo è visualizzato doppio ma non dà alcun problema.
Ancora grazie a tutti!

 in questo modo l'apostrofo è visualizzato doppio ma non dà alcun problema.
Ma è quello che intendevo anch'io: la funzione va usata in maniera
trasparente all'utente che vede sempre l'apostrofo, che però è raddoppiato
negli usi interni...
Antonio
Newsgroup: it.comp.appl.access
Titolo: [OT] xTommy

T'ho scritto una piccola applicazione con Access che comanda un lettore CD
dimostrativa dell'uso delle API MCI...
dimmi se la vuoi che te la mando...
-- 
...There is one God looking down on us all. We are all the children of one
God. The sun, the darkness, the winds are all listening to what we have to
say...
GERONIMO

 ha scritto nel messaggio
news:i6lfb.162767$hE5.5...@news1.tin.it...

Augh Geronimo,
la manderesti anche a me?
mast...@SPAMmassimilianoamendola.it
tks
MAssimiliano

 la manderesti anche a me?
Augh
Il grande vicecapo del quoting ha parlato :-)
Sempre pronto ad approfittare per incrementare il tuo archivio privato:-)
BRAVO
Ciao Daniele


In pieno spirito NG.
Cerco di dare tutto ciò che posso (e il mio "posso" non è lo stesso di Biso
con gli stranieri...)
e mi piace vedere come gli altri lavorano
ad esempio mi piacerebbe vedere molto un Adp di Sib, o un'applicazione
simpatica di Biso o @Alex, (di Giorgio e Roberto ho già qualcosa), Simone
etc..
MAssimiliano


Mandala anche al webmaster del Sito Comune ( 
webm...@sitocomune.com
 ):
prima o poi verrà pubblicata.
-- 
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

 > > la manderesti anche a me?
Si, questa sera...


AUGH...

 Roberto
Roberto, ma non eri stato cooptato webmaster dalla Triade?
io confidavo in te
MAssimiliano


saluti Daniele

 MAssimiliano
Seeee, tipiacerebbe....!!
Da me hai poco da imparare, non ho mai inventato nulla...!
Se vuoi ti mando un DATABASE di RICETTE circa 20000......!
Solo però se hai ADSL ed usi A97.
Ciao.
@Alex.
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 ha scritto nel messaggio
news:WTbgb.5298$uv4....@news.edisontel.com...

Io ho già controllato e liberato, una decina di giorni fa, materiale per19
FAQ e l'ho inviato a Federico Luciani che effettuarà con esso un primo
aggiornamento del Sito; ieri ho ricevuto un messaggio di Federico che mi
spiegava che aveva avuto un problema serio con l'HD del suo computer,
problema che aveva finito di risolvere solo ieri pomeriggio: di fatto lui ha
cominciato a lavorare solo oggi e spera di ultimare l'aggiornamento in un
paio di giorni; sembrebbe proprio che " 'sto aggiornamento non s'ha da fare
", quasi fosse il matrimonio di Renzo e Lucia.
Ma vedrai che prima o poi...
Nel frattempo sto ricevendo da Luciano (Doc) altro materiale da vagliare.

Newsgroup: it.comp.appl.access
Titolo: Disabilitare tasto shift

Ciao a tutti (pensavate di aver perso le mie tracce ???) ho questa
problematica con la routine per
disabilitare il tasto shift.
Premetto che ho seguito tutti i consigli trovati sul sito
comune.cioe':
nella maschera principale mi sono creato un pulsante di comando; ho
inserito la proprieta' trasparente e  in etichetta ho inserito il nome
&- (non l'ho inserito nella riga nome perche' non funziona).
Nell'evento On click del pulsante sono andato ad inserire la seguente
funzione:
Private Sub Ctl___Click()
Dim stLinkCriteria As String
Dim strinput As String
Dim strMsg As String
Dim domanda As String
Dim messaggio As String
Dim intopzioni As Integer
    strinput = InputBox("Inserire una password valida.")
    strMsg = "Password corretta"
        ' Prova il valore di input utente.
        If strinput = "password" Then
        On Error Resume Next
        domanda = InputBox("Chiudere il database?")
            Const DB_Boolean As Long = 1
        If domanda = "Apri" Then
        ChangeProperty "AllowBypassKey", DB_Boolean, True
        Else
            ChangeProperty "AllowBypassKey", DB_Boolean, False
        End If
        Else
 intopzioni = vbCritical
messaggio = "La password immessa è ERRATA."
byscelta = MsgBox(messaggio, intopzioni)
DoCmd.Quit
         End If
End Sub
Quando cerco di attivare il pulsante nascosto pigiando ALT + - mi esce
la finestra ERRORE DI COMPILAZIONE  dicendomi Sub o function non
definita sottolineando la parola PROPERTY.
Dove puo' essere l'inghippo?
GRAZIE IN ANTICIPO
Ciao Dino

 Dove puo' essere l'inghippo?
Io non ho capito quale funzione usi per disabilitare il tasto shift, ma se 
usi quella che inizia per:
Sub EnableShift(blnFlag As Boolean)
.....
allora ti basta passargli false o true.
enableshift(false) ' disabilita
enabledshift(true) 'abilita
-- 
Ciao
Geppo 


Conosci la possibilità di usare il COMPILA....?
Da codice prima di lanciare l'esecuzione seleziona COMPILA e vedi dove
ti restituisce erorri...!
Hai compiato la Funzione ChangeProperty oltre il resto...?
@Alex
Newsgroup: it.comp.appl.access
Titolo: AIUTO !!!! Interfacciare un database con internet.

Salve a tutti,
sto cercando di interfacciare il mio database listino con internet.
Vorrei rendere disponibile attraverso internet tutti i dati contenuti nel
mio database e poter dare la possibilità di poter effettuare ricerche.
Ho visto le pagine di accesso ai dati . L'unica pecca è che per aprire il
sito creato con la pagina internet che si interfaccia al database è
neccessario installare gli office web components.
C'è qualche altro modo per fare questa cosa ?  Io uso Access 2002 e devo
rappresentare su internet direttamente dal mio DB in tempo reale tutti i
dati in esso contenuto tramite una pagina web che permetta di effettuare
ricerche nel database in base a certi criteri.
Ho cercato in lungo e in largo ma non ho trovato nessuno che mi dia
spiegazioni sull'argomento.
Vediamo se cè qualche cervellone nel forum !!!
Ciao a presto.

 spiegazioni sull'argomento.
it.comp.www.asp
cmq che io sappia, fare quello che chiedi presuppone (in Win)
1) 1 HTTP server (IIS o c'era una volta il PWS ma solo per provare)
2) Pagine HTML con tecnologia ASP e VbScript
3) Un provider di servizi internet (per la intranet dati 1 e 2 basta la LAN
locale)
--
a.cara


Ciao Alessandro,
infatti io possiedo :
1.) Server HTTP e FTP   (vedi 
ftp.clinicftp.serveftp.com
)
2.) La pagina HTML č stata creata da Access 2002
3.) Connessione ADSL.
Ti dico che prima tutto mi funzionava, ho voluto ricreare la pagina html per
abbellirla graficamente e niente, adesso non va piů,
nel senso che mi dice impossibile traovare il file
\\percorso\percorso\nomefile.mdb
Come posso fare ?
Grazie per la risposta.

 neccessario installare gli office web components.
Ma gli Office web components non vengono installati di Default con Access?
La mia è una curiosità: non ho mai usato le pagine d'accesso ai dati, ma
potrebbero servirmi a breve...
Donato

 \\percorso\percorso\nomefile.mdb
Normalmente le mie pagine non le produco via Access.
Non ho capito, da quello che mi dici, se la tua pagina e' statica (html)
o dinamica (asp) e neanche come la lanci e se quello che vuoi fare
e' scaricare l'mdb o usarlo
Ricordati che questo 3d e' OT
Prova a postarmi la pagina.
--
a.cara
Newsgroup: it.comp.appl.access
Titolo: Pilotare registratore di cassa

Sto realizzando un pgm di vendita e vorrei, una volta fatta la vendita,
stampare uno scontrino. Il registratore di cassa e' collegato alla seriale
(e' possibile inviare dati di prova utilizzando Hyperterminal di Windows).
C'e' qualcuno che puo' darmi una dritta a farlo funzionare sotto access, io
non alcuna esperienza di gestione COM
Grazie Marco

 ha scritto nel messaggio
news:cojR9.52138$Q%4.17...@news1.tin.it...

Ciao Escort, non molto tempo fa ho realizzato una procedura di vendita che
stampa lo scontrino su un registratore di cassa (ovviamente il reg. di cassa
deve essere predisposto ad accettare i comandi via rs232), per la
comunicazione seriale non avendo la licenza di MSCOM32.OCX ho preso gli
esempi da questo link.
Usare le API per comunicare con la seriale sensa il controllo MSCOM32.OCX
http://www.lunet.it/offerte/berti/Net/Seriale.html
Ciao Giorgio.

 ha scritto nel messaggio
news:av4j55$pho$1...@lacerta.tiscalinet.it...


 ha scritto nel messaggio
news:cojR9.52138$Q%4.17...@news1.tin.it...

Caro Marco
io mi occupo proprio di collegare i reg.di cassa, pero' vorrei sapere di che
marca e' il registratore di cassa che devi pilotare perche' in base a quello
ogni marca di cassa ha un suo protocollo di comunicazione. Purtroppo non gli
puoi "sparare" i dati cosi', ma devono essere stringhe che il misuratore
fiscale capisca.
Ciao


Ciao, non č possibile fare un esempio con qualche riga di codice.
Ti invio un database di esempio in cui puoi inviare una stringa (es ATZ) ad
un modem seriale e leggerne la risposta (ATZ Ok). La porta di comunicazione
č impostata su Com1 e puoi cambiarla modificando la chiamata Init_Seriale
nell'evento Form_Load dell'unica maschera esistente nel Db.
Ciao Giorgio.


Spiacente il tuo indirizzo email non è valido.
Ciao Giorgio.

 nell'evento Form_Load dell'unica maschera esistente nel Db.
Potresti spedirlo anche al Sito Comune...


Fatto.
Ciao Giorgio.

 ha scritto nel messaggio
news:av6o64$jeq$1...@lacerta.tiscalinet.it...


 ha scritto nel messaggio
news:bUwR9.78069$Ou4.2...@twister2.libero.it...


 Fatto.
Fa piacere.
Credo sia una vera figata la gestione della seriale senza CAttiveX  ;-)
Saluti.
Newsgroup: it.comp.appl.access
Titolo: mailto in un campo collegamento ipertestuale

Vorrei fare in modo che cliccando su un campo collegamento ipertestuale 
che contiene un indirizzo di posta elettronica si apra automaticamente 
il client di posta elettronca.
Ho notato che per farlo bisogna precedere l'indirizzo con il nome di 
protocollo "mailto:".
Esiste un modo per inserire "mailto:" in maniera automatica e 
trasparente per l'utente?
Thanks
LuKe


Guardati sull'help sendobject.
La sintassi è semplice e ti offre la possibilità di inserire il destinatario
preso dal controllo che vuoi
ciao MAssimiliano
--------------------------------
Inviato via 
http://usenet.libero.it

 ha scritto nel messaggio
news:bahsi0$a86$1...@fata.cs.interbusiness.it...

Se il controllo associato al campo di collegamento ipertestuale si chiama
email, a fronte dell'evento "opo aggiornamento" della casella di testo email
genera il seguente codice VBA:
Private Sub email_AfterUpdate()
email = "#mailto: " & email & "#"
End Sub
tu digiti solamente l'indirizzo di posta elettronica ed il "mailto:" viene
aggiunto automaticamente.
-- 
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------
Newsgroup: it.comp.appl.access
Titolo: Checkbox "Sì/No", tabulato Word (o Excel) e 1 Query problematica...

Gentili iscritti, prima di scrivere ho provato a leggere velocemente 2000
degli ultimi messaggi, ma viste le mie limitate conoscenze di Access, non ho
trovato un modo per impostare ciò che dovrei svolgere.
1) Dispongo di un tabulato Word o Excel con parecchie voci e a fianco un
checkbox per dire... "Sì questa voce fa parte di questo Cantiere", "No,
questa voce non fa parte di questo Cantiere".
Questo tabulato è abbastanza complesso. Mi chiedo quale sia il modo
migliore, in ACCESS di mostrare questo mio tabulato Word o Excel con a
fianco le varie voci. Premetto che il database è ben organizzato e conosco
direi bene l'SQL, non molto bene Access, anche se ho programmato anche un
po' in VBA (sono comunque programmatore VB dai tempi di VB3). Il mio
problema non è ritornare con una query SQL le varie voci, ma se uso una
Query SQL ho un elenco di dati e non delle checkbox "attive" o "disattive".
Non riesco a trovare una soluzione ragionevole.
2) Per cercare di risolvere quel problema ho provato a ricopiare alcune
righe di codice, ma ciò che non capisco è come mai, la seguente Query,
funziona se scritta ed impostata nella parte di Access destinata solo alle
Query, mentre non funziona se scritta in codice VBA. Mi restituisce il
seguente errore se scritta in codice VBA (ho tolto i riferimenti assoluti a
combo box e l'ho resa "assoluta" con numeri per una più semplice
comprensione... tanto non mi funziona lo stesso!): "Il record corrente
corrisponde all'inizio o alla fine del file oppure è stato eliminato. Per
eseguire l'operazione richiesta è necessario disporre di un record
corrente". Ora, io so che a volte la query ritorna un risultato nullo. E a
me interessa proprio questo... sapere se il risultato è nullo, ovvero se
quella check box andrà attivata o meno. Eppure se eseguita in modalità
Query, funziona, se eseguita da codice VBA, restituisce l'errore sopra
riportato. Sbaglio qualcosa nell'approccio al problema?
    Set RecSet = New ADODB.Recordset 'crea l'oggetto Recordset
    NomeDB = 
Application.CurrentDb.Name
 'nome del DataBase corrente
    StringaConnessione = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source="
& NomeDB 'stringa di connessione al database corrente
    RecSet.ActiveConnection = StringaConnessione 'stabilisce la connessione
Recordset
    StringaSQL = "SELECT * " & _
                 "FROM CANTIERE AS C, FASE AS F,
CORRISPONDENZA_CANTIERE_FASE AS CCF " & _
                 "WHERE ([F].[IDCategoria] = 1) AND ([F].[Numero] = 2) AND
([CCF].[IDFase] = [F].[IDFase]) AND ([CCF].[IDCantiere] = [C].[IDCantiere])
AND ([C].[IDCantiere] = 39)"
    RecSet.Open StringaSQL, , adOpenKeyset, adLockOptimistic, adCmdText
    OutputSQL = Trim(RecSet.GetString)
    Debug.Print OutputSQL
Ringrazio anticipatamente per qualche eventuale risposta. Grazie, un saluto
caloroso.
Paolo Guagliumi
pguag...@libero.it

     Debug.Print OutputSQL
[...]
--
Ciao :-)
Maurizio
--------
?SPQR(C)
 X
--------
Newsgroup: it.comp.appl.access
Titolo: refresh campo su un altra maschera

E' possibile richiamare una funzione su una maschera per aggiornare un
altra maschera? ho provato a fare
"Call nomeform.nomefunction"
ma nn và
come posso fare?mi basterebbe anke solo refreshare un determinato campo
controllo su un altra maschera appena modifico il dato
come faccio?
GRAZIE

 ha scritto nel messaggio 
news:1151399229....@u72g2000cwu.googlegroups.com...


come faccio?
GRAZIE
Aspetta chi se ne intende, ma credo in una form funzioni una cosa tipo:
Form!nomeform.nomefunction
Ciao Valerio.

 ha scritto nel messaggio 
news:44a0f5d5$1...@news.telnetwork.it...

Era sparito il quoting, scusate.
Riciao

 ha scritto nel messaggio 
news:44a0f5d5$1...@news.telnetwork.it...

Correggo Forms!nomeform.nomefunction
Ciao Valerio.

up

Newsgroup: it.comp.appl.access
Titolo: Lunghezza corpo Report

Carissimi guru di access
ho un problema sulla lunghezza del corpo in un report.
Sto preparando un programma che mi crea le CVS (Comunicazioni Valutarie
Statistiche) e sono arrivato alla lunghezza di 56 sul corpo del report e non
mi lascia proseguire.
E' possibile fare in modo che la lunghezza arrivi per lo meno a 100 ?
Grazie per l'aiuto
Luigi


wrote:

no
vedi le dimensioni massime dei report
Saluti.
Emanuele.
Newsgroup: it.comp.appl.access
Titolo: Dimensioni

Ho il mio database senza contare i dati salvati perchč stanno sul server che
č di 30 Mb, puň essere pericoloso un file cosě grande, solo che gestisce una
marea di maschere query macro e REPORT con loghi
Cosa ne pensate???????

 ha scritto nel messaggio
news:b9ejth$pm4$1...@fata.cs.interbusiness.it...

Applicazioni di Access 97 possono avere una dimensione massima di 1 giga.
Con Access 2000/XP 2 giga.
Ciao, Carlo


Ma 1 Gb o 2Gb compresi i dati archivaiti o solo la struttura: maschere,
query, macro, report
Fammi sapere

 ha scritto nel messaggio
news:b9g00m$b2m$1...@grillo.cs.interbusiness.it...

Ciascun database, tutto compreso (ogni singolo mdb o mde).
Impossibile arrivare a un giga con le sole maschere o report o query.
Possibilissimo con i dati nelle tabelle, specie se sono immagini.
Per aggirare il limite usa i riferimenti ai percorsi delle immagini
piuttosto che incorporare le immagini stesse.
Altra strada crea tanti db (uno per tabella) e allegali al database con le
maschere e tutti gli altri oggetti.
Scusa ma quale è il tuo problema?
Ciao, Carlo


Infatti io ho fatto cosi, tanti database e poi li ho uniti con una maschera
a schede
Più che un problema era una domanda
Visto che creando il database sono arrivato a 30 mb (solo maschere, query ,
report e macro) volevo sapere se c'erano dei problemi con le dimensioni

Newsgroup: it.comp.appl.access
Titolo: Re: Bottoni invisibili all'apertura form

 Ciao
Su Click del pulsante della Form1:
Forms!Form2!BTN1.Enabled = False 
etc..
Presta attenzione al setfocus della form2. Se punta al pulsante
disabilitato ti da' errore.
--
sv
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 sv
Correggo..
visible


Newsgroup: it.comp.appl.access
Titolo: Come bloccare\sbloccare i singoli campi di una queri in una sottomaschera

Ciao a tutti!
Ho creato un form che con un pulsante mi esegue una query (MiaQuery)
chiamando in Vba button_click()
Me.SottoMaschera.Requery
Nella sottomaschera visualizzo in forma tabellare (posso fare in un
altro modo?) l'output della query impostando l'oggetto origine della
sottomaschera a
Query.MiaQuery
Ora il problema è che vorrei che tutti i campi di questa "tabella"
output della query fossero bloccati tranne uno!
E' possibile??
Riesco a sbloccarli tutti ma non singolarmente!
Grazie Mille a chi saprà aiutarmi!
Ho lurkato un po' ma non sono riuscito a trovare soluzioni che
facessero al caso mio.


hai lurkato le proprieta' locked e enabled?
--
a.cara 
Togli qualcosa dall'email

 hai lurkato le proprieta' locked e enabled?
il problema è proprio che non so dove/come impostare le proprietà
locked e enabled se la visualizzazione della sottomaschera è in forma
tabellare sob?
Ho ovviato temporaneamente con un altra visualizzazione ma pre
visualizzarne molti contemporaneamente è scomoda!

 visualizzarne molti contemporaneamente è scomoda!
Esiste anche la visualizzazione di tipo "Maschera continua" che qualche
volta puo' essere comoda e si potrebbe renderla uguale alla
visualizzazione
di tipo "Foglio dati"
--
a.cara
togli qualcosa dall'email
Newsgroup: it.comp.appl.access
Titolo: Casella combinata

Ciao a tutti,
avrei bissgno di una mano.
Ho una casella combinata che recupera i valori
da una query.
Selezionando un valore vorrei che mi caricasse un'altra
casella combinata in base alla selezione.
Tipo: la prima casella combinata recupara il codice
cliente, selezionando uno di questi si carica la seconda
casella combinata con gli ordini di quel cliente.
Grazie a tutti.
Ciao Matteo.

 ha scritto nel messaggio
news:10025295...@pluto.goldnet.it...

Vai sul Sito Comune (link qui sotto), Sezione Forms, per "gentile
concessione di mamma Microsoft", puoi fare il download del database di
esempi  allegato alla FAQ intitolata "Esempi di utilizzo delle forms".
Lanciando il database scegli l'esempio che ha come Topic "Synchronizing Two
Combo Boxes on a Form"; la spiegazione dettagliata di ciň che devi fare la
trovi al link:
http://support.microsoft.com/support/kb/articles/Q97/6/24.asp?PR=ACC
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

Scusa Roberto, puoi ripostare il messaggio, perchè
non riesco a visualizzarlo, problemi con il server.
Ciao e grazie, Matteo.

 ha scritto nel messaggio
news:10025295...@pluto.goldnet.it...

Vai sul Sito Comune (link qui sotto), Sezione Forms, per "gentile
concessione di mamma Microsoft", puoi fare il download del database di
esempi  allegato alla FAQ intitolata "Esempi di utilizzo delle forms".
Lanciando il database scegli l'esempio che ha come Topic "Synchronizing Two
Combo Boxes on a Form"; la spiegazione dettagliata di ciò che devi fare la


 ---------------------------------------------
Grazie 1000, Matteo.

Newsgroup: it.comp.appl.access
Titolo: Funzione Cerca.Vert

ho bisogno di una funzione tipo quella utilizzata in Excel "CERCA.VERT"
Ovvero io scrivo il codice nel primo campo del record della maschera
e i successivi : "Descrizione", "prezzo" si aggiornano automaticamente  in
riferimento al codice che ho inserito.
(prelevando i dati da un'altra tabella che contiene Codice descrizione e
prezzo)
Spero che qualcuno mi possa aiutare.
Grazie !

 ha scritto nel messaggio
news:99ci22$e6h$1...@fe2.cs.interbusiness.it...

Usa la funzione DLookup (vedi help)
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

 Roberto
Ok risolto.Grazie
Cristian
Newsgroup: it.comp.appl.access
Titolo: tabella collegata e chiave primaria

buongiorno,
 
ho access 2003
 
ho una tabella collegata
 
nient'altro che un file di testo
 
non posso definire la chiave primaria
 
in quanto mi dice che:
impossibile modificare alcune proprieta' della tabella collegata
 
come ovviare?
 
grazie

...
 
Il file di Testo non è indicizzabile come una Tabella di un DB... e
senza PK risulta READONLY, importalo ed assegna una PK.
 
@Alex


grazie Alex per la risposta,
essendo un file dinamico questo non mi e' possibile, purtroppo.
 
avevo pensato ad una tabella d'appoggio, con struttura uguale
 
ho quindi copiato la struttura e creata una nuova tabella.
 
ho creato un pulsante in una maschera ed inserito questo codice:
 
INSERT INTO DATITRAVASATI SELECT * FROM Dati
 
ma ottengo:
errore di compilazione: errore di sintassi.
 
cosa sbaglio?
 


era piu' semplice di quello che pensavo:
 
DoCmd.RunSQL "INSERT INTO DATITRAVASATI SELECT * FROM Dati"
 
ora pero' vi chiederei:
ricevo la msgbox:
numero di righe che verranno accodate ...
 
accodare le righe selezionate?
 
posso usare qualche codice per confermare gia' il si, senza che
l'operatore dia l'ok ed appaia questa finestrella?
 

 l'operatore dia l'ok ed appaia questa finestrella?
 
Vedi l'ultima riga di quest'articolo:
 
Eliminare i messaggi d'avviso
http://www.donkarl.com/it?FAQ2.4
 
 
-- 
Ciao
Karl
*********
Access FAQ:  
http://www.donkarl.com/it

Newsgroup: it.comp.appl.access
Titolo: domanda per i più esperti

Ho la necessità di inserire e visualizzare in un campo una espressione del
tipo
"((1.50+2.50)-(35.25*1.50)+(1.25+1.25))*25"
ed avere in un altro campo automaticamente il risultato....
qualcuno può aiutarmi ????

 ed avere in un altro campo automaticamente il risultato....
Nel campo per il risultato scrivi
=eval([NomeCampoConFormula])
--
HTH
Karl
*********
Scusate il mio malissimo Italiano. Faccio solo esercizi qui.
Access-FAQ (Tedesco): 
http://www.donkarl.com
APP: 
http://www.AccessProfiPool.com
Newsgroup: it.comp.appl.access
Titolo: Valido se..

Come faccio a definire in una maschera, che l'inserimento di un valore in un
campo è condizionato alla condizione true in un altro campo di tipo casella
controllo?? Ho pensato alla proprietà valido se... sono sulla buona strada??
Grazie
Carmix

 ha scritto nel messaggio
news:9aa730$46f$1...@pegasus.tiscalinet.it...

potresti abilitare o disabilitare l'inserimento di valori nel campo2 oin
base a quello che c'e' sul campo1
es.:
if me.campo1="pippo" then
    me.campo2.lock=false
else
    me.campo2.lock=true
endif

 ha scritto nel messaggio
news:9aa730$46f$1...@pegasus.tiscalinet.it...

Innanzitutto in una maschera, come in un report, ci sono i controlli e non i
campi, che sono invece contenuti nelle tabelle e nelle queries. Una maggiore
proprietà di linguaggio aiuterà te a farti capire meglio ed aiuterà gli
altri a meglio capirti.
Ipotizziamo che la casella di testo in cui vuoi o meno poter inserire un
valore si chiami Pippo, e che la casella di controllo si chiami Pluto.
A fronte dell'evento "Dopo aggiornamento" di Pluto genera il seguente codice
VBA:
If Me!Pluto = True Then
    Me.Pippo.Locked = False
Else
    Me.Pippo.Locked = True
End If
Lo stesso codice VBA generalo anche a fronte dell'evento "Su corrente" della
tua maschera.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

Newsgroup: it.comp.appl.access
Titolo: Campi a lunghezza variabile nei report

Un saluto a tutti un ringraziamento per eventuali aiuti
dovendo stampare in un report "Ragione Sociale " " Indirizzo " Cap " 
Provincia ecc capita che non tutte le citta' ovviamente occupino lo stesso 
spazio
e il campo relativo alla provincia che nel report appare dopo venga spostato 
troppo se la citta' e' corta
esempio
San Giovanni Valdarno  FI
Ostia                             RM
Vorrei fare come nelle etichette che la lunghezza campo venga regolata 
automaticamente
Ringrazio per suggerimenti e consigli
Stefano


Fai un unico controllo con origine  (ovviamente adatta al tuo caso i
nomi) = [Città] & " - " & [Provincia]
se hai capito il concetto puoi sbizzarrirti a tuo piacimento con
parentesi trattini o quello che preferisci...

 ha scritto nel messaggio 
news:a8948517-ea1f-4868...@a70g2000hsh.googlegroups.com...


Ok Grazie ho capito


= [Città] & (" - " + [Provincia])
Così se non c'è provincia non visualizza il trattino 
es.: Torre Del Greco - NA
Napoli
e non 
Napoli - 
-- 
-- 
MAssimiliano Amendola
www.accessgroup.it
Cisa - Conferenza Italiana Sviluppatori Access

 ha scritto nel messaggio 
news:frb45c$i6n$1...@tdi.cu.mi.it...



Ancor meglio
vi ringrazio Stefano
Newsgroup: it.comp.appl.access
Titolo: Errore di run time - Metedo 'Assistant' - ACCESS 97

Ho realizzato una piccola applicazione per necessità di ufficio.
Sul mio PC tutto ok. Su quello dei miei colleghi mi restituisce questo
errore "Errore di run-time' 
2147467259
 (80004005) Metodo 'Assistant'
dell'oggetto '_Application' non riuscito.
Il codice è il seguente:
Set B = Assistant.NewBalloon
With B
    .Heading = "Stampa automatizzata modulistica"
    .Text = "Selezionare una di queste scelte:"
    ...ecc
Molte grazie per una risposta.
Camillo

 Camillo
-- 
Ciao
Geppo

Newsgroup: it.comp.appl.access
Titolo: Inserimento funzione NZ

Riciao ancora a tutti.
Come si suol dire, mi sto ammaccando la testa con la funzione Nz che non 
riesco ad inserire. Ho la necessità di inserirla nella query che riporto in 
modo da ottenere 0 se in quel range non ho nessun movimento avere.
Come la devo inserire?
Grazie ancora.
Roberto
SELECT Sum([MovAve]) AS T
FROM [Conto corrente]
WHERE ((([Conto corrente].DataOp) Between DateSerial([Forms]![Saldi 
mensili]![MYear],4,1) And DateSerial([forms]![Saldi mensili]![MYear],5,0)) 
AND (([Conto corrente].Istituto)=[Forms]![Saldi Mensili]![RS]));

 ha scritto nel messaggio news:e9pvs7$li6$1...@fata.cs.interbusiness.it...

Prova con:
... Sum(nz([MovAve];0))...
Ciao.
-- 
Sergio MAZZA 

 Sergio MAZZA
Ciao Sergio, grazie ancora per l'ennesima risposta quotidiana!
Avevo già provato quanto mi consigli di fare, ma il risultato che ottengo è 
: "Errore di sintassi nell'espressione della query" e pertanto mi sono 
fermato quì.
Dovrebbe essere una stupidaggine ed invece mi fa penare.
A quando le ferie?
Grazie.
Rob.

 Rob.
Ciao.
-- 
Sergio MAZZA

Newsgroup: it.comp.appl.access
Titolo: Re: Cerco sintassi x Query

Gentile Alberto,
sto trovando difficolt� per l'ultimo quesito:
5- filtrare tutti i report "I ESAV" + "II ESAV" + "III ESAV"
quando clicco sulla quinta query mi ritrovo lo stesso risultato
della terza.
Vorrei filtrare solo i nomi che contengono le
date in tutte e tre le colonne: "I ESAV" + "II ESAV" + "III ESAV"
Il mio file access � sempre su Live SkyDrive a questo indirizzo
http://cid-4e8529db43cfa3a4.skydrive.live.com/browse.aspx/Merlino?uc=2
Grazie!

 ha scritto nel messaggio 
news:%SG8n.18394$Ua....@twister2.libero.it...



Ciao Mago, non avevo capito cosa volevi dalla 5° query, comunque hai
risolto e questo è l'importante.
Ciao
Alberto
Newsgroup: it.comp.appl.access
Titolo: Formattazione diversa tra Report e sottoreport

Ciao a tutti, vi volevo sottoporre il seguente problema che sto riscontrando 
con i report.
Ho costruito un report principale che ha una formattazione standard, cioè 
pagina intera A4 senza divisione per colonne.
In seguito ho realizzato un sottoreport che per la sua natura ad elenco è in 
formato A4 ma suddiviso in 2 colonne.
Se visualizzo il seottoreport da solo la visualizzazione risulta corretta, 
ma se lo inserisco nel mio report principale, perdo la formattazione.
E' come se eredita la formattazione del report principale. C'è possibilità 
di risolvere il problema?
Potete indicarmi dove trovere un esempio?
Ciao e grazie per l'aiuto.

"Carmelo Di Rosa" <

Che versione di Access utilizzi?
.MDB o MDE?
Ciao!
Max Bertoglio

Newsgroup: it.comp.appl.access
Titolo: richiesta procedimento protezione MDE passo passo

qualcuno di voi se la sente di indicare passo passo come proteggere il
database MDE per esempio per impedire di cambiare la maschera di avvio del
database e quindi bypassare eventuali protezioni?
io pensavo di averlo fatto, ma evidentemente ho tralasciato qualche
particolare infatti presso un cliente io stesso sono riuscito aprendo il
.mde con tasto shift premuto a cambiare al maschera di avvio.
qualcuno se la sente nell'impresa?
grazie.

forse lo hai già fatto, ma io faccio così, le maschere in *.mde  e le
tabelle, bada bene solo le tabelle in mdb, se tu non lasci il sorgente sulla
macchina destinazione  8Accidentalmente dimentichi una copia del file mdb,
contienle le maschere, se vai  a modificare l'Mde lui automaticamente apre
lMdb, ma se non lo trova non lo apre e non può essere modificato.
Ciao Carlo

Newsgroup: it.comp.appl.access
Titolo: Sincronizzazione caselle combinate in access

Ciao a tutti ho questo problema che non riesco a risolvare:
sto costruendo un db per una autofficina, lo stesso è cosi configurato
tabella marca auto (i campi all'interno sono: MARCA (fiat) TIPO
(Cinquecento) TIPO 2 (1100 Sporting))
ora ho costruito una maschera dove ci sono due caselle combinate la
prima attiva una query che mi filtra la tabella marca auto (tramite
input box) con la marca (prende ad esempio tutte le macchine FIAT) cosi
chè posso scelgiere il tipo (la casella combinata dopo aver inserito
il filtro"FIAT" mi elenca tutti i tipi di macchine fiat nel db(TIPO).
Subito dopo vorrei che la seconda casella combinata mi si sincronizzi
con la prima sempre prendendo il filtro inziale (vorrei poter scegliere
solo i modelli legati al TIPO)
per essere + chiaro faccio un breve esempio
Nella imput box inserisco "FIAT" sulla prima casella combinata h
l'elenco di tutte le macchina FIAT e scelgo il modello (es Cinquecento)
ora subito dopo vorrei che la seconda casella combinata mi si
sincronizzi con la prima facendomi scegliere solo la tipologia di FIAT
punto (ad es 1100 Sporting)
Grazie


Dipendenza delle caselle combinate/riepilogo
www.donkarl.com/it?FAQ4.36
-- 
HTH
Karl
*********
Access FAQ: 
www.donkarl.com/it
Newsgroup: it.comp.appl.access
Titolo: driver MS Access/Client Access

ho scritto un programma in vbnet che deve andare a leggere i dati in 
as400 e quando questo è indisponibile su un archivio access. Quando 
punto su as il percorso è "libreria.file.campo" quando punto su mdb lo 
trasformo come "libreria_file.campo" (ok questo è facile). Ho fatto 
alcuni test iniziali di compatibilità tra le due stringhe, tutto 
sebrava funzionare, quindi ho scritto il programma basandomi su access 
per non rompere le balle/lavorare a casa. Ora, dopo giorni, ho provato 
a ribaltare il tutto su as400... ebbene ho notato che quasi tutto (per 
non dire tutto) quello che ho scritto risulta indigesto e non parlo di 
errori tipo l'asterisco al posto della percentuale, il doppio apice al 
posto del singolo, ecc... ma di errori tipo parentesi (che il driver di 
MSA accetta e quello di Client Access no).
Mi sapete dire dove posso scovare una grammatica per l'odbc di client 
access? Oppure mi sapete indicare le differenze tra i due driver?
grazie, scusate la lungaggine (ma sono incazzato)
Inviato da 
www.mynewsgate.net

 ha scritto nel messaggio
news:200405251...@mynewsgate.net...

Ciao
io uso direct odbc con informix access as400 e non ho mai avuto problemi .
la stringa di connessione la scrivo in un file esterno,
comunque fai una ricerca con google cercando genexus
Stefano Kabisa
Newsgroup: it.comp.appl.access
Titolo: Indirizzario in Access

Salve a tutti.
Dovrei sviluppare (in Access) un indirizzario che contempli la possibilità di
gestione delle aziende e delle relative persone di riferirmento. Alcuni anni fa
trovai su internet il download di un database Access v 2.0, in inglese e
completamente aperto e personalizzabile, che avrebbe soddisferebbe la mia
attuale esigenza. Purtroppo ho perso traccia del programma e del sito e vorrei
sapere se qualcuno può aiutarmi, gentilmente, a recuperare quanto cercato.
Un saluto a tutti.   Linus
-- 
Posted from  [212.245.210.50] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

Salve a tutti.
Dovrei sviluppare (in Access) un indirizzario che contempli la possibilità di
gestione delle aziende e delle relative persone di riferirmento. Alcuni anni fa
trovai su internet il download di un database Access v 2.0, in inglese e
completamente aperto e personalizzabile, che soddisferebbe la mia attuale


Newsgroup: it.comp.appl.access
Titolo: Posizione assoluta in sottomaschera

Salve a tutti.
In una maschera vorrei creare un campo "calcolato" che riporta il valore di 
un campo in una sottomaschera
specificando la posizione assoluta del record al quale far riferimento.
Faccio un esempio:
Ho una tabella (Tabella1) con 3 campi: CODART, CARATT, VALORE
es:
CODART    CARATT        VALORE
Art1            Altezza                1000
Art1            Spessore            2
Art1            Colore                Rosso
Art1            Livello                4�
...
Art2            Lunghezza            820
Art2            Colore                Verde
...
In una maschera ho:
- una sottomaschera  (visualizzazione maschere continue) che riporta i dati 
della Tabella1 (filtrata per CODART)
- 6 caselle di testo non collegate: Caratt1, Valore1, Caratt2, Valore2, 
Caratt3, Valore3
La casella "Caratt1" deve riportare il valore del campo CARATT del record 1 
della sottomaschera. (nell'esempio Caratt1 = Altezza)
....
La casella "Valore3" deve riportare il valore del campo VALORE del record 3 
della sottomaschera. (nell'esempio Valore3 = Rosso)
Se elimino il terzo record della sottomaschera dovrei ottenere Valore3 = 4�
Come posso fare?
Grazie
Davide

 Come posso fare?
p.e. con circa questo codice "Su corrente" della sottomaschera:
Dim rs As DAO.Recordset
Dim lngCount As Long
Set rs = Me.RecordsetClone
Me.Parent!Caratt1 = Null
Me.Parent!Valore1 = Null
Me.Parent!Caratt2 = Null
' ecc.
If rs.BOF Then Exit Sub
rs.MoveLast
lngCount = rs.RecordCount
If lngCount = 0 Then Exit Sub
rs.MoveFirst
Me.Parent!Caratt1 = rs!CARATT
Me.Parent!Valore1 = rs!VALORE
If lngCount > 1 Then
    rs.Move 1
    Me.Parent!Caratt2 = rs!CARATT
    Me.Parent!Valore2 = rs!VALORE
End If
If lngCount > 2 Then
    rs.Move 1
    Me.Parent!Caratt3 = rs!CARATT
    Me.Parent!Valore3 = rs!VALORE
End If
-- 
HTH
Karl
*********
Access FAQ: 
www.donkarl.com/it