title: Apertura di un DB da più PC

text:
> Io non ne sarei cosě sicuro.....!
> La domanda non č banale, ma la risposta suggerita SI.
>
> Il database per poter essere utilizzato da piů utenti necessita di una
> corretta strutturazione, per evitare che contemporaneamente
> piů UTENTI possano modificare dati o aggiungerne, e al
> momento del Salvataggio ricevere errori.
> Innanzitutto la struttura va divisa in 2 parti FE-BE in questo modo
> compi un primo passo, nella Barra degli strumenti trovi il metodo
> tramite un Wizzard per gestire questa separazione....!
>
> I problemi legati alla gestione di Record durante l'utilizzo
> contemporaneo sono molti e decisamente non semplici da
> risolvere..........................
>
> @Alex.
>
>
Sospettavo che non fosse molto semplice visto che gli accessi simultanei su
qualsiasi cosa non sono MAI semplici da gestire... comunque controllo la
funzione e poi, semmai, mi faccio di nuovo vivo. Grazie ancora e saluti.


title: Strano Problema...

author: Alessandro Zarlatti

text:
Ho inserito sul database una macro che svolge il comando send to per
inviare una e-mail. Su alcuni computer mi funziona mentre su altri no. E
non dipende dal sistema operativo. Su un w98 seconda ed. non mi
funzionava, ma poi ho installato una stampante e magicamente ha iniziato
a funzionare. In ufficio ho 4 computer: su tre non funziona e su uno sě.
Tutti hanno W2000 pro. A casa ho un altro comp con W2000 pro e funziona.
Non ci sto capendo nulla. Qualcuno sa dirmi se ci sono delle
impostazioni che devono essere modificate perchč il "Send to" possa
interagire con Outlook??
Grazie
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: Strano Problema...

author: Emyr

text:


prova a vedere nei post precedenti cercando MAPI
Saluti.
Emanuele.


title: Strano Problema...

text:
Non riesco a trovare nulla con la chiave MAPI. Tu non puoi dirmi
niente??



title: Strano Problema...

text:
On Thu, 18 Apr 2002 11:54:33 +0000 (UTC), "Alessandro Zarlatti"
<
ma...@web4you.it
> wrote:
>Non riesco a trovare nulla con la chiave MAPI. Tu non puoi dirmi
>niente??
>Grazie
purtroppo il Newsreader mi ha cancellato senza che io volessi i vecchi
post mi ricordo che la soluzione era stata data dal mitico Karl
vediamo se qualcu'un altro la riposta.
Saluti.
Emanuele.


title: Impostare Margini di stampa

author: Daniele Bolla

text:
Ho creato un programma che stampa dei report.Purtroppo ogni volta che voglio
stampare devo reimpostare i margini. Come posso fare??? Utilizzo la versione
di access 2000.
Grazie a tutti


title: Impostare Margini di stampa

author: MA

text:

E' un bug di A2000 senza service pack
Togli nelle opzioni la correzione automatica del nome e installa almeno il
SP1
--
_ _
Ciao
MAssimiliano Amendola
www.accessgroup.it
Cisa - Conferenza Italiana per Sviluppatori Access
Info:
www.donkarl.com/it


title: bonifico in xml

author: BFS

text:
qualcuno ha un tracciato recente di come si costruisce un xml per
bonifico sepa?

quello che ho io da errore nell'intestazione

<?xml version="1.0" encoding="UTF-8"?>
<CBIBdyPaymentRequest
xmlns="urn:CBI:xsd:CBIBdyPaymentRequest.00.03.09"
xmlns:xsi="
http://www.w3.org/2001/XMLSchema-instance
"
xsi:schemaLocation="urn:CBI:xsd:CBIBdyPaymentRequest.00.03.09
CBIBdyPaymentRequest.00.03.09.xsd">

grazie
BFS

---
Questa email è stata esaminata alla ricerca di virus da AVG.
http://www.avg.com


title: bonifico in xml

author: RobertoA

text:
Il 30/01/2019 08:33, BFS ha scritto:
> qualcuno ha un tracciato recente di come si costruisce un xml per
> bonifico sepa?
>
> quello che ho io da errore nell'intestazione
>
> <?xml version="1.0" encoding="UTF-8"?>
> <CBIBdyPaymentRequest
> xmlns="urn:CBI:xsd:CBIBdyPaymentRequest.00.03.09"
> xmlns:xsi="
http://www.w3.org/2001/XMLSchema-instance
"
> xsi:schemaLocation="urn:CBI:xsd:CBIBdyPaymentRequest.00.03.09
> CBIBdyPaymentRequest.00.03.09.xsd">
> grazie
> BFS
>

Come fate a verificare se il file bonifico xml composto e' corretto?
Esiste un 'verificatore' tipo quello delle fatture?
Ciao


title: bonifico in xml

text:
Il 07/02/2019 17:03,
scar...@gmail.com
 ha scritto:

>   <CBIEnvelPaymentRequest>
>   <CBIPaymentRequest>
>
grazie
alla fine ho risolto con un tracciato 4.0 trovato in rete

funziona alla meraviglia

BFS


title: bonifico in xml

author: Sal Sal

text:

ok mi servirebbe. Hai un esempio in VBA? Grazie.


title: sottrazione parziale

author: rudi

text:
Alora...mi chiamo Rudi, sono della provincia di forlě, ed č la prima volta
che accedo ad un newsgroup.
Sono alle prese con un database (per la "gestione" di un'azienda avicola
costituito da una marea di quantitŕ e quindi numeri e soltanto numeri),
impostato con Access 2000 (ho anche VB 6.0 versione Enterprise), e il mio
problema consiste nel riuscire ad effettuare una sottrazione parziale.
Mi spiego.
Attraverso una query di selezione ho ottenuto un campo (nell'esempio che
segue l'ho chiamato CAMPO A), costituito da numeri progressivi.
Esempio:
CAMPO A
   35
   57
  110
  156
  170
  198
  215
A questo punto, vorrei effettuare la sottrazione dell'ultimo meno il
penultimo e poi del penultimo meno il terzultimo e cosě via, fino al primo e
cioč:
215 - 198 = 17
198 - 170 = 28
170 - 156 = 14
156 - 110 = 46
110 -   57 = 53
 57 -   35 =  22
Ed aver poi i risultati in un nuovo campo, che potremmo chiamare CAMPO B.
Esempio:
CAMPO A       CAMPO B
   35
   57                        22
  110                       53
  156                       46
  170                       14
  198                       28
  215                       17
Ora, se fosse possibile, mi piacerebbe sapere:
- se esiste questa possibilitŕ o, altrimenti, un'indicazione per crearla.
- Se poi esistesse, quali parti - anche come codice - in Access 2000 o in VB
6.0, dovrei cercar di capire o, meglio, studiare?
Per il momento...piů che grazie, che dire?
rudi


title: sottrazione parziale

author: Roberto da casa

text:
"rudi" <
rud...@inwind.it
> ha scritto nel messaggio
news:qpAq9.29686$%M1.7...@twister2.libero.it...

Se i dati sono contenuti in una tabella o in una query che si chiama Pippo.
In un modulo del tuo database registra questa funzione:
Function PrevRecVal(KeyName As String, KeyValue, FieldNameToGet As String)
   Dim RS As Recordset
   Dim db As Database
   On Error GoTo Err_PrevRecVal
   PrevRecVal = 0
   Set db = CurrentDb()
   Set RS = db.OpenRecordset("Query1", dbOpenDynaset)
   Select Case RS.Fields(KeyName).Type
      Case DB_INTEGER, DB_LONG, DB_CURRENCY, DB_SINGLE, _
           DB_DOUBLE, DB_BYTE
         RS.FindFirst "[" & KeyName & "] = " & KeyValue
      Case DB_DATE
         RS.FindFirst "[" & KeyName & "] = #" & KeyValue & "#"
      Case DB_TEXT
         RS.FindFirst "[" & KeyName & "] = '" & KeyValue & "'"
      Case Else
         MsgBox "ERRORE: Tipo dati del campo non valido!"
         Exit Function
   End Select
   RS.MovePrevious
   PrevRecVal = RS(FieldNameToGet)
   RS.Close
Bye_PrevRecVal:
    Exit Function
Err_PrevRecVal:
    Resume Bye_PrevRecVal
End Function
A questo punto creati una query chiamata Query1 che abbia questo codice SQL:
SELECT Pippo.CampoA,
IIf(PrevRecVal("CampoA",[CampoA],"CampoA")=0,0,[Campoa]-PrevRecVal("CampoA",
[CampoA],"CampoA")) AS CampoB
FROM Pippo
ORDER BY Pippo.CampoA;
Attento a due cose:
1) la funzione fa riferimento alle librerie DAO, quindi, visto che usi
Access 2000, occorre che al tuo database aggiungi i riferimenti a tali
librerie.
2) la funzione contiene il nome della query ( Set RS =
db.OpenRecordset("Query1", dbOpenDynaset) ), quindi se non la chiamerai
Query1, correggi di conseguenza quello statement VBA.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: error handling - cancellare ultimo carattere immesso

author: Silver

text:
si può tramite codice cancellare l'ultimo carattere immesso in un
controllo non associato al verificarsi di un errore (2185 nel caso)?


author: Alessandro Cara

text:
Silver wrote:
> si può tramite codice cancellare l'ultimo carattere immesso in un
> controllo non associato al verificarsi di un errore (2185 nel caso)?
if "" & controllo > "" then controllo = left(controllo,len(controllo)-1) ?
--
ac


text:
Alessandro Cara ha scritto:
> if "" & controllo > "" then controllo = left(controllo,len(controllo)-1) ?
grazie


title: richiesta copiare campi da maschera appoggio

author: laura

text:
ciao a tutti,ho il seguente problema:
ho una maschera con dei dati tipo: cognome; nome;via;ecc
volevo creare una maschera di appoggio con 2 campi; "testo ";"sì/no"che si
apra tramite pulsante e che mi permetta di copiare tutti i dati segnati come
sì
in un'altra tabella permettendomi di replicare anche il campo corrispondente
a "cognome"
io avevo trasferito sull'intestazione della mashera una casella nascosta che
mi permetteva di identificare il campo"cognome"
inoltre avevo la necessità che alla chiusura della maschera di appoggio
(quella con i campi si/no per intendersi)mi tornasse ad azzerrare tutti i
campi
al valore no) ..spero di essere stato chiaro nelle mie spiegazioni
c'è qualcuno che mi può spiegare che codice devo inserire ?
grazie
lu


author: Mad® Milox

text:
"laura" <
lau...@iol.it
> ha scritto nel messaggio
news:7x1P6.21431$h9.17...@news.infostrada.it...

Non mi e' molto chiara la domanda :)) , in praticha te hai una tabella con
delle anagrafiche , ed una tabella di appoggio con solo il 3 campi (1
cognome, 1 testo, 1 si/no) e vuoi copiare tutti i record della tadella
anagrafiche che hanno una corrispondenza (cognome) nella tabella di appoggio
, in un'altra tabella anagrafiche diversa ?
Se ho sbagliato scusa :)
Ciao , Lorenzo


text:
in realtà sulla tabella di appoggio c'è una sola volta il campo cognome
(nella casella nascosta che punta sulla maschera "anagrafica" è ho 34
opzioni del campo testo da poter "spuntare" con la casella si/ no io volevo
che attravero un pulsante
potessi aprirmi un ALTRA TABELLA in cui carico le caselle di testo spuntate
+ la casella corrispondente del cognome
e che
inoltre quando chiudo la maschera di appoggio possa direttamente azzerare
tutti i dati appena spuntati
mi spiego con un esempio
apro la prima maschera = anagrafica
inserisco i dati di pippo
clicco un pulsante e passo alla maschera di appoggio in cui ho le mie 34
opzioni da selezionare a pippo.( di cui ho solo l'informazione riferita
Tramitecasella =forms!maschera anagrafica[cognome]
adesso vorrei che con un pulsante poter copiare tutti i dati spuntati  e
associarli direttamenta a pippo in un'altra tabella
SPERO di essermi spiegato
ciao grazie
"Mad® Milox" <
madm...@tin.it
> ha scritto nel messaggio
news:9eiakp$tik$1...@lacerta.tiscalinet.it...



text:
"laura" <
lau...@iol.it
> ha scritto nel messaggio
news:yi2P6.21535$h9.17...@news.infostrada.it...

Vediamo probabilmente a te va bene una cosa del genere ....
Associ ad un pulsante nella mascherina delle opzioni, sull'Evento Clik la
routin che ti scrivo sotto
sub miopulsante_clik()
Dim rec as recordset
dim strsql as string
strsql="select * from nuovatabella"
set rec = currentdb.openrecordset(strsql)
rec.addnew                             '(per inserire un nuovo record ,
rec.edit per modificare uno gia' esistente
    rec![campo1]= me.campoopzioni1
    rec![campo2]= me.campoopzioni2
    rec![campo3]= me.campoopzioni3
    .
    .
rec.update
rec.close
end sub
i campi rec[campo1] sono i campi che stanno nella nuova tabella, i
me.campoozioni1 sono quelli che stanno nella mascherina.
Se i controlli (o campi ) che stanno nella mascherina delle opzioni non li
associ a nessuna tabella , nel momento che chiudi si azzerano :)
Ciao , Lorenzo


title: Filtri su maschera

author: pp

text:
Ho creato una piccola applicazione con access vi ho inserito anche il filtro
su maschera (che ovviamente non funziona) come posso farlo funzionare senza
dover installare Access?


title: Filtri su maschera

author: sergio mazza

text:
pp <
pi...@tin.it
> wrote in message 8a367e$rgt$1...@nslave1.tin.it...

Ti do un consiglio... non chiedere del compilatore!
Ciao.


title: Filtri su maschera

author: Carlo Ve

text:
pp ha scritto nel messaggio <8a367e$rgt$
1...@nslave1.tin.it
>...
>Ho creato una piccola applicazione con access vi ho inserito anche il
filtro
>su maschera (che ovviamente non funziona) come posso farlo funzionare senza
>dover installare Access?
Ovviamente  il filtro funziona se e' installato Access
Carlo Ve


title: Filtri su maschera

author: Guido Creo

text:
On Tue, 7 Mar 2000 16:11:15 +0100, "pp" <
pi...@tin.it
> wrote:
>Ho creato una piccola applicazione con access vi ho inserito anche il filtro
>su maschera (che ovviamente non funziona) come posso farlo funzionare senza
>dover installare Access?
>
Il FilterByForm non funziona con il Runtime di Access; devi quindi
scrivere del codice per emularlo.
Sul sito Microsoft ci dovrebbe essere un file QBF.EXE che contiene la
soluzione al problema.
Ciao
---------------
Guido
guc...@gedy.it


title: Date

author: Peppe Verde

text:
Mi servirebbe sapere come faccio se ho due campi.
1°  Stato Attivo ( Buleana ) | 2°  Data  |
Mi servirebbe visualizzare la data solo quando lo stato attivo è False
Grazie


title: Date

author: Megattera snc

text:
"Peppe Verde" <g.v...@localhost.localdomain> ha scritto:
> Mi servirebbe sapere come faccio se ho due campi.
> 1°  Stato Attivo ( Buleana ) | 2°  Data  |
>
> Mi servirebbe visualizzare la data solo quando lo stato attivo è False
ROTFL, Buleana non l'avevo ancora letto! :-)))


title: Date

text:
"Peppe Verde" <g.v...@localhost.localdomain> ha scritto nel messaggio
news:av3jjh$7mv$1...@lacerta.tiscalinet.it...

Booleana e non Buleana, altrimenti c'è qualcuno che si rotola per terra
dalla risate.
A fronte dell'evento "Su corrente" della maschera genera il seguente codice
VBA:
Me!Data.Visible = Not Me![Stato Attivo]
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Date

author: desio

text:
"Roberto da casa" <
r.ma...@libero.it
> ha scritto nel messaggio
news:KtiR9.75768$TC5.2...@twister1.libero.it...

Caro roberto hai delle soluzioni cosi geniali nella loro semplicità che mi
fanno capire quanto ancora c'è da imparare.
Un buon anno a tutti e .... ma il biso che fine ha fatto
ciao desio


title: Date

text:
"desio" <
giscar...@dada.it
> ha scritto nel messaggio
news:3e15e...@news.dada.it...
[CUT]
> Un buon anno a tutti e ....
Buon Anno a te
> ma il biso che fine ha fatto
Magari è ancora in vacanza: vedrai che prima o poi si rifarà vivo.
> ciao desio



title: casella combinata

author: Giovanni

text:
Una volta lo sapevo fare ora non mi ricordo:
In una scheda ho una casella combinata come si fa a far sì che la combo
aggiorni automaticamente uno o più campi collegati?


title: casella combinata

author: Roberto La Forgia

text:
"Giovanni" <
giov...@virgilio.it
> wrote in message
news:45e084d2$0$4784$
4faf...@reader4.news.tin.it
> Una volta lo sapevo fare ora non mi ricordo:
> In una scheda ho una casella combinata come si fa a far sě che la combo
> aggiorni automaticamente uno o piů campi collegati?
Facci un REQUERY sul campo (me.Campo.requery)
:-)
Roberto
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: copia di dati da pagine WEB

author: Ivan

text:
forse sono un testone, ma non riesco a copiare dentro un controllo casella
di testo dei dati copiati da una tabella su una pagina web. La funzione
incolla, mi restituisce una lunga riga senza 'A CAPO' o divisioni tra i dati
di due celle adiacenti.
Se la stessa operazione la eseguo in WORD allora non c'è problema, mi viene
ricostruita la tabella originale e tutto va bene.
DOMANDA : esistono controlli di TESTO, da inserire nelle mashere, che
fungano meglio della CASELLA DI TESTO?
grz   Ivan


title: ERA: C'è qualcuno che usa MSXML2 ?

author: antonio

text:
Creo un nuovo thread per rendere corrente l'argomento...
"antonio" <
bv...@tiscali.it
> ha scritto nel messaggio
news:4342b719$0$8489$5fc...@news.tiscali.it...
>>
>> Non avevo postato la routine sia per non appesantire la richiesta, sia
>> perchè è ancora ad uno stato iniziale.
>> Ecco l'esempio che sto provando. Perchè responseXML.xml mi dà una stringa
>> di lunghezza zero anzichè la pagina del sito depurata di
>> tutti i TAG che ho se utilizzo responseText ?
>> Grazie ancora
>> Antonio
>>
>>    Dim oHttp As New MSXML2.xmlHttp
>>    txtRequestString = "
http://www.visual-basic.it
"
>>    oHttp.Open "GET", txtRequestString, False
>>    oHttp.send
>>
>>    Dim arcotext As String, arcoxml As String
>>    Dim lungar As Integer
>>
>> ' Provatext
>>    arcotext = oHttp.responseText
>>    lungar = Len(arcotext)
>>    If lungar > 30 Then lungar = 30
>>    MsgBox Len(arcotext) & " " & Left(arcotext, lungar)
>>
>> ' Provaxml
>>    arcoxml = oHttp.responseXML.xml
>>    lungar = Len(arcoxml)
>>    If lungar > 30 Then lungar = 30
>>    MsgBox Len(arcoxml) & " " & Left(arcoxml, lungar)
>
>
>Ho fatto delle prove sommarie (con responseXML) e il link che hai indicato
>ritorna degli errori, probabilmente il codice html non è
>strutturato bene; mentre con un file xml ben formato il codice seguente
>funziona:
>'---
>Dim oDomDoc As MSXML2.DOMDocument
>Set oDomDoc = CreateObject("MSXML2.DOMDocument")
>oDomDoc.Load "c:\temp\provaxml.xml"
>Debug.Print oDomDoc.XML
>'---
>
>Ma di preciso che devi fare?
>
>Ciao.
>
>--
>Sergio MAZZA
>
Grazie Serrgio per la risposta, ma ancora non riesco a capire come si possa
usare l'XML fornito dalla classe MSXML2.
Ho inserito le tue istruzioni e provato con i 4 siti indicati nella routine
stessa, ma l'area che mi aspetterei valorizzata con la pagina senza i TAG in
effetti è sempre di lunghezza zero. Che errore commetto ?
Io ho aggiunto il riferimento a "Microsoft XML, v5.0" ritenendolo corretto,
ma forse ne dovrei aggiungere qualcun altro ?
Quello che mi ripropongo di fare è un'applicazione che legga le quotazioni
della borsa di Milano in un qualsiasi sito che le fornisce gratuitamente
(per es. una delle tante banche) e costruisca una tabella con i dati storici
di tutti i titoli e la possibilità di visualizzare solo quelli che hanno una
variazione interessante.
Ecco la routine che ho provato:
    Dim oHttp As New MSXML2.xmlHttp
'    txtRequestString = "
http://www.visual-basic.it
"
'    txtRequestString = "
http://www.google.it
"
'    txtRequestString = "
http://www.posteitaliane.it
"
    txtRequestString = "
http://www.sitocomune.com
"
    oHttp.Open "GET", txtRequestString, False
    oHttp.send
    Dim arcotext As String
    Dim arcoxml As String
    Dim lungar As Integer
    arcotext = oHttp.responseText
    lungar = Len(arcotext)
    If lungar > 32000 Then lungar = 32000
    MsgBox Len(arcotext) & " " & Left(arcotext, lungar)
Open "FILEPROV.XML" For Output Shared As #1
Print #1, Left(arcotext, lungar)
Close
Dim oDomDoc As MSXML2.DOMDocument
Set oDomDoc = CreateObject("MSXML2.DOMDocument")
oDomDoc.Load "FILEPROV.XML"
'''''''''''oDomDoc.Load "c:\temp\provaxml.xml"
arcoxml = oDomDoc.xml
'''''''''''Debug.Print oDomDoc.xml
    lungar = Len(arcoxml)
    If lungar > 32000 Then lungar = 32000
    MsgBox Len(arcoxml) & " " & Left(arcoxml, lungar)
Sergio, non mi abbandonare !!!
Grazie ancora
Antonio


title: ERA: C'è qualcuno che usa MSXML2 ?

author: Sergio MAZZA

text:
"antonio" <
bv...@tiscali.it
> ha scritto nel messaggio news:4344f4a8$0$8499$5fc...@news.tiscali.it...
> Creo un nuovo thread per rendere corrente l'argomento...
Sì ma non c'è né bisogno; crei solo confusione e spezzando il discorso, oltre al fatto che mi sembra di correrti dietro.

Ancora dobbiamo avere rapporti e già ti senti coinvolto??
> Grazie ancora
> Antonio
Scusa Antonio, la cosa principale è capire se i siti che hai indicato forniscono quelle informazioni e in quale formato e sopratutto
se sono riconoscibili nel codice html.
Se nelle pagine non trovi dati XML è inutile incaponirsi anche perché le regole dell'XML sono rigidissime e se non vengono
rispettate non ottieni nulla.
L'HTML dovrebbe rispondere alle stesse regole ma in effetti non è così e qualcosa riesci ad ottenere.
Ora; prendiamo ad esempio un sito che ti interessa monitorare e vediamo quali problemi incontriamo.
Resto in attesa...
Ciao.
--
Sergio MAZZA


title: ERA: C'è qualcuno che usa MSXML2 ?

text:
Un saluto a tutto il NG, in particolare a Sergio.
"Sergio MAZZA" <
sergi...@tiscali.it
> ha scritto nel messaggio
news:di39f4$n5j$1...@area.cu.mi.it...

Allora, Sergio, eccomi ad illustrare quello che vorrei fare.
Vorrei accedere a 26 pagine (quante le lettere dell'alfabeto inglese) del
sito di
borsaitalia.it
 e leggere le quotazioni dei vari titoli, fra tutte le
altre cose che ogni pagina mi dà. Dovrei avere, quindi, delle stringhe piene
di cose inutili, ma fra queste c'è anche il dettaglio di ogni titolo con
tutte le informazioni che vorrei memorizzare (quotazione, percentuale
incremento/decremento, ecc., ecc.). Le cose si complicano molto perchè,
oltre a caratteri che dovrei sicuramente saltare (testate, aree
pubblicitarie, ecc.), trovo anche i caratteri per la formattazione delle
singole righe o addirittura dei singoli campi. Questo mi complica molto la
routine che vorrei scrivere, anche perchè non avrei problemi a saltare
stringhe del tipo "Titoli che iniziano per lettera A", mentre mi diverrebbe
estremamente difficile saltare stringhe del tipo "<html><head><meta
http-equiv="Page-Enter" content="progid:DXImageTransform.......".
Da ignorante praticone quale sono, mi è parso di capire che l'XML dovrebbe
eliminare tutte quelle cose strane necessarie solo alla formattazione della
pagina in HTML e lasciare solo le cose testuali. Forse questa idea è
sbagliata, allora quale strada percorrere per ottenere quello che mi sono
prefisso ?
Ecco la routine utilizzata per l'ultima prova...
    Dim oHttp As New MSXML2.xmlHttp
'    txtRequestString = "
http://www.visual-basic.it
"
'    txtRequestString = "
http://www.google.it
"
'    txtRequestString = "
http://www.posteitaliane.it
"
'    txtRequestString = "
http://www.sitocomune.com
"
    txtRequestString =
"
http://www.borsaitalia.it/bitApp/quotes.bit?target=SearchQuotes&grp=iniziale&param=A&lang=it
"
    oHttp.Open "GET", txtRequestString, False
    oHttp.send
    Dim arcotext As String
    Dim arcoxml As String
    Dim lungar As Long
    arcotext = oHttp.responseText
    lungar = Len(arcotext)
    If lungar > 32000 Then lungar = 32000
    MsgBox Len(arcotext) & " " & Left(arcotext, lungar)
Open "FILEPROV.XML" For Output Shared As #1
Print #1, Left(arcotext, lungar)
Close
Dim oDomDoc As MSXML2.DOMDocument
Set oDomDoc = CreateObject("MSXML2.DOMDocument")
''''''''''oDomDoc.Load "c:\temp\provaxml.xml"
oDomDoc.Load "FILEPROV.XML"
'''''''''''Debug.Print oDomDoc.xml
arcoxml = oDomDoc.xml
    lungar = Len(arcoxml)
    If lungar > 32000 Then lungar = 32000
    MsgBox Len(arcoxml) & " " & Left(arcoxml, lungar)
... Quale idea mi puoi suggerire ?
Grazie
Antonio


title: ERA: C'è qualcuno che usa MSXML2 ?

text:
"antonio" <
bv...@tiscali.it
> ha scritto nel messaggio news:4346370b$0$8493$5fc...@news.tiscali.it...
> Un saluto a tutto il NG, in particolare a Sergio.
Ahio... Cominciamo male...
> Allora, Sergio, eccomi ad illustrare quello che vorrei fare.
> Vorrei accedere a 26 pagine (quante le lettere dell'alfabeto inglese) del sito di
borsaitalia.it
 e leggere le quotazioni dei vari
> titoli, fra tutte le altre cose che ogni pagina mi dà. Dovrei avere, quindi, delle stringhe piene di cose inutili, ma fra queste
> c'è anche il dettaglio di ogni titolo con tutte le informazioni che vorrei memorizzare (quotazione, percentuale
> incremento/decremento, ecc., ecc.). Le cose si complicano molto perchè, oltre a caratteri che dovrei sicuramente saltare (testate,
> aree pubblicitarie, ecc.), trovo anche i caratteri per la formattazione delle singole righe o addirittura dei singoli campi.
> Questo mi complica molto la routine che vorrei scrivere, anche perchè non avrei problemi a saltare stringhe del tipo "Titoli che
> iniziano per lettera A", mentre mi diverrebbe estremamente difficile saltare stringhe del tipo "<html><head><meta
> http-equiv="Page-Enter" content="progid:DXImageTransform.......".
> Da ignorante praticone quale sono, mi è parso di capire che l'XML dovrebbe eliminare tutte quelle cose strane necessarie solo alla
> formattazione della pagina in HTML e lasciare solo le cose testuali. Forse questa idea è sbagliata, allora quale strada percorrere
> per ottenere quello che mi sono prefisso ?
>
> Ecco la routine utilizzata per l'ultima prova...
--- omissis ---
> ... Quale idea mi puoi suggerire ?
> Grazie
> Antonio
Allora; sto' facendo delle prove è l'unico riferimento che hai per avere i dati della tabella è leggere il nome associato
all'attributo Class del tag HTML Table.
Ossia; sembra che la tabella con i dati inizi sempre così:
<table class="tabWhite" ...>
...
</table>
Il problema è leggendo il testo contenuto nella tabella esce fuori:
Alitalia-10 Cv 7,5%99,70-0,2914.45.3899,62100,0099,62Negoziazione
Alleanza Ass9,965+0,0914.50.349,8910,009,92Negoziazione
Amplifon58,46-0,9114.50.3458,3059,9759,00Negoziazione
ArquatiSospensione
Art'E'13,28-0,1614.48.0713,2213,4113,41Negoziazione
Asm Brescia2,5875+0,2114.47.242,572,60252,595Negoziazione
Astaldi5,70-0,6114.50.505,665,855,77Negoziazione
Autogrill Spa11,75-0,7914.46.1611,7011,8411,77Negoziazione
Autostrada To-Mi15,86+0,6714.50.5615,7516,1015,75Negoziazione
Autostrade20,26-0,4414.50.2120,1920,4020,34Negoziazione
Autostrade Merid37,45-0,9310.55.0037,4537,4537,45Pre-chiusura
Azimut6,66-0,4514.48.246,666,726,67Negoziazione
Azimut 09 Cv 3,15%111,60-0,2912.50.02111,51111,89111,51Negoziazione
Senza un separatore dei dati è un casino.
Questo è un esempio che funziona, almeno i dati li scarica e li memorizza:
Sub leggiDaInternet()
On Error GoTo scriviSuInternetExplorer_err
Dim oApp As InternetExplorer
Dim oDocument As IHTMLDocument
Dim oTbl As Object
Dim oTblRow As Object
Dim oTblCll As Object
Dim rst As DAO.Recordset
Set rst = CurrentDb.OpenRecordset("BorsaItalia")
Set oApp = CreateObject("InternetExplorer.Application")
oApp.Navigate2 "
http://www.borsaitalia.it/bitApp/quotes.bit?page=2&grp=iniziale&target=SearchQuotes&param=A
"
Do
    DoEvents
    If oApp.ReadyState = READYSTATE_COMPLETE Then
        Exit Do
    End If
Loop
'oApp.Visible = True
Set oDocument = oApp.Document
Dim rigaHTML As String, riga As Integer, cella As Integer
For Each oTbl In oDocument.getElementsByTagName("TABLE")
    If oTbl.className = "tabWhite" Then
        For Each oTblRow In oTbl.Rows
            riga = riga + 1
            If riga > 2 Then '<-- salta le prime due righe
                rst.AddNew
                For Each oTblCll In oTblRow.Cells
                    cella = cella + 1
                    If cella > 1 Then '<-- salta la prima cella
                        rst(cella) = oTblCll.innerText
                    End If
                Next
                rst.Update
                cella = 0
            End If
        Next
    End If
Next
scriviSuInternetExplorer_exit:
    rst.Close
    Set rst = Nothing
    Set oDocument = Nothing
    Set oApp = Nothing
    Exit Sub
scriviSuInternetExplorer_err:
    oApp.Quit
    Set rst = Nothing
    Set oDocument = Nothing
    Set oApp = Nothing
    MsgBox Application.AccessError(Err.Number) & ", " & Err.Number
End Sub
la tabella si chiama: BorsaItalia e ha 8 campi in formato testo (255 caratteri), i nomi te li puoi inventare.
Buon lavoro...
Ciao.
--
Sergio MAZZA


title: ERA: C'è qualcuno che usa MSXML2 ?

author: MA

text:
Sergio MAZZA wrote:
> "antonio" <
bv...@tiscali.it
> ha scritto nel messaggio
> news:4346370b$0$8493$5fc...@news.tiscali.it...
>> Un saluto a tutto il NG, in particolare a Sergio.
>
> Ahio... Cominciamo male...
Ma quanto acchiappa sta pelata...
Mi sa che conviene portarmi avanti col lavoro di rasatura (anche se di molto
poco!!!)
--
_ _
Ciao
MAssimiliano Amendola
www.accessgroup.it
Cisa - Conferenza Italiana per Sviluppatori Access
Info:
www.donkarl.com/it


title: ERA: C'è qualcuno che usa MSXML2 ?

text:
"MA" <
mas...@massimilianoamendola.it
> ha scritto nel messaggio
news:l2v1f.44216$TR5....@news.edisontel.com...
>
> Ma quanto acchiappa sta pelata...
> Mi sa che conviene portarmi avanti col lavoro di rasatura (anche se di
> molto
> poco!!!)
>
> --
> _ _
> Ciao
> MAssimiliano Amendola
www.accessgroup.it
> Cisa - Conferenza Italiana per Sviluppatori Access
> Info:
www.donkarl.com/it
Veramente dovresti portarti "dietro" visto che davanti non c'è da lavorare
molto!
Ciao.
--
Sergio MAZZA


title: ERA: C'è qualcuno che usa MSXML2 ?

text:
Sergio MAZZA wrote:
> "MA" <
mas...@massimilianoamendola.it
> ha scritto nel messaggio
> news:l2v1f.44216$TR5....@news.edisontel.com...
>>
>> Ma quanto acchiappa sta pelata...
>> Mi sa che conviene portarmi avanti col lavoro di rasatura (anche se
>> di molto
>> poco!!!)
>
>
> Veramente dovresti portarti "dietro" visto che davanti non c'è da
> lavorare molto!
>
> Ciao.
E' che per la mia capoccia voglio tutti gli optional, soprattuto gli esterni
in pelle!!!



title: ERA: C'è qualcuno che usa MSXML2 ?

text:
"Sergio MAZZA" <
sergi...@tiscali.it
> ha scritto nel messaggio
news:di5tms$rb1$1...@area.cu.mi.it...
> "antonio" <
bv...@tiscali.it
> ha scritto nel messaggio
> news:4346370b$0$8493$5fc...@news.tiscali.it...
>> Un saluto a tutto il NG, in particolare a Sergio.
>
> Ahio... Cominciamo male...
>
> --- omissis ---
>
> la tabella si chiama: BorsaItalia e ha 8 campi in formato testo (255
> caratteri), i nomi te li puoi inventare.
>
> Buon lavoro...
>
> Ciao.
>
> --
> Sergio MAZZA
>
Sergio !!! sei stato GRANDE :-)))))))))
Bravissimo. In pochissimo tempo hai messo su la routine che fa al caso mio.
E poi ho visto che non hai usato la classe MSXML2 che credevo fosse
necessaria, ma un altro metodo che rende la routine molto più snella e
semplice di come la stavo pensando io.
In verità non sono riuscito ad arrivare alla lettera Z perchè si blocca
prima, occasionalmente alla lettera L o alla Q, poi alla P... ma questi sono
dettagli ininfluenti: l'importante è che mi hai messo sulla giusta strada.
Allego la routine con poche istruzioni di modifica che ho evitato di
indentare per renderle più evidenti.
Ho preferito inserire la routine in una sub richiamata da un pulsante, così
posso anche visualizzare la lettera che sta elaborando.
Però un'ultima domanda te la voglio fare. Non conosco quasi nessuna delle
classi che si possono incorporare (riferimenti), comprese quelle che hai
usato tu. Mi potresti consigliare qualche libro che tratta appunto di queste
cose che direi sono avanzate rispetto a tabelle, query, istruzioni
elementari, ecc. Eventualmente anche qualche sito in cui poter ritrovare
queste cose, ma possibilmente (anzi quasi necessariamente) in italiano.
Option Compare Database
Option Explicit
Private Sub Comando0_Click()
On Error GoTo Err_Comando0_Click
' Riferimenti necessari:
' Microsoft Internet Controls
' Microsoft HTML Object Library
' Microsoft DAO 3.6 Object Library
On Error GoTo scriviSuInternetExplorer_err
Dim oApp As InternetExplorer
Dim oDocument As IHTMLDocument
Dim oTbl As Object
Dim oTblRow As Object
Dim oTblCll As Object
Dim rst As DAO.Recordset
Set rst = CurrentDb.OpenRecordset("BorsaItalia")
Set oApp = CreateObject("InternetExplorer.Application")
Dim sito As String, partefissa As String
Dim lettera As String, pagina As Integer
Dim primotitolodipagina As String, arco1 As String
Dim iniziodipagina As Boolean
partefissa =
"
http://www.borsaitalia.it/bitApp/quotes.bit?lang=it&grp=iniziale&target=SearchQuotes
"
lettera = "A"
pagina = 1
tornasu:
sito = partefissa & "&param=" & lettera & "&page=" & Mid$(Str$(pagina), 2)
oApp.Navigate2 sito
Me.lettera = lettera
Me.Refresh
Do
    DoEvents
    If oApp.readyState = READYSTATE_COMPLETE Then
        Exit Do
    End If
Loop
'oApp.Visible = True
Set oDocument = oApp.Document
Dim rigaHTML As String, riga As Integer, cella As Integer
For Each oTbl In oDocument.getElementsByTagName("TABLE")
    If oTbl.className = "tabWhite" Then
iniziodipagina = True
riga = 0
cella = 0
        For Each oTblRow In oTbl.Rows
            riga = riga + 1
            If riga > 2 Then '<-- salta le prime due righe
                rst.AddNew
                For Each oTblCll In oTblRow.Cells
                    cella = cella + 1
If cella >= 9 Then Exit For
                    If cella > 1 Then '<-- salta la prima cella
                        rst(cella) = oTblCll.innerText
arco1 = Trim(rst(cella))
If iniziodipagina And primotitolodipagina = arco1 Then GoTo dopociclo
If iniziodipagina Then primotitolodipagina = arco1
iniziodipagina = False
                    End If
                Next
                rst.Update
                cella = 0
            End If
        Next
    End If
Next
pagina = pagina + 1
GoTo tornasu
dopociclo:
If lettera = "Z" Then GoTo scriviSuInternetExplorer_exit
lettera = Chr(Asc(lettera) + 1)
pagina = 1
sito = partefissa & "&param=" & lettera & "&page=" & Mid$(Str$(pagina), 2)
GoTo tornasu
scriviSuInternetExplorer_exit:
    rst.Close
    Set rst = Nothing
    Set oDocument = Nothing
    Set oApp = Nothing
    Exit Sub
scriviSuInternetExplorer_err:
    oApp.Quit
    Set rst = Nothing
    Set oDocument = Nothing
    Set oApp = Nothing
    MsgBox Application.AccessError(Err.Number) & ", " & Err.Number
    Exit Sub
'    Dim stAppName As String
'
'    stAppName = "leggiDaInternet"
'    Call Shell(stAppName, 1)
Exit_Comando0_Click:
    Exit Sub
Err_Comando0_Click:
    MsgBox Err.Description
    Resume Exit_Comando0_Click
End Sub
Ciao e grazie ancora
Antonio


title: ERA: C'è qualcuno che usa MSXML2 ?

text:
"antonio" <
bv...@tiscali.it
> ha scritto nel messaggio news:434806bf$0$8497$5fc...@news.tiscali.it...
> Sergio !!! sei stato GRANDE :-)))))))))
Sì ma niente baci però...
> Bravissimo. In pochissimo tempo hai messo su la routine che fa al caso mio.
Tzé... Quisquillie, pinzellacchere...
> E poi ho visto che non hai usato la classe MSXML2 che credevo fosse necessaria, ma un altro metodo che rende la routine molto più
> snella e semplice di come la stavo pensando io.
Te l'ho detto perché non c'entrava nulla l'XML ed in questo caso è anche troppo vincolante.
> In verità non sono riuscito ad arrivare alla lettera Z perchè si blocca prima, occasionalmente alla lettera L o alla Q, poi alla
> P... ma questi sono dettagli ininfluenti: l'importante è che mi hai messo sulla giusta strada.
> Allego la routine con poche istruzioni di modifica che ho evitato di indentare per renderle più evidenti.
> Ho preferito inserire la routine in una sub richiamata da un pulsante, così posso anche visualizzare la lettera che sta
> elaborando.
> Però un'ultima domanda te la voglio fare. Non conosco quasi nessuna delle classi che si possono incorporare (riferimenti),
> comprese quelle che hai usato tu. Mi potresti consigliare qualche libro che tratta appunto di queste cose che direi sono avanzate
> rispetto a tabelle, query, istruzioni elementari, ecc. Eventualmente anche qualche sito in cui poter ritrovare queste cose, ma
> possibilmente (anzi quasi necessariamente) in italiano.
Non ci sono libri "particolari"; io ho MS Access'97 manuale dello sviluppatore e MS Office'97 Visual Basic - Guida del
Programmatore.
Devi studiarti la teconologia OLE (Object Linking and Embedding)  ed il modello ad oggetti dell'applicazione che vuoi utilizzare, in
questo caso Internet Explorer.
Tutto il resto è frutto della mia curiosità e della ricerca delle soluzioni tramite
msdn.microsoft.com
; poi probabilmente ho la
fortuna di lavorare in un ambiente dove ho potuto sperimentare varie tecniche e per ultimo, ma non per questo meno importante, cerco
di risolvere i problemi di chi scrive nell'NG...
Comunque, il codice può essere migliorato inserendo un ciclo For per ogni lettera dell'alfabeto e la verifica se l'indirizzo
internet che vai a chiamare (oApp.Navigate2 sito) ti ritorna un errore. Lo fai controllando la costante che il metodo readyState.
Cerca con il visualizzatore degli oggetti quale altra costante c'è oltre a READYSTATE_COMPLETE; a memoria dovrebbe essere
READYSTATE_ERR, quindi sai se la routine deve andare avanti o passare alla prossima lettera/pagina.
---omissis---
> Ciao e grazie ancora
Ciao.
> Antonio
--
Sergio MAZZA


title: Somma automatica tra records

author: Antonio G.

text:
Una saluto a tutto il NG,
avrei bisogno di un aiuto per sommare i record di una tabella.
Ho letto la guida che parlava di un generatore di HTML ma non ho capito
gran ché.
In poche parole vorrei che in una casella "Totale" di una maschera,
comparisse il risultato di tutte o alcune (scelte da me) caselle,
collegate ad un foglio dati. Il tutto deve avvenire in tempo reale cioč
mentre scrivo il valore di ogni casella.
Grazie
--
Antonio
E-mail: antonio...@NOSPAMhotmail.com
Personal Web Site:
http://www.antoniog.it


title: Somma automatica tra records

author: Emyr

text:
On Thu, 3 Jan 2002 11:25:19 +0100, "Antonio G."
<antonio...@NOSPAMhotmail.com> wrote:
>Una saluto a tutto il NG,
>avrei bisogno di un aiuto per sommare i record di una tabella.
>Ho letto la guida che parlava di un generatore di HTML ma non ho capito
>gran ché.
>In poche parole vorrei che in una casella "Totale" di una maschera,
>comparisse il risultato di tutte o alcune (scelte da me) caselle,
>collegate ad un foglio dati. Il tutto deve avvenire in tempo reale cioč
>mentre scrivo il valore di ogni casella.
>Grazie
basta usare un controllo con origine dati  =somma(tuocampo)
se poi vuoi che si sommino solo determinati record basta inserire il
solito boolean e creare un campo su query
a:iif(boolean=true;nz(tuocampo);0)
somma(a)
Saluti.
Emanuele.


title: Somma automatica tra records

text:
Scusa tanto ma non riesco a capire. Mi spieghi meglio come si fa la
somma tra i records di un campo?
Grazie
--
Antonio
E-mail: antonio...@NOSPAMhotmail.com
Personal Web Site:
http://www.antoniog.it
--
| "Emyr" <
fan...@lavoro.com
> ha scritto:



title: Somma automatica tra records

text:
On Fri, 4 Jan 2002 11:54:37 +0100, "Antonio G."
<antonio...@NOSPAMhotmail.com> wrote:
>Scusa tanto ma non riesco a capire. Mi spieghi meglio come si fa la
>somma tra i records di un campo?
>Grazie
>
>--
>Antonio
>E-mail: antonio...@NOSPAMhotmail.com
>Personal Web Site:
http://www.antoniog.it
allora su piedipaginamaschera crea una casella di testo ed al suo
interno scrivi           =somma([nometuocampodasommare])
		    =sum([nometuocampodasommare]) se in inglese
Saluti.
Emanuele.


title: Somma automatica tra records

text:
Grazie, funziona solo che ho un problema.
Ho una tabella di questo tipo:
 ______________________________
| nome | spesa1 | spesa2 | spesa3 |
|______|_______|_______|_______|
|___X__|___+___|___+___|___+___|
|______|_______|_______|_______|
|______|_______|_______|_______|
|______|_______|_______|_______|
e vorrei che venissero sommati i campi "spesa1" "spesa2" e "spesa3" del
rispettivo nome e non tutta la colonna di records.
Come posso fare?
C'è un altro piccolo problema, il totale non si aggiorna in tempo reale,
ma questo è trascurabile.
Grazie
--
Antonio
E-mail: antonio...@NOSPAMhotmail.com
Personal Web Site:
http://www.antoniog.it
--
| "Emyr" ha scritto:



title: Somma automatica tra records

text:
On Fri, 4 Jan 2002 19:00:12 +0100, "Antonio G."
<antonio...@NOSPAMhotmail.com> wrote:
>Grazie, funziona solo che ho un problema.
>Ho una tabella di questo tipo:
>
> ______________________________
>| nome | spesa1 | spesa2 | spesa3 |
>|______|_______|_______|_______|
>|___X__|___+___|___+___|___+___|
>|______|_______|_______|_______|
>|______|_______|_______|_______|
>|______|_______|_______|_______|
>
>e vorrei che venissero sommati i campi "spesa1" "spesa2" e "spesa3" del
>rispettivo nome e non tutta la colonna di records.
>Come posso fare?
se la somma la devi fare in una form metti come origine dati una query
in cui scrivi fra le altre cose     totale:spesa1+spesa2+spesa3
>C'è un altro piccolo problema, il totale non si aggiorna in tempo reale,
>ma questo è trascurabile.
il totale si aggiorna dopo che hai salvato il record corrente ,
altrimenti non saprebbe cosa sommare
al limite metti su lostfocus una forzatura per il salvataggio.
Saluti.
Emanuele.


title: Somma automatica tra records

text:
Grazie mille, ho risolto il tutto.
Ciao



title: Riallegare le tabelle, due demo on line!

author: Morgan

text:
Oltre ai magnifici esempi di Ale Baraldi che potete trovare
sul sito comune o sul sito di Baraldi
http://www.mantuanet.it/alessandro.baraldi/
http://www.sitocomune.com/
 segnalo anche questi due reperibili ai seguenti link.
http://www.databasejournal.com/features/msaccess/article.php/3586401
http://www.databasejournal.com/features/msaccess/article.php/3591276
tra l'altro il sito
http://www.databasejournal.com
 è veramente una fucina di
informazioni.
Morgan


title: File richiesti

author: giampy

text:
Nel sito comune ho prelevato il file riallega pero nel modulo c'é scritto
che ci vogliono i sottoelencati file in effetti quando mando in compilazione
mi si blocca sulla prima linea dove posso recuperarli i file per il
funzionamento di detto modulo?
'  Richiede:    wlib_MSAU_GetFileName()
'                    wlib_GetFileNameInfo
Grazie Giampy


title: Zoom Box

author: Romeo Tramontano

text:
Salve ragazzi, avrei bisogno di un chiarimento. Come mai quando apro un
report in anteprima e clicco con il tasto dx su di esso, mi compare il menu
di zoom e relative percentuali, ma quando le scelgo non funzionano? Grazie.


title: Zoom Box

author: Alessandro Baraldi

text:
"Romeo Tramontano" <
tramonta...@libero.it
> wrote in message
news:kVTXe.10752$
9l.3...@twister1.libero.it
> Salve ragazzi, avrei bisogno di un chiarimento. Come mai quando apro un
> report in anteprima e clicco con il tasto dx su di esso, mi compare il menu
> di zoom e relative percentuali, ma quando le scelgo non funzionano? Grazie.
Perchè aprire un ennesimo 3D quando non più di un paio di
gg fà hai iniziato con Roberto la cosa...?
Se non hai trovato la soluzione non serve riproporre a distanza di
1g il precedente è già visibile a sufficienza.
Saluti.
@Alex
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: Zoom Box

text:
"Alessandro Baraldi" <
ik2...@libero.it
> ha scritto nel messaggio
news:cc0f7597dd824f07f1...@mygate.mailgate.org...

Onestamente non lo sapevo, visto che a distanza di un giorno ci sono + di 50
richieste, mi sono detto: ci sarà qualcuno che leggerà la mia vecchia di 50
posizioni?
Ciao.


title: Zoom Box

text:
"Romeo Tramontano" <
tramonta...@libero.it
> ha scritto nel messaggio news:pUYXe.11365$9l.3...@twister1.libero.it...
>
> Onestamente non lo sapevo, visto che a distanza di un giorno ci sono + di 50 richieste, mi sono detto: ci sarà qualcuno che
> leggerà la mia vecchia di 50 posizioni?
>
> Ciao.
Non ti preoccupare; se qualcuno è in grado di risponderti prima o poi lo fa. Compatibilmente con i propri impegni...
Ciao.
--
Sergio MAZZA


title: Fare click su una applicazione resa invisibile

text:
Buongiorno.
E' da un po' di tempo che mi sto cimentando su un programma che deve
interfacciarne un altro, il quale non ammette nessun tipo di conversazione
(nè OLE nè DDE). Sono riuscito a fare in modo che, da Access 2007, faccio
click in una particolare zona dell'altro programma, poi leggo un'area
limitata di questo e così riesco a prendere e portare in Access informazioni
che l'altro programma vorrebbe gestire solo a video.
Ora vorrei fare qualcosa in più. Vorrei evitare di far vedere l'altro
programma sul video mentre faccio click e leggo l'area di cui ho detto
prima. In teoria credo che questa cosa la si potrebbe ottenere in due modi:
1) Gestendo una specie di video virtuale invisibile sul quale far girare
l'altro programma;
2) Facendo in modo che il mouse abbia effetto sull'area di un programma
senza che questi fosse portato in primo piano.
Non ho idea di come poter realizzare nessune delle due.
Qualcuno mi sa aiutare ?
Grazie
Antonio


text:
"antonio" <
anto...@tiscali.it
> ha scritto nel messaggio
news:490c0b07$0$11372$5fc...@news.tiscali.it...

Per curiosità, che programma è?
Ciao.
--
Sergio MAZZA


author: antonewsgroup

text:
"Sergio MAZZA" <
sergi...@tiscali.it
> ha scritto nel messaggio
news:490c1a11$0$14482$5fc...@news.tiscali.it...

Si tratta di uno dei tanti Casinò on line...


author: Fabrizio Conti (Panathos)

text:
On 1 Nov, 08:53, "antonio" <
antoa...@tiscali.it
> wrote:
> Ora vorrei fare qualcosa in più. Vorrei evitare di far vedere l'altro
> programma sul video mentre faccio click e leggo l'area di cui ho detto
> prima. In teoria credo che questa cosa la si potrebbe ottenere in due modi:
> 1) Gestendo una specie di video virtuale invisibile sul quale far girare
> l'altro programma;
Potresti usare un gestore di desktop virtuali tipo VirtuaWin, oppure
attivare il dual monitor della tua scheda video; così puoi
"nascondere" l'applicazione.
Non so se esistono framebuffer già pronti che ti permettano di fare
quel che ti serve.
Poi però dovresti cliccare col mouse nell'applicazione nascosta, da
quanto hai detto. Per evitarlo, potresti usare screenshot automatici,
da salvare e poi parsare (ritaglio delle aree che ti interessano che
dai in pasto a qualche OCR, così ottieni l'output in formato testo da
usare poi in Access).
> 2) Facendo in modo che il mouse abbia effetto sull'area di un programma
> senza che questi fosse portato in primo piano.
Windows 2000/XP supportano la trasparenza delle finestre. Potresti
provare ad attivare la finestra che ti occorre, e settarne la
trasparenza a 0. Poi quando ti serve cliccarla, la attivi; quando non
ti occorre la disattivi o iconizzi.
ciao,
Panathos


text:
"antonewsgroup" <
anto...@tiscali.it
> ha scritto nel messaggio
news:490c34f2$0$14505$5fc...@news.tiscali.it...
>
> Si tratta di uno dei tanti Casinò on line...
On-line = Web?
Ciao.
--
Sergio MAZZA


text:
"Sergio MAZZA" <
sergi...@tiscali.it
> ha scritto nel messaggio
news:490c7b76$0$14496$5fc...@news.tiscali.it...

Sì, lo sto testando su 4-5 Casinò ed il risultano finora conseguito mi
sembra incoraggiante. Col precedente 3D ho avuto le dritte per creare la
chiave univoca per pc. Ora mi sono intestardito ad eliminare l'intera
finestra del Casinò, copiando in una picturebox la sola parte che ritengo
opportuno visualizzare: la restante parte della schermata è piena zeppa di
barre colorate e contatori di ritardi che aiutano a giocare con una pseudo
logica matematica.
Ciao
Antonio


text:
"Fabrizio Conti (Panathos)" <
pana...@gmail.com
> ha scritto nel messaggio
news:044b4671-b980-4fd0...@v22g2000pro.googlegroups.com...






ciao,
Panathos
----------------  RISPOSTA  ---------------
Quando sono sul portatile lo gestisco sempre col doppio monitor, che mi
risolve tanti problemi. Sto però pensando (sognando) di poterlo rivendere,
quindi non voglio legare la sua eseguibilità alla necessità di avere un
doppio monitor.
L'altra idea mi piace molto, non sapevo fosse possibile gestire la
trasparenza dei programmi attivi: puoi darmi qualche dritta o qualche sito
in cui leggere qualcosa ?
Ciao e grazie
Antonio


text:
"antonio" <
anto...@tiscali.it
> ha scritto nel messaggio
news:490c9007$0$11367$5fc...@news.tiscali.it...
> Sì, lo sto testando su 4-5 Casinò ed il risultano finora conseguito mi
> sembra incoraggiante. Col precedente 3D ho avuto le dritte per creare la
> chiave univoca per pc. Ora mi sono intestardito ad eliminare l'intera
> finestra del Casinò, copiando in una picturebox la sola parte che ritengo
> opportuno visualizzare: la restante parte della schermata è piena zeppa di
> barre colorate e contatori di ritardi che aiutano a giocare con una pseudo
> logica matematica.
>
> Ciao
> Antonio
Quindi cade la tua affermazione della impossibilità di utilizzare OLE/DDE,
perchè se utilizzi (es.) il controllo webbrowser nella form o (altro es.)
esegui una istanza di IE (nascosta=non visibile) hai il controllo del
contenuto via OLE...
Ciao.
--
Sergio MAZZA


text:
"Sergio MAZZA" <
sergi...@tiscali.it
> ha scritto nel messaggio
news:490d64c9$0$11391$5fc...@news.tiscali.it...

Quando ho iniziato a sviluppare questa applicazione ero tentato di gestire
il Casinò in un webbrowser del mio programma. Ho deciso di non operare così
perchè voglio lasciare che quel programma giri in modo analogo a come
girerebbe su un computer senza la mia applicazione. Questo perchè voglio
evitare al massimo le contestazioni che mi si potrebbero muovere quando
tenterò di ritirare una vincita. Il mio programma aiuta me nelle scelte, fa
le puntate per me, incrementa le puntate per me, etc. etc., ma tutto quello
che fa lo potrei fare anch'io con mouse e tastiera.
Ciao
Antonio


text:
"antonio" <
anto...@tiscali.it
> ha scritto nel messaggio
news:490d8496$0$14496$5fc...@news.tiscali.it...
> Quando ho iniziato a sviluppare questa applicazione ero tentato di gestire
> il Casin� in un webbrowser del mio programma. Ho deciso di non operare
> cos� perch� voglio lasciare che quel programma giri in modo analogo a come
> girerebbe su un computer senza la mia applicazione.
Che significa?
Se il mio pc dovesse eseguire le operazioni che dici senza il mio
intervento, vuol dire che � posseduto!
Come fai a far passare l'idea che stai operando tu e non il tuo pc ben
istruito (leggi: applicazione) ad eseguire i compiti?
In un qualsiasi windows c'� un browser; appoggiati a quello, che sar�
sicuramente lo strumento che dovresti tu utilizzare per giocare; o no?
Il problema �, se ho capito bene, che non deve giocare un sistema automatico
(programma), ma tu in carne e ossa; altrimenti devi pensare a nasconderlo
(il sistema automatico).
> Questo perch� voglio evitare al massimo le contestazioni che mi si
> potrebbero muovere quando tenter� di ritirare una vincita. Il mio
> programma aiuta me nelle scelte, fa le puntate per me, incrementa le
> puntate per me, etc. etc., ma tutto quello che fa lo potrei fare anch'io
> con mouse e tastiera.
>
> Ciao
> Antonio
Secondo me qualsiasi istruzione in qualsiasi linguaggio, scritto da te o
installato, che esegua per te una qualsiasi azione non permessa da chi ha
scritto le regole del gioco, ti metter� in una posizione di svantaggio...
Ciao.
--
Sergio MAZZA


title: Maschere aperte o chiuse

author: JeanLoup

text:
Salve,
da due maschera A e B  apro un maschera C.
Dato che ho necessità di aggiornare una combo contenente i dati che
inserisco dalla maschera C,
ho creato questa riga sulla chiusura di C:
Forms![Maschera_A]![Controllo_A].Requery
e qui nessun problema.
Il problema nasce quando eseguo l'apertura dalla maschera B,
mi restituisce l'errore proprio  sulla riga sopra inserita ovviamente.
Quesito:
posso chiedere di controllare quale delle due maschere è aperta?
per spiegare meglio faccio un esempio ovviamente non corretto:
If isopen maschera A then Forms![Maschera_A]![Controllo_A].Requery else
Forms![Maschera_B]![Controllo_B].Requery
Grazie x l'eventuale risposta.
Ciao, JeanLoup


title: Maschere aperte o chiuse

author: sv

text:
JeanLoup ha scritto:

http://www.donkarl.com/it/
FAQ 4.19 Verificare se una maschera è aperta
--
rgrds
SC
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: Maschere aperte o chiuse

text:
"sv" <
sal...@accessgroup.it
> ha scritto nel messaggio
news:dnjnve$bv$1...@news.newsland.it...
> JeanLoup ha scritto:
>
>> Salve,
>> da due maschera A e B  apro un maschera C.
>> Dato che ho necessità di aggiornare una combo contenente i dati che
>> inserisco dalla maschera C,
>> ho creato questa riga sulla chiusura di C:
>> Forms![Maschera_A]![Controllo_A].Requery
>> e qui nessun problema.
>> Il problema nasce quando eseguo l'apertura dalla maschera B,
>> mi restituisce l'errore proprio  sulla riga sopra inserita ovviamente.
>> Quesito:
>> posso chiedere di controllare quale delle due maschere è aperta?
>> per spiegare meglio faccio un esempio ovviamente non corretto:
>> If isopen maschera A then Forms![Maschera_A]![Controllo_A].Requery else
>> Forms![Maschera_B]![Controllo_B].Requery
>> Grazie x l'eventuale risposta.
>> Ciao, JeanLoup
>
>
http://www.donkarl.com/it/
>
> FAQ 4.19 Verificare se una maschera è aperta
Non devo verificare se una maschera è aperta, ma quale delle due è aperta.
Ciao,JeanLoup.


title: Maschere aperte o chiuse

text:
"JeanLoup" <v722...@NOSPAMhotmail.it> wrote in message
news:439d6125$0$328$
5fc...@news.tiscali.it

Se tu aprissi la Form_C in modalità Dialog(senza pulsanti
di chiusura) sarebbe gestibile
sfruttando la proprietà VISIBLE della Form_C tramite pulsante
dedicato, quindi il ritorno al codice della Form chiamante
e la gestione del recupero valore con successiva chiusura di Form_C.
Se invece vuoi gestirlo dalla Form_C sfrutta il parametro OpenArgs
per passare alla Form_C il nome della Form chiamante e del
controllo da aggiornare, quindi puoi fare così:
Come OpenArgs passi:
me.Name & "," & NomeControllo
Nella Form_C:
Private NomeFormChiamante as string
Private NomeControllo as string
Su Load della Form_C recuperi il valore
Dim varArgs as variant
varArgs=Split(Me.OpenArgs,",")
NomeFormChiamante =varargs(0)
NomeControllo = varArgs(1)
Quindi su Unload o chiusura:
Forms(NomeFormChiamante).Controls(NomeControllo).Requery
Ciao
@Alex
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: Maschere aperte o chiuse

text:
"Alessandro Baraldi" <
ik2...@libero.it
> ha scritto nel messaggio
news:2deb8561b0564fbb29...@mygate.mailgate.org...
> "JeanLoup" <v722...@NOSPAMhotmail.it> wrote in message
> news:439d6125$0$328$
5fc...@news.tiscali.it
>
>> Salve,
>> da due maschera A e B  apro un maschera C.
>> Dato che ho necessità di aggiornare una combo contenente i dati che
>> inserisco dalla maschera C,
>> ho creato questa riga sulla chiusura di C:
>> Forms![Maschera_A]![Controllo_A].Requery
>> e qui nessun problema.
>> Il problema nasce quando eseguo l'apertura dalla maschera B,
>> mi restituisce l'errore proprio  sulla riga sopra inserita ovviamente.
>> Quesito:
>> posso chiedere di controllare quale delle due maschere è aperta?
>> per spiegare meglio faccio un esempio ovviamente non corretto:
>> If isopen maschera A then Forms![Maschera_A]![Controllo_A].Requery else
>> Forms![Maschera_B]![Controllo_B].Requery
>> Grazie x l'eventuale risposta.
>> Ciao, JeanLoup
>
>
> Se tu aprissi la Form_C in modalità Dialog(senza pulsanti
> di chiusura) sarebbe gestibile
> sfruttando la proprietà VISIBLE della Form_C tramite pulsante
> dedicato, quindi il ritorno al codice della Form chiamante
> e la gestione del recupero valore con successiva chiusura di Form_C.
 si,uso la form C in modalita Dialog
> Se invece vuoi gestirlo dalla Form_C sfrutta il parametro OpenArgs
> per passare alla Form_C il nome della Form chiamante e del
> controllo da aggiornare, quindi puoi fare così:
>
> Come OpenArgs passi:
> me.Name & "," & NomeControllo
ok
> Nella Form_C:
>
> Private NomeFormChiamante as string
> Private NomeControllo as string
ok
> Su Load della Form_C recuperi il valore
> Dim varArgs as variant
> varArgs=Split(Me.OpenArgs,",")
> NomeFormChiamante =varargs(0)
> NomeControllo = varArgs(1)
ok
> Quindi su Unload o chiusura:
>
> Forms(NomeFormChiamante).Controls(NomeControllo).Requery
ok, ho fatto come hai scritto,ma mi restituisce l'errore 2465 su form_close
Forms(NomeFormChiamante).Controls(NomeControllo).Requery
impossibile trovare il campo a cui si fa riferimento.
dove sbaglio?


title: Maschere aperte o chiuse

author: TANNHAUSER

text:
JeanLoup ha scritto:

Perchè non utilizzi OpenArgs per testare qual'è la maschera chiamante e
con un semplice if esegui il requery solo in caso sia quella che vuoi?
L'OpenArgs è ovviamente il nome della mschera chiamante che avrai passato
con l'istruzione DoCmnd.OpenForm come ultimo argomento (Me.Name).
--
TANNHAUSER
"I've seen things you people wouldn't believe..."



title: Maschere aperte o chiuse

text:
JeanLoup ha scritto:


Ciao JeanLoup
ti volevo fare notare che la proprietà IsLoaded restituisce un valore di
tipo booleano "True" "False".



title: Maschere aperte o chiuse

text:
"TANNHAUSER" <
tannau...@virgilio.it
> ha scritto nel messaggio
news:dnjuf2$m4$1...@news.newsland.it...
> JeanLoup ha scritto:
>
>> Salve,
>> da due maschera A e B  apro un maschera C.
>> Dato che ho necessità di aggiornare una combo contenente i dati che
>> inserisco dalla maschera C,
>> ho creato questa riga sulla chiusura di C:
>> Forms![Maschera_A]![Controllo_A].Requery
>> e qui nessun problema.
>> Il problema nasce quando eseguo l'apertura dalla maschera B,
>> mi restituisce l'errore proprio  sulla riga sopra inserita ovviamente.
>> Quesito:
>> posso chiedere di controllare quale delle due maschere è aperta?
>> per spiegare meglio faccio un esempio ovviamente non corretto:
>> If isopen maschera A then Forms![Maschera_A]![Controllo_A].Requery else
>> Forms![Maschera_B]![Controllo_B].Requery
>> Grazie x l'eventuale risposta.
>> Ciao, JeanLoup
>
> Perchè non utilizzi OpenArgs per testare qual'è la maschera chiamante e
> con un semplice if esegui il requery solo in caso sia quella che vuoi?
> L'OpenArgs è ovviamente il nome della mschera chiamante che avrai passato
> con l'istruzione DoCmnd.OpenForm come ultimo argomento (Me.Name).
>
il problema è che non so come fare.
openform ......
me.name
 sull'evento clic che apre la maschera_C
poi nella maschera C che devo fare? Non riesco a venirme a capo.
Ciao, JeanLoup


title: Maschere aperte o chiuse

text:

Supponiamo il caso più semplice in cui il Requery lo fai solo se la
maschera da cui apri la Maschera_C sia la Maschera_A.
1- Sull'evento "Su Click" del pulsante nella Maschera_A (ma anche su
quello che la apre dalla Maschera_B) che apre la Maschera_C (per altro
ottenibile con il wizard di Access non appena disegni il pulsante sulla
maschera) scriverai:
Private Sub PulsanteA_Click()
    Dim stDocName As String
    Dim stLinkCriteria As String
    stDocName = "Maschera_C"
    DoCmd.OpenForm stDocName, , , stLinkCriteria, , , Me.Name
End Sub
2- Sulla chiusura della Maschera_C inserirai questo codice:
Private Sub Form_Close()
    If Me.OpenArgs = "Maschera_A" Then
    Forms![Maschera_A]![Controllo_A].Requery
    End If
    DoCmd.Close
End Sub
3- Se devi aggiornare anche un controllo sulla Maschera_B, sarà
sufficiente aggiungere i riferimenti al controllo nella IF di chiusura
della Maschera_C.
Ciao.



title: Maschere aperte o chiuse

text:
"JeanLoup" <v722...@NOSPAMhotmail.it> wrote in message
news:439d746a$0$339$
5fc...@news.tiscali.it
[CUT]
> ok, ho fatto come hai scritto,ma mi restituisce l'errore 2465 su form_close
> Forms(NomeFormChiamante).Controls(NomeControllo).Requery
> impossibile trovare il campo a cui si fa riferimento.
>
> dove sbaglio?
Prova a verificare con Debug.Print la chiamata agli oggetti.
Fai qualche test con un minimo di debug è la strada giusta.



title: Maschere aperte o chiuse

text:
"Alessandro Baraldi" <
ik2...@libero.it
> ha scritto nel messaggio
news:b515debbab374478b4...@mygate.mailgate.org...
> "JeanLoup" <v722...@NOSPAMhotmail.it> wrote in message
> news:439d746a$0$339$
5fc...@news.tiscali.it
>
> [CUT]
>> ok, ho fatto come hai scritto,ma mi restituisce l'errore 2465 su
>> form_close
>> Forms(NomeFormChiamante).Controls(NomeControllo).Requery
>> impossibile trovare il campo a cui si fa riferimento.
>>
>> dove sbaglio?
>
>
> Prova a verificare con Debug.Print la chiamata agli oggetti.
> Fai qualche test con un minimo di debug č la strada giusta.
>
> Ciao
> @Alex
grazie, ho risolto in una maniera molto banale ma semplice.
Ho semplicemente messo sull'evento su attivato del miocontrollo un
miocontrollo.requery.
Funge bene.
grazie cmq, a volte basta la soluzione č piů semplice di quanto si possa
immaginare.
Ciao, JeanLoup


title: Runtime access

text:
Posso usare questo runtime di access secondo voi?
http://www.microsoft.com/downloads/details.aspx?FamilyId=0C8F40CA-9ECC-426A-AC5F-E1F98A6ACD73&displaylang=en


title: Runtime access

author: ALESSANDRO Baraldi

text:
"C1P8" <
c1...@despammed.com
> ha scritto nel messaggio
news:0q_4c.4370$t81....@tornado.fastwebnet.it...
> Posso usare questo runtime di access secondo voi?
>
http://www.microsoft.com/downloads/details.aspx?FamilyId=0C8F40CA-9ECC-426A-AC5F-E1F98A6ACD73&displaylang=en
A prescindere che sia Inglese, per usare il Runtime devi avere la Licenza
per distribuirlo, non puoi USARLO solo per il fatto che è li....!!!!
@Alex.


title: Runtime access

author: Raffaele Alberoni

text:
ALESSANDRO Baraldi ha scritto:


> @Alex.
Come si usa ???
Saluti
--
Raffaele Alberoni
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: Runtime access

text:
"Raffaele Alberoni" <Raff...@Romagnacom.com> wrote in message
news:c36i5t$ll2$
1...@news.newsland.it
[CUT]
> > > Posso usare questo runtime di access secondo voi?
> > >
> >
>
http://www.microsoft.com/downloads/details.aspx?FamilyId=0C8F40CA-9ECC-426A-AC5F-E1F98A6ACD73&displaylang=en
>
> > A prescindere che sia Inglese, per usare il Runtime devi avere la Licenza
> > per distribuirlo, non puoi USARLO solo per il fatto che è li....!!!!
>
> > @Alex.
>
>
> Come si usa ???
> Saluti
Con il PC acceso....!!!
Si installa sulla Macchina che non ha già Office installato
poi gli fai girare l'MDB e per miracolo spera che vada....!!
@Alex.
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: Runtime access

text:
Alessandro Baraldi ha scritto:
> "Raffaele Alberoni" <Raff...@Romagnacom.com> wrote in message
> news:c36i5t$ll2$
1...@news.newsland.it
> [CUT]
> > > > Posso usare questo runtime di access secondo voi?
> > > >
> > >
> >
http://www.microsoft.com/downloads/details.aspx?FamilyId=0C8F40CA-9ECC-426A-AC5F-E1F98A6ACD73&displaylang=en
> >
> > > A prescindere che sia Inglese, per usare il Runtime devi avere la Licenza
> > > per distribuirlo, non puoi USARLO solo per il fatto che è li....!!!!
> >
> > > @Alex.
> >
> >
> > Come si usa ???
> > Saluti
> Con il PC acceso....!!!
Eh! Eh! Eh!  ...spiritoso!!!!!!
> Si installa sulla Macchina che non ha già Office installato
> poi gli fai girare l'MDB e per miracolo spera che vada....!!
> @Alex.
Avevo capito, o meglio mi ero illuso che fosse per creare il RunTime,
non per "leggere" un MDB creato da ACCESS direttamente.



title: Runtime access

text:
"Raffaele Alberoni" <Raff...@Romagnacom.com> ha scritto nel messaggio
news:c36oqd$s06$1...@news.newsland.it...
> Alessandro Baraldi ha scritto:
>
> > "Raffaele Alberoni" <Raff...@Romagnacom.com> wrote in message
> > news:c36i5t$ll2$
1...@news.newsland.it
> > [CUT]
> > > > > Posso usare questo runtime di access secondo voi?
> > > > >
> > > >
> > >
>
http://www.microsoft.com/downloads/details.aspx?FamilyId=0C8F40CA-9ECC-426A-AC5F-E1F98A6ACD73&displaylang=en
> > >
> > > > A prescindere che sia Inglese, per usare il Runtime devi avere la
Licenza
> > > > per distribuirlo, non puoi USARLO solo per il fatto che è li....!!!!
> > >
> > > > @Alex.
> > >
> > >
> > > Come si usa ???
> > > Saluti
>
> > Con il PC acceso....!!!
>
> Eh! Eh! Eh!  ...spiritoso!!!!!!
Spesso mi sforzo....!
> > Si installa sulla Macchina che non ha già Office installato
> > poi gli fai girare l'MDB e per miracolo spera che vada....!!
>
> > @Alex.
>
>
> Avevo capito, o meglio mi ero illuso che fosse per creare il RunTime,
> non per "leggere" un MDB creato da ACCESS direttamente.
> Saluti
> Raffaele Alberoni
Ma il Post Iniziale diceva:"Posso usare questo runtime di access secondo
voi?"
Come hai potuto fraintendere...??
Il Runtime è come l'Energia non si crea nè si distrugge, ma si Trasforma.
Avendo la versione DEVELOPER trasformi tutte le DLL che hai nel tuo
PC in un PACCHETTO Distribuibile(a fronte di Licenza legale di ODE).
Ciao.
@Alex


title: impostare il percorso del db back end

author: Arold

text:
vorrei poter impostare con un pulsante sfoglia il percorso del db parte
tabelle.
mi sapete aiutare? grazie.


title: impostare il percorso del db back end

author: Antonio Biso

text:
"Arold" <
simb...@libero.it
> ha scritto nel messaggio
news:bhg1vn$7hm$1...@lacerta.tiscalinet.it...
> vorrei poter impostare con un pulsante sfoglia il percorso del db parte
> tabelle.
>
> mi sapete aiutare? grazie.
>
>
Proprietà connect e metodo refreshlink delle tabledef
Antonio


title: dubbio molto atroce

author: Giovanna

text:
Nel mio database, di cui parlo nell'altro messaggio, succede una cosa molto
strana: c'è una query che seleziona solo i tecnici appartenente ad un
determinato settore. Ho applicato alla prima casella combinata (quella
relativa ad i settore, il metodo requery) in modo da visualizzare solo i
tecnici appartenenti al settore selezionato. Ordunque, le prime due volte il
metodo funzione, poi non funziona più. C'è un modo per chiudere la query e
poi rilanciarla? In quanto, a query aperta, i tecnici sono solo quelli
giusti, solo se chiudo la query e poi la riapro.
SOS SOS SOS
Sigh :-(


title: dubbio molto atroce


title: dubbio molto atroce

author: Ditta Cerri (Sib)

text:
Giovanna <
gi...@tiscalinet.it
> wrote in message
10nhh5s$ju2$1...@fe2.cs.interbusiness.it...
> Nel mio database, di cui parlo nell'altro messaggio, succede una cosa
molto
> strana: c'č una query che seleziona solo i tecnici appartenente ad un
> determinato settore. Ho applicato alla prima casella combinata (quella
> relativa ad i settore, il metodo requery) in modo da visualizzare solo i
> tecnici appartenenti al settore selezionato. Ordunque, le prime due volte
il
> metodo funzione, poi non funziona piů. C'č un modo per chiudere la query e
> poi rilanciarla? In quanto, a query aperta, i tecnici sono solo quelli
> giusti, solo se chiudo la query e poi la riapro.
In che senso funziona le prime due volte?
Non ho capito una cosa, tu dici di applicare il metodo requery a una casella
combinata ma, da come ne parli, sembra che ti aspetti che questo aggiorni i
dati selezionati in base al valore della combo; attenta che il metodo
requery aggiorna i dati della combo, non le query basate sul valore della
combo.
E' un po' arzigogolato, ma spero che sia chiaro ;-)
Ciao, Sib


title: Parser formule

author: RobertoA

text:
Vorrei definire una quantita' come risultato di un'espressione (con
almeno le operazioni base + - * /  e parentesi annidate), dove
intervengono N variabili (i nomi dei campi del record corrente)
Ad esempio:

IVATO = IMPONIBILE + ( IMPONIBILE / 100 * ALIQUOTA_IVA)

Dove IMPONIBILE ed ALIQUOTA_IVA sono i nomi di due campi db del record
attuale
Per valutare correttamente l'espressione bisogna ovviamente risolvere i
conteggi delle parentesi piu' interne e poi via via risolvere le piu'
esterne, se non presenti parentesi risolvere prima */ e poi +-
Conoscete qualche procedura che realizzi questa funzionalita'?
Qualche esempio in vba?
RobertoA


title: Parser formule

author: Alessandro Cara

text:

Perche' sta cosa?
L'Eval non va bene?

--
ac (x=y-1)
Aborro il Killfile
(La violenza e' l'ultimo rifugio degli incapaci -Salvor Hardin-)


title: spostare il cursore

author: bainco

text:
Coe si fa in una maschera per inserimento dati contenente anche dei campi
calcolati a far spostare il cursore solo sulle caselle per inserire i dati
saltando i campi calcolati? spero di essermi fatto capire grazie a tutti
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: spostare il cursore

author: MA

text:
"bainco" <
bai...@virgilio.it
> ha scritto nel messaggio
news:bkf0b5$utu$1...@news.newsland.it...
> Coe si fa in una maschera per inserimento dati contenente anche dei campi
> calcolati a far spostare il cursore solo sulle caselle per inserire i dati
> saltando i campi calcolati? spero di essermi fatto capire grazie a tutti
>
> --
Se vai nelle proprietà dei controlli trovi la voce "seleziona con
tabulazione"
MAssimiliano


title: spostare il cursore

author: Harry Evans

text:
> > Coe si fa in una maschera per inserimento dati contenente anche dei
campi
> > calcolati a far spostare il cursore solo sulle caselle per inserire i
dati
> > saltando i campi calcolati? spero di essermi fatto capire grazie a tutti
Se, come penso, sui campi calcolati non č MAI possibile scrivere, li metti
Attivi NO, Bloccati SI
Se invece li vuoi saltare, ma se uno vuole andare col mouse per modificare
il valore ti sta bene, metti Seleziona con tabulazione a No (e NON deve
essere il 1. campo della maschera, altrimenti ci va lo stesso)


title: runtime access 2K

author: Merco

text:
Ho msdn full , con i vari Office developer, ma non sono riuscito a trovare
il runtime di access 2000 in italiano.
Chi mi può indicare un posto, il numero del CD o qualcosa di sostitutivo ??
Grazie


title: runtime access 2K

author: Antonello Spinetti

text:
Merco <
mer...@yahoo.com
> wrote in message
95bfm5$3u5$1...@fe1.cs.interbusiness.it...

Per forza non esiste il runtime in Italiano, c'è solo in Inglese.
Ciao
Anto


title: input parameter

author: Remigio

text:
Ciao,
uso A07 e desidero sapere se c'è un modo di utilizzare un parametro in input in diverse parti di una query.
Per esempio in una query abbiamo quattro fields:
cognome, nome, data_nascita, data_acquisto
nei criteri di data_nascita inseriamo:
[inseriredata]
Eseguendo la query viene richiesto il parametro inseriredata e i dati sono filtrati in base ad esso.
C'è un modo di riutilizzare questo dato "inseriredata" per esempio anche per filtrare data_acquisto? Si puo dare un nome alla variabile?
Spero di essermi saputo spiegare :-)
Grazie

__
Remigio


title: input parameter

text:
Devo deludere la tua operatività, ma è estremamente errato utilizzare i PARAMETERS delle Query in quel modo.
Le Queries sono strumenti di Sviluppo non di Interfaccia quindi NON VANNO lasciati all'uso dell'utente.

Per visualizzate,manipolare Criteri filtri ecc... si usano le MASCHERE nelle quali, associate alle Query, si inseriscono i controlli che possono fare da interfaccia per passare valori ai PARAMETRI delle Queries.
Di bello c'è che Access introduce e risolve i riferimenti IMPLICITI ai controlli delle maschere, semplificando la gestione del codice.

Quindi è più che mai opportuno che tu riveda il tuo metodo e ti orienti verso un uso STANDARD del mezzo.

@Alex


title: input parameter

text:

PERBACCO!
;-)

--
ac (x=y-1)
Aborro il Killfile
(La violenza e' l'ultimo rifugio degli incapaci -Salvor Hardin-)


title: input parameter

text:
...

Grazie Alex,
concordo con le tue indicazioni e difatti ho risolto usando una piccola maschera, ma (non l'ho detto) serviva solo a me per eseguire una query di test ed evitarmi di inserire molte volte lo stesso valore in input.
Ciao e buon lavoro

__
Remigio


title: input parameter

author: Karl Donaubauer

text:
Salve,

Remigio ha scritto:

> ...

Secondo me, no. Perè puo sempre dipendere dal mio eccellente italiano.

Ti è chiaro che puoi ripetere l'identico parametro nell'altra colonna,
cioè [inseriredata] anche per la colonna data_acquisto, e viene chiesto
solo una volta?

--
Ciao
Karl
*********
Access FAQ:
http://www.donkarl.com/it


title: Totale progressivo in una query

author: gasto

text:
Ho una query base dati per una maschera ed un report.
Nella tbl base su cui si basa la qry ho 2 campi: uscita, entrata.
Il mio scopo è quello di avere nella qry un campo calcolato che visualizza
(nella form a maschere continue e nel rpt) il saldo in ogni riga.
Dal SitoComune ho copiato la funzione di Roberto 'Function TotProgrQry(....)
e l'ho modificata in certi punti per adattarla alle mie esigenze.
Beh, non riesco a farla funzionare sarà forse xché io ho AC2002 e la
function è su AC97, o sarà forse xché sono così bravo da aver modificato ciò
che non dovevo.
Si blocca sempre nella riga 'Set RS=CurrentDb....ecc.' con un msg 'Argomento
non valido' - errore n.3001.
Ho provato a ricercarne i motivi nella guida in linea, ma niente da fare. Ho
provato a modificare la sintassi in tutte le maniere, ma...nisba! (A
proposito non accetta nemmeno la riga Dim RS as DAO.Recordset, ma solo Dim
RS as Recordset). È così permalosa la mia versione di AC?
Function TotProgr(KeyID As Long, ValUscita As Single, StrQry As String) As
Single
    Dim RS As Recordset
    Dim totale As Single
    On Error GoTo Err_TotProgr
    Set RS = CurrentDb.OpenRecordset(StrQry, dbOpenDynaset)
    totale = 0
    ' cerca il record corrente
    RS.Find "[ID]=" & KeyID
        Do Until RS.BOF
        totale = totale + RS(ValUscita)
        RS.MovePrevious
    Loop
Bye_TotProgr:
    TotProgr = totale
    Exit Function
Err_TotProgr:
    totale = 0
    MsgBox Err.Description
    Resume Bye_TotProgr
End Function
Brava gente (o dovrei dire caro Roberto) mi potete dare una mano?
Grazie.
Gastone


title: Totale progressivo in una query

author: Roberto da casa

text:
"gasto" <
gas...@virgilio.it
> ha scritto nel messaggio
news:E1NSa.4882$t92.1...@news1.tin.it...

La funzione che hai trovato sul Sito Comune fa riferimento alla libreria
Microsoft DAO; se avessi usato Access 97 non avresti avuto problemi in
quanto i riferimenti a tale libreria sarebbero stati di default, ma poiché
usi Access 2002 occorre che li aggiungi tu a manina santa al tuo database.
Comunque sia, dopo aver aggiunto al tuo dabase i riferimenti alla libreria
Microsoft DAO 3.6, ti suggerisco di scrivere:
Dim RS As DAO.Recordset
e non
Dim RS As Recordset
altrimenti, se non posizioni correttamente i riferimenti alla libreria DAO
prima dei riferimenti alla libreria ADO, continuerai a ricevere lo stesso
errore che ricevi ora, come se non avessi aggiunto i riferimenti alla
libreria DAO al tuo database.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Totale progressivo in una query

text:
"Roberto da casa" <
r.ma...@libero.it
> ha scritto nel messaggio
news:FzNSa.191724$Ny5.5...@twister2.libero.it...
>
> "gasto" <
gas...@virgilio.it
> ha scritto nel messaggio
> news:E1NSa.4882$t92.1...@news1.tin.it...
> > Ho una query base dati per una maschera ed un report.
> > Nella tbl base su cui si basa la qry ho 2 campi: uscita, entrata.
> > Il mio scopo č quello di avere nella qry un campo calcolato che
visualizza
> > (nella form a maschere continue e nel rpt) il saldo in ogni riga.
> >
> > Dal SitoComune ho copiato la funzione di Roberto 'Function
> TotProgrQry(....)
> > e l'ho modificata in certi punti per adattarla alle mie esigenze.
> >
[cut]
>
> La funzione che hai trovato sul Sito Comune fa riferimento alla libreria
> Microsoft DAO; se avessi usato Access 97 non avresti avuto problemi in
> quanto i riferimenti a tale libreria sarebbero stati di default, ma poiché
> usi Access 2002 occorre che li aggiungi tu a manina santa al tuo database.
> Comunque sia, dopo aver aggiunto al tuo dabase i riferimenti alla libreria
> Microsoft DAO 3.6, ti suggerisco di scrivere:
>
> Dim RS As DAO.Recordset
>
> e non
>
> Dim RS As Recordset
>
> altrimenti, se non posizioni correttamente i riferimenti alla libreria DAO
> prima dei riferimenti alla libreria ADO, continuerai a ricevere lo stesso
> errore che ricevi ora, come se non avessi aggiunto i riferimenti alla
> libreria DAO al tuo database.
>
> --
> Roberto
>
> ---------------------------------------------
> il Sito Comune di it.comp.appl.access:
>
http://www.sitocomune.com
> ---------------------------------------------
>
>
Molte grazie, s'č messo in moto!  Adesso devo risolvere altri problemi, perň
sono di tutt'altra natura.
Un sentito ringraziamento a te a tutti gli altri che con le loro risposte ai
piů disparati quesiti, mi permettono di risolvere problemi che a volte mi
sembrano insormontabili.
Gastone


title: Totale progressivo in una query

text:
> Molte grazie, s'č messo in moto!  Adesso devo risolvere altri problemi,
perň
> sono di tutt'altra natura.
> Un sentito ringraziamento a te a tutti gli altri che con le loro risposte
ai
> piů disparati quesiti, mi permettono di risolvere problemi che a volte mi
> sembrano insormontabili.
>
> Gastone
Come sei fortunato...
MAssimiliano


title: value di combobox.. dove sbaglio?

author: Wrugaian

text:
Ciao, ho una combobox che si compila cosģ all'evento load della maschera con
chiamata "Call riempiweek(Me.CCListaWeek)":
Public Sub riempiweek(ListaWeek As ComboBox)
    Dim i As Integer
    Dim str As String
    ListaWeek.AddItem "Seleziona Week", 0
    For i = 1 To Format(Date, "ww")
        str = "Week"
        str = str & i
        If i = Format(Date, "ww") Then
            str = str & " (in corso)"
        End If
        ListaWeek.AddItem str, i
    Next
    ListaWeek = ListaWeek.ItemData(0)
End Sub
Alla selezione(CCListaWeek.value) mi passa perņ il valore testuale, non l'id
determinato da i.
Grazie
P.S.
Esiste una funzione predefinita per calcolare la data del primo lunedģ della
week x o devo fare una funzione specifica?


title: value di combobox.. dove sbaglio?

author: Andrea Papi

text:
"Wrugaian" <wrugai...@NOSPAMemail.it> ha scritto nel messaggio
news:I5zTf.41261$PR2.7...@twister2.libero.it...
> Ciao, ho una combobox che si compila cosě all'evento load della maschera
con
> chiamata "Call riempiweek(Me.CCListaWeek)":
>
> Public Sub riempiweek(ListaWeek As ComboBox)
>     Dim i As Integer
>     Dim str As String
>     ListaWeek.AddItem "Seleziona Week", 0
>     For i = 1 To Format(Date, "ww")
>         str = "Week"
>         str = str & i
>         If i = Format(Date, "ww") Then
>             str = str & " (in corso)"
>         End If
>         ListaWeek.AddItem str, i
>     Next
>     ListaWeek = ListaWeek.ItemData(0)
> End Sub
>
> Alla selezione(CCListaWeek.value) mi passa perň il valore testuale, non
l'id
> determinato da i.
>
> Grazie
>
> P.S.
> Esiste una funzione predefinita per calcolare la data del primo lunedě
della
> week x o devo fare una funzione specifica?
>
>
devi impostare a 2 colonne la Me.CCListaWeek
e sostituisci il tuo cando
ListaWeek.AddItem str, i
con questo
ListaWeek.AddItem Item:=i & ";" & str
ciao
Andrea Papi


title: [riposto] Aggiornare una tabella di Excel collegata

author: Giancarlo Francesconi

text:
Dal momento che ho avuto dei problemi nell'invio di un precedente messaggio,
lo riposto.
Salve a tutti.
In A97 ho una tabella [tabella1] collegata ad un file di Excel
'Cartel1.xls'. La tab contiene i campi (semplifico) [importo] e
[importo_ivato].
Faccio una query su tabella1 e vorrei impostare il campo [importo_ivato]
come un campo calcolato. E' possibile fare in modo che oltre che a calcolare
il valore, possa anche aggiornarmi il file di Excel collegato alla tabella?
Grazie a tutti.
--
Giancarlo


author: Emyr

text:


certo, vedi l'automazione office esempi di excel su
sitocomune.com
 e
leggi l'help f1
Saluti.
Emanuele.


text:
"Emyr" <
fan...@tiscali.it
> ha scritto nel messaggio
news:i5go6voktfi73p029...@4ax.com...

Ho provato a vedere l'esempio di cui parli, ma mi sembra che il clik sul
pulsante vada a scrivere sulla tabella di Excel 'Hello word!'. Nel mio caso
invece si tratta di una tab. collegata ad un file di excel. Quando apro la
tabella visualizzo nel campo [importo] una serie di valori. Vorrei tramite
una query eseguire dei calcoli e vorrei che i valori calcolati andassero ad
aggiornare la colonna di excel accanto a quella che contiene i valori. Lo
devo fare da Access, perchè si tratta di fare calcoli con una serie di
funzioni 'Se' nidificate (sono 15 o 16 se o iif), ma excel ne accetta fino a
7. Quindi l'idea era quella di collegare tutto ad A. fare i calcoli ed
aggiornare in automatico la tabella di Excel. Secondo te è possibile?
> leggi l'help f1
Ho provato a cercare, ma non ho capito bene quale argomento....
> Saluti.
> Emanuele.
Grazie. Giancarlo.


text:
CUT
possibile ma stupido, non puoi fare i calcoli direttamente su excel da
codice? creandoti una funzione personalizzata
crea un tasto e fagli aggiornare tutti i totali, semplice e veloce
Saluti.
Emanuele.


text:
"Emyr" <
fan...@tiscali.it
> ha scritto nel messaggio
news:ecto6v0eau7dcq69p...@4ax.com...
> CUT
>
> possibile ma stupido,
Me lo dice sempre anche mia madre....:-)
non puoi fare i calcoli direttamente su excel da
> codice? creandoti una funzione personalizzata
>
>
> crea un tasto e fagli aggiornare tutti i totali, semplice e veloce
>
>
>
> Saluti.
> Emanuele.
Grazie per la tua risposta.
Giancarlo


title: Campo con stringa incrementale

text:
Salve a tutti......
Utilizzo questa stringa:

=Format(Date();"yy") & "/" & Format(IIf(IsNull(DMax("[NumeroSegnalazione]";"[Segnalazioni]";"[NumeroSegnalazione] like '" & Format(Date();"yy") & "/?????'"));1;Right(DMax("[NumeroSegnalazione]";"[Segnalazioni]";"[NumeroSegnalazione] like '" & Format(Date();"yy") & "/?????'");5)+1);"00000")

come valore predefinito del campo "NumeroSegnalazione" che è di tipo testo, ottenendo come risultato 00001/13, il primo inserimento dell'anno 2013. Ora per questioni interne di amministrazione (rotture di balle dal capo) vorrei ottenere ad es. al primo inserimento del 2014 (1/2014) e naturalmente al centesimo insermento (100/2014) e così via. Solo che girando e rigirando non riesco proprio a venirne fuori. Perciò vi chiedo gentilmente aiuto.
Grazie 1000 in anticipo
Distinti saluti a tutti
M7a1x


title: Campo con stringa incrementale

author: CIDI

text:
"M7a1x" <
melm...@gmail.com
> ha scritto nel messaggio
news:0de1d031-2271-45c8...@googlegroups.com...
Salve a tutti......
Utilizzo questa stringa:

=Format(Date();"yy") & "/" &
Format(IIf(IsNull(DMax("[NumeroSegnalazione]";"[Segnalazioni]";"[NumeroSegnalazione]
like '" & Format(Date();"yy") &
"/?????'"));1;Right(DMax("[NumeroSegnalazione]";"[Segnalazioni]";"[NumeroSegnalazione]
like '" & Format(Date();"yy") & "/?????'");5)+1);"00000")

come valore predefinito del campo "NumeroSegnalazione" che č di tipo testo,
ottenendo come risultato 00001/13, il primo inserimento dell'anno 2013. Ora
per questioni interne di amministrazione (rotture di balle dal capo) vorrei
ottenere ad es. al primo inserimento del 2014 (1/2014) e naturalmente al
centesimo insermento (100/2014) e cosě via. Solo che girando e rigirando non
riesco proprio a venirne fuori. Perciň vi chiedo gentilmente aiuto.
Grazie 1000 in anticipo
Distinti saluti a tutti
M7a1x

=Format(IIf(IsNull(DMax("NumeroSegnalazione";"Segnalazioni";"NumeroSegnalazione
like '???/" & Format(Date();"yyyy") &
"'"));1;Mid(DMax("NumeroSegnalazione";"Segnalazioni";"NumeroSegnalazione
like '???/" & Format(Date();"yyyy") & "'");1;2)+1);"000") & "/" &
Format(Date();"yyyy")

Ciao

Daniele


title: Campo con stringa incrementale

text:
Il giorno martedì 12 novembre 2013 14:34:33 UTC+1, M7a1x ha scritto:
> Salve a tutti...... Utilizzo questa stringa: =Format(Date();"yy") & "/" & Format(IIf(IsNull(DMax("[NumeroSegnalazione]";"[Segnalazioni]";"[NumeroSegnalazione] like '" & Format(Date();"yy") & "/?????'"));1;Right(DMax("[NumeroSegnalazione]";"[Segnalazioni]";"[NumeroSegnalazione] like '" & Format(Date();"yy") & "/?????'");5)+1);"00000") come valore predefinito del campo "NumeroSegnalazione" che è di tipo testo, ottenendo come risultato 00001/13, il primo inserimento dell'anno 2013. Ora per questioni interne di amministrazione (rotture di balle dal capo) vorrei ottenere ad es. al primo inserimento del 2014 (1/2014) e naturalmente al centesimo insermento (100/2014) e così via. Solo che girando e rigirando non riesco proprio a venirne fuori. Perciò vi chiedo gentilmente aiuto. Grazie 1000 in anticipo Distinti saluti a tutti M7a1x

Ciao CIDI....
Ho provato la tua soluzione ma ad ogni nuovo inserimento riparte dal numero 001/2013.
Gulp!!!
Ci smanetto un altro pò. Se trovi qualche altra soluzione pubblicala pure. Grazie ancora. Saluti
M7a1x


title: Campo con stringa incrementale

text:
Il giorno martedì 12 novembre 2013 14:34:33 UTC+1, M7a1x ha scritto:
> Salve a tutti...... Utilizzo questa stringa: =Format(Date();"yy") & "/" & Format(IIf(IsNull(DMax("[NumeroSegnalazione]";"[Segnalazioni]";"[NumeroSegnalazione] like '" & Format(Date();"yy") & "/?????'"));1;Right(DMax("[NumeroSegnalazione]";"[Segnalazioni]";"[NumeroSegnalazione] like '" & Format(Date();"yy") & "/?????'");5)+1);"00000") come valore predefinito del campo "NumeroSegnalazione" che è di tipo testo, ottenendo come risultato 00001/13, il primo inserimento dell'anno 2013. Ora per questioni interne di amministrazione (rotture di balle dal capo) vorrei ottenere ad es. al primo inserimento del 2014 (1/2014) e naturalmente al centesimo insermento (100/2014) e così via. Solo che girando e rigirando non riesco proprio a venirne fuori. Perciò vi chiedo gentilmente aiuto. Grazie 1000 in anticipo Distinti saluti a tutti M7a1x

Salve a tutti e in particolare a CIDI
... per correttezza... avrei risolto in questo modo:
="" & Format(IIf(IsNull(DMax("[NumeroSegnalazione]";"[Segnalazioni]";"[NumeroSegnalazione] like '???/" & Format(Date();"yy") & "'"));1;Mid(DMax("[NumeroSegnalazione]";"[Segnalazioni]";"[NumeroSegnalazione] like '???/" & Format(Date();"yy") & "'");1;3)+1);"000") & "/" & Format(Date();"yy")

e sembra andar bene
Saluti
M7a1x


title: Campo con stringa incrementale

text:
"M7a1x" <
melm...@gmail.com
> ha scritto nel messaggio
news:8f55500d-7ef6-4f1b...@googlegroups.com...
Il giorno martedě 12 novembre 2013 14:34:33 UTC+1, M7a1x ha scritto:
> Salve a tutti...... Utilizzo questa stringa: =Format(Date();"yy") & "/" &
> Format(IIf(IsNull(DMax("[NumeroSegnalazione]";"[Segnalazioni]";"[NumeroSegnalazione]
> like '" & Format(Date();"yy") &
> "/?????'"));1;Right(DMax("[NumeroSegnalazione]";"[Segnalazioni]";"[NumeroSegnalazione]
> like '" & Format(Date();"yy") & "/?????'");5)+1);"00000") come valore
> predefinito del campo "NumeroSegnalazione" che č di tipo testo, ottenendo
> come risultato 00001/13, il primo inserimento dell'anno 2013. Ora per
> questioni interne di amministrazione (rotture di balle dal capo) vorrei
> ottenere ad es. al primo inserimento del 2014 (1/2014) e naturalmente al
> centesimo insermento (100/2014) e cosě via. Solo che girando e rigirando
> non riesco proprio a venirne fuori. Perciň vi chiedo gentilmente aiuto.
> Grazie 1000 in anticipo Distinti saluti a tutti M7a1x

Salve a tutti e in particolare a CIDI
... per correttezza... avrei risolto in questo modo:
="" &
Format(IIf(IsNull(DMax("[NumeroSegnalazione]";"[Segnalazioni]";"[NumeroSegnalazione]
like '???/" & Format(Date();"yy") &
"'"));1;Mid(DMax("[NumeroSegnalazione]";"[Segnalazioni]";"[NumeroSegnalazione]
like '???/" & Format(Date();"yy") & "'");1;3)+1);"000") & "/" &
Format(Date();"yy")

nel modificare il tuo codice ho dimenticato di mettere le parentesi
quadre...
vista l'ora quando ti ho risposto.... :-)
adesso ti stavo mandando il codice giusto

ciao
Daniele


title: Campo con stringa incrementale

text:

Il giorno martedì 12 novembre 2013 14:34:33 UTC+1, M7a1x ha scritto:
> Salve a tutti...... Utilizzo questa stringa: =Format(Date();"yy") & "/" & Format(IIf(IsNull(DMax("[NumeroSegnalazione]";"[Segnalazioni]";"[NumeroSegnalazione] like '" & Format(Date();"yy") & "/?????'"));1;Right(DMax("[NumeroSegnalazione]";"[Segnalazioni]";"[NumeroSegnalazione] like '" & Format(Date();"yy") & "/?????'");5)+1);"00000") come valore predefinito del campo "NumeroSegnalazione" che è di tipo testo, ottenendo come risultato 00001/13, il primo inserimento dell'anno 2013. Ora per questioni interne di amministrazione (rotture di balle dal capo) vorrei ottenere ad es. al primo inserimento del 2014 (1/2014) e naturalmente al centesimo insermento (100/2014) e così via. Solo che girando e rigirando non riesco proprio a venirne fuori. Perciò vi chiedo gentilmente aiuto. Grazie 1000 in anticipo Distinti saluti a tutti M7a1x

Il giorno martedì 12 novembre 2013 14:34:33 UTC+1, M7a1x ha scritto:
> Salve a tutti...... Utilizzo questa stringa: =Format(Date();"yy") & "/" & Format(IIf(IsNull(DMax("[NumeroSegnalazione]";"[Segnalazioni]";"[NumeroSegnalazione] like '" & Format(Date();"yy") & "/?????'"));1;Right(DMax("[NumeroSegnalazione]";"[Segnalazioni]";"[NumeroSegnalazione] like '" & Format(Date();"yy") & "/?????'");5)+1);"00000") come valore predefinito del campo "NumeroSegnalazione" che è di tipo testo, ottenendo come risultato 00001/13, il primo inserimento dell'anno 2013. Ora per questioni interne di amministrazione (rotture di balle dal capo) vorrei ottenere ad es. al primo inserimento del 2014 (1/2014) e naturalmente al centesimo insermento (100/2014) e così via. Solo che girando e rigirando non riesco proprio a venirne fuori. Perciò vi chiedo gentilmente aiuto. Grazie 1000 in anticipo Distinti saluti a tutti M7a1x

Grazie Daniele per il tempestivo riscontro..
Saluti
M7a1x


title: come cambiare colore?

author: Jax

text:
ciao a tutti!
volevo sapere se esiste un modo semplice per cambiare colore alle parole nei
report...
se faccio un elenco di persone vorrei che dato il campo "sesso" contenente m
o f scrivesse il nome in rosso o blu...
Qualcuno gentilmente mi aiuta??
grazie a tutti :)
Ale


title: come cambiare colore?

author: lbo dal portatile

text:
>se faccio un elenco di persone vorrei che dato il campo "sesso" contenente m
>o f scrivesse il nome in rosso o blu...
la cosa e' piu' macchinosa di quel che potrebbe sembrare, se usi le
maschere continue.
potresti infatti usare l'evento corrente della maschera per testare il
valore di un certo *controllo* e settare la proprieta' backcolor di
quel *controllo* (non campo) o di altri opportunamente.
ad esempio
if me.sesso="M" then
	me.Nominativo.backcolor=rgb(0,0,255)
else
	me.nominativo.backcolor=rgb(255,0,0)
end if
ma se tu usassi una maschera continua vedresti che tutte le caselle
Nominativo diventano blu o rosse, non solo quella corrente.
prova a dare un'occhiata alla faq sul sito comune su come cambiare
colore ad un record.
--
il sito comune di it.comp.appl.access:
http://members.xoom.it/it_db_access/


title: REPORT E TASK

author: lorenzo

text:
ciao,
avrei 2 quesiti da porvi:
1)ho creato un report contenente dei sottoreport associati a delle query.
puň capitare che una query non dia risultati, quindi giustamente il
sottoreport
non viene visualizzato nel report principale.
il problema č che rimane cosě all'interno del report principele un
fastidioso
spazio vuoto...
non si puň elinare questo spazio automaticamente in modo che la parte
restante
del report risulti contigua a quella precedente???
sempre su questo newsgroup mi era stato consigliato di usare l'evento: su
report
vuoto...ma non ho la minima idea di come fare...
2) per ogni forms aperta compare il task nella barra delle applicazioni
(quella
dello start), cosa che io vorrei evitare...purtroppo questa cosa succede
anche
durante la normale esecuzione del programma...
č vero che si puň disabilitare da Menů:
Strumenti\Opzioni\Visualizzazione\Icone
sulla barra delle applicazioni...ma se porto il DB su un altro computer con
questa opzione abilitata il problema si ripete...
come faccio a non far apparire i task nella barra???
ringrazio anticipatamente tutti quelli che mi sapranno dare qualche utile
consiglio...
lorenzo
--------------------------------
Inviato via
http://usenet.libero.it


title: REPORT E TASK

author: Carlo Costarella

text:
"lorenzo" <
lol...@mail.com
> ha scritto nel messaggio
news:62Z98Z20Z38Y1...@usenet.libero.it...

Per la prima domanda: imposta l'altezza del sottoreport a zero e la propritŕ
"Espandibile" a sě; anche la sezione deve avere "Espandibile" a Sě.
Per la seconda: nelle applicazioni distribuite con il runtime non si
verifica.
Ciao, Carlo


title: REPORT E TASK

author: Lorenzo

text:
Il 31 Mag 2003, 11:42, "Carlo Costarella"
<
carloantoni...@virgilio.it
> ha scritto:
grazie mille per la risposta...purtroppo però non sono riuscito a far
funzionare quel maledetto report...
>
> Per la prima domanda: imposta l'altezza del sottoreport a zero e la
proprità
> "Espandibile" a sì; anche la sezione deve avere "Espandibile" a Sì.
l'altezza a zero non me la lascia impostare perchè all'interno ci sono delle
caselle di testo...espandibile l'ho messo a si ma nel report principale
rimane sempre lo spazio vuoto del sottoreport non visualizzato...
> Per la seconda: nelle applicazioni distribuite con il runtime non si
> verifica.
ma se il DB lo distribuisco a persone con access installato?
> Ciao, Carlo
grazie ancora...
Lorenzo



title: REPORT E TASK

text:
"Lorenzo" <
lol...@mail.com
> ha scritto nel messaggio
news:62Z98Z20Z196Y1...@usenet.libero.it...
> Il 31 Mag 2003, 11:42, "Carlo Costarella"
> <
carloantoni...@virgilio.it
> ha scritto:
>
> grazie mille per la risposta...purtroppo però non sono riuscito a far
> funzionare quel maledetto report...
>
> >
> > Per la prima domanda: imposta l'altezza del sottoreport a zero e la
> proprità
> > "Espandibile" a sì; anche la sezione deve avere "Espandibile" a Sì.
>
> l'altezza a zero non me la lascia impostare perchè all'interno ci sono
delle
> caselle di testo...espandibile l'ho messo a si ma nel report principale
> rimane sempre lo spazio vuoto del sottoreport non visualizzato...
>
> > Per la seconda: nelle applicazioni distribuite con il runtime non si
> > verifica.
>
> ma se il DB lo distribuisco a persone con access installato?
>
> > Ciao, Carlo
>
>
Anche la sezione del report va ridimensionata, spostanto (avvicinando)
opportunamente i vari controlli compreso il sottoreport.
Per i controlli (le caselle di testo) nel sottoreport anche questi possono
essere impostati ad altezza zero e con la proprietà "Espandibile" = Sì.
Stessa cosa per le sezioni del sottoreport.
Insomma se il sottoreport non contiene valori il risultato sarà una
sottilissima striscia, perarltro non visibile se avrai impostato i bordi su
"Trasperente".
Le macchine che hanno Access installato e lo usano in versione full per
aprire il tuo db, visualizzano solo il task dell'applicazione ed una
eventuale maschera di apertura. Le altre resteranno non visibili come task.
Per modificare questo comportamento credo bisogni andare a modificare il
registro, con evidenti conseguenze.
In aggiunta vorrei dire che questa soluzione adottata da Microsoft mi pare
ottima e perfino utile, permettendomi di aprire direttamente la maschera
dalla barra di stato di Windows.
Ciao, Carlo


title: Inserimento dati tramite mouse: nessun evento?

author: leev

text:
Ho una maschera nella quale inserisco in diverse caselle di testo dati
presi dal web tramite un copia e incolla effettuato tramite drag &
drop.
Dopo aver inserito i dati avrei una routine che mi controlla se sono
già presenti ma non so come startarla dato che arrivo a riempire
l'ultima casella di testo ma, forse apparentemente, non mi si genera
alcun evento.
Spiegazioni?
Suggerimenti?
Grazie come sempre.
leev (A00/WXP)


author: Alessandro Baraldi

text:
leev ha scritto:

Scusa ma come fai il PASTE....?
@Alex


author: Roberto dal portatile

text:
"leev" <
le...@fastwebnet.it
> ha scritto nel messaggio
news:1160584159.2...@m7g2000cwm.googlegroups.com...

Una possibilità potrebbe essere quella di effettuare tutte le verifiche di
congruità a fronte dell'evento "Prima di aggiornare" della maschera di
inserimento: se le verifiche non danno esito positivo puoi inviare messaggi
di errore all'utilizzatore con dei MsgBox e poi annullare la trascrizione
del record su disco con il classico:
Cancel = True
spostando il fuoco sulla prima casella di testo rilevata non corretta.
>
>Grazie come sempre.
Prego
>
>leev (A00/WXP)
--
Roberto
-----------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
-----------------------------------------------


text:
Alessandro Baraldi ha scritto:

Allora:
Apro la pagina web, evidenzio il primo dato che mi interessa, vi clicko
sopra col mouse mantenendo premuto il tasto sinistro, mi sposto sulla
casella di testo, rilascio il pulsante.
Stessa cosa per il secondo dato, e così via.
Arrivo in fondo senza che accada nulla, ne aggiornamento, ne uscita, ne
altri (non ricordo tutti quelli che ho provato)
> @Alex


text:
Alessandro Baraldi ha scritto:

Sta a vedere che era "su pulsante mouse
su".......azzzzzzzzzzzzzzzzzzzzzz.....
Grazie!
(se è giusto....)


text:
Roberto dal portatile ha scritto:

Grazie, ma, se non ho capito male, avrei tutte le verifiche alla fine
e, essendo parecchi i dati, sarebbe più complesso per l'utente
ricontrollare tutto. Forse Alex mi ha fulminato con l'idea giusta, se
ho capito bene.
Ora la provo.
Grazie belliiiiiiiiiiiii...
...beh, belli,...
...simpatici!
^_^


text:
leev ha scritto:
> (se è giusto....)
No, pare non lo sia!!!
Lo sarebbe se fosse stato premuto all'interno del controllo e non
fuori! GRRRRRRRRR
Che altro provo? Mi sembra di essere alle giostre...vediamo se vinco il
pescioliono.
Oddio, non che mi attiri molto il pesciolino, anzi....
vabbeh


text:
leev ha scritto:

Lo sapevo... ma era giusto provassi tu...!
Hai 2 modi di farlo:
1) Subclassare il MOUSE e determinare quando è all'interno della Form
solo dopo aver intercettato il RIGHT_CLICK, ma ti faccio gli auguri,
non per il SubClassing ma quanto per discriminare quando è il momento
di generare l'Evento...!
Andrebbe usata una ClipBoard dedicata e non la Nativa di Windows in
modo da testare se c'è dentro qualcosa...., quindi su MOUSE_UP(sempre
Subclassing) la svuoti...!
2) Se la Form è Popup puoi evitare il SubClassing non è pulito ma
puoi usare un'API per determinare se il MOUSE è sopra la tua Form...!
                  Handle = WindowFromPoint(Pt.x, Pt.Y)
Confrontala con Me.HWND.....
Secondo me ti sei cacciato in un brutto vicolo....
@Alex


text:
Alessandro Baraldi ha scritto:
> leev ha scritto:
>
> > leev ha scritto:
> > > (se è giusto....)
> >
> > No, pare non lo sia!!!
> > Lo sarebbe se fosse stato premuto all'interno del controllo e non
> > fuori! GRRRRRRRRR
> > Che altro provo? Mi sembra di essere alle giostre...vediamo se vinco il
> > pescioliono.
> > Oddio, non che mi attiri molto il pesciolino, anzi....
> > vabbeh
>
>
> Lo sapevo... ma era giusto provassi tu...!
^__________^   (GRRRRRRRRRRRRRR)
> Hai 2 modi di farlo:
>
> 1) Subclassare il MOUSE e determinare quando è all'interno della Form
> solo dopo aver intercettato il RIGHT_CLICK, ma ti faccio gli auguri,
> non per il SubClassing ma quanto per discriminare quando è il momento
> di generare l'Evento...!
> Andrebbe usata una ClipBoard dedicata e non la Nativa di Windows in
> modo da testare se c'è dentro qualcosa...., quindi su MOUSE_UP(sempre
> Subclassing) la svuoti...!
>
> 2) Se la Form è Popup puoi evitare il SubClassing non è pulito ma
> puoi usare un'API per determinare se il MOUSE è sopra la tua Form...!
>
>                   Handle = WindowFromPoint(Pt.x, Pt.Y)
>
> Confrontala con Me.HWND.....
>
> Secondo me ti sei cacciato in un brutto vicolo....
Non è una specie di OnMouseOver? Il casino è che se passi sopra per
sbaglio.....ZAC!
Guarda vista la difficoltà, mi studio qualche altro sistema, tanto
qualcosa ho già in mente.
grazie ancora alex, a la prochaine!
leev


text:
leev ha scritto:
[CUT]
> Non è una specie di OnMouseOver? Il casino è che se passi sopra per
> sbaglio.....ZAC!
Infatti devi memorizzare che hai copiato in ClipBoard.... e che il
rilascio è andato a buon fine...!!!
> Guarda vista la difficoltà, mi studio qualche altro sistema, tanto
> qualcosa ho già in mente.
>
> grazie ancora alex, a la prochaine!
>
> leev
Ciao
@Alex